1、参考示例1某企业人事信息管理系统的建立某企业人事信息管理系统的建立编写安徽广播电视大学2010年8月目 录摘 要 3Abstract 31 导言 11.1 研究的背景及意义 11.1.1 背景 11.1.2 意义 11.2 研究内容及拟解决的问题 11.3 设计思路和方法 11.3.1 设计思路 11.3.2 设计方法 22 开发工具 32.1 Visual Basic 6.0 32.2 Access 2003 33 系统规划与系统分析 43.1 系统的总体结构 43.2 系统的数据流程分析 44 系统的设计与实现 64.1 数据库表的设计 64.2 登录界面的设计 64.3 欢迎界面的设计
2、84.4 主界面的设计 94.5 用户管理的设计 104.6 人事管理的设计 124.6.1 人事信息查询 134.6.2 人事信息更新 164.7 “帮助”的设计 184.7.1 “关于”界面 184.7.2 “联系作者”的设计 185 结论 195.1 本文所做的主要工作 195.2 今后进一步的研究方向 19参考文献 20致 谢 21某企业人事信息管理系统的建立摘 要本文利用先进的数据库技术（VB + Access）建立了一套人事管理系统，可轻松实现人事信息的查询和更新，并替代传统的人事信息管理，解决了原管理模式的数据繁冗复杂和效率低下的问题。关键词：数据库 管理系统The design
3、 of personnel information management system for a corporationAbstractA management system of personnel information was designed by use of the advanced database（VB + Access） in the paper. It can achieve the goal of personnel information query and updating easily. It can replace the traditional personn
4、el information management and solve the problem of abundant data and low efficiency.1 导言1.1 研究的背景及意义1.1.1 背景人事部门作为企业管理领域中非常重要的部门之一, 其担负着企业行政管理职能中的很多具体管理业务, 尤其是一些和工程人员息息相关的日常业务1。人事管理工作效率的高低、质量的好坏都直接关系到管理效益在企业职工中的认可度。所谓人事管理，是指以从事社会劳动的人和有关的事的相互关系为对象，通过组织、协调、控制、监督等手段，谋求人与事以及共事人之间的相互适应，实现充分发挥人的潜能，把事情做得更好
5、这一目标所进行的管理活动2。企业的人事管理是企业管理的一个重要内容，传统的人事管理方法不仅繁冗复杂，而且低效。如企业内部发生人事调动，工资变化时，传统的人事管理方法处理这些变化十分复杂。这样，传统的人事管理很难及时的反映企业的人事组成，导致企业的人力资源不能得到合理，有效的配置，给企业造成了损失3。1.1.2 意义由上述内容可见，人事管理是一个复杂的系统工程，人事信息一求准确，二要保密， 三需及时，四是政策约束性强,，随机性大，时效性强，作业频繁，工作量大而繁琐，因而大大增加了处理的难度。随着计算机技术的飞速发展和计算机在企业管理中应用的普及，利用计算机实现企业高效率完成劳动人事管理的工作，是
6、适应现代企业制度要求，推动企业劳动人事管理走向科学化、规范化的必要条件。而计算机管理具有检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等优点。这些优点能够极大地提高人事管理的效率，也是企业的科学化管理的重要条件4。因此，设计一套人事管理系统具有一定的实际意义。1.2 研究内容及拟解决的问题本论文的研究内容为设计一套人事管理系统，以解决的问题如下：1）实现人事信息的查询功能2）实现人事信息的更新功能3）为企业人事部管理员的工作带来便捷1.3 设计思路和方法1.3.1 设计思路本软件拟采用的设计思路如下图所示：图1-1 设计思路方框图1.3.2 设计方法拟采用的设计方法为以Vis
7、ual Basic 6.0为开发工具，Access 2003为后台数据库，实现前台窗体和后台数据库的交互，即利用VB语言设计窗体界面，建立其与Access数据库的联系，实现人事信息的查询和更新功能。2 开发工具2.1 Visual Basic 6.0Visual Basic是一个功能强大的应用程序开发工具，在世界范围内得到了广泛的应用，受到人们的青睐。因为Windows是当今主流操作系统，而Visual Basic是开发Windows应用程序最简单易学的语言之一；Visual Basic引入了面向对象和事件驱动的程序设计思想，大大缩短了应用软件的开发周期；Visual Basic不断融入新技术
8、，使之可以完成几乎所有的Windows应用程序的开发任务；越来越多的优秀软件支持用Visual Basic进行二次开发5。考虑到Windows系统的广泛使用性和Windows系统对Visual Basic的良好兼容性，作者经过比较各种编程语言，选定Visual Basic作为“人事信息管理系统”的开发语言。针对本系统，Visual Basic具有面向对象的可视化编程这一优势，针对所需功能可进行具体设计；可以自定义窗体布局，可以按照预期的功能进行代码设计，可以方便地与其他软件相兼容。目前Visual Basic的最高版本为Visual Basic 6.0，在所有版本中，6.0版功能最为完善，所以
9、选定 “人事信息管理系统”的开发工具为Visual basic 6.0。2.2 Access 2003Access是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access在很多地方得到广泛使用，例如小型企业，大公司的部门，和喜爱编程的开发人员专门利用它来制作处理数据的桌面系统。由
10、于Access操作简便，具有可视化，可为VB6.0方便地调用；从建立的对象而言，计划开发的“人事信息管理系统”不算太复杂，所以选择Access 2003作为本软件的数据库创建工具较为合适。3 系统规划与系统分析3.1 系统的总体结构本系统的设计计划包括以下几个部分：一是权限登录，二是系统管理，三是人事管理，四是帮助信息。具体的系统规划如下图所示。图3-1 系统的总体结构3.2 系统的数据流程分析本系统使用到2个Access数据库表，一个是管理用户账户信息的“UserInfo.mdb” ，一个是管理人事信息的“人事管理.mdb ”。因此，本系统涉及以这2个表为中心的数据流程。图3-2 用户账户管
11、理信息流程由图3-2可以看出，本系统在登录时会使用“UserInfo.mdb”进行账户和密码的验证，此时程序会将使用者输入的账户和密码信息转变为计算机语言，送入到“UserInfo.mdb”数据库表中进行匹配。如果匹配成功，则出现“欢迎界面”，表明系统登录成功；如果匹配不成功，表明账户和密码输入错误，系统无法登录，并返回登录界面。用户管理模块与“UserInfo.mdb”表也存在紧密的信息交互。“添加用户”会将用户添加的用户账户和密码写入到该表中。“修改用户”则先对“UserInfo.mdb”表中数据进行读取，载入系统已有账户，再进行密码修改。首先用户需要选定一个账户，再输入原密码，系统会将该
12、密码转化为查询条件，在表中匹配。如果正确，则可进行密码修改，将新密码重新写入“UserInfo.mdb”表中；如果匹配不成功，则阻止新密码写入。“删除用户”和“修改用户”类似，不同的是原密码匹配成功后则进行信息删除。图3-3 人事管理模块的信息流程由3-3可以看出，该模块的信息中心是“人事管理.mdb”。“查询”窗体会要求使用者首先输入查询条件，程序会将该条件转化为为查询语句，并在“人事管理.mdb”中匹配。如果匹配成功，则读出数据，显示于查询结果界面中，如果匹配不成功，则出现信息提示框。 “更新”则把更新数据直接写入到“人事管理.mdb”中，当输入查询条件时，便可在查询结果中读出。4 系统的
13、设计与实现4.1 数据库表的设计本系统的后台数据库采用Access数据库，根据前述内容，本节需要设计两张表，一张命名为“UserInfo.mdb”，另一张命名为“人事管理.mdb”。打开Access 2003，在设计视图里按图4-1和图4-2进行设计。图4-1 “UserInfo.mdb”的字段设置图4-2 “人事管理.mdb”的字段设置4.2 登录界面的设计为保证人事信息管理系统的信息安全，本系统设计了登录界面，要求用户拥有合法授权的用户名和密码才能登录，本部分的设计界面图如图4-3所示：图4-3 煤质数据库管理系统登录界面登录界面窗体属性如下表：表4-1登录界面窗体属性属性设置说明名称登录
14、系统用户登录窗体的名称BorderStyle0-none边框的样式，设置无边框caption登录窗体显示的标题MaxButtonfalse不能使用最大化MinButtonfalse不能使用最小化StartUpPosition2-屏幕中心设置此窗体启动时，位于屏幕中心设置好以上各属性后，再添加3个Label控件、2个Text控件、1个Combobox控件和2个Command按钮，编写如下代码并连接到“UserInfo.mdb”表，这部分的功即可实现。Option ExplicitDim Myws As WorkspaceDim Mydb As DatabaseDim Myrs As Record
15、setDim rs As RecordsetPrivate Sub Form_Load() Set Myws = DBEngine.Workspaces(0) On Error Resume Next Set Mydb = Myws.OpenDatabase(App.Path & UserInfo.mdb) Combo1.AddItem 管理员 Combo1.Text = Combo1.List(0)End SubPrivate Sub Command1_Click()On Error Resume Next Set Myrs = Mydb.OpenRecordset(select * fro
16、m admin where 用户名= & Text1.Text & and 级别= & Combo1.Text & ) On Error Resume NextIf Text2.Text Myrs.Fields(1) ThenMyrs.MoveNext If Myrs.EOF = True Then Call MsgBox(输入信息有误，请注意您的权限！, vbOKOnly, 警告) Text1.Text = Text2.Text = Text1.SetFocus Exit Sub End If Else: Unload Me 闪屏.ShowEnd IfEnd SubPrivate Sub C
17、ommand2_Click() If MsgBox(是否退出系统！, vbOKCancel + vbQuestion, 系统提示) = vbOK Then End End IfEnd Sub4.3 欢迎界面的设计为创建友好的管理系统，本部分特设一个交互式欢迎界面，具体设计图示及思路如下:图4-4 欢迎界面欢迎界面的窗体属性设置如表4-2：表4-2 欢迎界面窗体属性属性设置说明名称登录用户登录窗体的名称BorderStyle0-none边框的样式，设置无边框设置好相应的窗体属性，添加一个Timer控件并编绘如下代码调用已设计出的jpg文件，即可实现预定功能。Private Sub Form_Lo
18、ad() 闪屏.Picture = LoadPicture(App.Path & 欢迎界面.jpg) starttime = Format(Now, hh:mm:ss) Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() endtime = Format(Now, hh:mm:ss) If DateDiff(s, starttime, endtime) = 5 Then Unload Me 主界面.Show End IfEnd Sub4.4 主界面的设计为协调各部分系统模块协同工作，本管理系统设计了一个主界面，其菜单栏包含“系统”、“人
19、事管理”和“帮助”3个菜单，并分别下设子菜单，以满足本软件的使用。图4-5主界面主界面窗体菜单属性设置如下表：表4-3 主界面窗体属性菜单名称属性系统重新登录名称mmuEnter快捷键Ctrl + D退出名称mmuExit快捷键Ctrl + E添加用户名称tjyh快捷键Ctrl +A修改用户名称xgyh快捷键Ctrl +B删除用户名称scyh快捷键Ctrl + C人事管理查询名称mmuCX快捷键Ctrl + F更新名称mmuGX快捷键Ctrl + G帮助联系作者名称mmuLX快捷键Ctrl + L关于名称mmuabout快捷键Ctrl + I主界面代码如下：Private Sub Form_L
20、oad() 主界面.Picture = LoadPicture(App.Path & 主界面.jpg)End Sub4.5 用户管理的设计为方便用户更改、添加以及删除等操作，本管理系统特设用户管理模块，“添加用户”、“修改用户”和“删除用户”界面设计如下：图4-6 添加用户界面图4-7 修改用户界面图4-8 删除用户界面以添加用户为例，进行介绍。该窗体属性如下表：表4-4添加用户窗体属性控件名称属性属性值Label1caption请输入用户名：Label2caption请输入密码：Label3caption请确认密码：Command1caption添加Command2caption返回Text
21、1text“”Text2text“”Text3text“”设置好以上属性后，再编写如下程序代码与用户账户管理的数据库形成连接，此模块的功能即可实现。Option ExplicitDim Myws As WorkspaceDim Mydb As DatabaseDim Myrs As RecordsetPrivate Sub Form_Load()Set Myws = DBEngine.Workspaces(0) Set Mydb = Myws.OpenDatabase(App.Path & UserInfo.mdb)End SubPrivate Sub Command1_Click()If T
22、rim(Text1.Text = ) Then MsgBox 用户名不能为空,请输入用户名!, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub Else Set Myrs = Mydb.OpenRecordset(select * from admin where 用户名= & Trim(Text1) & ) While (Myrs.EOF = False) If Trim(Myrs.Fields(0) = Trim(Text1) Then MsgBox 用户已经存在,请重新输入用户名!, vbOKOnly + vbExclamatio
23、n, 警告 Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else Myrs.MoveNext End If Wend End If If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次输入的密码不一样,请确认!, vbOKOnly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else If Text2.Text = Then MsgBox 密码不能为空!, vbOKOn
24、ly + vbExclamation, 警告 Text2.SetFocus Text2.Text = Text3.Text = Else Myrs.AddNew Myrs.Fields(0) = Trim(Text1.Text) Myrs.Fields(1) = Trim(Text2.Text) Myrs.Fields(2) = 管理员 Myrs.Update Myrs.Close Mydb.Close MsgBox 添加用户成功!, vbOKOnly + vbExclamation, 信息提示 Text1.Text = Text2.Text = Text3.Text = End If End
25、 IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.6 人事管理的设计人事管理是本管理系统的核心部分，主要包括人事信息查询和人事信息更新三部分。4.6.1 人事信息查询点击“人事管理”“查询”菜单，首先出现“员工信息管理”界面，可用于浏览显示员工的基本信息，界面如下图所示。图4-9 员工信息管理界面本窗体一共包含3个Frame控件和42个Label控件用于显示员工信息， 1个Adodc控件用于和后台数据库连接，4个Command按钮用于命令的执行。各个控件的属性仅是Caption进行了修改，可由上图看出，这里不作详细介绍。该窗体的代码
26、如下：Private Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 人事管理.mdb;Persist Security Info=False Adodc1.RecordSource = select * from EmployeeInfo Adodc1.RefreshDim aa As StringDim bb As Stringaa = 001bb = ENo= & aa & Adodc1.Recordset.MoveFirstAdodc
27、1.Recordset.Find (bb)Adodc1.Recordset.MoveFirstLabel22.DataField = ENoLabel23.DataField = NameLabel24.DataField = SexLabel25.DataField = IDCardLabel26.DataField = NativePlaceLabel27.DataField = ResidenceLabel28.DataField = MarryLabel29.DataField = BirthdayLabel30.DataField = FolkLabel31.DataField =
28、PartyLabel32.DataField = EducationLabel33.DataField = TeleLabel34.DataField = MobileLabel35.DataField = EmailLabel36.DataField = AddressLabel37.DataField = MissionstatusLabel38.DataField = DutyLabel39.DataField = PostLabel40.DataField = ServiceLengthLabel41.DataField = LevelsLabel42.DataField = Dept
29、End Sub当点击“查询“按钮，则显示要求输入待查询的员工编号，如下图所示。图4-10 输入员工编号当输入的员工编号存在，则显示于“员工信息管理”中。此部分的代码如下：Private Sub Command3_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 人事管理.mdb;Persist Security Info=False Adodc1.RecordSource = select * from EmployeeInfo Adodc1.RefreshDim a As StringDim b As Stringa = InputBox(请输入员工编号, 查询条件)b = ENo= & a & Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find (b)Label22.DataField = ENoLabel23.DataField = NameLabel24.DataField = SexLabel25.DataField = IDCardLabel26.Da
