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

河南理工大学本科毕业设计（论文）中小型企业“人事信息管理系统”设计摘要随着市场竞争的加剧，中小型企业要想在激烈的竞争中立于不败之地，就要不断的加强管理，信息量也就不可避免增加很多，以往的管理模式已不再适应现在社会经济发展的需求和企业对信息的需求，拥有一套能够对企业人事信息进行系统管理的应用软件，就显得犹为得要。在毕业设计期间，我根据中小型企业自身的特点，设计了一套经济型的信息管理系统。在这个系统的设计中我使用了功能强大的Visual Basic 6.0作为软件开发工具，Microsoft Access 2000作为数据库管理系统，该系统实现了较为简单的人事信息管理，其中包括部门管理，员工管理，工资管理等功能。本系统设计适用于中小型企业的人事系统管理，在一定程序上提高了企业的管理效率，规范了管理，减轻人事管理部门的压力，将人们从繁重而单一的工作中解放出来，从而进一步提高了小型企业人事信息管理的工作效率，以下为我关键词：数据库，模块，部门管理，员工管理，工资管理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模块开发前提52模块的建立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 软件设计所能达到的技术参数本次软件开发的工具是Visual Basic 6.0，数据环境使用的是Microsoft Access 2000。充分考虑到实际情况，使得开发的应用系统具有较好的维护性。在符合管理需要的条件下，使操作简单、便捷。而且采用了功能强大的数据库系统，适应大规模数据处理的要求。应用软件在当前居于主流且技术领先系统平台上设计，并且安装简单。我设计的“中小型企业人事信息管理系统”具有以下几个特点：（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 2000作为数据库管理系统，在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）添加用户Private Sub cmdAdd_Click() txtName.Enabled = True txtPassword.Enabled = True cmbPermission.Enabled = True cmdSave.Enabled = True Call ClearInfoEnd SubPrivate Sub cmdSave_Click() If txtName.Text = Then MsgBox 用户名不能为空,请输入用户名., vbInformation + vbOKOnly, 信息不完整 txtName.SetFocus Exit Sub End If If txtPassword.Text = Then MsgBox 用户口令不能为空,请输入用口令., vbInformation + vbOKOnly, 信息不完整 txtPassword.SetFocus Exit Sub End If If Len(Trim(txtPassword.Text) 6 Then If MsgBox(用户口令长度小于6位,建议使用长度大于6位的口令! & vbCrLf & 是: 修改/否:不修改, vbInformation + vbYesNo, 安全提示) = vbYes Then txtPassword.Text = txtPassword.SetFocus Exit Sub End If End If If cmbPermission.Text = Then MsgBox 用户权限不能为空,请输入用户权限., vbInformation + vbOKOnly, 信息不完整 cmbPermission.SetFocus Exit Sub End If Set User = Nothing User.UserName = Trim(txtName.Text) User.UserPassword = Trim(txtPassword.Text) User.UserPermission = Trim(cmbPermission.Text) If Users.AddUser(User) = True Then Call ClearInfo MsgBox 添加系统用户成功!, vbInformation + vbOKOnly, 成功提示 Else Call ClearInfo MsgBox 添加系统用户失败!, vbCritical + vbOKOnly, 错误提示 End If Set subitem = lvwMain.ListItems.Add(, K_ & User.UserName, User.UserName) subitem.ListSubItems.Add , , User.UserPermission subitem.ListSubItems.Add , , User.UserPassword cmdSave.Enabled = False txtName.Enabled = False txtPassword.Enabled = False cmbPermission.Enabled = FalseEnd Sub（2）删除用户Private Sub cmdDelete_Click() lvwMain.ListItems.Remove lvwMain.SelectedItem.Key Users.DeleteUser User.UserName Call ClearInfoEnd Sub（3）修改用户 If txtName.Text = Then MsgBox 用户名不能为空,请输入用户名., vbInformation + vbOKOnly, 信息不完整 txtName.SetFocus Exit Sub End If If txtPassword.Text = Then MsgBox 用户口令不能为空,请输入用口令., vbInformation + vbOKOnly, 信息不完整 txtPassword.SetFocus Exit Sub End If If Len(Trim(txtPassword.Text) 6 Then If MsgBox(用户口令长度小于6位,建议使用长度大于6位的口令! & vbCrLf & 是: 修改/否:不修改, vbInformation + vbYesNo, 安全提示) = vbYes Then txtPassword.Text = txtPassword.SetFocus Exit Sub End If End If If cmbPermission.Text = Then MsgBox 用户权限不能为空,请输入用户权限., vbInformation + vbOKOnly, 信息不完整 cmbPermission.SetFocus Exit Sub End If User.UserName = Trim(txtName.Text) User.UserPassword = Trim(txtPassword.Text) User.UserPermission = Trim(cmbPermission.Text) Users.ModifyUser User lvwMain.SelectedItem.Text = User.UserName lvwMain.SelectedItem.ListSubItems(1).Text = User.UserPermission lvwMain.SelectedItem.ListSubItems(2).Text = User.UserPassword Call ClearInfo cmdModify.Enabled = FalseEnd Sub2.6 得出的结果以及对结果的讨论通过使用该模块，就可以有效的规范拥有使用权限的不同层次的管理人员的数量，便于企业领导随时查阅他们的信息，规范管理，保证输入本系统的所有信息的准确性和一致性，确保“人事信息管理系统”的正常运行。3部门信息管理3.1模块开发前提每个企业因其企业性质及管理模式的不同，组织结构也不尽相同，因此部门的划分方法及细化程度也不一样。但对于一个中小型企业来说，一般都会采用直线制，部门职能制等适合中小型企业的组织结构。在组织所划分的这些部门中，它们既相互独立，又相互协作，不同的部门拥有不同的工作内容，承担着不同的职责，拥有不同的权限，需完成组织特定方面的工作，各部门又相互协作，共同完成组织方方面面的工作，从而实现组织的目标，因此对部门的信息进行管理就显必不可少了。3.2模块的建立 根据本系统的需求，结合实际管理情况，本模块应作如下细化：（1）在查询方面随着企业规模的不断扩大，企业中设立的部门也越来越具体化，因此部门的数量也不可避免的增加，查询功能的实现，可以很好的解决管理工作中繁琐的查找工作，从而很好的提高管理效率。（2）在操作方面在此部分中，用户可以根据管理中的不同需求，对部门信息进行调整，即可以执行添加、删除和修改基本信息的操作，以适应管理上的需求。通过此模块，可以快速高效的对部门进行的调整，以减少不必要的工作量，将工作人员从繁琐的日常事务中解脱出来。3.3 模块的整体流程根据大多数中小企业的管理流程，结合上述的功能，模块的整体流程如图3-1所示：登录用户通过验证程序主窗口对现有部门的信息进行管理（包括添加、修改、删除）查询现有部门的相关信息重新登录查询帮助信息图3-1 部门管理模块总体流程图3.4 数据库的设计本次设计所用的数据库为Access，在名为HR的数据库中建立了一个表，名字为Department，可以在程序中对其进行调用。本模块以企业部门的基本信息为对象，编制了一份表格，其中详述了每个字段的设置及对其的说明。在此表中，以部门编码字段为该表的主关键字（Primary Key，PK），它唯一标识了每一个部门的记录， 其详表如下表所示：表3-1 Department表字段名类型宽度备注部门编码文本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）：Private Sub mnuDepartQuery_Click() ListBarMain.ActiveList = 1 frmDepQuery.ShowEnd Sub（2）实现查询功能的代码如下：Private Sub cmdQuery_Click()On Error GoTo LabErr txtDepID.Text = Departments.Departments(K_ & cmbDepID.Text).DepID txtDepName.Text = Departments.Departments(K_ & cmbDepID.Text).depName txtDepMaster.Text = Departments.Departments(K_ & cmbDepID.Text).depMaster txtDepNote.Text = Departments.Departments(K_ & cmbDepID.Text).depNote txtDateIn.Text = Departments.Departments(K_ & cmbDepID.Text).depDateIn txtInner.Text = Departments.Departments(K_ & cmbDepID.Text).depInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的部门不存在,请重新查找!, vbCritical + vbOKOnly, 错误提示End Sub3.5.2部门信息管理在工程中添加一个部门信息管理的窗体，取名为frmDepManage.frm 并为这个窗体进行代码设计。3.5.2.1部门信息管理的操作方法对部门信息进行管理，即对部门信息进行增加、删除、修改操作，从而实现对部门信息的管理工作。可在进入主界面后单击“人事信息管理”菜单，选择“部门信息管理”项，则会弹出部门信息管理窗体，如图3-3 所示：图3-3 部门信息管理界面在此窗体中即可实现对部门信息的管理工作，（1） 点击“添加”按钮，即可弹出“添加部门”(frmAddDep)窗体，如图3-4所示：图3-4 部门添加界面在窗体中输入需要更改的信息后，点击“添加”按扭后，添加信息，如想取消输入则点击清除按扭即可，然后点击“关闭”按钮退出添加窗体（2）点击“删除”按钮点击“删除”按钮后，弹出“部门信息删除”（frmDeleteDep）窗体，如图3-5所示：图3-5 删除部门信息界面在列表中点击要删除的信息后，点击“删除”按钮，即可删除信息，点击“关闭”关闭窗体。（3）点击“修改”按钮先在列表中选中需修改的部门信息，点击“修改”按钮后弹出“部门信息修改”（frmModifyDep）窗体，如图3-6所示：图3-6 部门信息修改界面修改过信息后，点击“修改”按钮，即完成对部门信息的修改工作，然后点击“关闭”按钮退出修改窗体。3.5.2.2代码实现（1）弹出部门管理窗体（frmDepManage.frm）的代码Private Sub mnuDepartManage_Click() ListBarMain.ActiveList = 1 frmDepManage.ShowEnd Sub（2）实现部门管理中的添加、删除、修改功能实现添加部门信息的的代码Private Sub cmdAdd_Click() If txtDepID.Text = Then MsgBox 部门编码不能为空,请输入部门编码!, vbInformation + vbOKOnly, 信息不完整 txtDepID.SetFocus Exit Sub End If If txtDepName.Text = Then MsgBox 部门名称不能为空,请输入部门名称!, vbInformation + vbOKOnly, 信息不完整 txtDepName.SetFocus Exit Sub End If If txtDepMaster.Text = Then MsgBox 部门主管不能为空,请输入部门主管!, vbInformation + vbOKOnly, 信息不完整 txtDepMaster.SetFocus Exit Sub End If If txtDepNote.Text = Then MsgBox 部门描述不能为空,请输入部门描述!, vbInformation + vbOKOnly, 信息不完整 txtDepNote.SetFocus Exit Sub End If If txtInner.Text = Then MsgBox 部门录入人不能为空,请输入部门录入人!, vbInformation + vbOKOnly, 信息不完整 txtInner.SetFocus Exit Sub End If Set Dep = 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) If Departments.AddDepartment(Dep) = True Then Call ClearInfo Set subitem = frmDepManage.lvwMain.ListItems.Add(, K_ & Dep.DepID, Dep.DepID) subitem.ListSubItems.Add , , Dep.depName subitem.ListSubItems.Add , , Dep.depMaster subitem.ListSubItems.Add , , Dep.depNote subitem.ListSubItems.Add , , Dep.depDateIn subitem.ListSubItems.Add , , Dep.depInner MsgBox 添加部门信息成功!, vbInformation + vbOKOnly, 成功提示 Else MsgBox 添加部门信息失败!, vbCritical + vbOKOnly, 错误提示 End IfEnd Sub实现对部门信息删除的代码Private Sub cmdClear_Click() Call ClearInfoEnd SubPrivate Sub ClearInfo() txtDepID.Text = txtDepName.Text = txtDepMaster.Text = txtDepNote.Text = txtInner.Text = txtDepID.SetFocusEnd SubPrivate Sub Form_Load() DTPIn.Value = today()End SubPrivate Sub Form_Unload(Cancel As Integer) Set Dep = NothingEnd Sub实现对部门信息修改功能的代码 If txtDepID.Text = Then MsgBox 部门编码不能为空,请输入部门编码!, vbInformation + vbOKOnly, 信息不完整 txtDepID.SetFocus Exit Sub End If If txtDepName.Text = Then MsgBox 部门名称不能为空,请输入部门名称!, vbInformation + vbOKOnly, 信息不完整 txtDepName.SetFocus Exit Sub End If If txtDepMaster.Text = Then MsgBox 部门主管不能为空,请输入部门主管!, vbInformation + vbOKOnly, 信息不完整 txtDepMaster.SetFocus Exit Sub End If If txtDepNote.Text = Then MsgBox 部门描述不能为空,请输入部门描述!, vbInformation + vbOKOnly, 信息不完整 txtDepNote.SetFocus Exit Sub End If If txtInner.Text = Then MsgBox 部门录入人不能为空,请输入部门录入人!, vbInformation + vbOKOnly, 信息不完整 txtInner.SetFocus Exit Sub End If Dep.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) If Departments.ModifyDepartment(Dep) = True Then frmDepManage.lvwMain.SelectedItem.Text = Dep.DepID frmDepManage.lvwMain.SelectedItem.ListSubItems(1).Text = Dep.depName frmDepManage.lvwMain.SelectedItem.ListSubItems(2).Text = Dep.depMaster frmDepManage.lvwMain.SelectedItem.ListSubItems(3).Text = Dep.depNote frmDepManage.lvwMain.SelectedItem.ListSubItems(4).Text = Dep.depDateIn frmDepManage.lvwMain.SelectedItem.ListSubItems(5).Text = Dep.depInner frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox 修改部门信息成功!, vbInformation + vbOKOnly, 成功提示 Else frmDepManage.cmdDelete.Enabled = False frmDepManage.cmdModify.Enabled = False Unload Me MsgBox 修改部门信息失败!, vbCritical + vbOKOnly, 错误提示 End IfEnd Sub4员工信息管理4.1模块开发前提在企业的管理中人是最活跃的因素，同时也是一个组织最基本的单位，是企业的基石，基石的稳健与否，直接联系着一个企业的兴衰与稳定，因此，每个企业都非常重视对人的管理，对企业员工的信息进行有高质高效的管理，可以充分发挥员工的潜能，是完全有必要的，而实现这一目标，就需要借助于计算机技术，对员工的基本信息进行管理，以减轻管理人员的工作负担，提升管理质量。根据一般的中小型企业人事管理的实际要求，该模块主要具有以下功能：（1） 掌握整个企业每个员工的基本情况。其中包括员工编号、姓名、性别、年龄、政治面貌、籍贯、出生年月、学历、职称、家庭住址、电话等。（2） 可以根据不同的用户名对员工信息进行浏览（3） 可以对员工的信息进行查询（4） 要求可以对员工基本信息进行变动管理，对员工信息进行添加、删除和修改操作。4.2模块的建立由于此模块是较为重要的一个模块，因此，我将其作细化：（1） 查找界面用户可以在现有的信息中进行查找，以便找到满足条件的员工信息，进行浏览或者管理。该部分中可以根据员工的编号对员工的基本信息进行查询。（2） 员工基本信息管理界面此部分功能就是如果员工的基本信息改变，那么用户可以根据具体情况，对员工进行管理，可以执行添加、删除或者修改基本信息的操作。4.3 模块的整体流程根据企业人事管理流程，结合上述的各项功能，模块的整体流程如图4-1所示：登录用户通过验证程序主窗口对现有员工的信息进行管理（包括添加、修改、删除）查询现有员工的基本信息重新登录查询帮助信息图4-1 员工管理模块总体流程图4.4数据库设计和前面一章相似，在名为HR.mdb的数据库中建立1个名为Employee的表，本模块主要针对的对象为员工的基本信息。其中，职工编号字段为该表的主关键字（Primary Key，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）的代码Private Sub mnuEmpQuery_Click() ListBarMain.ActiveList = 2 frmEmpQuery.ShowEnd Sub（2）实现查询功能的代码On Error GoTo LabErr txtEmpID.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).EmpID txtEmpDepID.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empDepID txtEmpName.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empName txtEmpSex.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empSex txtEmpBorn.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empBornDate txtEmpNation.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empNation txtEmpMarry.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empMarry txtEmpNative.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empNative txtEmpAddr.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empAddr txtEmpPhone.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empPhone txtEmpCard.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empCard txtEmpPolity.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empPolity txtEmpDegree.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empDegree txtEmpFinalSchool.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empFinalSchool txtEmpFinalDate.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empFinalDate txtEmpSpecial.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empSpecial txtEmpLang.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empLang txtEmpEntryDate.Text = Employees.Employees(K_ & Trim(cmbEmpID.Text).empEntryDate txtEmpSafety.Text = Employees.Employees(K_ &