[计算机软件及应用]SQL人事档案管理系统.doc

摘 要由于计算机技术的飞速发展,数据库技术作为数据管理的一个有效的手段,在各行各业中得到越来越广泛的应用。因此,本文围绕一个“人事档案管理系统”程序的设计和应用系统的开发课题为背景，详细介绍了以VB和SQL SERVER为语言编写管理系统的过程。该程序通过VB的ADO数据对象来实现VB前台与后台SQL SERVER数据库的连接,并具有典型的数据库应用系统的特征,完成了系统结构与现实生活的紧密结合。该程序在设计过程中严格遵循软件工程学的方法,用分阶段的生命周期计划严格管理，逐一介绍开发本系统的步骤：系统分析、系统设计、系统实现、系统实施。首先对现行人事档案管理系统进行分析，并找出其存在的问题，并提出解决方案，主要讲述了程序的总体设计、详细设计阶段，对程序进行不断修正和改进。在系统结构设计中先后用数据流图、系统的功能结构图分析了系统所需要的各种数据。在系统的设计中，详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。在系统的实现中，给出了系统的界面登录、实现表单中相应的功能控件的事件代码等。在系统的实施概况中给出了系统的开发环境、系统的运行与维护、系统的安全性与可靠性设计。同时利用SQL SERVER的强大数据库功能,直到形成一个完善的可行性系统.优美、秀丽的界面,方便实用的查询与维护功能共同构成了“人事档案管理系统”。关键词：VB；SQL SERVER；数据库；人事管理系统目 录第1章 系统功能概述11.1 设计目的及意义11.2 功能模块划分11.3 系统结构总图2第2章 数据库设计22.1 需求分析22.2 E-R模型32.3 关系模型52.4 表结构设计52.4.1 表的建立52.4.2 信息表62.4.3 基本数据6第3章 系统各功能模块的详细设计73.1 进入系统页面73.2 登录页面93.2.1 员工登录93.2.2管理员登录143.3 档案存入与转出页面163.4 编辑页面173.4.1 档案存入173.4.2 档案转出223.5 查询26总 结28参考文献29第1章 系统功能概述1.1 设计目的及意义 掌握数据库的创建方法。掌握用一种语言（如VB）开发数据库应用程序的方法。本系统开发的目的一方面从提高人事档案管理工作的效率出发，摆脱过去由人用纸和笔进行的费时费力的繁重工作，即利用成熟的计算机系统来实现档案管理工作的自动化。本系统根据企业管理的一些实际情况而编制的一套自动化、界面设计良好、体现人本主义原则、系统效率较高、灵活方便、快捷迅速，适用于大量数据、采用动态链接的人事档案管理系统。本系统采用SQL server 2000作为后台数据库，这样是数据能够得到统一，并增强了管理的安全性。1.2 功能模块划分在主控窗体中（MID窗体）点击各菜单实现登录人事档案管理系统。具体功能包括：员工和管理员的登录和注册功能：实现用户成功登录系统，当用户明不正确或者密码错误时，提醒用户重新输入或者注册，当三次登录失败时，强制性退出操作界面。存入档案管理：用于输入员工的档案信息，包括档案编号、职员编号、档案类型、档案存放位置、档案存放日期等。该模块不能修改已输入的档案信息可删除已存入档案信息。链接档案修改模块可修改存入档案信息。 转出档案管理：用于将员工的档安转出，填写的内容包括档案编号、转出日期、转出目的地、转出事由等。该模块不能修改已输入的档案信息可删除已存入档案信息。链接档案修改模块可修改存入档案信息。档案查询：根据档案编号、职员编号、档案类型、档案存放位置、档案存放日期来查询档案信息。欢迎使用档案管理系统1.3 系统结构总图员工登录管理员登录档案查询档案存入档案查询档案转出档案添加信息移动档案修改档案删除档案添加信息移动档案删除图1.1系统结构总第2章 数据库设计2.1 需求分析 本系统是用于添加，查找，删除人事档案。本系统主要有两部分组成，一部分是数据库设计部分，另一部分为窗体设计部分。数据库中包含四个表，档案存入信息（档案编号、职员编号、档案类型、档案存放位置、档案存放日期），档案转出信息(档案编号、转出日期、转出目的地、转出事由)。启动封面窗体（主窗体）的时候要求：图片背景、欢迎类文字，主控窗体设计为MDI窗体，含有主菜单：文件、帮助。文件菜单包含以下子菜单及其功能：员工登录：显示员工登录窗体管理员登录：显示管理员登录窗体退出：结束程序。帮助菜单包含以下子菜单及其功能：关于：显示版权对话框。以上各窗体设为MDI主窗体的子窗体 分别设计各个登录窗体功能：用户通过界面登录系统，登录后提醒合法用户；用户名错误或者密码错误时提醒错误或者注册，并提醒用户共有三次操作机会；当选择注册时，通过随机文件追加用户信息，并提醒注册成功。员工登陆成功进入查询窗体进行条件查询。管理员登录成功则进入档案存入与转出主窗体，子窗体分别为：档案存入、档案转出、查询、退出。档案存入窗体可以浏览和录入各档案信息。该窗体以文本框显示当前档案记录，用按钮首记录、末记录、前一个、后一个，控制记录指针的移动，用一个标签Label显示：当前记录号/记录总数。单击返回按钮，可以关闭本窗体，返回档案存入与转出窗体。可以对记录进行添加、删除、确认、修改、取消操作；档案转出窗体则没有修改操作；查询窗体可以按各种条件查找，这些条件放在组合列表框Combo中，供用户选择。在文本框中输入要查询的内容，单击查询按钮，查询结果用网格控件显示。2.2 E-R模型实体E-R图：档案类型档案存放位置职员编号档案存入档案编号档案存放时间图2.1档案存入信息图转出目的地转出日期档案编号档案转出转出事由图2.2档案转出信息图关系E-R图：员工 1 属于 1 1档案转出档案存入 图2.3员工关系E-R图管理员 1管理 n n档案转出档案存入 图2.4管理员关系E-R图2.3 关系模型员工帐号：（职员编号、密码）。管理员帐号：（管理员帐号、密码）。档案存入信息：（档案编号、职员编号、档案类型、档案存放位置、档案存放日期）其中，“档案编号”是主码，“职员编号”是外码，参照员工信息表主码“职员编号”。档案转出信息：（档案编号、转出日期、转出目的地、转出事由）其中，“档案编号”是外码，参照档案存入信息表主码“档案编号”。2.4 表结构设计2.4.1 表的建立CREATE TABLE 员工注册(职员编号 CHAR(40) PRIMARY KEY, 密码 CHAR(40),);CREATE TABLE 管理员注册(管理员帐号 CHAR(40) PRIMARY KEY, 密码 CHAR(40),);CREATE TABLE 存入(档案编号 CHAR(40) PRIMARY KEY, 职员编号 CHAR(40), 档案类型 CHAR(40), 档案存放位置 CHAR(40), 档案存放日期 DATETIME, FOREIGN KEY(职员编号)REFERENCES 员工注册 (职员编号);CREATE TABLE 转出(档案编号 CHAR(40), 转出日期 DATETIME, 转出目的地 CHAR(60), 转出事由 CHAR(100), FOREIGN KEY(档案编号)REFERENCES 存入 (档案编号);2.4.2 信息表表2.1员工帐号表表2.2管理员帐号表表2.3档案存入信息表表2.4档案转出信息表2.4.3 基本数据员工帐号表里输入的结果如下：表2.5员工帐号数据管理员信息表里输入的结果如下：表2.6管理员帐号数据档案存入信息表里输入的结果如下：表2.7档案存入数据档案转出信息表里输入的结果如下：表2.8档案转出数据按如下步骤，根据向导配置系统数据源： 开始设置 控制面板 管理工具 数据源（ODBC） 系统DSN添加驱动程序选为SQL Server成功 给出该数据源的名称、描述、服务器 更改默认数据库为（自己所建的数据库） 测试 成功 确定 确定。第3章 系统各功能模块的详细设计3.1 进入系统页面窗体设计为MDI窗体，含有主菜单：文件、帮助。文件菜单包含以下子菜单及其功能：员工登录：显示员工登录窗体管理员登录：显示管理员登录窗体退出：结束程序。帮助菜单包含以下子菜单及其功能：关于：显示版权对话框。图3.1系统页面代码实现如下：Private Sub mDgy_Click() Load frmSplash frmSplash.ShowEnd SubPrivate Sub mFglydl_Click()管理员登录.Show MDIForm1.HideEnd SubPrivate Sub mFtc_Click()EndEnd SubPrivate Sub mFygdl_Click() 员工登录.Show MDIForm1.Hide '隐藏Form1End Sub3.2 登录页面3.2.1 员工登录员工登陆界面：“职员编号”、“密码”均由Label控件输入，背景设为透明，之后介绍的界面中的字符均由此方法输入，故将不做说明。给出可以输入字符的空白由TextBox控件做成，可进行字体大小与颜色的修改。按钮由CommandButton设置，选择由OptionButton添加Adodc （Visible=False），用来与数据库相连。图3.2员工登录代码实现如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As BooleanPrivate Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then F = False Open App.Path + "user.dat" For Random As #1 i = 0 Do While Not EOF(1) i = i + 1 Get #1, i, U If z = U.zh And m = U.mima Then MsgBox "你是合法用户" Unload Me 查询.Show F = True Exit Do End If '' 登录成功 Loop Close #1 If F = False Then '非法用户时运行 counter = counter + 1 If counter < 3 Then '''' jia ru msg$ = "用户不存在或密码错误！是否注册？注册 单击<是>" + vbCrLf + "否则 单击<否>" Title$ = "操作进程确认 " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox "请重新输入！" MsgBox "您总共有三次操作机会！" Text1.Text = "" Text2.Text = "" 员工登录.Show End If End If If counter = 3 Then MsgBox "重试次数已到，即将退出本系统!" End Exit Sub End If End If ''''添加 End If If Option2.Value = True Then '注册 Open App.Path + "user.dat" For Random As #2 i = 0 G = False While Not EOF(2) i = i + 1 Get #2, i, U If z = U.zh Then MsgBox "该用户名已存在！ 请重新选择！" G = True End If Wend Close #2 Open App.Path + "user.dat" For Random As #2 If G = False Then U.zh = z U.mima = m Put #2, , U MsgBox "注册成功" End If Close #2 End IfEnd SubPrivate Sub Command2_Click()Unload Me欢迎使用.ShowEnd SubPrivate Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd Sub用户合法时，运行结果见图3.3所示：登录后，直接进入查询窗体。图3.3合法用户登录 用户不合法时，运行结果见图3.4示。图3.4不合法用户登录单击“是”按钮时，运行结果如图3.5示：图3.5注册操作如果已注册则出现提示如图3.6示：图3.6已注册提示重新输入多次提示如图3.7示： 图3.7错误提示3.2.2管理员登录管理员登录窗体如图3.8示：图3.8管理员登录代码实现如下： Private Type UserInfo zh As String * 10 mima As String * 10 End Type Dim U As UserInfo Dim counter As Integer Dim G As BooleanPrivate Sub Command1_Click() Dim z As String * 10, m As String * 10 z = Trim(Text1.Text) m = Trim(Text2.Text) If Option1.Value = True Then F = False Open App.Path + "user.dat" For Random As #1 i = 0 Do While Not EOF(1) i = i + 1 Get #1, i, U If z = U.zh And m = U.mima Then MsgBox "你是合法用户" Unload Me 档案存入与转出.Show F = True Exit Do End If '' 登录成功 Loop Close #1 If F = False Then '非法用户时运行 counter = counter + 1 If counter < 3 Then '''' jia ru msg$ = "用户不存在或密码错误！是否注册？注册 单击<是>" + vbCrLf + "否则 单击<否>" Title$ = "操作进程确认 " x = MsgBox(msg$, vbYesNo + 32, Title$) If x = 6 Then Option2.Value = True ElseIf x = 7 Then MsgBox "请重新输入！" MsgBox "您总共有三次操作机会！" Text1.Text = "" Text2.Text = "" 管理员登录.Show End If End If If counter = 3 Then MsgBox "重试次数已到，即将退出本系统!" End Exit Sub End If End If ''''添加 End If If Option2.Value = True Then '注册 Open App.Path + "user.dat" For Random As #2 i = 0 G = False While Not EOF(2) i = i + 1 Get #2, i, U If z = U.zh Then MsgBox "该用户名已存在！ 请重新选择！" G = True End If Wend Close #2 Open App.Path + "user.dat" For Random As #2 If G = False Then U.zh = z U.mima = m Put #2, , U MsgBox "注册成功" End If Close #2 End If End SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text1.SetFocusEnd SubPrivate Sub Command3_Click()Unload Me欢迎使用.ShowEnd Sub运行结果：用户合法是，登录后进入档案存入与转出窗体。3.3 档案存入与转出页面图3.9档案存入与转出代码实现如下：Private Sub Command1_Click()Unload Me档案存入.ShowEnd SubPrivate Sub Command2_Click()Unload Me档案转出.ShowEnd SubPrivate Sub Command3_Click()Unload Me查询.ShowEnd SubPrivate Sub Command4_Click()Unload Me欢迎使用.ShowEnd Sub3.4 编辑页面这个页面上可以显示所有的记录数，同时还可以进行添加，删除，修改，前后移动记录数的功能，要实现此功能则必须用Adodc （Visible=False）控件与数据库相连，在运行中隐藏此控件。3.4.1 档案存入档案存入的编辑图3.10如下：图3.10档案存入编辑代码实现如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst ' 记录指针移到首记录（显示首记录）CmdFirst.Enabled = False ' 让首记录按钮无效CmdPre.Enabled = False ' 让前移按钮无效CmdNext.Enabled = True ' 让后移按钮有效CmdLast.Enabled = True ' 让末记录按钮有效'在Label6上显示当前记录号/记录总数：Label6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdLast_Click()Adodc1.Recordset.MoveLast ' 移到末记录 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdN_Click()Dim n As Integern = Text6.TextAdodc1.Recordset.Move nIf Adodc1.Recordset.BOF Then ' 如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst '则记录指针移到首记录上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfIf Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast '则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdNext_Click()Adodc1.Recordset.MoveNext '记录指针移到下一条记录CmdFirst.Enabled = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast '则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub CmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdPre_Click()Adodc1.Recordset.MovePrevious '记录指针移到前一条记录CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Recordset.BOF Then '如果记录指针移到首记录之前, Adodc1.Recordset.MoveFirst '则记录指针移到首记录上 CmdFirst.Enabled = False CmdPre.Enabled = FalseEnd IfLabel6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click() Form1.Show Unload MeEnd SubPrivate Sub Command2_Click()档案存入与转出.Show Unload MeEnd SubPrivate Sub Form_Load()CmdFirst.Enabled = False '首记录按钮无效CmdPre.Enabled = False '前移按钮无效CmdNext.Enabled = True '后移按钮有效CmdLast.Enabled = True '末记录按钮有效CmdAdd.Enabled = True '添加按钮有效CmdDel.Enabled = True '删除按钮有效CmdOk.Enabled = False '确定按钮无效CmdEsc.Enabled = False ' 取消按钮无效Label6.Caption = "记录：" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCountEnd Sub选择删除时，运行结果如图3.11示：图3.11存入档案删除选择修改时，运行结果如图3.12示：图3.12存入档案修改代码实现如下：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "请选择要修改的行" Exit SubEnd IfForm2.Show '显示Form2Form1.Hide ' 隐藏Form1End SubPrivate Sub Command2_Click() 档案存入.Show Unload MeEnd Sub3.4.2 档案转出档案转出的编辑图3.13如下：图3.13档案转出编辑代码实现如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueEnd SubPrivate Sub CmdDel_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst ' 记录指针移到首记录（显示首记录）CmdFirst.Enabled = False ' 让首记录按钮无效CmdPre.Enabled = False ' 让前移按钮无效CmdNext.Enabled = True ' 让后移按钮有效CmdLast.Enabled = True ' 让末记录按钮有效'在Label6上显示当前记录号/记录总数：Label9.Caption = "记录：" & Adodc1.Recordset