人事管理系统ER图+流程图+开题报告+源代码
计算机科学应用专业（专科）毕业设计课题审批表
课题主要研究内容及预期达到的目标：
通过对部分中小企业人事管理情况的调查，了解了目前一般中小企业的人事管理情况，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下：
1、系统管理：包括人员登录管理、修改密码、用户管理。
2、招聘管理：包括招聘人员计划以及审批情况。
3、人事管理：包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。
4、考勤管理：包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。
本系统的开发完成并投入运行后，可以用计算机进行人事管理工作，使一般企事业单位人事管理更加科学化、现代化。
课题研究的工作基础或实验条件：
通过对部分中小企业人事管理情况的调查，了解了目前一般中小企业的人事管理情况，并参考了成功的工资管理系统的开发经验，且在学习过程中已经学习过管理信息系统课程，具备了开发该系统的基础。
教学部具有50余台PentiunⅢ以上计算机，系统软件及各种开发工具较齐全，完全满足研究与实验要求。
课题所涉及的知识面：
计算机网络
软件工程
程序设计基础
软件开发工具
数据结构
调查部分中小企业人事管理情况，了解了目前一般中小企业的人事管理现状，在调查的基础上开发一个简单的人事管理系统，其实现的主要功能如下：
1、系统管理：包括人员登录管理、修改密码、用户管理。
2、招聘管理：包括招聘人员计划以及审批情况。
3、人事管理：包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询。
4、考勤管理：包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计。
课题预期达到的目标（主要技术参数）及要求：
本本系统的开发完成并投入运行后，可以用计算机进行人事管理工作，使一般企事业单位人事管理更加科学化、现代化。
课题研究的实验条件：
硬件环境：Pentim Ⅱ以上CPU，128M内存，40G硬盘；
软件环境：Windows 操作系统，Visual foxpro 6.0
主要参考资料：
[1]王福成等： <
>， 清华大学出版社 2002年6月
[2]郭振波编著： << 深入浅出Visual Basic 6.0中文版>>， 人民邮电出版社2003年3月
[3]林永等编著： <>， 人民邮电出版社2002年11月
[4]刘炳文等编著： <> ，清华大学出版社 2000年7月
毕业设计进度计划：
1、期限：自2005年10 月22 日起至2006 年 2 月 24 日
2、具体进度安排：
布置毕业设计任务，下达毕业设计任务书
检查根据毕业设计任务书要求进行调研的情况，完成调研。形成需求分析意见。
审查可行性分析及系统调研分析的结果，形成概要设计，完成开题报告。
进行开题论证（全体学生参加）
熟悉开发环境；
完成系统管理（包括人员登录管理、修改密码、用户管理）与招聘管理（包括招聘人员计划以及审批情况）模块的程序设计与实现；
完成人事管理（包括员工基本信息的添加、修改、删除、查询，部门信息、职务信息的添加、删除，员工内部调动、人员资料按分组进行查询等）模块的代码实现；
完成考勤管理（包括考勤时间表的设置、考勤的出勤、加班、出差、请假记录的添加、删除以及最后的月考勤统计）模块设计与实现。
进行系统的最终调试和测试，完成最终开发的系统。
最后完善毕业设计说明书的撰写，打印，装订，制作PPT演示文稿，系统打包。
指导教师评语：
该生毕业设计态度端正，设计认真，及时与指导老师沟通，按照指导教师的安排，参加各次指导和辅导。
该设计较为全面达到了任务书中提出的功能要求，方案设计合理，能利用所学的知识解决设计中遇到的问题，设计的程序运行正常。
设计说明书结构完整，功能阐述基本正确，图示符号符合有关标准规范的规定，文理通顺，语言流畅，结构清楚，符合毕业设计实施细则的要求，同意参加答辩。127
人事管理系统ER图+流程图+开题报告+源代码
开题报告
一 课题目的、意义
1、目的:
随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。
2、意义：
目前市面上流行的人事管理系统不少。但是，对于企、事业单位的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统.能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。
二 系统调研
正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。
（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。
（2）提出新系统的人员并不都是系统研究人员，有些人对于功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。
（3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。
总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。
三 分析概述
1.可靠性分析
可靠性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。
可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。
(1)可行性分析阶段的主要工作包括以下几个方面：
①新系统目标可行性分析：
分析新系统的目标是否符合企业的现状和发展的需要。
②社会可行性分析：
社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。
③技术可行性分析：
技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。
④经济可行性分析
经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。
⑤管理可行性分析：
管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。
2.可行性分析
技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。
（1）技术支持：
首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是丫毡槭褂玫模皇谴芯康幕蛘谘芯康摹?
（2）硬件资源：
开发管理信息系统所需的硬件资源包含以下两个方面：
系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。
（3）软件资源
软件资源的可行性分析主要考虑以下几点是否满足用户的要求：
①操作系统的选择；
②编译系统的选择；
③数据库管理系统的选择；
④高级编程语言的选择；
⑤汉字处理系统的选择；
⑥应用软件包的选择。
本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。
3.系统分析
系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化
人事管理系统
的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。
通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：
（1）功能需求。确定新系统应做什么，这是最主要的需求。
（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。
（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。
（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。
四 开发工具的选择
现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：
Microsoft公司的Visual Basic
Microsoft公司的Visual C
Borland公司的Delphi
Java等等
在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。
作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
五 数据流程图
数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。
数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。若图片无法显示请联系QQ3710167,人事管理系统免费,转发请注明源于www.lwfree.cn
总体计方案，实现方法，软件平台
1 总体设计方案：实现人事管理系统的全部功能。
2 实现方法：Visual Basic6.0等。
3软件平台： Win98，win2000等。
六 计算机的软件配置
Windows 98/Windows XP/Windows 2000/Windows 2003；
七 进度计划
第一周 收集材料 整理信息
第二周 需求分析
第三周 软件设计:选择模块划分的方案
第四周 总体结构和模块外部设计
第五周 具体模块设计
第六周 运行设计
第七周 详细设计(数据库)
第八周 软件测试
第九周 整理源程序 编写软件说明书和用户手册
第十周 形成毕业设计全部文件
人事管理系统ER图+流程图+开题报告+源代码+数据流图中期报告
“人事管理系统”中期报告
一、设计与开发的进展情况
人事管理系统的开发工作基本按照开题报告的时间安排顺利进行，目前情况是：
1、经过五周时间完成了系统分析，总体结构和具体模块设计，形成系统的总体设计方案
2、数据库设计与实现工作已经结束。
3、系统的模块设计与实现情况如下：
已经完成负责系统的启动和连接数据库的模块、引导窗口的模块和菜单窗口的模块的设计与实现；
其余模块的设计也已经基本完成，现在正在完成界面和代码的实现过程中；待前几个模块完成后即可着手进行。
二、文档编写的准备情况
根据设计要求，目前对需求分析的内容、总体设计内容、部分详细设计内容和数据库设计资料已经准备齐全，并部分成稿，整个设计论文的框架、结构及各部分内容的安排也已经构思完毕，并完成部分电子文档的准备。计划在系统设计全部实现后整理完成。
对系统的使用及测试准备工作正按部就班的实行中。
三、设计中出现的问题及解决
1、需求分析工作中，对分析的内容不全面，用工具描述不准确，经过老师指导解决。
2、程序结构设计走过一点弯路，经老师指出后改进了。
3、开发工具的学习较长，尤其是与数据库连接，费过一些周折，经过请教有关同事和同学，有了进步，现在已经基本解决了。
四、下一步安排
1、用二周时间完成全部程序设计。
2、用一周时间完成软件的测试。
3、用一周的时间来整理源程序，编写软件说明书和用户手册，
4、最后一周完成毕业论文。
根据一个多月的设计与开发，目前一切都在按计划进行中。本人认为，按照原计划完成毕业设计是完全可以的。特此报告。
人事管理系统ER图+流程图+开题报告+源代码+数据流图
摘要
随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。本系统结合公司实际的人事管理制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版人事管理系统。
整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人事管理工作以及新进员的新增、老员工修改等管理工作。经过实际使用证明，本文所设计的人事管理系统可以满足公司人事管理方面的需要。
关键词： 信息管理、人事管理、人事管理系统目 录
第一章 概述--------------------------------------------------11、本课题的来源-------------------------------------------12、本论文的目的、内容及作者主要贡献-----------------------1第二章 开好发工具的选择-----------------------------------2第三章 系统调研及可行性分析------------------------------61、 系统调研-----------------------------------------------------62、 可靠性分析概述----------------------------------------------63、 技术可行性分析----------------------------------------------7第四章 系统分析---------------------------------------------91、系统需求分析-------------------------------------------92、数据流程图---------------------------------------------9第五章 系统总体设计--------------------------------------101、功能描述----------------------------------------------102、系统操作流程图----------------------------------------11第六章 系统详细设计--------------------------------------121、数据库设计--------------------------------------------122、系统主要界面------------------------------------------13第七章 系统测试--------------------------------------------161、测试举例----------------------------------------------162、测试项目----------------------------------------------173、测试方法----------------------------------------------18致 谢---------------------------------------------------19参考文献------------------------------------------20
人事管理系统
第一章 概述
1、 本课题的来源
随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。
2、本论文的目的、内容及作者主要贡献
(1)目的：
目前市面上流行的人事管理系统不少。但是，对于企、事业单位的人事管理系统来说，不需要大型的数据库系统。只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。我们的目标就是在于开发一个功能实用、操作方便，简单明了的人事管理系统。
(2)内容
能够录入人事的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。
(3)作者的主要贡献
本人独立完成了此课题的研究与开发，包括调研、分析、设计、编码、测试、文档编写等内容。
第二章 开发工具的选择
现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：
Microsoft公司的Visual Basic
Microsoft公司的Visual C
Borland公司的Delphi
Java等等
在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程续语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。
作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
总的来说，Visual Basic具有以下特点：
可视化编程：
用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。
面向对象的程序设计
4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。
结构化程序设计语言
Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。
Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。
事件驱动编程机制
Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该
人事管理系统ER图+流程图+开题报告+源代码+数据流图
按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。
在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。
访问数据库
Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。
Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。
动态数据交换(DDE)
利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。
对象的链接与嵌入(OLE)
对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。
动态链接库(DLL)
Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。
人事管理系统ER图+流程图+开题报告+源代码+数据流图
第三章 系统调研及可行性分析
3．1 系统调研
正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。
（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。
（2）提出新系统的人员并不都是系统研究人员，有些人对于其功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。
（3）企业的现行系统可能是手工系统，也可能是使用和计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。
总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。
3．2 可行性分析概述
可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。
可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。
(1)可行性分析阶段的主要工作包括以下几个方面：
①新系统目标可行性分析：
分析新系统的目标是否符合企业的现状和发展的需要。
②社会可行性分析：
社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。
③技术可行性分析：
技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。
④经济可行性分析
经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。
⑤管理可行性分析：
管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。
3．3 技术可行性分析
技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。
（1）技术支持：
首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。
（2）硬件资源：
开发管理信息系统所需的硬件资源包含以下两个方面：
系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。
（3）软件资源
软件资源的可行性分析主要考虑以下几点是否满足用户的要求：
①操作系统的选择；
②编译系统的选择；
③数据库管理系统的选择；
④高级编程语言的选择；
⑤汉字处理系统的选择；
⑥应用软件包的选择。
本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。
人事管理系统ER图+流程图+开题报告+源代码+数据流图
第四章 系统分析
4．1 系统需求分析
系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。
通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：
（1）功能需求。确定新系统应做什么，这是最主要的需求。
（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。
（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。
（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。
4．2 数据流程图
数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。
数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。若图片无法显示请联系QQ3710167,人事管理系统免费,转发请注明源于www.lwfree.cn
数据流图
第五章 系统总体设计
5.1.功能描述:
该信息管理系统可以在Windows 2000 Server平台上运行，开发工具采用Visual Basic语言开发。其工作流程为：用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。
系统的主要功能特点有:
(1)系统登录表单
该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。
(2)主界面
在该界面窗口中，共有文件、数据、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。
(3)更改密码：
使用本表单可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。
5.1.2系统操作流程图:
人事管理系统ER图+流程图+开题报告+源代码+数据流图
第六章 系统详细设计
6．1 数据库设计
（1）职工信息数据表：
字段
字段名
类型
宽度
小数位
索引
排序
Nulls
1
职工编号
数值型
11
否
2
姓名
字符型
20
否
3
身份证号
字符型
18
否
4
民族
字符型
10
否
5
性别
字符型
4
否
6
出生日期
字符型
20
否
7
毕业学校
字符型
20
否
8
学历
字符型
20
否
9
部门
字符型
20
否
10
职称
字符型
20
否
11
上司
字符型
20
否
12
电话
字符型
20
否
13
EMAIL
字符型
20
否
14
EDIT
数值型
11
否
15
EDITTIME
日期型
8
否
16
备注
备注型
50
否
（2）请假信息数据表：
字段
字段名
类型
宽度
小数位
索引
排序
Nulls
1
假条编号
字符型
6
否
2
职工编号
数值型
11
否
3
起始日期
字符型
20
否
4
中止日期
字符型
20
否
5
天数
数值型
6
否
6
原由
字符型
50
否
7
状态
字符型
20
否
8
批准人
字符型
20
否
9
EDIT
数值型
11
否
10
EDITTIME
日期型
8
否
11
备注
备注型
10
否
（3）员工工资数据表：
字段
字段名
类型
宽度
小数位
索引
排序
Nulls
1
工资编号
字符型
50
否
2
职工编号
数值型
11
否
3
年份
数值型
6
否
4
月份
数值型
6
否
5
基本工资
数值型
11
否
6
加班工资
数值型
11
否
7
交通补助
数值型
11
否
8
总工资
数值型
11
否
9
考勤扣除
数值型
11
否
10
保险扣除
数值型
11
否
11
扣税
数值型
11
否
12
总扣除
数值型
11
否
13
实际工资
数值型
11
否
14
EDIT
数值型
11
否
15
EDITTIME
日期型
8
否
16
备注
备注型
10
否
6．2 系统主要界面设计
因为人事资料管理牵涉到个人隐私及公司密秘等多方面因素,所以一定要保
密,并有专人管理,使用前身份确认就显得非常重要,故在运行前要进行管理权限确认. 以防止他人无意或恶意篡改.(图 6-1)
人事管理系统ER图+流程图+开题报告+源代码+数据流图
第七章 系统测试
为了确保本系统能够正常运行，需要在发布之后做一次较全面的测试。现将具体操作及过程举例说明如下：
7．1测试举例
（1）.测试用户登陆是否成功：
打开人事管理系统，在“用户名”里填入root，“密码”框里我们填入root作为用户登录密码。填写完成点击“确定”按钮，将会出现操作程序页面，即该用户已经登陆成功了。再运行程序，会有提示页面出现：程序已经运行，不能再次装载！
（2）.测试其他用户是否能够登录：
打开人事管理系统登录页面，输入任意密码，点击“登录”按钮。将出现密码出错提示页面。然后点“确定”返回人事管理系统登录页面。
（3）.测试编辑功能是否成功：
编辑功能：在登录成功之后，即可进入相应的管理页面，点击“编辑”，即出现编辑页面，即可以修改和删除员工的个人信息资料。最后保存。
（4）.测试查询功能是否成功：
查询功能：在登录成功之后，点击“查询”，在弹出的文本框，在里面输入想要查找的资料，点击“查询”按钮，成功即可出现结果页面，页面内显示查询出来的员工资料内容，表示测试成功。
（5）.用户登出系统的测试：
在管理操作已全部完成，需要退出程序的时候，在系统页面“系统设置”下拉菜单的有一个“退出”的选项，点击之后便可退出。也可以点“关闭”退出。
（6）.测试密码更改：
在以超级用户登录的情况下，在程序中打密码设置，弹出文本框，显示用户列表。可以添加新的普通用户，也可以删除和禁止普通用户使用程序。在以普通用户登陆情况下，打开密码设置选项，系统会提示该用户为普通用户，只可以修改自己的密码。
经过以上各项的测试，证明本系统完全可以正常运行，至此测试成功！
7．2测试项目
在MIS开发过程中采用了多种措施保证软件质量，但是实际开发过程中还是不可避免地会产生差错，系统中通常可能隐藏着错误和缺陷，不经周密测试的系统投入运行，将会造成难以想象的后果，因此系统测试是MIS开发过程中为保证软件质量必须进行的工作。大量统计资料表明，系统测试的工作量往往占MIS开发总工作量的40%以上。因此，我们必须重视测试工作。
由于程序中隐藏的缺陷只在特定的环境下才有可靠显露，系统缺陷通常是由于对某些特定情况考虑不周造成的。因此测试不是为了表明程序正确；成功的测试也不是没有发现错误的测试。有意义的软件测试应该是从“破坏”软件系统的角度出发，精心设计最有可以暴露程序系统缺陷的测试方案。因此软件测试的目标应该是以尽可能少的代价和时间找出软件系统中潜在的错误和缺陷。
从产品角度看，测试计划中的测试项目包括软件结构中的分系统层、子系统层、功能模块层、程序模块层中的各类模块，从测试本身看，分为单元测试，组合测试，确认测试等。测试对象是随不同阶段而异的，最基本、最初的测试是单元测试，后面的组合测试、确认测试都是以被测过的模块作为测试对象的。
(1)单元测试：
单元测试也称模块测试或程序测试，单元测试是对每个模块单独进行的，验证模块接口与设计说明书是否一致，对模块的所有主要处理路径进行测试且与预期的结构进行对照，还要对所有错误处理路径进行测试。对源码进行审查，对照设计说明书，表态地检查源程序是否符合功能的逻辑要求，是进行单元测试前的重要工作工。单元测试一般是由程序员完成，也称程序调试。
(2)组合测试
组合测试也称集成测试或子系统测试，通常采用自顶向下测试和自底向上测试两种测试方法。组合测试的对象是指已经通过单元测试的模块，不是对零散模块进行单个测试，而是用系统化的方法装配和测试软件系统，是一个严格的过程，必须认真地进行，其计划的产生和单元模块测试的完成日期要协调起来，这种测试应在系统目标机上进行，造成系统应用的环境条件，除了开发部分项目负责人参加以外，还应该有相应系统的用户参加，给评审员进行演示。
(3)确认测试
确认测试是对通过组合测试的软件进行的，这些软件已经存于系统目标设备的介质上，确认测试的目的是表明软件是可以工作的，并且符合“软件需求说明书”中规定的全部功能和性能要求。确认测试是按照这些要求定出的“确认测试计划”进行的。测试工作是由一个独立的组织进行，而且测试要从用户的角度出发。
(4)系统测试
系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题以及检测系统是否达到用户的实际要求，系统测试的依据是系统分析报告。系统测试应在系统的整个范围内进行，这种测试不只对软件进行，而是对构成系统的硬、软件一起进行。系统测试与建构同时进行或略慢。系统测试需要确认从头到尾的功能正常才算完成，应当尽量避免系统测试延到项目末尾进行。
(5)用户验收测试
在系统测试完成后，进行用户的验收测试，它是用户在实际应用环境中所进行的真实数据测试。
在具体的测试中，一般应遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是否实现预期功能，还应检查程序是否做了不应该做的工作；集中测试容易出错的程序模块；对程序修改以后，必须重新进行测试。
7．3测试方法
一般来说，对程序测试有两种测试方法：如果已经知道了软件系统应具有的功能，可通过测试来对每个功能是否都能正常使用；如果知道程序的内部工作过程，可以通过测试来检测程序内部是否按照规格说明书的规定正常进行。前一种方法称为黑盒测试，后一种方法称为白盒子测试。黑盒测试又称为功能测试，白盒子测试又称为结构测试。
经过几个月的毕业设计，因为时间和任务的性质的关系，没有完全按照上述的测试方法进行系统的测试，但经过一些简单的步骤的测试，证明本系统具有相当程序的稳定性。
人事管理系统
致 谢
经过四个多月的构思与设计，在指导老师的精心指导和安排下，本系统已经设计完毕。其使用功能基本符合公司在实际工作的需要，具有一定的实用性。但是由于时间比较仓促，加上本人软件设计经验的不足。因此，在分析问题、解决问题时显得不够严密、完善，还需要在以后的工作中不断地改进和完善。
在这次的毕业设计中，让我深深地体现到进行软件开发不是一件简单的事情，它需要设计者具有全面的专业知识、缜密的思维、严谨的工作态度以及较高的分析问题、解决问题的能力，而我在很多方面还有欠缺。最后，我要衷心感谢老师在我的设计过程中给予我的极大帮助，使我能够及时、顺利地完成此次的毕业设计。同时，也要感谢我的老师和同学们及实习企业在本系统的设计过程中给予我的支持和帮助。
参考文献
[1]王福成等： <>， 清华大学出版社 2002年6月
[2]郭振波编著： << 深入浅出Visual Basic 6.0中文版>>， 人民邮电出版社2003年3月
[3]林永等编著： <>， 人民邮电出版社2002年11月
[4]刘炳文等编著： <> ，清华大学出版社 2000年7月
人事管理系统ER图+流程图+开题报告+源代码+数据流图
Option Explicit
Dim Bupdata As Boolean
Dim i As Integer
Private Sub Cmbdegree_Click()
If Cmbdegree.Text = "定制" Then
FrmTable.Show
Cmbdegree.ListIndex = 0
End If
End Sub
Private Sub Cmbdepart_Click()
If Cmbdepart.Text = "定制" Then
FrmTable.Show
Cmbdepart.ListIndex = 0
End If
End Sub
Private Sub CmdAddNew_Click()
If CmdAddNew.Caption = "添加" Then
CmdAddNew.Caption = "确认"
CmdDel.Enabled = False
CmdOK.Enabled = False
DataA.ReadOnly = False
For i = 1 To 12
If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0
Next i
DataA.Recordset.AddNew
Txt(0).Locked = False
If FrmMain.cutable = "employee" Then
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
If Opsex(0) Then
DataA.Recordset.Fields(4) = "男"
Else
DataA.Recordset.Fields(4) = "女"
End If
DataA.Recordset.Fields(7) = Cmbdegree.Text
DataA.Recordset.Fields(8) = Cmbdepart.Text
ElseIf FrmMain.cutable = "leave" Then
DataA.Recordset.Fields(8) = frmLogin.EmploID
DataA.Recordset.Fields(9) = Now
Else
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
End If
Txt(0).SetFocus
Else 'OK
If Txt(0).Text = "" Then
MsgBox "不可以为空"
Txt(0).SetFocus
Exit Sub
End If
For i = 1 To 12
If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0
Next i
If FrmMain.cutable = "employee" Then
DataB.Recordset.FindFirst "职工编号=" + Txt(0).Text
If Not DataB.Recordset.NoMatch Then
MsgBox "职员编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
ElseIf FrmMain.cutable = "leave" Then
DataB.Recordset.FindFirst "假条编号=" + Txt(0).Text
If Not DataB.Recordset.NoMatch Then
MsgBox "假条编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
Else
For i = 4 To 10
If Not IsNumeric(Txt(i).Text) Then
MsgBox "not a number"
Txt(i).SetFocus
Exit Sub
End If
Next i
DataB.Recordset.FindFirst "工资编号=" + Txt(0).Text
If Not DataB.Recordset.NoMatch Then
MsgBox "工资编号重复"
Txt(0).Text = ""
Txt(0).SetFocus
Exit Sub
End If
End If
DataA.Recordset.Update
DataA.Recordset.MoveLast
FrmMain.DataA.Refresh
FrmMain.DataB.Refresh
DataB.Refresh
CmdAddNew.Caption = "添加"
CmdDel.Enabled = True
CmdOK.Enabled = True
End If
End Sub
Private Sub CmdCacel_Click()
If CmdAddNew.Caption = "确认" Then
DataA.Recordset.CancelUpdate
End If
FrmMain.Enabled = True
FrmMain.SetFocus
Unload Me
FrmMain.DataA.Refresh
If FrmMain.cutable = "employee" Then
FrmMain.DBGA.Columns("性别").Button = True
FrmMain.DBGA.Columns("学历").Button = True
FrmMain.DBGA.Columns("部门").Button = True
End If
End Sub
Private Sub CmdDel_Click()
DataA.ReadOnly = False
DataA.Recordset.Delete
DataA.Recordset.MoveNext
If DataA.Recordset.EOF Then
DataA.Recordset.MoveLast
End If
FrmMain.DataA.Refresh
人事管理系统
End Sub
Private Sub cmdOK_Click()
If Txt(0).Text = "" Then
MsgBox "不可以为空"
Txt(0).SetFocus
Exit Sub
End If
Bupdata = False
DataA.Recordset.Edit
If FrmMain.cutable = "leave" Then
DataA.Recordset.Fields(8) = frmLogin.EmploID
DataA.Recordset.Fields(9) = Now
ElseIf FrmMain.cutable = "employee" Then
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
If Opsex(0) Then
DataA.Recordset.Fields(4) = "男"
Else
DataA.Recordset.Fields(4) = "女"
End If
DataA.Recordset.Fields(7) = Cmbdegree.Text
DataA.Recordset.Fields(8) = Cmbdepart.Text
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
Else
For i = 4 To 10
If Not IsNumeric(Txt(i).Text) Then
MsgBox "not a number"
Txt(i).SetFocus
Exit Sub
End If
Next i
DataA.Recordset.Fields(13) = frmLogin.EmploID
DataA.Recordset.Fields(14) = Now
End If
For i = 1 To 12
If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0
Next i
DataA.Recordset.Update
FrmMain.DataA.Refresh
DataB.Refresh
End Sub
Private Sub DataA_Validate(Action As Integer, Save As Integer)
If Action = 11 And Bupdata Then
Save = 0
End If
End Sub
Private Sub Lab_Click(Index As Integer)
End Sub
Private Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And Index = 0 Then
KeyAscii = 0
Exit Sub
End If
If FrmMain.cutable = "leave" And Index = 1 Then
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then
KeyAscii = 0
Exit Sub
End If
End If
If FrmMain.cutable = "salary" Then
If Index <= 3 Then
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack Then
KeyAscii = 0
Exit Sub
End If
End If
If Index = 13 Then Exit Sub
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> vbKeyBack And KeyAscii <> 46 Then
KeyAscii = 0
Exit Sub
End If
End If
End Sub
Private Sub Txt_change(Index As Integer)
If Bupdata = False Then Bupdata = True
If FrmMain.cutable = "salary" Then
If Txt(Index).Text = "" Then Exit Sub
If Index >= 4 And Index <= 6 Then
Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text)
Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)
End If
If Index >= 8 And Index <= 10 Then
Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text)
Txt(12).Text = Val(Txt(7).Text) - Val(Txt(11).Text)
End If
End If
End Sub
Private Sub Form_Load()
DataA.DatabaseName = App.Path + "\sm.mdb"
DataB.DatabaseName = App.Path + "\sm.mdb"
DataA.Caption = FrmMain.cutable
DataA.RecordSource = "select * from " + FrmMain.cutable
DataB.RecordSource = "select * from " + FrmMain.cutable
DataA.Refresh
Txt(0).Locked = True
'If FrmMain.DBGA.Row = 0 Then Exit Sub
If FrmMain.cutable = "employee" Then 'employee
For i = 0 To 12
Lab(i).Caption = DataA.Recordset.Fields(i).Name
Next i
Txt(0).DataField = DataA.Recordset.Fields(0).Name
Txt(1).DataField = DataA.Recordset.Fields(1).Name
Txt(2).DataField = DataA.Recordset.Fields(2).Name
Txt(3).DataField = DataA.Recordset.Fields(3).Name
Txt(4).Visible = False
Txt(5).DataField = DataA.Recordset.Fields(5).Name
Txt(6).DataField = DataA.Recordset.Fields(6).Name
Txt(7).Visible = False
Txt(8).Visible = False
Txt(9).DataField = DataA.Recordset.Fields(9).Name
Txt(10).DataField = DataA.Recordset.Fields(10).Name
Txt(11).DataField = DataA.Recordset.Fields(11).Name
Txt(12).DataField = DataA.Recordset.Fields(12).Name
Txt(13).DataField = DataA.Recordset.Fields(15).Name
If FrmMain.cuAp > -1 Then
