人事部管理系统详细设计说明书.doc

人事部管理系统详细设计说明书一 课题的提出：系统规划说明书现代生活节奏的加快，科学技术的飞速发展，对人事部管理系统的要求越来越高，但是我们公司并没有一套完善的人事部管理系统。本公司的管理工作主要是简单的WORD文档的使用等，其操作方法简单，功能却很不完善，简明性和实用性都较差。所以，我们决定利用这次作业的机会，开发一套专门适用于公司管理工作的数据库系统。二 人事部管理系统开发概述 在开发人事部系统的时候，我分析并比较了当前流行的几种系统开发方法，认为“生命周期法”是MIS开发的基本方法。尽管这种方法有许多不足之处，但他的基本思想，开发步骤，开发工具是可以遵循和使用的经过研究分析，我们将系统分为三大菜单部分：分别为员工信息管理，员工工资管理，系统管理三部分，便于公司领导对公司情况的了解和管理。其中我们把主要的侧重点放在员工信息管理方面。而在员工信息管理中又分为员工数据维护和员工信息查询两个分支，系统管理中分为操作员管理，口令设置，权限管理，系统日志，数据备份，数据恢复，退出系统等七部分。三大菜单部分紧密联系，有一个核心数据库，数据库中包含员工数据维护管理表和员工工资查询表。如下图所示(图1)系统Work.dbcYgsjwh.dbfYggz.dbf三系统功能分析 需求分析的任务就是要详细调查现实世界要处理的对象，充分了解原系统的工作概况，明确用户的各种需求，然后在此基础上确定新的系统的功能。为此，综合考虑现代管理部门的实际情况，人事部管理系统包括员工信息管理，员工工资管理，系统管理等。设计该系统的目的就是利用计算机的快速查询和运算功能，替代管理人员对数据的手工处理。四. 系统说明书（系统功能模块设计）公司管理系统基于FOXPRO 6.0中文版开发。FOXPRO在数据库开发方面具有方便，实用，简单，直接等优点。同时其也具有一定的局限性。本系统主要面向公司指导员和公司员工开发使用，因此主要侧重于系统的实用性和方便性。同时在安全性方面，我们也十分重视。(一)、系统界面的设计，我们主要是本着实用简便的原则设计制作。在员工信息管理中分为员工数据维护和员工信息查询两个菜单项，在员工工资管理中含有工资查询菜单项，在系统管理中分为：操作员管理、口令设置、权限管理、系统日志、数据备份、数据恢复、 退出系统七项。下面是系统的首界面(图2)(图2)系统界面中有登陆系统按钮，系统使用人员可以点击进入密码验证页，如果在一分钟内用户没有点击此按钮，系统会自动跳到密码验证页。此程序的实现代码会在详细设计书中说明。(二)、密码验证作为系统最基本的安全管理步骤。用户如果不输入合法的用户名和密码，系统是不能进入的。当用户输入合法的用户名和密码时，使用户的操作具有合法性。密码验证页包括操作员姓名和密码两个部分。具体的代码实现也将在详细设计书说明。下面是密码登陆页的图示(图3)“登入”按钮的CLICK代码：if thisform.text1.value=陈丽玲 and thisform.text2.value=123456 do form main.scxelse=messagebox(你的用户名或密码错误!)endif下面为本系统的使用数据流程图操作系统系统主界面系统登入界面主菜单员工信息管理管理管理管理员工工资管理，管理理系统管理员工信息查询员工数据维护员工工资查询口令设置权限管理系统日志数据备分操作员管理数据恢复退出系统用户名密码错误五数据库设计A.数据库的组成各表分别为：Ygsjwh.dbf和 Yggz.dbf B:数据表的结构如下： 1. Ygsjwh.dbf2. Yggz.dbf六详细设计说明书根据系统规划和需要分析，把系统划分为员工信息管理，员工工资查询，系统管理三个模块。本系统用到的主要有以下文件：启动界面(封面) main.scx、系统登录界面(口令验证窗口)pass.scx、，主菜单menu.mpr。程序的调用关系如下：调用界面表单main.scx，封面中调用“口令验证窗口”表单pass.scx，口令正确则调用系统菜单menu.mpr。各菜单项调用相对应的表单。(一)系统登陆表单设计界面用户在文本框输入操作员及口令，若正确则调用系统主界面(菜单)。允许输入三次，若三次均不正确刚自动退出系统。若用户输入的操作员姓名及口令正确，要完成下列工作：(1) 设置一个全局变量operat,用于记录登陆系统的操作员姓名，系统中有3个地方要用到操作员的姓名和代号：一是进入主界面后在标题栏显示的操作员姓名；二是操作员在系统管理模块的口令设置中更改自己的口令，系统要知道是哪个操作员；三是退出系统时系统日志中要记录操作员的退出时间。(2) 调用菜单文件，显示系统主界面。事件代码：Form1的init事件代码：SET EXACT ON &精确比较PUBLIC ARRAY rr18 &数组用于实现菜单项权限PUBLIC i &i用于记录用户名及口令输入次数*判断密码是否正确i=i+1SELECT czyglLOCATE FOR 用户名=ALLTRIM(THISFORM.Text1.Value)DO CASE CASE i=3 AND FOUND() AND THISFORM.Text2.Value=operator.口令 &输入次数未超过3次且用户名正确、口令正确 用户名=THISFORM.Text1.Value INSERT INTO log(用户名姓名,) VALUES(.用户名姓名,DATETIME() _SCREEN.Caption人事部管理系统+SPACE(40)+DTOC(DATE()+SPACE(40)+用户名：+operat RELEASE THISFORM DO .main_menu.mpr CASE i=3 AND FOUND() AND THISFORM.Text2.Value!=operator.口令 &输入次数未超过3次且用户名正确、口令不正确 MESSAGEBOX(密码错误,请重输!,警告) THISFORM.Text2.Value= THISFORM.Text2.Setfocus CASE i=3 AND NOT FOUND() &输入次数未超过3次且用户名不正确 MESSAGEBOX(用户名错误,请重输!,警告) THISFORM.Text1.Value= THISFORM.Text2.Value= THISFORM.Text1.Setfocus THISFORM.ReleaseENDCASE 退出按钮(COMMAND2)CLICK事件代码：RELEASE THISFORMCLEAR EVENTS（二）.系统菜单设计 1. 人事部管理系统的菜单在应用系统中，各个模块是通过菜单组织在一起的。通过对员工信息管理系统功能模块的设计，可以交系统划分为3大模块：员工信息管理、员工工资查询、系统管理，具体的菜单设计见下表：员工信息管理员工工资管理系统管理员工数据维护员工工资查询操作员管理口令设置员工信息查询权限管理系统日志数据备份数据恢复退出系统2.在菜单设计器中实现权限设置在菜单项设计器中，通过提示选项对话框设置菜单项的跳过条件可以实现用户权限。3.员工数据维护表单包换下列功能：数据录入、修改、删除、查询、浏览、保存、打印等。本表单左边是浏览窗口，便于用户浏览数据；右边是编辑窗口，主要用于输入修改数据。4.在表单数据环境中添加表：yggz.dbf、ygsjwh.dbf。员工数据维护表和员工工资表的结构请打开数据库表查看。在表单数据环境的BRFOREOPENTABLES事件中添加代码：this.cursor1.exclusive=.t.5.事件代码：FORM1的INIT事件代码：THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.T.THISFORM.TEXT1.READONLY=.T.THISFORM.TEXT2.READONLY=.T.THISFORM.TEXT3.READONLY=.T.THISFORM.TEXT4.READONLY=.T.THISFORM.TEXT5.READONLY=.T.THISFORM.GRID1.READONLY=.T.THISFORM.COMMAND1.visible=.T.GRID1的afterrowclochange事件代码：LPARAMETERS nColIndexthis.setall(dynamicbackcolor,IIF(This.activerowrecno(),rgb(255,255,255),rgb(0,255,0),column)select ygsjwhthisform.refresh 此代码实现不现颜色显示选中的GRID对象的行及列。“第一个“按钮的CLICK事件代码：select ygsjwhgo mandgroup1.cmdtop.enabled=.mandgroup1.cmdprev.enabled=.f.if not eof()mandgroup1.cmdnext.enabled=.t.endifthisform.refresh“前一个“按钮的CLICK事件代码：select ygsjwhskip -1if bof()go mandgroup1.cmdtop.enabled=.mandgroup1.cmdprev.enabled=.f.endifif not eof()mandgroup1.cmdnext.enabled=.t.endifthisform.refresh“下一个“按钮的CLICK事件代码：select ygsjwhskipif eof()go mandgroup1.cmdnext.enabled=.f.endifif not bof()mandgroup1.cmdtop.enabled=.mandgroup1.cmdprev.enabled=.t.endifthisform.refresh“增加“按钮的CLICK事件代码：if this.caption=增加this.caption=保存THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.T.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.F.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.F.THISFORM.TEXT1.READONLY=.F.THISFORM.TEXT2.READONLY=.F.THISFORM.TEXT3.READONLY=.F.THISFORM.TEXT4.READONLY=.F.THISFORM.TEXT5.READONLY=.F.THISFORM.COMMAND1.VISIBLE=.F.SELECT YGSJWHAPPEND BLANKGO BOTTOMTHISFORM.TEXT1.SETFOCUS()THISFORM.REFRESHELSETHIS.CAPTION=增加THISFORM.COMMANDGROUP1.CMDTOP.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDPREV.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDNEXT.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDADD.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDDELETE.ENABLED=.t.THISFORM.COMMANDGROUP1.CMDEXIT.ENABLED=.t.THISFORM.TEXT1.READONLY=.t.THISFORM.TEXT2.READONLY=.t.THISFORM.TEXT3.READONLY=.t.THISFORM.TEXT4.READONLY=.t.THISFORM.TEXT5.READONLY=.mand1.visible=.t.endif“删除“按钮的CLICK事件代码：SELECT YGSJWHYH=YGSJWH.职工号sel=messagebox(该记录学号为：+YH+chr(13)+真的要删除吗?,4+32+256,提示)if sel=6deleteendif“退出“按钮的CLICK事件代码：select ygsjwhpackthisform.release6、运行界面：7、员工工资查询菜单的设计员工人事信息的查询是基于YGSJWH.dbf表，菜单提供职工号，姓名，全体查询。分别利用不同的命令代码方式实现查询打印功能。功能是便于指导员和员工用户的检索查询。各事件的代码如下：FORM1的INIT事件代码：*输入编号、姓名提示标签及文本框THISFORM.Label2.Visible=.F.THISFORM.Text1.Visible=.F.THISFORM.Text1.Setfocus()Optiongroup1的CLICK事件代码：*选定查询类别后，设置各控件是否可见DO CASE CASE THIS.Value=1 &按职工号查询 THISFORM.Label2.Visible=.T. THISFORM.Text1.Visible=.T.THISFORM.Command1.Visible=.F. THISFORM.Label2.Caption=请输入要查询的学号： THISFORM.Text1.Value= THISFORM.Text1.Setfocus CASE THIS.Value=2 &按姓名查询 THISFORM.Label2.Visible=.T. THISFORM.Text1.Visible=.T.THISFORM.Command1.Visible=.F. THISFORM.Label2.Caption=请输入姓名： THISFORM.Text1.Value= THISFORM.Text1.Setfocus() CASE THIS.Value=4 &显示全体记录 THISFORM.Label2.Visible=.F. THISFORM.Text1.Visible=.F.THISFORM.Command1.Visible=.F. SET FILTER