档案管理系统设计说明书.docx

1、档案管理系统设计说明书管理信息系统课程设计人事档案管理沈阳理工大学工业工程李阜涛2011/6/4企业档案管理信息系统设计摘要信息是管理是一项极为重要的资源,管理工作的成败取决于能否做出有效的决策,而决策的正确程度则在很大程度上取决于信息得质量。所以能否有效的管理信息成为企业的首要问题,管理信息系统MIS在强调管理、信息的现代社会中越来越得到普及。企业信息管理通常是比较复杂,由于各类信息繁多难归集,利用计算机支持企业高效率完成企业信息管理,是适应现代企业制度要求,推动企业信息管理走向科学化、社会化、规范化和自动化,从而提高企业信息管理效率。本系统选用Visual Basic 6.0软件作为开发工

2、具,Visual Basic 是一种高效的客户/服务器模式以及分布式数据库应用程序的前端开发工具。利用此软件完成了企业档案信息管理系统的员工档案信息管理功能,同时具备了管理员设置模块、查询模块、增添模块、删除模块、修改模块、统计模块,输出模块等。本系统的开发基本满足企业档案信息管理的要求,用户界面友好,提供的信息丰富准确,使管理工作的各环节能够顺利而有效的进行,具有良好的实用价值和可观的发展前景,极大的提高了企业信息管理的效率,是企业的科学化、规范化管理、自动化的重要前提条件。关键词:管理信息系统MIS ,Visual Basic 6.0 ,档案管理数据库(Microsoft Office A

3、ccess 2003一、应用背景管理信息系统起初应用于最基础的工作,如打印报表、计算工资、人事管理等,进而发展到企业财务管理、库存管理等单项业务管理,这属于电子数据处理(EDP,Electronic Data Processing系统。当建立了企业数据库,有了计算机网络从而达到数据共享后,从系统观点出发,实施全局规划和设计信息系统时,就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高,人们更加强调管理信息系统能否支持企业高层领导的决策这一功能,更侧重于企业外部信息的收集、综合数据库、模型库、方法库和其他人工智能工具能否直接面向决策者,这是决策支持系统(DSS,Decis

4、ion Support System的任务。我国20世纪70年代末有少数企业开始MIS的局部应用。“六五”期间,选择一些大型企业进行MIS的开发试点,其中首都钢铁公司、北京第一棉纺厂、湖北第二汽车制造厂、宁江机床厂等取得了经验。20世纪80年代中后期,在全国性的计算机应用热潮中,许多企业纷纷从财务管理、人事管理等单项应用入手,尝试建立MIS。许多企业,如北京内燃机厂、北京电视机厂、沈阳鼓风机厂、天津渤海无线电厂的MIS初具规模,建立了覆盖全厂的计算机网络。“八五”期间,企业逐步走向市场,MIS建设的目标和需求日益明确。一些企业的系统,如北京第一机床厂、山西经纬纺织机械厂、成都飞机制造公司等都达

5、到了很高水平,与企业中其他系统集成,形成了CIMS。目前,我国MIS已经有了相当的普及率,几乎覆盖了各个行业及各个部门。有了以上应用的基础,根据当前企业的现状与需求,特别建立了适合企业的档案管理体统,为企业提供高效的管理功能。二、系统可行性分析系统分析(又称逻辑设计是管理信息系统开发的关键环节,要求在系统调查的基础上,对新系统的功能进行细致的分析,并建立一个新系统的逻辑模型。新系统的逻辑模型由系统数据流程图、概况表、数据字典、吃理逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书。在系统设计阶段要做认真、细致的分析、研究工作,避免新系统在功能上存在先天不足或缺陷。因为新

6、系统模型是建立在对现行系统的分析及要求的基础上的,所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见,双方经过讨论、修改,最后达成共识,并完成系统分析报告(系统逻辑设计说明书,经有关领导审批通过之后,转入系统设计(又称系统物理设计阶段。通过对相关企业的调查,企业档案管理系统要完成的功能主要有:1.档案管理主要完成对员工档案的查询、增加、修改或删除。2.档案管理还要完成对部门档案的查询,员工花名册的打印。3.档案管理系统要能够统计满足任一条件的人数,如文化程度、政治面貌和年龄等。由于在企业中,从领导到管理人员的的业务认识是一致的,而且该企业有良好的管理基础,企业的经济效

7、益良好,对建立系统的费用有能力支出,因而在建立系统的管理上、技术上和经济上都是可行的。三、系统分析1、组织结构了解清楚对象系统内部各种组织机构,向系统分析人员进一步明确调查对象和方向。通过调查可得一般企业组织结构图如下:企业组织结构图总经理 企划部 销售部 生产部 科研部 财务部 人事部 行政文员 采购科 生产科 调度科 产品设计科 研发科 企业规划科 厂房设计科 会计科 档案科 广告科 外联科 销售科 财务科 招聘科 绩效管理科2、业务流程业务流程图体现了信息的流动过程,调查管理业务流程时应顺着原系统流动的过程逐步进行。通过对企业管理业务的实际调查分析,弄清了该企业档案管理工作的业务流程和管

8、理功能,系统的档案管理业务流程如下图所示:企业档案管理业务流程图从业务流程图可以看出该企业的档案管理主要有以下几项功能:一、档案单审核,人事部的审核员负责对入职员工所填的档案单进行审核,检查档案单填写的是否符合要求,档案的信息是否真实。不合格的档案单交由人事部返还给员工重新填写,合格的档案单转给档案室进行档案存储。二、登录档案存储台账,管理员依据合格的档案单登记档案存储台账,记录每一笔档案业务。员工员工入职档案登记表 人事部 与员工签订合同 审核员 不合格员工入职档案表 合格员工 档案单 任职通知 相关部门 档案存储台账档案信息查询及管理三、档案信息查询及管理,管理员根据企业要求对档案的信息进

9、行维护和日常管理(包括添加,删除,更改,查询,人数统计,部门花名册打印等功能。3、数据流程图根据档案管理的业务流程图和相关功能得出档案管理的数据流程图如下图所示: 档案单 合格档案单 不合格 档案单入档数据 查询查询档案存储档案数据查询 查询出档数据 查询离职单 合格离职单 不合格离职单档案管理数据流程图4、数据字典根据数据流程图对图中的各个元素做出如下说明:4.1数据项(档案单录入为例数据项编号:I01 01数据项名称:员工编号简 述:某员工的代码员工 档案单审核 入档 处理 员工 离档 处理 离职单审核 档案统计输出 档案维护处理 档案录入 档案查询类型及宽度:字符串型、10位取值范围:“

10、0000000000”“9999999999”4.2数据结构数据结构编号:B0101数据结构名称:员工信息表简述:员工入职所填档案情况数据结构组成:员工编号+姓名+性别+出生年月日+部门+学历+政治面貌+职位+职称+联系电话+联系地址+当前状态4.3数据流数据流编号:C0101数据流名称:档案单简述:新入职员工填写的入职档案登记表数据流来源:员工数据流去向:档案单审核模块数据流组成:姓名+性别+出生年月日+部门+学历+政治面貌+职位+职称+联系电话+联系地址数据流量:约10张/日高峰流量:约20张/日数据流编号:C0102数据流名称:合格档案单简述:经审核合格的员工档案登记单数据流来源:档案单

11、审核模块数据流去向:档案单处理模块数据流组成:姓名+性别+出生年月日+部门+学历+政治面貌+职位+职称+联系电话+联系地址数据流量:约10张/日高峰流量:约20张/日数据流编号:C0103数据流名称:不合格档案单简述:经审核不合格的员工档案登记单数据流来源:档案单审核模块数据流去向:员工数据流组成:姓名+性别+出生年月日+部门+学历+政治面貌+职位+职称+联系电话+联系地址数据流量:约1张/日高峰流量:约1张/日4.4处理逻辑处理逻辑编号:P0101处理逻辑名称:档案单审核简述:审核员工送来的档案登记单是否合格输入的数据流:档案单处理描述:检查员工送来的档案单是否符合要求,信息是否与简历及真实

12、情况一致,不合格的返还给员工叫其重新填写,合格的档案单送到人事部让档案室登记档案存储。输出的数据流:合格档案单、不合格的档案单处理频率:约10次/日处理逻辑编号:P0102处理逻辑名称:入档处理简述:根据合格档案单,将入档数据记入档案存储输入的数据流:合格的档案单处理描述:根据合格的档案单,将入档数据记入档案存储。输出的数据流:入档数据处理频率:约10次/日4.5数据存储数据存储编号:F0101数据存储名称:档案存储简述:记录员工入档数据的信息数据存储组成:员工编号+姓名+性别+出生年月日+部门+学历+政治面貌+职位+职称+联系电话+联系地址+当前状态关键字:员工编号相关联的处理:P01 01

13、,P01 02 4.6外部实体外部实体编号:S01 01 外部实体名称:人员 简述:新员工入职输入数据流程:C01 03 输出数据流程:C01 02四、系统设计4.1系统功能设计档案系统功能设计是以档案的业务流程和数据流程为依据的。根据档案管理系统的业务流程和数据流程,可得出档案管理系统的具体功能如下图所示:档案管理系统功能模块图档案信息管理系统用户管理 档案管理系统用户设置 档案录入 档案维护 档案查询档案输出 档案统计 重新登录 关于退出系统4.2系统运行环境与数据库设计基于当前信息和经济的发展趋势和企业的办公化自动成度,综合考虑各方面因素后系统的运行环境设计为在Windows XP平台下

14、运行,程序的设计语言为Visual Basic 6.0企业版。数据库为Microsoft Office Access 2003版本。系统的硬件要求为PC机,256M以上内存,320G以上硬盘。4.3代码设计基于系统的运行环境,根据系统分析,设计了2个数据表文件,它们的具体结构及说明如下:4.3.1管理员密码表字段名称数据类型字段含义宽度是否为空Name 文本用户名10 Not NULLPwd 文本密码10 Not NULL4.3.2员工信息表字段名称数据类型宽度是否为空员工编号文本10 Not NULL姓名文本10 Not NULL性别文本 2 NULL出生年月日日期/时间12 Not NUL

15、L部门文本8 Not NULL学历文本 4 NULL政治面貌文本 4 NULL职位文本10 NULL职称文本 4 NULL联系电话文本12 NULL联系地址文本50 NULL当前状态文本 4 NULL4.4输入输出设计在系统的输入/输出设计上遵循的是既满足用户需求又方便用户使用的原则。输入界面的设计不仅考虑数据输入窗口的格式,而且考虑如何使输入数据的错误率尽可能小,为此在程序中加入了对数据的校验和判断等功能。界面的输出要求在屏幕上显示,并能对部门员工的花名册进行Excel表格导出,为此在程序中加入导出程序。4.5数据库设计本系统的数据库采用Microsoft Office Access 200

16、3,并用采用ADOC对象模型访问数据库,且使用Recordest对象操作记录。五、系统实施5.1系统登录界面的代码及设计 当运行此软件时出现如上图所示的登录对话框,相关属性如下表:控件属性属性取值Frame text 请输入用户名和密码Label1 text 用户名:Label2 text 密码:Text1 user 选中Text2 pwd 选中CmdOK text 确定CmdCancel text 取消在CmdOK控件的Click事件中输入如下的程序代码:Private Sub cmdOK_Click(Dim user As String, pwd As Stringuser = txtUs

17、er.Textpwd = TxtPwd.TextAdodc1.CommandType = adCmdTextstrSQL = Select * from 管理员密码表Where Name= & Trim(user & + AND pwd= & Trim(pwd & Adodc1.RecordSource = strSQLAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsgBox 无此用户名或密码不正确!请重新输入!ElseMsgBox 登录成功!MDIForm1.ShowUnload MeEnd IfEnd Sub在CmdCancel控件的Click事件中

18、输入如下的程序代码:Private Sub cmdCancel_Click(EndEnd Sub5.2系统主界面的代码及设计5.2.1主窗体菜单设计在Visual Basic 的工具栏中单击“工具”下的“菜单编辑器”按照下表添加菜单相关项并设置相关属性。对象属性属性值一级菜单“用户管理”标题用户管理“用户管理”的二级菜单标题用户设置(mnuYH一级菜单“档案管理”标题档案管理“档案管理”的二级菜单标题档案录入(mnuLR“档案管理”的二级菜单标题档案查询(mnuCX“档案管理”的二级菜单标题档案统计(mnuTJ“档案管理”的二级菜单标题档案维护(mnuWH“档案管理”的二级菜单标题档案输出(m

19、nuSC一级菜单“系统”标题系统“系统”的二级菜单标题重新登录(mnuLog“系统”的二级菜单标题退出系统(mnuExit“系统”的二级菜单标题关于系统(mnuAbout相关菜单代码:Private Sub MDIForm_Load(End SubPrivate Sub mnuAbout_Click(frmSplash.ShowEnd SubPrivate Sub mnuCX_Click(FormCX.ShowEnd SubPrivate Sub mnuExit_Click(Unload MeEnd SubPrivate Sub mnuLog_Click(Unload MeFormLog.Sh

20、owEnd SubPrivate Sub mnuLR_Click(FormLR.ShowEnd SubPrivate Sub mnuSC_Click(FormSC.ShowEnd SubPrivate Sub mnuTJ_Click(FormTJ.ShowEnd SubPrivate Sub mnuWH_Click(FormWH.ShowEnd SubPrivate Sub mnuYH_Click(FormYHGL.ShowEnd Sub 5.2.2主窗体状态栏设计(1从Toolbox工具箱中拖动StatusBar控件到FrmMain窗口上。(2用鼠标右击StatusBar控件,选择“属性”菜

21、单项。(3在弹出对话框中,切换到“窗体”选项卡,索引1的窗格文本设置为“档案管理信息系统”,最小宽度设置为2700.85,对齐方式为sbrLeft。(4单击“插入窗格”按钮,索引设置为2的窗格文本设置为“作者:李阜涛”,最小宽度设置为2099.90,对齐方式为sbrLeft。(5单击“插入窗格”按钮,将索引为3的窗格的自动调整大小设置为sbrSpring。(6单击“插入窗格”按钮,将索引为4的窗格宽度设置为1800.00,对齐方式为sbLeft,样式设置为sbrDate。(6单击“插入窗格”按钮,将索引为4的窗格宽度设置为1400.31,对齐方式为sbRight,样式设置为sbrTime。5.

22、3用户设置的代码及设计单击用户管理下的二级菜单,用户设置出现如下对话框: 次对话框控件的相关属性如下表:控件属性属性取值Frame1 text 查找Frame2 text 用户管理Label1 text 用户名Label2 text 用户名Label3 text 密码Text1 text 选中Text2 text 选中Text3 text 选中Command1 text 确定Command2 text 添加Command3 text 删除Command4 text 更新Command5 text 删除初始化窗体Click事件中输入如下的程序代码:Private Sub Form_Load(Te

23、xt1.Text = Text2.Text = Text3.Text = End Sub在Command1控件的Click事件中输入如下的程序代码: Private Sub Command1_Click(If Len(Text1.Text 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 管理员密码表Where Name= & Trim(Text1.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox 没有找到你要的相关

24、记录,请重新输入!Text1.Text = ElseCommand2.Enabled = FalseEnd IfElseMsgBox (请指定要查找的员工编号End IfEnd Sub在Command2控件的Click事件中输入如下的程序代码:Private Sub Command2_Click(If Len(Text2.Text 0 ThenIf Len(Text3.Text 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 管理员密码表Adodc1.Recordset.AddNewIf Adodc

25、1.Recordset.RecordCount 0 ThenAdodc1.Recordset.Fields(Name = Text2.TextAdodc1.Recordset.Fields(pwd = Text3.TextMsgBox 添加成功End IfElseMsgBox (请输入用户密码!End IfElseMsgBox (请输入用户名!End IfEnd Sub在Command3控件的Click事件中输入如下的程序代码:Private Sub Command3_Click(Dim key As IntegerIf Len(Text2.Text 0 And Len(Text2.Text

26、0 ThenIf Adodc1.Recordset.RecordCount 0 Thenkey = MsgBox(真的要删除 & Trim(Text2.Text & 的基本信息吗?, vbExclamation + vbYesNo + vbDefaultButton3If key = vbYes ThenAdodc1.Recordset.DeleteMsgBox (您的信息已成功删除End IfEnd IfElseMsgBox (请先查找信息End IfCommand2.Enabled = TrueText1.Text = Text2.Text = Text3.Text = End Sub在C

27、ommand4控件的Click事件中输入如下的程序代码: Private Sub Command4_Click(If Len(Text2.Text 0 And Len(Text2.Text 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 管理员密码表Adodc1.Recordset.Fields(Name = Text2.TextAdodc1.Recordset.Fields(pwd = Text3.TextAdodc1.Recordset.Update 更新记录MsgBox (您更改的信息已经更新

28、ElseMsgBox (请先查找信息End IfCommand2.Enabled = TrueText1.Text = Text2.Text = Text3.Text = End Sub在Command5控件的Click事件中输入如下的程序代码:Private Sub Command5_Click(FormYHGL.HideMDIForm1.ShowEnd Sub5.4档案录入的代码及设计单击档案管理下的二级菜单,档案录入出现如下对话框: 次对话框控件的相关属性如下表:控件属性属性值Label1 text 员工编号Label2 text 性别Label3 text 姓名Label4 text

29、出生年月Label5 text 部门Label6 text 职位Label7 text 政治面貌Label8 text 职称Label9 text 学历Label10 text 联系电话Label11 text 联系地址Label12 text 当前状态Text1 text 选中Text2 text 选中Text3 text 选中Text4 text 选中Text5 text 选中Combo1 text 选中Combo2 text 选中Combo3 text 选中Combo4 text 选中Combo5 text 选中Combo6 text 选中Combo7 text 选中Command1 t

30、ext 保存Command2 text 取消在Command1控件的Click事件中输入如下的程序代码: Private Sub Command1_Click(If Len(Text1.Text 0 ThenIf Len(Text2.Text 0 ThenIf Len(Combo2.Text 0 ThenIf Len(Text3.Text 0 ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 员工信息表Adodc1.Recordset.AddNewIf Adodc1.Recordset.RecordCount 0 ThenAdodc1.Recordset.Fields(员工编号 = Text1.TextAdodc1.Recordset.Fields(姓名 = Text2.TextAdodc1.Recordset.Fields(出生年月日 =