中小型企业人事信息管理系统设计样本

中小型公司“人事信息管理系统”设计摘要随着市场竞争加剧，中小型公司要想在激烈竞争中立于不败之地，就要不断加强管理，信息量也就不可避免增长诸多，以往管理模式已不再适应当前社会经济发展需求和公司对信息需求，拥有一套可以对公司人事信息进行系统管理应用软件，就显得犹为得要。在毕业设计期间，我依照中小型公司自身特点，设计了一套经济型信息管理系统。在这个系统设计中我使用了功能强大VisualBasic6.0作为软件开发工具，MicrosoftAccess作为数据库管理系统，该系统实现了较为简朴人事信息管理，其中涉及部门管理，员工管理，工资管理等功能。本系统设计合用于中小型公司人事系统管理，在一定程序上提高了公司管理效率，规范了管理，减轻人事管理部门压力，将人们从繁重而单一工作中解放出来，从而进一步提高了小型公司人事信息管理工作效率，如下为我核心词：数据库，模块，部门管理，员工管理，工资管理

Abstract

目录1前言1.1课题意义、目1.2课题研究范畴1.3软件设计所能达到技术参数1.4课题解决重要问题正文2系统顾客管理模块2.1开发前提2.2模块建立2.3模块整体流程2.4数据库设计2.5程序实现2.5.1操作办法2.5.2代码实现（1）添加顾客（2）删除顾客（3）修改顾客2.6得出成果以及对成果讨论3部门信息管理3.1模块开发前提3.2模块建立3.3模块整体流程3.4数据库设计3.5程序实现3.5.1部门信息查询3.5.1.1部门信息查询操作办法：3.5.1.2代码实现（1）弹出部门查询窗休（2）实现查询功能代码如下3.5.2部门信息管理3.5.2.1部门信息管理操作办法3.5.2.2代码实现（1）弹出部门管理窗体（frmDepManage.frm）代码（2）实现部门管理中添加、删除、修改功能代码4员工信息管理4.1模块开发前提4.2模块建立4.3模块整体流程4.4数据库设计4.5程序实现4.5.1员工信息查询4.5.1.1员工信息查询操作办法4.5.1.2代码实现4.5.2员工信息管理4.5.2.1员工信息管理操作办法4.5.2.2员工管理中添加、删除、修改代码实现5工资信息管理5.1模块开发前提5．2模块建立5.3模块整体流程5.4数据库设计5.5程序实现5.5.1工资信息查询5.5.1.1工资信息查询操作办法5.5.1.2代码实现5.5.2工资信息管理5.5.2.1工资信息管理操作办法5.5.2.2代码实现6数据管理6.1开发前提6.2程序实现6.2.1数据备份（1）数据备份操作办法（2）数据备份代码实现6.2.2数据恢复（1）数据恢复操作办法（2）数据恢复代码实现7结论7.1获得成果7.1.1简便操作办法7.1.2进一步加强了对数据库技术结识7.2存在问题7.3后来努力方向8道谢9参照文献

1前言1.1课题意义、目随着市场竞争加剧，关于公司人事管理各项信息量也成倍增长。面对越来越大信息量，就需要使用“小型公司人事管理系统”来提高整个公司管理工作效率。1.2课题研究范畴由于计算机及其应用软件不断发展，使得公司信息化管理已经越来越得到注重。而实现公司信息化管理，可以提高公司管理质量、减轻公司人事管理部门压力。那么就我设计“中小型公司人事信息管理系统”软件详细讲，就是要做到对公司人事信息规范化管理、和迅速查询，从而减少管理方面工作量。1.3软件设计所能达到技术参数本次软件开发工具是VisualBasic6.0，数据环境使用是MicrosoftAccess。充分考虑到实际状况，使得开发应用系统具备较好维护性。在符合管理需要条件下，使操作简朴、便捷。并且采用了功能强大数据库系统，适应大规模数据解决规定。应用软件在当前居于主流且技术领先系统平台上设计，并且安装简朴。我设计“中小型公司人事信息管理系统”具备如下几种特点：（1）查询以便提供信息重组功能，将离散、单一信息通过有机结合，向使用者提供数据更迅速、有效和精确。（2）简化工作流程大大提高了人事系统办事效率，从而节约了大量人力、物力和财力等资源。（3）实用性强软件充分满足中小型公司不同管理需求，且操作简朴，易于维护，便于保存和传阅。（4）操作简便软件使用直观图形界面，即见既得录入格式、以便录入方式，电脑操作与手工解决流程完全一致，任何人员可在极短时间内无师自通。（5）功能齐全可以随时查询或记录公司员工各种资料。1.4课题解决重要问题一方面简要陈述一下我设计中小型“公司人事信息管理系统”软件重要解决几方面问题：（1）在“系统顾客管理模块”中，完毕系统顾客添加、顾客密码修改操作；（2）在“部门管理模块”中，顾客可依照所在公司部门划分及变动状况，实现对公司部门信息查询，添加，修改，删除工作。（3）在“员工管理模块”中，可以实现对所在公司员工基本信息录入，依照不同身份予以不同使用权限，实现对员工基本信息添加、编辑和删除操作；（4）在“工资管理模块”中，分为工资信息查询和工资信息管理。在工资信息查询功能中，顾客可以在表中选取所列出员工编码和工资月份，选取相应员工编码和工资月份，点击查询进行查询；在工资信息管理窗口中，依照表中已经列出当前数据库中所有员工工资信息，选取需解决员工信息，然后点击相应操作按钮，如添加，删除，修改等，然后进行操作，点击拟定按钮即可实现相应功能。（5）在“数据管理模块”中，实现对数据备份及恢复功以。即顾客可输入所要备份数据文献及恢复数据文献完整保存途径，涉及保存文献名，并为本次操作起一种别名，点击备份即可。备份或恢复成功后会有相应成功提示信息浮现。

正文我开发中小公司“人事信息管理系统”软件重要由系统顾客管理、部门管理、员工管理、工资管理、数据管理和和协助六个模块构成。如下为我对这几种模块整个开发过程。2系统顾客管理模块2.1开发前提普通在开发一种数据库系统时，需要设立操作人员，而这些操作人员身份也有所不同，那么她们就可以依照各自不同身份运用本系统来进行不同操作。而本模块作用就在于：运用系统初始设立两个顾客名和密码登录后（Administrator顾客和User顾客），可依照不同权限对系统拥有不同操作权限。Administrator顾客是管理员顾客，可以在系统顾客管理中，增长相应顾客，并且指定顾客权限（即拥有添加、删除、修改系统信息权限）；User顾客为普通顾客，只能对系统信息浏览。2.2模块建立依照本系统需求，结合实际系统管理状况，本模块应作如下细化：（1）顾客登录界面在安装好本系统后，初次使用时运用系统初始设立顾客名和密码登录，即后进入系统顾客管理窗体，后可添加，删除，修改顾客。登陆界面如图所示：图2-1登陆界面（2）添加新顾客由于公司信息管理工作量较大，因而需要参加各层管理人员也会相应增长，因此我专门增长了某些管理人员，以适应公司管理需求，通过点击操作界面上“系统维护”菜单中“系统顾客管理”，就可以进入下图界面，从而实现对顾客添加，删除，修改操作。2.3模块整体流程登录系统登录系统通过验证系统管理模块主窗体添加新顾客删除顾客修改顾客重新登录图2-2式模块整体流程2.4数据库设计本次设计系统使用是Access作为数据库管理系统，在Access中，新建一种数据库，将其命名为“HR.mdb”，在新建数据库中建立一种名为SystemUser表，表中顾客名为核心字，唯一标记出表中记录。其字段构造如表3-1所示：表2-1顾客管理表（Admin）字段名字段阐明类型宽度备注顾客名称管理员名文本10主核心字顾客权限管理员权限文本8不能为空密码管理员密码文本8不能为空2.5程序实现2.5.1操作办法当顾客以Administrator顾客登录窗体后，点击“系统维护”菜单中“系统顾客管理”项后，则浮现如图2-3所示“系统顾客管理”窗体。图2-3系统顾客管理界面（1）添加系统顾客：点击添加按钮，输入相应顾客名称，顾客权限和顾客口令（最佳不少于6位），再点击保存即可；（2）删除系统顾客：在列表中选取要删除顾客，之后再点击删除索按钮即可；（3）修改系统顾客：再列表中选取要修改顾客，然后点击图片，修改顾客信息，最后点击保存即可；2.5.2代码实现（1）添加顾客PrivateSubcmdAdd_Click()txtName.Enabled=TruetxtPassword.Enabled=TruecmbPermission.Enabled=TruecmdSave.Enabled=TrueCallClearInfoEndSubPrivateSubcmdSave_Click()IftxtName.Text=""ThenMsgBox"顾客名不能为空,请输入顾客名."，vbInformation+vbOKOnly，"信息不完整"txtName.SetFocusExitSubEndIfIftxtPassword.Text=""ThenMsgBox"顾客口令不能为空,请输入用口令."，vbInformation+vbOKOnly，"信息不完整"txtPassword.SetFocusExitSubEndIfIfLen(Trim(txtPassword.Text))<6ThenIfMsgBox("顾客口令长度不大于6位,建议使用长度不不大于6位口令!"&vbCrLf&"是：修改/否:不修改"，vbInformation+vbYesNo，"安全提示")=vbYesThentxtPassword.Text=""txtPassword.SetFocusExitSubEndIfEndIfIfcmbPermission.Text=""ThenMsgBox"顾客权限不能为空,请输入顾客权限."，vbInformation+vbOKOnly，"信息不完整"cmbPermission.SetFocusExitSubEndIfSetUser=NothingUser.UserName=Trim(txtName.Text)User.UserPassword=Trim(txtPassword.Text)User.UserPermission=Trim(cmbPermission.Text)IfUsers.AddUser(User)=TrueThenCallClearInfoMsgBox"添加系统顾客成功!"，vbInformation+vbOKOnly，"成功提示"ElseCallClearInfoMsgBox"添加系统顾客失败!"，vbCritical+vbOKOnly，"错误提示"EndIfSetsubitem=lvwMain.ListItems.Add(，"K_"&User.UserName，User.UserName)subitem.ListSubItems.Add，，User.UserPermissionsubitem.ListSubItems.Add，，User.UserPasswordcmdSave.Enabled=FalsetxtName.Enabled=FalsetxtPassword.Enabled=FalsecmbPermission.Enabled=FalseEndSub（2）删除顾客PrivateSubcmdDelete_Click()lvwMain.ListItems.RemovelvwMain.SelectedItem.KeyUsers.DeleteUserUser.UserNameCallClearInfoEndSub（3）修改顾客IftxtName.Text=""ThenMsgBox"顾客名不能为空,请输入顾客名."，vbInformation+vbOKOnly，"信息不完整"txtName.SetFocusExitSubEndIfIftxtPassword.Text=""ThenMsgBox"顾客口令不能为空,请输入用口令."，vbInformation+vbOKOnly，"信息不完整"txtPassword.SetFocusExitSubEndIfIfLen(Trim(txtPassword.Text))<6ThenIfMsgBox("顾客口令长度不大于6位,建议使用长度不不大于6位口令!"&vbCrLf&"是：修改/否:不修改"，vbInformation+vbYesNo，"安全提示")=vbYesThentxtPassword.Text=""txtPassword.SetFocusExitSubEndIfEndIfIfcmbPermission.Text=""ThenMsgBox"顾客权限不能为空,请输入顾客权限."，vbInformation+vbOKOnly，"信息不完整"cmbPermission.SetFocusExitSubEndIfUser.UserName=Trim(txtName.Text)User.UserPassword=Trim(txtPassword.Text)User.UserPermission=Trim(cmbPermission.Text)Users.ModifyUserUserlvwMain.SelectedItem.Text=User.UserNamelvwMain.SelectedItem.ListSubItems(1).Text=User.UserPermission'lvwMain.SelectedItem.ListSubItems(2).Text=User.UserPasswordCallClearInfocmdModify.Enabled=FalseEndSub2.6得出成果以及对成果讨论通过使用该模块，就可以有效规范拥有使用权限不同层次管理人员数量，便于公司领导随时查阅她们信息，规范管理，保证输入本系统所有信息精确性和一致性，保证“人事信息管理系统”正常运营。

3部门信息管理3.1模块开发前提每个公司因其公司性质及管理模式不同，组织构造也不尽相似，因而部门划分办法及细化限度也不同样。但对于一种中小型公司来说，普通都会采用直线制，部门职能制等适合中小型公司组织构造。在组织所划分这些部门中，它们既互相独立，又互相协作，不同部门拥有不同工作内容，承担着不同职责，拥有不同权限，需完毕组织特定方面工作，各部门又互相协作，共同完毕组织方方面面工作，从而实现组织目的，因而对部门信息进行管理就显必不可少了。3.2模块建立依照本系统需求，结合实际管理状况，本模块应作如下细化：（1）在查询方面随着公司规模不断扩大，公司中设立部门也越来越详细化，因而部门数量也不可避免增长，查询功能实现，可以较好解决管理工作中繁琐查找工作，从而较好提高管理效率。（2）在操作方面在此某些中，顾客可以依照管理中不同需求，对部门信息进行调节，即可以执行添加、删除和修改基本信息操作，以适应管理上需求。通过此模块，可以迅速高效对部门进行调节，以减少不必要工作量，将工作人员从繁琐寻常事务中解脱出来。3.3模块整体流程依照大多数中小公司管理流程，结合上述功能，模块整体流程如图3-1所示：登录顾客登录顾客通过验证程序主窗口对既有部门信息进行管理（涉及添加、修改、删除）查询既有部门有关信息重新登录查询协助信息图3-1部门管理模块总体流程图3.4数据库设计本次设计所用数据库为Access，在名为HR数据库中建立了一种表，名字为Department，可以在程序中对其进行调用。本模块以公司部门基本信息为对象，编制了一份表格，其中详述了每个字段设立及对其阐明。在此表中，以部门编码字段为该表主核心字（PrimaryKey，PK），它唯一标记了每一种部门记录，其详表如下表所示：表3-1Department表字段名类型宽度备注部门编码文本7主核心字部门名称文本10不能为空部门主管数字长整型不能为空，相应于Department表id字段部门描述文本200可觉得空录入时间日期/时间10可觉得空录入人文本8可觉得空3.5程序实现在主菜单中，设计了三个根菜单，“人事信息管理”，“系统维护”和“杂项”。“人事信息管理”菜单用来对公司部门、员工、工资等信息进行管理，在本节中，着重谈到是其中对部门信息管理工作。3.5.1部门信息查询在窗体中添加一种部门信息查询窗体，取名为frmDepQuery.frm,并为frmDepQuery.frm窗体进行菜单设计和代码设计。3.5.1.1部门信息查询操作办法：当顾客需要对部门信息进行查询时，可以在主界面“人事信息管理”根菜单中，选取“部门信息查询”选项，也可点击主窗体上快捷键“部门信息查询”，弹出“部门信息查询”窗体，如图3-2所示图3-2部门信息查询界面在窗体中“部门编码”中输入要查询部门编码，点击“查询”按钮，即可在窗体中“查询成果”下方显示所要查询信息。如果没有查找到有关信息，则会弹出“错误揭示”消息框，并显示“您所查找部门不存在,请重新查找!”点击拟定后，重新输入进行查找。3.5.1.2代码实现（1）弹出部门查询窗休（frmDepQuery.frm）：PrivateSubmnuDepartQuery_Click()ListBarMain.ActiveList=1frmDepQuery.ShowEndSub（2）实现查询功能代码如下：PrivateSubcmdQuery_Click()OnErrorGoToLabErrtxtDepID.Text=Departments.Departments("K_"&cmbDepID.Text).DepIDtxtDepName.Text=Departments.Departments("K_"&cmbDepID.Text).depNametxtDepMaster.Text=Departments.Departments("K_"&cmbDepID.Text).depMastertxtDepNote.Text=Departments.Departments("K_"&cmbDepID.Text).depNotetxtDateIn.Text=Departments.Departments("K_"&cmbDepID.Text).depDateIntxtInner.Text=Departments.Departments("K_"&cmbDepID.Text).depInnerExitSubLabErr:CallClearInfoMsgBox"您所查找部门不存在,请重新查找!"，vbCritical+vbOKOnly，"错误提示"EndSub3.5.2部门信息管理在工程中添加一种部门信息管理窗体，取名为frmDepManage.frm并为这个窗体进行代码设计。3.5.2.1部门信息管理操作办法对部门信息进行管理，即对部门信息进行增长、删除、修改操作，从而实现对部门信息管理工作。可在进入主界面后单击“人事信息管理”菜单，选取“部门信息管理”项，则会弹出部门信息管理窗体，如图3-3所示：图

3-3部门信息管理界面在此窗体中即可实现对部门信息管理工作，点击“添加”按钮，即可弹出“添加部门”(frmAddDep)窗体，如图3-4所示：图3-4部门添加界面在窗体中输入需要更改信息后，点击“添加”按扭后，添加信息，如想取消输入则点击清除按扭即可，然后点击“关闭”按钮退出添加窗体（2）点击“删除”按钮点击“删除”按钮后，弹出“部门信息删除”（frmDeleteDep）窗体，如图3-5所示：图3-5删除部门信息界面在列表中点击要删除信息后，点击“删除”按钮，即可删除信息，点击“关闭”关闭窗体。（3）点击“修改”按钮先在列表中选中需修改部门信息，点击“修改”按钮后弹出“部门信息修改”（frmModifyDep）窗体，如图3-6所示：图3-6部门信息修改界面修改过信息后，点击“修改”按钮，即完毕对部门信息修改工作，然后点击“关闭”按钮退出修改窗体。3.5.2.2代码实现（1）弹出部门管理窗体（frmDepManage.frm）代码PrivateSubmnuDepartManage_Click()ListBarMain.ActiveList=1frmDepManage.ShowEndSub（2）实现部门管理中添加、删除、修改功能①实现添加部门信息代码PrivateSubcmdAdd_Click()IftxtDepID.Text=""ThenMsgBox"部门编码不能为空,请输入部门编码!"，vbInformation+vbOKOnly，"信息不完整"txtDepID.SetFocusExitSubEndIfIftxtDepName.Text=""ThenMsgBox"部门名称不能为空,请输入部门名称!"，vbInformation+vbOKOnly，"信息不完整"txtDepName.SetFocusExitSubEndIfIftxtDepMaster.Text=""ThenMsgBox"部门主管不能为空,请输入部门主管!"，vbInformation+vbOKOnly，"信息不完整"txtDepMaster.SetFocusExitSubEndIfIftxtDepNote.Text=""ThenMsgBox"部门描述不能为空,请输入部门描述!"，vbInformation+vbOKOnly，"信息不完整"txtDepNote.SetFocusExitSubEndIfIftxtInner.Text=""ThenMsgBox"部门录入人不能为空,请输入部门录入人!"，vbInformation+vbOKOnly，"信息不完整"txtInner.SetFocusExitSubEndIfSetDep=Nothing'当对象引用到集合中其她内存空间时，再添加新数据时，可以正常添加数据，但再次查询时，本来集合中相应数据会被覆盖掉，但不会影响到数据库巨鹿添加Dep.DepID=Trim(txtDepID.Text)Dep.depName=Trim(txtDepName.Text)Dep.depMaster=Trim(txtDepMaster.Text)Dep.depNote=Trim(txtDepNote.Text)Dep.depDateIn=Trim(DTPIn.Value)Dep.depInner=Trim(txtInner.Text)IfDepartments.AddDepartment(Dep)=TrueThenCallClearInfoSetsubitem=frmDepManage.lvwMain.ListItems.Add(，"K_"&Dep.DepID，Dep.DepID)subitem.ListSubItems.Add，，Dep.depNamesubitem.ListSubItems.Add，，Dep.depMastersubitem.ListSubItems.Add，，Dep.depNotesubitem.ListSubItems.Add，，Dep.depDateInsubitem.ListSubItems.Add，，Dep.depInnerMsgBox"添加部门信息成功!"，vbInformation+vbOKOnly，"成功提示"ElseMsgBox"添加部门信息失败!"，vbCritical+vbOKOnly，"错误提示"EndIfEndSub②实现对部门信息删除代码PrivateSubcmdClear_Click()CallClearInfoEndSubPrivateSubClearInfo()txtDepID.Text=""txtDepName.Text=""txtDepMaster.Text=""txtDepNote.Text=""txtInner.Text=""txtDepID.SetFocusEndSubPrivateSubForm_Load()DTPIn.Value=today()EndSubPrivateSubForm_Unload(CancelAsInteger)SetDep=NothingEndSub③实现对部门信息修改功能代码IftxtDepID.Text=""ThenMsgBox"部门编码不能为空,请输入部门编码!"，vbInformation+vbOKOnly，"信息不完整"txtDepID.SetFocusExitSubEndIfIftxtDepName.Text=""ThenMsgBox"部门名称不能为空,请输入部门名称!"，vbInformation+vbOKOnly，"信息不完整"txtDepName.SetFocusExitSubEndIfIftxtDepMaster.Text=""ThenMsgBox"部门主管不能为空,请输入部门主管!"，vbInformation+vbOKOnly，"信息不完整"txtDepMaster.SetFocusExitSubEndIfIftxtDepNote.Text=""ThenMsgBox"部门描述不能为空,请输入部门描述!"，vbInformation+vbOKOnly，"信息不完整"txtDepNote.SetFocusExitSubEndIfIftxtInner.Text=""ThenMsgBox"部门录入人不能为空,请输入部门录入人!"，vbInformation+vbOKOnly，"信息不完整"txtInner.SetFocusExitSubEndIfDep.DepID=Trim(txtDepID.Text)Dep.depName=Trim(txtDepName.Text)Dep.depMaster=Trim(txtDepMaster.Text)Dep.depNote=Trim(txtDepNote.Text)Dep.depDateIn=Trim(txtDateIn.Text)Dep.depInner=Trim(txtInner.Text)IfDepartments.ModifyDepartment(Dep)=TrueThenfrmDepManage.lvwMain.SelectedItem.Text=Dep.DepIDfrmDepManage.lvwMain.SelectedItem.ListSubItems(1).Text=Dep.depNamefrmDepManage.lvwMain.SelectedItem.ListSubItems(2).Text=Dep.depMasterfrmDepManage.lvwMain.SelectedItem.ListSubItems(3).Text=Dep.depNotefrmDepManage.lvwMain.SelectedItem.ListSubItems(4).Text=Dep.depDateInfrmDepManage.lvwMain.SelectedItem.ListSubItems(5).Text=Dep.depInnerfrmDepManage.cmdDelete.Enabled=FalsefrmDepManage.cmdModify.Enabled=FalseUnloadMeMsgBox"修改部门信息成功!"，vbInformation+vbOKOnly，"成功提示"ElsefrmDepManage.cmdDelete.Enabled=FalsefrmDepManage.cmdModify.Enabled=FalseUnloadMeMsgBox"修改部门信息失败!"，vbCritical+vbOKOnly，"错误提示"EndIfEndSub

4员工信息管理4.1模块开发前提在公司管理中人是最活跃因素，同步也是一种组织最基本单位，是公司基石，基石稳健与否，直接联系着一种公司兴衰与稳定，因而，每个公司都非常注重对人管理，对公司员工信息进行有高质高效管理，可以充分发挥员工潜能，是完全有必要，而实现这一目的，就需要借助于计算机技术，对员工基本信息进行管理，以减轻管理人员工作承担，提高管理质量。依照普通中小型公司人事管理实际规定，该模块重要具备如下功能：（1）掌握整个公司每个员工基本状况。其中涉及员工编号、姓名、性别、年龄、政治面貌、籍贯、出生年月、学历、职称、家庭住址、电话等。可以依照不同顾客名对员工信息进行浏览可以对员工信息进行查询规定可以对员工基本信息进行变动管理，对员工信息进行添加、删除和修改操作。4.2模块建立由于此模块是较为重要一种模块，因而，我将其作细化：（1）查找界面顾客可以在既有信息中进行查找，以便找到满足条件员工信息，进行浏览或者管理。该某些中可以依照员工编号对员工基本信息进行查询。。（2）员工基本信息管理界面此某些功能就是如果员工基本信息变化，那么顾客可以依照详细状况，对员工进行管理，可以执行添加、删除或者修改基本信息操作。4.3模块整体流程依照公司人事管理流程，结合上述各项功能，模块整体流程如图4-1所示：登录顾客登录顾客通过验证程序主窗口对既有员工信息进行管理（涉及添加、修改、删除）查询既有员工基本信息重新登录查询协助信息图4-1员工管理模块总体流程图4.4数据库设计和前面一章相似，在名为HR.mdb数据库中建立1个名为Employee表，本模块重要针对对象为员工基本信息。其中，职工编号字段为该表主核心字（PrimaryKey，PK），它唯一标记了一条教师记录，这张表构造如表4-1所示：表4-1员工表（Employee）字段阐明类型宽度备注职工编号文本9主核心字部门编码文本6不能为空姓名文本8不能为空性别文本2不能为空出生日期日期/时间10不能为空民族文本10不能为空婚否文本2可觉得空籍贯文本25不能为空家庭住址文本25不能为空联系电话文本13可觉得空身份证号特殊18不能为空政治面貌文本4不能为空文化限度文本6不能为空毕业学校文本20不能为空毕业时间日期/时间10不能为空所学专业文本20可觉得空外语语种文本8可觉得空入厂年月日期/时间10不能为空养老保险号特殊20不能为空职务文本8可觉得空职称文本10可觉得空岗位文本10不能为空合同开始时间日期/时间10不能为空合同结束时间日期/时间10不能为空录入时间日期/时间10不能为空录入人文本8不能为空4.5程序实现登录后进入主窗体中“人事信息管理”主菜单中，“员工信息管理”和“员工信息查询”，及界面上快捷菜单，都可以对公司员工信息进行查询与管理，其实现如下所述：4.5.1员工信息查询在工程中添加一种员工信息查询窗体，取名为frmEmpQuery.frm，并为frmEmpQuery.frm窗体进行菜单设计和代码设计。4.5.1.1员工信息查询操作办法当顾客需要对部门信息进行查询时，可以在主界面“人事信息管理”根菜单中，选取“员工信息查询”选项，也可点击主窗体上快捷键，弹出“员工信息查询”窗体，如图4-2所示图4-2员工工信息查询界面在窗体中“员工编号”中输入要查询员工编号，点击“查询“按钮，即可在窗体中“查询成果”下方显示所要查询信息。如果输入错误则点击“清除”键后重新输入进行查找，如果没有查找到有关信息，则会弹出“错误揭示”消息框，并显示“您所查找员工不存在,请重新查找!”点击拟定后，重新输入进行查找。查询结束后点击“退出”按钮，退出查询系统。4.5.1.2代码实现（1）弹出员工查询窗休（frmEmpQuery.frm）代码PrivateSubmnuEmpQuery_Click()ListBarMain.ActiveList=2frmEmpQuery.ShowEndSub（2）实现查询功能代码OnErrorGoToLabErrtxtEmpID.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).EmpIDtxtEmpDepID.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empDepIDtxtEmpName.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empNametxtEmpSex.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empSextxtEmpBorn.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empBornDatetxtEmpNation.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empNationtxtEmpMarry.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empMarrytxtEmpNative.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empNativetxtEmpAddr.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empAddrtxtEmpPhone.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empPhonetxtEmpCard.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empCardtxtEmpPolity.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empPolitytxtEmpDegree.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empDegreetxtEmpFinalSchool.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empFinalSchooltxtEmpFinalDate.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empFinalDatetxtEmpSpecial.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empSpecialtxtEmpLang.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empLangtxtEmpEntryDate.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empEntryDatetxtEmpSafety.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empSafetytxtEmpDuty.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empDutytxtEmpPost.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empPosttxtEmpPactBegin.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empPactBegintxtEmpPactEnd.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empPactEndtxtDateIn.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empDateIntxtInner.Text=Employees.Employees("K_"&Trim(cmbEmpID.Text)).empInnerExitSubLabErr:CallClearInfoMsgBox"您所查找员工不存在,请重新查找."，vbCritical+vbOKOnly，"错误提示"EndSub4.5.2员工信息管理在工程中添加一种员工信息管理窗体，取名为frmEmpManage.frm，并为这个窗体进行代码设计。4.5.2.1员工信息管理操作办法对员工信息进行管理，即对员工信息进行增长、删除、修改操作，从而实现对员工信息管理工作。可在进入主界面后单击“人事信息管理”菜单，选取“员工信息管理”项，则会弹出员工信息管理窗体，如图4-3所示图4-3员工信息管理窗口在此窗体中即可实现对部门信息管理工作，（1）添加点击“添加”按钮，即可弹出“添加员工”窗体，如图4-4所示图4-4添加员工界在窗体中输入有关信息后，点击“添加”按扭后，添加信息，如想取消输入内容，则点击“清除”按扭即可，点击“关闭”按钮后，退出添加窗体（2）删除点击“删除”按钮后，弹出员工信息删除窗体（frmDeleteEmp），如图4-5所示：图4-5删除员工信息界面在列表中点击要删除信息后，点击“删除”按钮，即可删除信息，点击“关闭”按钮后，退出窗体（3）修改先在列表中选中需修改员工编码，然后点击“修改”按钮后，弹出“员工信息修改”（frmModifyEmp）窗体如图4-6所示：图4-6修改员工信息界面修改过后，点击“修改”按钮，即完毕对员工信息修改工作。然后点击“关闭”按钮退出修改窗体。4.5.2.2代码实现弹出员工信息管理窗体（frmEmpManage.frm）代码如下：PrivateSubmnuEmpQuery_Click()ListBarMain.ActiveList=2frmEmpQuery.ShowEndSub（2）实现员工管理中添加、删除、修改功能代码①实现添加员工信息代码PrivateSubcmdAdd_Click()IftxtEmpID.Text=""ThenMsgBox"职工编码不能为空,请输入职工编码!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpID.SetFocusExitSubEndIfIftxtEmpDepID.Text=""ThenMsgBox"部门编码不能为空,请输入部门编码!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpDepID.SetFocusExitSubEndIfIftxtEmpName.Text=""ThenMsgBox"员工姓名不能为空,请输入员工姓名!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpName.SetFocusExitSubEndIfIfcmbSex.Text=""ThenMsgBox"员工性别不能为空,请输入员工性别!"，vbInformation+vbOKOnly，"输入信息不完整"cmbSex.SetFocusExitSubEndIfIftxtEmpNation.Text=""ThenMsgBox"员工民族不能为空,请输入员工民族!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpNation.SetFocusExitSubEndIfIfcmbMarry.Text=""ThenMsgBox"员工婚否不能为空,请输入员工婚否!"，vbInformation+vbOKOnly，"输入信息不完整"cmbMarry.SetFocusExitSubEndIfIftxtEmpNative.Text=""ThenMsgBox"员工籍贯不能为空,请输入员工籍贯!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpNative.SetFocusExitSubEndIfIftxtEmpAddr.Text=""ThenMsgBox"员工家庭住址不能为空,请输入员工家庭住址!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpAddr.SetFocusExitSubEndIfIftxtEmpPhone.Text=""ThenMsgBox"员工联系电话不能为空,请输入员工联系电话!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPhone.SetFocusExitSubEndIfIftxtEmpCard.Text=""ThenMsgBox"员工身份证号不能为空,请输入员工身份证号!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpCard.SetFocusExitSubEndIfIftxtEmpPolity.Text=""ThenMsgBox"员工政治面貌不能为空,请输入员工政治面貌!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPolity.SetFocusExitSubEndIfIfcmbDegree.Text=""ThenMsgBox"员工文化限度不能为空,请输入员工文化限度!"，vbInformation+vbOKOnly，"输入信息不完整"cmbDegree.SetFocusExitSubEndIfIftxtEmpFinalSchool.Text=""ThenMsgBox"员工毕业学校不能为空,请输入员工毕业学校!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpFinalSchool.SetFocusExitSubEndIfIftxtEmpSpecial.Text=""ThenMsgBox"员工所学专业不能为空,请输入员工所学专业!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpSpecial.SetFocusExitSubEndIfIfcmbLang.Text=""ThenMsgBox"员工外语语种不能为空,请输入员工外语语种!"，vbInformation+vbOKOnly，"输入信息不完整"cmbLang.SetFocusExitSubEndIfIftxtEmpSafety.Text=""ThenMsgBox"员工养老保险号不能为空,请输入员工养老保险号!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpSafety.SetFocusExitSubEndIfIftxtEmpDuty.Text=""ThenMsgBox"员工职务职称不能为空,请输入员工职务职称!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpDuty.SetFocusExitSubEndIfIftxtEmpPost.Text=""ThenMsgBox"员工岗位不能为空,请输入员工岗位!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPost.SetFocusExitSubEndIfIftxtInner.Text=""ThenMsgBox"员工录入人不能为空,请输入员工录入人!"，vbInformation+vbOKOnly，"输入信息不完整"txtInner.SetFocusExitSubEndIfSetEmp=NothingEmp.EmpID=txtEmpID.TextEmp.empDepID=txtEmpDepID.TextEmp.empName=txtEmpName.TextEmp.empSex=cmbSex.TextEmp.empBornDate=dtpBorn.ValueEmp.empNation=txtEmpNation.TextEmp.empMarry=cmbMarry.TextEmp.empNative=txtEmpNative.TextEmp.empAddr=txtEmpAddr.TextEmp.empPhone=txtEmpPhone.TextEmp.empCard=txtEmpCard.TextEmp.empPolity=txtEmpPolity.TextEmp.empDegree=cmbDegree.TextEmp.empFinalSchool=txtEmpFinalSchool.TextEmp.empFinalDate=dtpFinalDate.ValueEmp.empSpecial=txtEmpSpecial.TextEmp.empLang=cmbLang.TextEmp.empEntryDate=dtpEntryDate.ValueEmp.empSafety=txtEmpSafety.TextEmp.empDuty=txtEmpDuty.TextEmp.empPost=txtEmpPost.TextEmp.empPactBegin=dtpPactBegin.ValueEmp.empPactEnd=dtpPactEnd.ValueEmp.empDateIn=dtpDateIn.ValueEmp.empInner=txtInner.TextIfEmployees.AddEmployee(Emp)=TrueThenCallClearInfoSetsubitem=frmEmpManage.lvwMain.ListItems.Add(，"K_"&Emp.EmpID，Emp.EmpID)subitem.ListSubItems.Add，，Emp.empDepIDsubitem.ListSubItems.Add，，Emp.empNamesubitem.ListSubItems.Add，，Emp.empSexsubitem.ListSubItems.Add，，Emp.empBornDatesubitem.ListSubItems.Add，，Emp.empNationsubitem.ListSubItems.Add，，Emp.empMarrysubitem.ListSubItems.Add，，Emp.empNativesubitem.ListSubItems.Add，，Emp.empAddrsubitem.ListSubItems.Add，，Emp.empPhonesubitem.ListSubItems.Add，，Emp.empCardsubitem.ListSubItems.Add，，Emp.empPolitysubitem.ListSubItems.Add，，Emp.empDegreesubitem.ListSubItems.Add，，Emp.empFinalSchoolsubitem.ListSubItems.Add，，Emp.empFinalDatesubitem.ListSubItems.Add，，Emp.empSpecialsubitem.ListSubItems.Add，，Emp.empLangsubitem.ListSubItems.Add，，Emp.empEntryDatesubitem.ListSubItems.Add，，Emp.empSafetysubitem.ListSubItems.Add，，Emp.empDutysubitem.ListSubItems.Add，，Emp.empPostsubitem.ListSubItems.Add，，Emp.empPactBeginsubitem.ListSubItems.Add，，Emp.empPactEndsubitem.ListSubItems.Add，，Emp.empDateInsubitem.ListSubItems.Add，，Emp.empInnerMsgBox"添加员工信息成功!"，vbInformation+vbOKOnly，"成功提示"ElseMsgBox"添加员工信息失败!"，vbCritical+vbOKOnly，"错误提示"EndIfEndSub

②实现对员工信息删除代码PrivateSubcmdDelete_Click()IfMsgBox("确认删除该员工信息吗?"&vbCrLf&"确认请点击:是,取消请点击:否"，vbInformation+vbYesNo，"删除顾客信息确认")=vbYesThenIfEmployees.DeleteEmployee(Emp.EmpID)=TrueThenfrmEmpManage.lvwMain.ListItems.Remove("K_"&Emp.EmpID)'需要再在此调用相应办法,删除员工工资信息表中该员工所有工资信息frmEmpManage.cmdDelete.Enabled=FalsefrmEmpManage.cmdModify.Enabled=FalseUnloadMeMsgBox"删除员工信息成功!"，vbInformation+vbOKOnly，"成功提示"ElsefrmEmpManage.cmdDelete.Enabled=FalsefrmEmpManage.cmdModify.Enabled=FalseUnloadMeMsgBox"删除员工信息失败!"，vbCritical+vbOKOnly，"错误提示"EndIfElsefrmEmpManage.cmdDelete.Enabled=FalsefrmEmpManage.cmdModify.Enabled=FalseUnloadMeEndIfEndSub③实现对员工信息修改功能代码PrivateSubcmdModify_Click()IftxtEmpID.Text=""ThenMsgBox"职工编码不能为空,请输入职工编码!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpID.SetFocusExitSubEndIfIftxtEmpDepID.Text=""ThenMsgBox"部门编码不能为空,请输入部门编码!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpDepID.SetFocusExitSubEndIfIftxtEmpName.Text=""ThenMsgBox"员工姓名不能为空,请输入员工姓名!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpName.SetFocusExitSubEndIfIfcmbSex.Text=""ThenMsgBox"员工性别不能为空,请输入员工性别!"，vbInformation+vbOKOnly，"输入信息不完整"cmbSex.SetFocusExitSubEndIfIftxtEmpNation.Text=""ThenMsgBox"员工民族不能为空,请输入员工民族!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpNation.SetFocusExitSubEndIfIfcmbMarry.Text=""ThenMsgBox"员工婚否不能为空,请输入员工婚否!"，vbInformation+vbOKOnly，"输入信息不完整"cmbMarry.SetFocusExitSubEndIfIftxtEmpNative.Text=""ThenMsgBox"员工籍贯不能为空,请输入员工籍贯!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpNative.SetFocusExitSubEndIfIftxtEmpAddr.Text=""ThenMsgBox"员工家庭住址不能为空,请输入员工家庭住址!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpAddr.SetFocusExitSubEndIfIftxtEmpPhone.Text=""ThenMsgBox"员工联系电话不能为空,请输入员工联系电话!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPhone.SetFocusExitSubEndIfIftxtEmpCard.Text=""ThenMsgBox"员工身份证号不能为空,请输入员工身份证号!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpCard.SetFocusExitSubEndIfIftxtEmpPolity.Text=""ThenMsgBox"员工政治面貌不能为空,请输入员工政治面貌!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPolity.SetFocusExitSubEndIfIfcmbDegree.Text=""ThenMsgBox"员工文化限度不能为空,请输入员工文化限度!"，vbInformation+vbOKOnly，"输入信息不完整"cmbDegree.SetFocusExitSubEndIfIftxtEmpFinalSchool.Text=""ThenMsgBox"员工毕业学校不能为空,请输入员工毕业学校!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpFinalSchool.SetFocusExitSubEndIfIftxtEmpSpecial.Text=""ThenMsgBox"员工所学专业不能为空,请输入员工所学专业!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpSpecial.SetFocusExitSubEndIfIfcmbLang.Text=""ThenMsgBox"员工外语语种不能为空,请输入员工外语语种!"，vbInformation+vbOKOnly，"输入信息不完整"cmbLang.SetFocusExitSubEndIfIftxtEmpSafety.Text=""ThenMsgBox"员工养老保险号不能为空,请输入员工养老保险号!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpSafety.SetFocusExitSubEndIfIftxtEmpDuty.Text=""ThenMsgBox"员工职务职称不能为空,请输入员工职务职称!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpDuty.SetFocusExitSubEndIfIftxtEmpPost.Text=""ThenMsgBox"员工岗位不能为空,请输入员工岗位!"，vbInformation+vbOKOnly，"输入信息不完整"txtEmpPost.SetFocusExitSubEndIfIftxtInner.Text=""ThenMsgBox"员工录入人不能为空,请输入员工录入人!"，vbInformation+vbOKOnly，"输入信息不完整"txtInner.SetFocusExitSubEndIfEmp.EmpID=txtEmpID.TextEmp.empDepID=txtEmpDepID.TextEmp.empName=txtEmpName.TextEmp.empSex=cmbSex.TextEmp.empBornDate=dtpBorn.ValueEmp.empNation=txtEmpNation.TextEmp.empMarry=cmbMarry.TextEmp.empNative=txtEmpNat