实验报告
课程：管理信息系统
一、实验目的
验证有关概念和理论，加深对概念和知识的理解和认识；熟悉和掌握Visual Basic 6.0 软件的使用方法；初步具备信息管理知识和制作数据字典、系统数据流程图的能力。运用课程讲授的管理信息系统的系统分析方法、模块化系统设计方法以及系统的调试方法进行人事档案管理信息系统的分析、设计、开发、实现与调试。
二、实验方法
面向对象法
三、实验环境及开发工具
1.硬件环境
在最低配置的情况下，系统的性能往往不尽如人意，但现在的硬件性能已经相当的出色，而且价格便宜，因此通常给服务器的配置高性能的硬件。
处理器：Interl Pentium II 266 MX 或更高
内存：64M
硬盘空间：2 GB
显卡：SVGA 显示适配器
显示器：液晶17寸
2.软件环境
操作系统：Windows/98/ME/2000/XP或更高版本
数据库：Microsoft Access 2000
3.实验开发工具：Visual Bisic 6.0程序系统
四、实验内容
（一）、系统分析
1、系统数据流程图
2、数据字典
3、系统中所有实体（包括实体的属性）以及实体之间的联系类型分析
人员的个人资料经过专业的处理部门的处理形成个人档案。档案包括自然情况，工作情况，简历，政治情况等各方面信息，内容比较庞大复杂。将档案信息传送到人员信息库。同时还综合考虑档案管理工作的性质，总结归纳出所需实现的功能。为人事档案进行服务，对人事的变动、人事资料、以及人事资料的查询，统计等功能。总体上说具有编辑，查询，用户管理，图表统计等功能。然后将最终结果提交到人力资源管理部门，由人力资源管理人员进行审查，以便于对职工的调配。
4、典型处理的表达
档案完整添加用户档案到档案库
个人信息成功添加到档案库
修改用户档案信息
档案不完整失败退回用户档案
退回用户档案
（二）、系统设计
1、子系统划分（或功能划分或模块划分）
功能划分
1、用户管理
功能：设置使用人事管理系统的用户及其使用权限。整个人事管理系统由多个功能模块组成，不同的模块完成不同的功能，所以可以为不同的职工分配不同的功能，使其具有不同的权限，完成其权限所对应的功能，从而很好地管理好整个系统。
2、辅助表管理
功能：通过它的这个功能可以有效的对本单位人事部门的扩充进行及时的计算机管理。只要管理员进行简单的数据字段添加即可。辅助表管理功能是高级管理员及中级管理员拥有的权限，它的功能是对数据库进行新表的添加。
3、档案编辑
功能：档案编辑模块中有4个子模块。他们是档案卡片、个人简历、家庭成员、历史档案等功能。这些功能因管理员的权限不同所表示出的功能使用也不同，普通管理员没有数据修改及删除的权利。在这些功能里详细的记录了所有单位员工的资料。
4、档案查询
功能：对档案卡片的查询功能，在这里可以查到符合程序要求的任何信息。再这里的选项中输入规定的范围即可查到相关的人事信息。
5、档案统计
功能：综合统计、单项统计和图表统计。单项统计是输入规定的要求后进行的统计它可以较详细直观的统计出要求的结果。图表统计可以详细的按性别、按政治面貌、按职称级别、按学历以直方图和饼型图进行表示。
2、数据库设计
（2）数据库的关系模型
3、典型模块（或程序）的程序流程图
2转出人事档案流程
（三）、系统实现
一、用户登录的实现
只需要通过简单的设置和操作其属性就可以实现,用来实现对数据库的浏览,贴加,删除,修改等操作.
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名"
Text1.SetFocus
ElseIf Text2.Text = "" Then
MsgBox "请输入密码"
Text2.SetFocus
ElseIf Text1.Text = Form3.List1.List(Index) Then MsgBox "用户名重复，请重新输入"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
Form2.Hide
Form3.Show
Dim str() As String
Dim i As Integer
str = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(str)
Form3.List1.AddItem str(i)
Next
End If
End Sub
二、设置用户
If List1.SelCount <> 1 Then
MsgBox "请选择要修改的用户名" Else
Text1.Text = List1.Text
Text1.SetFocus
Command3.Enabled = True
command1.Enabled = False End If
End Sub
Private Sub Command2_Click() Form4.Hide
form1.Show
End Sub
Private Sub Command3_Click()
List1.List(List1.ListIndex) = Text1
Command3.Enabled = False
command1.Enabled = True
Text1.Text = ""
五、系统评价及改进（系统存在的问题及拟采取的解决方法）
整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人事管理工作以及新进员的新增、老员工修改等管理工作。
人事管理信息化的根本目的是快捷全面地传递员工的个人信息，管理者可以及时掌握整个人事管理系统的全面情况，为全面合理的管理提供技术支持。和传统管理模式相比较，成功运行此系统，将可以高效能、大容量地收集、处理、存储人事信息，大幅度地提高人事管理信息系统的工作质量和效率。
由于开发者能力有限，加上时间仓促，本系统难免会出现很多不足之处，例如
1.人事档案管理系统涉及范围宽，要解决的问题多，功能复杂，实现困难，但由于时间和本人能力有限制,系统只能做出其中的一部分功能；
2.在编程上遇到不少问题,由于没有系统地去学习过VB.ACCESS.所以很多控件和语法不了解.导致系统存在很多漏洞,特别是连接数据库对数据库进行操作时.
