作品详情

5.1　整体结构设计

人事档案管理系统主要包含职工个人自然情况，工作情况，简历，学历情况等各方面信息，内容比较简单。同时还综合考虑档案管理工作的性质，总结归纳出所需实现的功能。主要是为人事信息进行服务，对员工的变动、员工资料、以及员工资料的查询，统计等功能。总体上说具有编辑，查询，员工管理，统计等功能。

灵活的数据记录编辑功能，可以随时对记录进行增加，修改，删除， 等编辑操作。并将查询方式有机溶入查询界面，可以实现对某项记录定位。

多个数据库表的任意组合条件的查询。便于在实际档案管理操作中呆对保种情况，多种条件下的人员情况进行统计查看。

具有比较友好的人机界面，各种操作可以在直观的界面上通过人机交互式进行。

管理员功能，对员工信息进行添加，修改，删除操作。

5.2 主要结构（或功能）的设计

功能：用户登录进入人事管理系统。系统启动后，首先要做的就是用户登录。若不登录系统，所有功能都无法使用。用户只有登录系统后，根据其具有的权限，才能执行一定的操作。

操作：进入该功能后，要求输入员工的登录名及其口令，只有其登录名和口令完全正确，才能进入人事管理信息系统。系统会根据为用户分配的权限，设置其对应的功能为有效，用户就可操作该功能。

5.3各种功能

一个企业的员工都很需要简便的方法来查询自己想要了解的东西于是就生成了查询，只要员工把想查询的条件输入变能显现结果

查找功能:对人员信息的查询功能，包括唯一条件查询和多条件查询。

查找按钮功能。会调出另外一个窗口来显示用户所要查询的符合条件的所有员工的资料。根据信息中的各字段，选择相应的条件操作符输入相应的值即可进行信息查询。该模块的主要分为两部分：一是完成选择要查找的字段、条件操作符等功能；二是用来显示用户进行查询的完整条件及查询、退出按钮。当查找的条件选择完毕，点击查找按钮，在显示部分显示出来后，点击查找按钮才正式完成该模块的查找功能。

打印功能：员工自定义的其它资料打印；职工列表打印，表栏内容可任意调整，职工信息的任意选入；部门列表打印，以树状结构显示所有部门的分支信息。

选中一张表，点击打印。

在默认情况下，打印服务的与活动目录的集成意味着用户能够访问限制范围内的所有打印服务器，浏览满足自己需求的打印机。使用包含标准的服务器和具有逻辑的打印机命名规范将会使企业收益最大化，使用一个仔细研究的打印机名称标准、描述和位置标签将会为企业提供一个非常容易访问和高效的打印环境。

5.4操作界面设计和代码

Ø 封面与代码

本系统采用的数据库是JSP数据库，使用是JSP代码访问方式,它通过在程序中的一段代码与数据库建立连接。

　代码设置如下：

按钮“进入系统”代码设计如下

do form 登陆界面

*read events

thisform.release

如果不相进入系统点击“退　　出”代码如下：

thisform.release

clear events

滚动字幕的设置通过一个时间按钮来控制，具体代码如下：

ifthisform.label5.left=thisform.width

  　　thisform.label5.left=0

else

  　　thisform.label5.left=thisform.label5.left+1

endif

i=int(rand()*255)

j=int(rand()*255)

k=int(rand()*255)

thisform.label1.forecolor=rgb(i,j,k)

Ø 登入界面与代码

在这个界面中利用了与表的绑定，可以根据原先设置的名字和相应的密码，这样经过系统的验证便可进入人事管理系统了。

绑定与表中相应的字段，只需右击生成器，选择表和字段就可以了。

u  按钮“确定”代码设计如下：

ifthisform.text2.value="123"

   messagebox("欢迎进入人事管理系统")

   do form "主界面"

   else

   messagebox("密码不正确,请重新输入")

   thisform.text2.value=""

   endif

thisform.release

u  在对象按扭“取消” 代码设计如下：

thisform.release

clear events

Ø  主界面与代码

在这个界面里可以操作增，删，改等操作，主要的功能都是在这个界面当中。

²  “增加记录”的界面与代码如下：

如果新进一个员工，在这个表单中就可以增加相应的信息，以便日后管理和查找方便。

u  “增加记录”的代码如下：

do form 增加记录

　　thisform.release

u  “确定”的代码如下：
if empty(alltrim(thisform.txtID.value))

  messagebox("职员号不能为空",48,"错误")

  thisform.txtID.setfocus

else

  inID=alltrim(thisform.txtID.value)

  inName=alltrim(thisform.txtName.value)

  inSex=alltrim(thisform.txtSex.value)

  inBirth=alltrim(thisform.txtBirth.value)

  inLearn=alltrim(thisform.txtLearn.value)

 inPolitics=alltrim(thisform.txtPolitics.value)

  inPhone=alltrim(thisform.txtPhone.value)

  inAddress=alltrim(thisform.txtAddress.value)

  inDepartment=alltrim(thisform.txtDepartment.value)

 inFunction=alltrim(thisform.txtFunction.value)

  inDate=alltrim(thisform.txtDate.value)

  inMemo=alltrim(thisform.edtMemo.value)

  set order to 职员号

  seek inID

  if !found()

    insert into 职员信息表 value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo)

    messagebox("添加成功！",48,"信息")

    thisform.txtID.value=''

    thisform.txtName.value=''

    thisform.txtSex.value=''

    thisform.txtBirth.value=''

    thisform.txtLearn.value=''

    thisform.txtPolitics.value=''

    thisform.txtPhone.value=''

    thisform.txtAddress.value=''

    thisform.txtDepartment.value=''

    thisform.txtFunction.value=''

    thisform.txtDate.value=''

    thisform.edtMemo.value=''

  else

    messagebox("此职员号已存在，请另输一个",48,"错误")

    thisform.txtID.value=''

    thisform.txtID.setfocus

  endif

u  “取消“的代码如下：

thisform.txtID.value=''

thisform.txtName.value=''

thisform.txtSex.value=''

thisform.txtBirth.value=''

thisform.txtLearn.value=''

thisform.txtPolitics.value=''

thisform.txtPhone.value=''

thisform.txtAddress.value=''

thisform.txtDepartment.value=''

thisform.txtFunction.value=''

thisform.txtDate.value=''

thisform.edtMemo.value=''

thisform.txtID.setfocus

u  “退出”的代码如下：

thisform.release

do form 主界面

²  “修改记录”的界面与代码如下：

在这个修改的界面中，能过一个命令组按钮可以选择修改员工的信息，也可以通过查找员工的职员号进行相应的修改。

u   “查找”的代码如下：

set orderto 职员号

seekalltrim(thisform.text1.value)

if!found()

  messagebox("该职员号不存在",48,"错误")

  go top

endif

thisform.text1.value=''

thisform.refresh

u  “退出”的代码如下：

thisform.release

do form 主界面

²  “删除记录”的界面与代码如下：

在此删除界面中，可以删除相应员工的信息，可通过查找按钮查找要删除的记录，然后点击“删除这条记录”即可。

u  “删除这条记录”的代码如下：

nAnswer=messagebox("确定要删除吗？",36,"信息")

ifnAnswer=6

  thisform.dataenvironment.closetables('职员信息表')

  use 职员信息表 exclusive

  delete from 职员信息表 where 职员号=alltrim(thisform.txtID.value)

  pack

  use

  thisform.dataenvironment.opentables('职员信息表')

  thisform.refresh

endif

u  “退出”的代码如下：

thisform.release

do form 主界面

²  “查询”的界面与代码如下：

在这个查询的界面中，可以通过查询条件中的“职员号”、“姓名”、“所属部门”进行所需查找。也可通过一览表浏览相应记录。

u   “查询”的代码如下：

getid=alltrim(thisform.text1.value)

getname=alltrim(thisform.text2.value)

getdepart=alltrim(thisform.combo1.value)

flag1=thisform.check1.value

flag2=thisform.check2.value

flag3=thisform.check3.value

ifflag1=0 and flag2=0 and flag3=0

  messagebox("请输入查询条件",48,"错误")

endif

ifflag1=1 and flag2=0 and flag3=0

  select * from 职员信息表 where 职员号=getid

endif

ifflag1=0 and flag2=1 and flag3=0

  select * from 职员信息表 where 姓名=getname

endif

ifflag1=0 and flag2=0 and flag3=1

  select * from 职员信息表 where 所属部门=getdepart

endif

ifflag1=1 and flag2=1 and flag3=0

  select * from 职员信息表 where 职员号=getid and 姓名=getname

endif

ifflag1=1 and flag2=0 and flag3=1

  select * from 职员信息表 where 职员号=getid and 所属部门=getdepart

endif

ifflag1=0 and flag2=1 and flag3=1

  select * from 职员信息表 where 姓名=getname and 所属部门=getdepart

endif

if flag1=1and flag2=1 and flag3=1

  select * from 职员信息表 where 职员号=getid and 姓名=getname and 所属部门=getdepart

endif

u  “一览”的代码如下：

select *from 职员信息表

u  “退出”的代码如下：

thisform.release

do form 主界面

²  “报表打印”的界面与代码如下：

u  “确定”的代码如下：

do case

  case thisform.optiongroup1.option2.value=1

    report form 职员信息报表 to print preview

endcase

u  “退出”的代码如下：

thisform.release

do form 主界面

u  “退出”的代码如下：

thisform.release      clearevents

源文件