人事管理系统

1、精选优质文档-倾情为你奉上第一章 绪论随着计算机的日益普及和网络的发展,数据库的应用范围越来越广,数据库应用的功能也越来越强,因此编写管理信息系统应用程序也显得尤为重要,在强调管理,强调信息的现代社会中它变得越来越普及。人事管理是任何企事业单位都需要进行的一项工作,因此,开发制作人事管理系统具有较大的社会现实意义,同时人事管理系统是一切应用系统的典范,它具有一切应用系统的特征,系统结构与现实生活紧密结合,具体直观,具有典范的数据库系统的特性。人事管理系统主要用于企业内部员工的档案、工资、考勤、评价的管理,便于公司领导掌握人员的动向,及时调整人才的分配,同时也减少了手工操作带来的一些繁琐与不便,

2、使员工情况的记录和统计变得十分简单.这些优点可以极大的提高企业对人事管理的效率.因此,人事管理系统是企事业信息化、智能化、科学化和正规化不可缺少的管理软件。本系统开发的目的一方面从提高人事管理工作的效率出发，摆脱过去由人用纸和笔进行的费时费力的繁重工作，即利用成熟的计算机系统来实现商品管理工作的自动化。本系统根据企业管理的一些实际情况而编制的一套自动化的人事管理系统。人事管理系统针对企业员工信息的处理工作采用计算机进行全面的现代化管理,主要包括:.员工基本信息的管理.员工评价的管理.员工考勤信息的管理.员工工资的管理.企业内部人事变动的管理.企业部门管理用户通过输入员工的基本信息、考勤信息等,

3、由系统自动生成相应的统计数据及工资统计报表以供用户查询、打印,另外用户还可以对这些基本信息进行定期的更新与删除工作,人事管理系统力求以方便快捷的途径去管理手工操作的每繁琐数据。人事管理系统的数据要求具有一定的保密性禁止非法用户使用。在用户使用过程中对用户的权限具有一定的限制,防止个别用户对员工信息做出修改、删除等操作。本文首先介绍了人事管理系统所涉及工具和一些相关的理论知识，并注重介绍了企业管理系统和数据库,其中包括对Visual Basic 6.0 和SQL SERVER 2000的使用和特点进行了介绍，然后对所做系统进行总体设计，数据库的设计和详细设计，从这三个方面详细阐明系统的设计过程，

4、最后，在编程实现的过程中，介绍本人使用Visual Basic 6.0对数据库基应用程序进行设计、开发与实现的思路、算法、并得出结论。第二章 需求分析21 系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，基关键性主要体现在“理解需求”和“表达需求”两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：（1）功能需求。确定新系统应做什么，这是最主要的

5、需求。（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。（都是理论知识，没有关联上你所作的系统。所以建议上面的段落删除，改成功能模块分析）22 数据流程图数据流程

6、图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。在人事管理系统中，包括部门设置、员工信息、人员调动和福利信息4个功能模块。部门设置主要是对该单位的部门进行管理，如增删部门信息。员工信息功能模块主要是对该单位员工的基本信息进行管理，并能够对员工的基本信息进行查询，以便于修改和删除。人员调动模块主要是实现本单位人事调动的管理，该模块设置了员工的基本信息表，操作人员能够从该表中直接获得员工的基本信息，再进行人员调动操作，同时也保存了人员调动的历史信息。福利信

7、息模块主要是对本单位员工的福利信息进行管理。 人事管理系统需求框图 （你这不是系统需求框图只是一个简单的系统结构框图） 人事管理系统中的基本信息包括部门信息、员工信息、人员调动和福利信息。（1） 部门信息。部门信息功能模块包括新增部门和删除部门。在删除部门时，会对该部门是否有员工进行检查，如果有员工则系统要求删除完员工信息后再进行部门的删除。该功能模块是整个系统的开始。只有设置好了部门的基本信息才能进行后续功能的实现。（2） 员工信息。员工信息功能模块包括新增员工、删除员工、修改员工和查询员工基本信息。该功能模块主要是对系统的初始化和对员工的基本信息进行管理和维护。考虑到该单位人员较多，设置了

8、员工基本信息查询，操作人员可以按本员工编号、姓名或部门进行查询，对查询结果进行维护，减少了操作人员的工作难度。（3）人员调动功能。人员调度功能模块包括员工基本信息查询、历史题动心和人员调动3部分组成，员工基本信息查询是为了方便人员调动，操作人员在进行人员调动时可以单机查询到的人员信息直接进行部门的调动。历史调动信息用于保存每一次人员调动的操作一遍以后查询人员调动信。（2） 福利信息功能。按照单位的需求设置了此项功能，该功能模块主要是对本单位员工的福利信息进行。2.2.2 系统管理子系统流程图：用户表是否登录成功登录信息用户登录图2-1 系统管理子系统的数据流程图（1、你的系统那么多功能模块，为

9、什么只有一个功能模块数据流程图2、无系统顶层流程图。）2.3数据字典数据字典（DD：Data Directory）描述各数据（包括文字型数据）的类型和长度等属性以及它们在数据库中的组成结构。在类系型数据库中，数据以基表、记录、字段来组织（基表由记录组成，记录由字段组成）。数据字典是关于数据的数据表和视图，系统管理员可以通过数据字典获取全面的数据库信息，根据上述分析，本系统的数据字典设计如下：（1）系统用户管理数据：管理数据包括用户名、密码、权限和数据库处理，其中用户名分为系统管理员和用户，登录系统后按各自的权限不同有不同的管理部分。（2）题库表数据：此数据表只能系统管理员使用，实现题库的编辑（

10、录入，添加爱和修改）和查询。与你的系统无关。建议以表格的形式描述数据字典第三章、概念结构设计3.1.功能描述:该信息管理系统可以在Windows 2000 Server平台上运行，开发工具采用Visual Basic语言开发。其工作流程为：用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。3.1.1登录模块：（你的登录模块的界面要有）（这块应该放在详细设计而不是概念结构设计里）(1)系统登录表单该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户

11、在输入正确的密码后方可进入系统。(2)主界面在该界面窗口中，共有文件、数据、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。(3)更改密码：使用本表单可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。系统操作流程图：错误信息系统主界面系统登录界面系统管理输入操作员及密码数据库检查密码错误密码正确功能界面功能处理先有登录界面。核对身份才能进主界面啊！判断框需要用菱形表示对往哪走，错往哪走图 3-1系统操作流程图3.1.2 部门信息模块ER图（不要单独把它作为一小节。就是1、2、3、按照这分类。另每幅图旁边需要文字说明）每幅图都要有图号和图名例如：上图可以表示为图3-1 部

12、门实体联系图后面类似问题3.1.3 员工信息模块ER图3.1.4 人员调动模块ER图3.1.5 福利信息模块ER图第四章、逻辑结构设计5.1 数据库设计（1） 部门信息表。公司部门表用来放置公司部门信息，该表包含了部门编号和部门信息。该表的字段设计如表5-1所示。（表同样要表明表名和表号。后面同理）字段名称说明数据类型备注Depart_id部门编号char主键Depart_name部门名称char(2) 员工信息表。公司员工表用来放置员工信息，该表包含了员工编号、员工姓名、部门编号、性别、出生日期、家庭住址、联系电话、籍贯等。该表的字段设计如表所示。字段名称说明数据类型备注Staff_id员工

13、编号charStaff_name员工姓名charStaff_depid部门编号charStaff_sex性别charStaff_birthday出生日期datetimeStaff_addr家庭住址charStaff_tel联系电话varcharStaff_birthplace籍贯charStaff_degree学历charStaff_major专业charStaff_incomptime工作日期datetimeStaff_bwage基本工资moneyStaff_position工作职位charStaff_idcard身份证char（3） 人员调动表。人员调用表用于放置人员在公司调动岗位的信息，

14、该表包含了人事编号、人事姓名、新部门、原部门、变更日期、变更原因。该表的字段设计如表所示。字段名称说明数据类型备注Transfer_id人事编号inStaff_name人事姓名charNewdepart_name新部门charDepart_name原部门charTransfer_time变更日期datetimeTransfer_reason变更原因char(4) 员工福利表。员工福利表用来放置员工的福利信息，该表包含员工编号、养老保险、医疗保险、住房补贴。该表的字段设计如表所示。字段名称说明数据类型备注Staff_id员工编号charWelfare_pension养老保险moneyWelfar

15、e_medical医疗保险moneyWelfare_house住房补贴moneyWelfare_others其他money第五章、详细设计5.1 登录模块的设计登录模块主要是认证登录人的身份是否合法，登录权限也要进行认证。当用户名用户密码错误时会进行报错，当用户身份合法后会进行权限检查，根据权限开放或者限制其能使用的功能。根据登录模块主要功能，可得流程图：每幅图都要有图号和图名Y开 始输入用户名和密码判断用户名是否存在判断密码正确否登录主界面结 束NY YN图5-2 登录流程图登录界面5.2部门管理模块部门管理窗体是对该单位的部门进行管理，在该界面中主要是对单位部门信息进行管理，添加或删除部门

16、信息。5.3员工信息模块人员信息设置窗体主要用来记录作为员工本人的一些基本情况和其他相关的情况，并设置对员工信息进行管理的按钮。在员工信息设置窗体中单击“添加”或者“编辑”按钮，将弹出如图所示的员工信息表窗体，在该窗口中可以添加或者编辑员工信息。 员工信息表窗体 5.3.1 窗体界面设计 Frmstaff窗体上的主要组件及其属性如表所示。组件名称属性FormfrmstaffCaption属性为“form”datagriddatagrid数据绑定控件AdobcRsstaff_adodccommandbuttoncmdaddtext属性为“添加”commandbuttoncmddeltext属性为

17、“删除”commandbuttoncmdedittext属性为“编辑”commandbuttoncmdquerytext属性为“查询”commandbuttoncmdexittext属性为“退出”optionOption1Caption属性为“员工编号”textboxtxtqueryidoptionOption2Caption属性为“员工姓名”textboxtxtquerynameoptionOption3Caption属性为“部门名称”comboboxcomquerydeptcommandbuttonCommand(1)执行查询commandbuttonCommand(2)返回 员工信息表窗

18、体界面5.3.2 窗体功能实现（1）在该窗体中可以查看公司员工的详细个人信息。（2）单击“添加”按钮弹出“员工信息表”窗口，在其中可以添加员工信息。（3）单击“删除”按钮删除员工信息。（4）只需选中某条记录，然后单击“修改”按钮，可以对选中的员工信息进行编辑，增加员工和修改员工使用的是同一个窗体。（5）单击“查找”按钮可以在设置员工信息时方便地使用查询操作，查询员工信息窗口如图所示。（6）单击“退出”按钮将退出该系统。5.4 人事调动设置窗体在本模块中可完成人员在各个部门间的调动、查看人员的调动历史情况和对调动历史数据进行维护和处理。考虑到单位的员工较多，为了更快的得到员工信息，方便进行员工调

19、动，在该窗口中创建了一个查询框，可以实现员工基本信息的查询功能。5.4.1窗体界面设计frmTransfer窗体上的主要组件及其属性如表所示组件名称属性FormFrmtransferCaption属性为“form”SstabSstab1Caption属性为“员工基本信息”和“历史调动信息”DatagridDatagrid1数据网络，放置员工基本信息LabelLabel(0)Caption属性为“人事编号”TextboxTxttransidLabelLabel(1)Caption属性为“员工姓名”TextboxTxtnamelabelLabel(2)Caption属性为“原部门”TextboxT

20、xtolddeptLabelLabel(3)Caption属性为“新部门”ComboboxComnewdeptLabelLabel(4)Caption属性为“变更日期”ComboboxDttransdataLabelLabel(5)Caption属性为“变更原因”TextboxTxttransreasoncommandbuttonCommand1(0)Caption属性为“执行查询”commandbuttonCommand1(1)Caption属性为“执行查询”commandbuttonCommand1(2)Caption属性为“返回”commandbuttonCmdok“确定”按钮comma

21、ndbuttoncmdcancel“取消”按钮Datagrid2Datagrid2数据网络，放置历史调动信息 人事调动界面5.4.2 窗体功能实现（1） 单击“执行查询”按钮将出现查询窗口，在其中可以根据“员工编号”、“员工姓名”或“部门名称来查询员工信息”（2） 在窗体的下方选择新部门以及输入变更原因后，单击“确定”按钮，将执行人事调用操作。（3） 单击“历史调动信息”选项卡，在其中可以查看员工的历史调动信息5.5福利信息模块在福利信息中包含为员工缴纳的各种社会保险信息。本模块用来管理员工福利信息管理员可以产看员工福利信息，并对员工福利信息进行添加、删除和修改等常规数据库操作。 福利信息窗体

22、5.6 公共模块。（1）声明公共变量。下列代码中声明公共变量，用来放置用户在程序中要使用到的数据库变量。Public rsPsw As New ADODB.RecordsetPublic rsdel As New ADODB.RecordsetPublic rsStaff As New ADODB.RecordsetPublic rsDept As New ADODB.RecordsetPublic rsTrans As New ADODB.RecordsetPublic isedit As Boolean '是否用于编辑Public cn As New ADODB.Connectio

23、n '数据源（2） 创建condatabase（）。下列代码用于创建condatabase（）函数。从效率上考虑，建立与数据库的连接时一个比较费时的操作，因此，数据库连接设计为整个模块公用，创建condatabase（）函数，在程序启动时创建与数据库的连接。Public Sub condatabase() '创建连接到feiyong数据库的记录源 '连接本地数据库busywxpSet cn = New ADODB.Connectioncn.Open "Driver=SQL Server;Server=busywxp;Uid=SA;Pwd=;Database=w

24、age"End Sub（3） 创建check_condatabase（）函数。 在代码中创建check_condatabase（）函数，假如数据库连接状态为1，调用check_condatabase（）函数，连接数据库。Public Sub check_condatabase()If cn.State = 1 ThenElse Call condatabaseEnd IfEnd Sub（4） 创建close_condatabase（）函数。 在代码中创建close_condatabase（）函数，在关闭程序时，需要关闭这个数据库连接，创建close_condatabase（）函数用来

25、关闭数据库连接。Public Sub close_condatabase() '关闭数据源If cn.State = 1 Then cn.CloseEnd IfEnd Sub （5）创建Adodc()。 代码采用现在最为流行的ADO来进行数据库的连接与操作。Public Function Adodc(conString As String, adodc_name As Adodc, grid As DataGrid)Dim cnStr As StringcnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User

26、ID=sa;Initial Catalog=Wage;Data Source=busywxp"With adodc_name .ConnectionString = cnStr .CommandType = adCmdText .RecordSource = conString Set grid.DataSource = adodc_name .RefreshEnd WithEnd Function第六章、总结毕业的时间一天一天的临近，毕业设计也接近了尾声。在不断的努力下我的毕业设计终于完成了。在没有做毕业设计以前觉得毕业设计只是对这几年来所学知识的大概总结，但是真的面对毕业设计时发

27、现自己的想法基本是错误的。毕业设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高。通过这次毕业设计使我明白了自己原来知识太理论化了，面对单独的课题的是感觉很茫然。自己要学习的东西还太多，以前老是觉得自己什么东西都会，什么东西都懂，有点眼高手低。通过这次毕业设计，我才明白学习是一个长期积累的过程，在以后的工作、生活中都应该不断的学习，努力提高自己知识和综合素质。通过此次毕业设计，我不仅把知识融会贯通，而且丰富了大脑，同时在查找资料的过程中也了解了许多课外知识，开拓了视野，认识了将来电子的发展方向，使自己在专业知识方面和动手能力方面有了质的飞跃。毕业设计是我作为一名学生即将完成学业的

28、最后一次作业，他既是对学校所学知识的全面总结和综合应用，又为今后走向社会的实际操作应用铸就了一个良好开端，毕业设计是我对所学知识理论的检验与总结，能够培养和提高设计者独立分析和解决问题的能力；是我在校期间向学校所交的最后一份综和性作业。 总之，不管学会的还是学不会的的确觉得困难比较多，真是万事开头难，不知道如何入手。最后终于做完了有种如释重负的感觉。此外，还得出一个结论：知识必须通过应用才能实现其价值！有些东西以为学会了，但真正到用的时候才发现是两回事，所以我认为只有到真正会用的时候才是真的学会了。 在此要感谢我们的指导老师对我悉心的指导，感谢老师给我的帮助。在设计过程中，我通过查阅大量有关资

29、料，与同学交流经验和自学，并向老师请教等方式，使自己学到了不少知识，也经历了不少艰辛，但收获同样巨大。在整个设计中我懂得了许多东西，也培养了我独立工作的能力，树立了对自己工作能力的信心，相信会对今后的学习工作生活有非常重要的影响。而且大大提高了动手的能力，使我充分体会到了在创造过程中探索的艰难和成功时的喜悦。虽然这个设计做的也不太好，但是在设计过程中所学到的东西是这次毕业设计的最大收获和财富，使我终身受益。致谢 经过四个多月的构思与设计，在指导老师的精心指导和安排下，本系统已经设计完毕。其使用功能基本符合需要，具有一定的实用性。但是由于时间比较仓促，加上本人软件设计经验的不足。因此，在分析问题

30、、解决问题时显得不够严密、完善，还需要在以后的工作中不断地改进和完善。在这次的毕业设计中，让我深深地体现到进行软件开发不是一件简单的事情，它需要设计者具有全面的专业知识、缜密的思维、严谨的工作态度以及较高的分析问题、解决问题的能力，而我在很多方面还有欠缺。最后，我要衷心感谢老师在我的设计过程中给予我的极大帮助，使我能够及时、顺利地完成此次的毕业设计。同时，也要感谢我的老师和同学们在本系统的设计过程中给予我的支持和帮助。参考文献 参考文献的格式不正确请参考：6覃征等. 数字图像融合. 西安交通大学出版社, 20047钟力，胡晓峰重叠图像拼接算法J中国图像图形学报，1998，3(5)注意逗号和句号

31、的使用1 Visual Basic 6.0 程序设计教程(高等教育出版社) 龚沛曾 陆慰民 杨志强 编著2 MSDN - Microstft Developers'NetWork Microstft 1998 Microstft 编著3Visual Basic 企业办公系统开发实例导航（人民邮电出版社） 刘萌 周学明 郭安源 编著4Visual Basic 程序设计教程(北方交通大学出版社) 李振亭 编著 5Visual Basic 用户编程手册（人民邮电出版社） 林永 张乐强 编著6数据库系统概论（高等教育出版社） 萨师煊 王珊 编著7现代软件工程（北京希望电子出版社） 孙涌 编著8

32、Visual Basic数据库系统开发实例导航（人民邮电出版社）9VB控件应用编程实例教程（北京希望电子出版社） 张学忠 王福成 编著10Office 2000中文版（清华大学出版社） 东方人华 编著11VB数据库程序设计高手（科学出版社） 温贤发 编著12软件需求（电子工业出版社） Soren Lauesen 编著 刘晓晖 译13VB6.0中文版教程（电子工作出版社） 新智工作室 14.罗运摸. 完全掌握SQL server2000.北京:机械工业出版社,2001.6 15.Delphi7程序设计与开发技术大全.北京：人民邮电出版社，2006.316.Delphi7完美经典.北京：中国铁道出

33、版社，2003.717.罗运摸. 完全掌握SQL server2000.北京:机械工业出版社,2001.618.赵增敏. SQL Server 7.0 实用教程.北京:电子工业出版社,2001.419.Marco Cantù. Mastering Borland Delphi 2005. USA:SYBEX20.Marco Cantù. Mastering Delphi 7. USA:SYBEX21.MICHAEL OTEY. Microsoft SQL Server 2005 New Features.22.潘孝铭，辛明海 软件文档编写，2004，高等教育出版社附录员工信

34、息窗体代码编写（1） cmdadd按钮件响应事件。此代码的作用是单击“添加”按钮，弹出“员工信息表”窗口。 Cmdadd按钮控件响应事件代码Private Sub cmdadd_Click()frmStaffEdit.Show vbModalisedit = FalseEnd Sub（2） cmddel按钮控件响应事件。代码的作用是单击“删除”按钮，弹出是否删除警告提示框，如果选择“是”，将删除指定员工的信息。 Cmddel按钮控件响应事件代码Private Sub cmddel_Click()If rsStaff_Adodc.Recordset.BOF <> True Then

35、Dim Msg As String Msg = "是否删除 " Msg = Msg & Trim(rsStaff_Adodc.Recordset.Fields(1) & " 这条纪录!" If rsStaff_Adodc.Recordset.RecordCount <> 0 Then t = MsgBox(Msg, vbOKCancel + vbExclamation, "注意了：）") If t = 1 Then rsStaff_Adodc.Recordset.Delete Else Exit Sub E

36、nd If Else MsgBox "当前无记录可供删除！", vbOKOnly + vbExclamation, "注意了：）" End IfElse MsgBox "当前无记录可供删除！", vbOKOnly + vbExclamation, "注意了：）"End IfEnd Sub（3） cmdedit按钮控件响应事件。代码的作用是单击“编辑”按钮，获取选中的员工信息，弹出“员工信息”表，在“员工信息”表中可以编辑员工信息。 Cmdedit按钮控件响应事件代码Private Sub cmdedit_Click

37、()isedit = TrueCall loadTextfrmStaffEdit.Show vbModalEnd Sub（4）cmdexit按钮控件的响应事件。代码的作用是单击“退出”按钮，将退出员工信息窗口。 Cmdexit按钮控件的响应事件Private Sub cmdexit_Click()Unload MeEnd Sub（5）cmdquery下拉列表框的响应事件。代码的作用是在下拉列表框中装载数据库中部门名称信息。Cmdquery下拉列表框的响应事件Private Sub cmdquery_Click()Picture1.Visible = TrueCall check_condata

38、baseIf rsDept.State = 1 Then rsDept.Close'获得部门的名称rsDept.Open "select depart_name from depart", cn, adOpenStatic, adLockOptimisticIf rsDept.BOF <> True And rsDept.EOF <> True ThencomQueryDept.Clear Do Until rsDept.EOF comQueryDept.AddItem rsDept.Fields(0) rsDept.MoveNext Loo

39、pEnd IfEnd Sub（6）创建loadtext()函数。代码用于创建loadText()函数，其作用是从数据库中获得相应的数据记录，并显示在文本框中。 创建loadText()函数 代码Private Sub loadText()Call check_condatabaseSet rsDept = New ADODB.RecordsetIf rsDept.State = 1 Then rsDept.Close'获得部门的名称rsDept.Open "select depart_name from depart where depart_id='" &

40、amp; rsStaff_Adodc.Recordset.Fields(2) & "' ", cn, adOpenStatic, adLockOptimisticWith frmStaffEdit .txtId.Text = rsStaff_Adodc.Recordset.Fields(0) .txtName.Text = rsStaff_Adodc.Recordset.Fields(1) .comDept.Text = Trim(rsDept.Fields(0).Value) .comSex.Text = rsStaff_Adodc.Recordset.F

41、ields(3) .dtBirthday.Value = rsStaff_Adodc.Recordset.Fields(4) .txtAddr.Text = rsStaff_Adodc.Recordset.Fields(5) .txtTel.Text = rsStaff_Adodc.Recordset.Fields(6) .txtBirthplace.Text = rsStaff_Adodc.Recordset.Fields(7) .comDegree.Text = rsStaff_Adodc.Recordset.Fields(8) .txtMajor.Text = rsStaff_Adodc

42、.Recordset.Fields(9) .dtIncomptime.Value = rsStaff_Adodc.Recordset.Fields(10) .txtBwage.Text = rsStaff_Adodc.Recordset.Fields(11) .txtPosition.Text = rsStaff_Adodc.Recordset.Fields(12) .txtIdcard.Text = rsStaff_Adodc.Recordset.Fields(13) End WithEnd Sub（7）创建Adodc()函数。代码用于创建Adodc()函数来连接数据库。 创建Adodc()

43、函数 代码Public Function Adodc(conString As String, adodc_name As Adodc, grid As DataGrid)Dim cnStr As StringcnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Wage;Data Source=busywxp"With adodc_name .ConnectionString = cnStr .CommandType = adCmdText .RecordSo

44、urce = conString Set grid.DataSource = adodc_name .Refresh End WithEnd Function（8）员工信息设置窗体装载事件。代码的作用是当用户打开该窗体时，在窗体中显示全部数据信息。 员工信息设置窗体装载事件代码如下：Private Sub Form_Load()Dim strstaff As Stringstrstaff = "select staff_id as 员工编号,staff_name as 员工姓名," & _ "staff_depid as 部门编号,staff_sex as

45、 性别,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 联系电话," & _ "staff_birthplace as 籍贯,staff_degree as 学历,staff_major as 专业," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工资,staff_position as 工作职位," & _ "staff_idcard as 身份证 from

46、 staff"Call Adodc(strstaff, rsStaff_Adodc, DataGrid1)End Sub（9）command1(1)-“执行查询”按钮和command1(2)-“返回”按钮代码相同，“执行查询”按钮的cancel属性为false，“返回”按钮的cencel属性为true. 此两个按钮的代码为：Private Sub Command1_Click(Index As Integer)On Error GoTo errDim strstaff As StringSelect Case Index Case 0 If Option1.Value = True

47、Then If txtQueryId <> "" Then strstaff = "select staff_id as 员工编号,staff_name as 员工姓名," & _ "staff_depid as 部门编号,staff_sex as 性别,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 联系电话," & _ "staff_birthplace as 籍贯,staff_degree

48、 as 学历,staff_major as 专业," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工资,staff_position as 工作职位," & _ "staff_idcard as 身份证 from staff where staff_id='" & txtQueryId.Text & "'" Call Adodc(strstaff, rsStaff_Adodc, DataGrid1) Else MsgBox &q

49、uot;请输入要查询的员工编号！", vbInformation + vbOKOnly, "注意" End If End If If Option2.Value = True Then If txtQueryName <> "" Then strstaff = "select staff_id as 员工编号,staff_name as 员工姓名," & _ "staff_depid as 部门编号,staff_sex as 性别,staff_birthday as" & _

50、" 出生日期,staff_addr as 家庭住址,staff_tel as 联系电话," & _ "staff_birthplace as 籍贯,staff_degree as 学历,staff_major as 专业," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工资,staff_position as 工作职位," & _ "staff_idcard as 身份证 from staff where staff_name='"

51、& txtQueryName.Text & "'" Call Adodc(strstaff, rsStaff_Adodc, DataGrid1) Else MsgBox "请输入要查询的员工姓名！", vbInformation + vbOKOnly, "注意" End If End If If Option3.Value = True Then If comQueryDept <> "" Then Call check_condatabase If rsDept.State =

52、 1 Then rsDept.Close '获得部门的编号 rsDept.Open "select depart_id from depart where depart_name='" & comQueryDept.Text & "' ", cn, adOpenStatic, adLockOptimistic strstaff = "select staff_id as 员工编号,staff_name as 员工姓名," & _ "staff_depid as 部门编号,staff_sex as 性别,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 联系电话," & _