vfp专业课程设计方案报告人力资源标准管理系统.doc

Vfp课程设计汇报人力资源管理系统姓 名 张瑾、杨舒仪 学 院 人文和社会科学学院 专业班级 公共事业管理 学 号 、指导老师 陈芬 Vfp人力资源管理系统设计汇报一、系统总体计划 1、系统任务人力资源管理是全部企业、企机关所必需，功效完善及操作方便人力资源管理系统，能够大大提升管理员工作效率，立即正确反应职员基础信息及薪酬情况，本系统是依据某高等学校人力资源进行设计，关键将人力资源统计从人工直接统计解放出来，利用计算机来统计，直接取得正确信息，使职员管理工作系统化、规范化、自动化。含有较强针对性和功效性。2、系统功效本系统采取面向对象设计思想，以菜单和表单形式进行各表单调用，关键完成以下功效：（1）档案更新l 人事统计增加；l 人事统计修改；l 人事统计删除；l 人事统计浏览；（2）档案统计l 统计职员年纪情况l 统计职员政治面目l 统计职员婚姻情况l 统计职员技术职务l 统计职员文化程度l 统计职员民族情况l 统计职职员资情况（3）档案输出a.浏览查询l 查询输出个人简历l 查询输出家庭组员l 查询输出人事卡片l 查询输出社会关系b. 正确查询l 正确查询个人简历，家庭组员，人事卡片，社会关系（4）修改密码（5）报表打印l 档案统计报表打印l 档案输出报表打印3、开发和运行环境开发工具：Visual FoxPro 6.0运行环境：Windows 9x 、Windows 、Windows XP二、需求分析人力资源管理系统设计最关键是各项功效健全，使用方便简练，界面友好。本套系统能够满足管理员对职员信息浏览、修改、查询、打印、统计等多项功效，操作简易。三、系统框架统计职员年纪统计文化程度统计政治面目统计职职员资统计技术职务统计职员民族统计婚姻情况欢迎界面登陆主菜单档案统计档案更新档案输出修改密码退出人事统计更新人事统计添加人事统计删除查询输出社会关系查询输出个人简历查询输出人事卡片查询输出家庭组员退出界面正确查询四、小组组员分工数据库创建杨舒仪表和视图创建杨舒仪各表之间关系建立杨舒仪欢迎界面张瑾登录设置杨舒仪修改密码杨舒仪数据输出张瑾数据更新杨舒仪数据统计张瑾正确查询张瑾报表设计张瑾结束界面杨舒仪表单整合张瑾Bug修正张瑾杨舒仪菜单创建张瑾主程序编写张瑾系统美化张瑾杨舒仪五、系统功效模块设计1、登录模块管理员经过输入正确用户名、密码、等级方可进入到主菜单,进入人事档案浏览、更新、统计、打印报表和修改密码等表单。2、档案更新模块（1）增加人事统计。可直接添加人事统计，依据提醒输入新人事数据，点击确定按钮保留至rskp表，代号反复时会有提醒，退出返回主菜单；（2）修改人事统计。浏览人事统计过程中，随时能够经过点击编辑按钮进行修改，点击保留可保留修改后统计，退出返回主菜单；（3）删除人事统计。浏览人事统计过程中，随时能够经过点击删除按钮删除这一条统计，退出返回主菜单。3、档案输出模块四张查询表单分别用于浏览输出职员个人简历、社会关系、家庭组员和人事基础信息，并可进行报表打印。一张表单正确查询，输出任一代号人员相关信息。4、档案统计模块 依据职员年纪、文化程度、技术职务、政治面貌、婚姻情况、民族、工资和进行统计。5、修改密码模块密码修改功效，该功效方便了用户对于本身密码定时修改要求，确保了信息安全。六、数据库设计1、数据库表结构设计本系统建立数据库后，数据库中关键包含五个数据表：人事基础信息表、个人简历表、家庭组员信息表、社会关系信息表、管理人员表，其字段属性以下：人事基础信息表rskp字段名标题字段类型宽度小数位数dh代号字符型4bm部门字符型8xm姓名字符型8xb性别字符型2xrzw现任职务字符型10csny出生年月日期型8mz民族字符型8jg籍贯字符型10zzmm政治面目字符型8zc职称字符型6whcd文化程度字符型4jkzk健康情况字符型4jtcs家庭出身字符型10brcf本人成份字符型4hyzk婚姻情况字符型4cjgzsj参与工作时间日期型8jbdwsj进本单位时间日期型8gz工资数值型62gzbt工资补助数值型62jtzz家庭住址字符型20nl年纪数值型4bz备注字符型40bh编号数值型1zh职号数值型3dm代码数值型1家庭组员表jtcy字段名标题字段类型宽度小数位数dh代号字符型4ybrgx和本人关系字符型4csny出生年月日期型8hyzk婚姻情况字符型8whcd文化程度字符型8zzmm政治面目字符型8gzdw工作单位字符型10zwgz职务工种字符型10gz工资数值型62jjly经济起源字符型10社会关系表shgx字段名标题字段类型宽度小数位数dh代号字符型4gxxm关系姓名字符型6ybrgx和本人关系字符型4zzmm政治面目字符型4gzdw工作单位字符型20zwgz职务工种字符型6bz备注字符型20个人简历表grjl字段名标题字段类型宽度小数位数dh代号字符型4kssj开始时间日期型8xm结束时间日期型8gzdw工作单位字符型20drzw担任职务字符型10管理人员表glry字段名标题字段类型宽度小数位数xm姓名字符型8mm密码字符型6dj等级字符型22、关系设计七、表单介绍及关键程序代码本系统有24张表单，依据修要对每张表单autocenter、caption、fontsize、titlebar等属性，并对表单进行了界面修饰和美化。关键表单有以下1、 欢迎界面运行“人力资源管理系统”可实施文件，首先会显示一个动态很漂亮欢迎界面。经过设置计时器，其标签“欢迎登录人力资源管理系统”从左上角缓缓移动至右下角，登录界面出现。timer1事件代码：if thisform.label1.left=150 thisform.label1.left=thisform.label1.left+4 thisform.label1.top=thisform.label1.top+10else thisform.release do form 欢迎登录endif2、 登录界面输入正确管理员姓名、密码和等级显示“登录成功”，进入主菜单。假如不输入则会显示“姓名或密码不能为空，请重新输入”，假如输入错误，则会显示“用户不存在或密码等级错误”。“登录”按钮click事件代码：USE glryIF EMPTY(THISFORM.TEXT1.VALUE).or.empty(THISFORM.TEXT2.VALUE)MESSAGEBOX(用户名或密码不能为空，请重新输入,48,系统提醒)thisform.text2.SetFocusELSElocate for alltrim(glry.xm)=alltrim(thisform.text1.value) and alltrim(glry.mm)=alltrim(thisform.text2.value) and alltrim(glry.dj)=alltrim(thisform.text3.value) IF FOUND()MESSAGEBOX(成功)do form 菜单thisform.releaseELSEMESSAGEBOX(用户不存在或密码等级错误,46,系统提醒)thisform.text1.Value=thisform.text2.Value=thisform.text3.value=thisform.text2.SetFocusENDIFENDIF3、 主菜单主菜单是用户进入系统后关键接触界面，由它能够进入各个功效模块。分别单击按钮“档案更新”、“档案更新”、“档案输出”、“修改密码”可进入和之相对应功效模块，单击“退出”按钮退出本系统。为使界面不至于单调，给主界面加入图片作为背景。4、档案更新档案更新模块包含了“人事统计增加”、“人事统计修改”、“人事统计删除”多个功效模块，单击进入使用而且左侧会出现主菜单简练版（见下图）。单击“退出”即出现结束界面，退出本系统。（1）人事统计增加人事统计表单“确定”按钮click事件代码：set exclusive onselect rskpif empty(alltrim(thisform.text1.value) messagebox(代号不能为空,48,错误) thisform.text1.setfocuselse dh1=alltrim(thisform.text1.value) xm1=alltrim(thisform.text2.value) xrzw1=alltrim(thisform.text3.value) mz1=alltrim(thisform.text4.value) zzmm1=alltrim(thisform.text5.value) whcd1=alltrim(thisform.text6.value) jtcs1=alltrim(thisform.text7.value) bm1=alltrim(thisform.text8.value) xb1=alltrim(thisform.text9.value) csny1=ctod(allt(thisform.text10.value) jg1=alltrim(thisform.text11.value) zc1=alltrim(thisform.text12.value) jkzk1=alltrim(thisform.text13.value) brcf1=alltrim(thisform.text14.value) gzbt1=val(allt(thisform.text15.value) gz1=val(allt(thisform.text16.value) zh1=val(allt(thisform.text17.value) hyzk1=alltrim(thisform.text18.value) jtzz1=alltrim(thisform.text19.value) bh1=val(allt(thisform.text20.value) dm1=val(allt(thisform.text21.value) bz1=allt(thisform.text22.value) jbdwsj1=ctod(allt(thisform.text23.value) cjgzsj1=ctod(thisform.text24.value) nl1=val(allt(thisform.text25.value) set order to dh seek dh1 if !found() insert into rskp (dh,xm,xrzw,mz,zzmm,whcd,jtcs,bm,xb,csny,jg,zc,jkzk,brcf,gzbt,gz,zh,hyzk,jtzz,bh,dm,bz,jbdwsj,cjgzsj,nl)value(dh1,xm1,xrzw1,mz1,zzmm1,whcd1,jtcs1,bm1,xb1,csny1,jg1,zc1,jkzk1,brcf1,gzbt1,gz1,zh1,hyzk1,jtzz1,bh1,dm1,bz1,jbdwsj1,cjgzsj1,nl1) messagebox(添加成功！,48,信息) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value= thisform.text15.value= thisform.text16.value= thisform.text17.value= thisform.text18.value= thisform.text19.value= thisform.text20.value= thisform.text21.value= thisform.text22.value= thisform.text23.value= thisform.text24.value= thisform.text25.value= else messagebox(此代号已存在，请另输一个,48,错误) thisform.text1.value= thisform.text1.setfocus endifendif“取消”按钮click事件代码：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value= thisform.text15.value= thisform.text16.value= thisform.text17.value= thisform.text18.value= thisform.text19.value= thisform.text20.value= thisform.text21.value= thisform.text22.value= thisform.text23.value= thisform.text24.value= thisform.text25.value=thisform.text1.setfocus“退出”按钮click事件代码：thisform.releasedo form 档案更新（2）人事统计修改Init事件代码：thisform.text1.readonly=.t.thisform.text2.readonly=.t.thisform.text3.readonly=.t.thisform.text4.readonly=.t.thisform.text5.readonly=.t.thisform.text6.readonly=.t.thisform.text16.readonly=.t.thisform.text17.readonly=.t.thisform.text18.readonly=.t.thisform.text19.readonly=.t.thisform.text20.readonly=.t.thisform.text21.readonly=.t.thisform.text7.readonly=.t.thisform.text8.readonly=.t.thisform.text9.readonly=.t.thisform.text10.readonly=.t.thisform.text11.readonly=.t.thisform.text12.readonly=.t.thisform.text13.readonly=.t.thisform.text14.readonly=.t.thisform.text15.readonly=.t.thisform.text22.readonly=.t.thisform.text23.readonly=.t.thisform.text24.readonly=.t.thisform.text25.readonly=.t.“第一个”按钮click事件代码：goto topmand1.enabled=.f.mand2.enabled=.f.mand3.enabled=.t.mand4.enabled=.t.thisform.refresh“前一个”按钮click事件代码：mand3.enabled=.t.mand4.enabled=.t.if not bof()skip-1if recno()=1 mand1.enabled=.f. mand2.enabled=.f. messagebox(已经到第一条统计了！,64,提醒) endifendifthisform.refresh“下一个”按钮click事件代码：mand1.enabled=.t.mand2.enabled=.t.if not eof()skip 1if recno()=reccount()mand3.enabled=.f.mand4.enabled=.f. messagebox(已经到最终一条统计了！,64,提醒)endifendifthisform.refresh“最终一个”按钮click事件代码：goto bottommand1.enabled=.t.mand2.enabled=.t.mand3.enabled=.f.mand4.enabled=.f.thisform.refresh“编辑”按钮click事件代码：thisform.text2.readonly=.f.thisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.readonly=.f.thisform.text6.readonly=.f.thisform.text16.readonly=.f.thisform.text17.readonly=.f.thisform.text18.readonly=.f.thisform.text19.readonly=.f.thisform.text20.readonly=.f.thisform.text21.readonly=.f.thisform.text7.readonly=.f.thisform.text8.readonly=.f.thisform.text9.readonly=.f.thisform.text10.readonly=.f.thisform.text11.readonly=.f.thisform.text12.readonly=.f.thisform.text13.readonly=.f.thisform.text14.readonly=.f.thisform.text15.readonly=.f.thisform.text22.readonly=.f.thisform.text23.readonly=.f.thisform.text24.readonly=.f.thisform.text25.readonly=.f.“保留”按钮click事件代码：sele rskplocate for dh=allt(thisform.text1.value) repl xm with allt(thisform.text2.value) repl xrzw with allt(thisform.text3.value) repl mz with allt(thisform.text4.value) repl zzmm with allt(thisform.text5.value) repl whcd with allt(thisform.text6.value) repl jtcs with allt(thisform.text7.value) repl bm with allt(thisform.text8.value) repl xb with allt(thisform.text9.value) repl csny with thisform.text10.value repl jg with allt(thisform.text11.value) repl zc with allt(thisform.text12.value) repl jkzk with allt(thisform.text13.value) repl brcf with allt(thisform.text14.value) repl gzbt with thisform.text15.value repl gz with thisform.text16.value repl zh with thisform.text17.value repl hyzk with allt(thisform.text18.value) repl jtzz with allt(thisform.text19.value) repl bh with thisform.text20.value repl dm with thisform.text21.value repl bz with thisform.text22.value repl jbdwsj with thisform.text23.value repl cjgzsj with thisform.text24.value repl nl with thisform.text25.valuethisform.text2.readonly=.t.thisform.text3.readonly=.t.thisform.text4.readonly=.t.thisform.text5.readonly=.t.thisform.text6.readonly=.t.thisform.text16.readonly=.t.thisform.text17.readonly=.t.thisform.text18.readonly=.t.thisform.text19.readonly=.t.thisform.text20.readonly=.t.thisform.text21.readonly=.t.thisform.text7.readonly=.t.thisform.text8.readonly=.t.thisform.text9.readonly=.t.thisform.text10.readonly=.t.thisform.text11.readonly=.t.thisform.text12.readonly=.t.thisform.text13.readonly=.t.thisform.text14.readonly=.t.thisform.text15.readonly=.t.thisform.text22.readonly=.t.thisform.text23.readonly=.t.thisform.text24.readonly=.t.thisform.text25.readonly=.t.（3）人事统计删除Init事件代码同“人事统计编辑”表单“第一个”、“前一个”、“下一个”、“最终一个”按钮click事件代码同“人事统计修改表单”。“删除”按钮click事件代码：use rskp exclusivemb=messagebox(确定要删除吗？,1+64,提醒)if mb=1 delete from rskp where dh=thisform.text1.value pack messagebox(删除成功,64,提醒)endifgo topthisform.refresh5、档案统计点击对应命令按钮进入对应统计表单。比如：“统计技术职务”按钮click事件代码：thisform.releasedo form 技术职务统计点击进入以下界面：此表数据环境为：rskp“统计”代码为：select rskpdo case case empty(thisform.text1.value) and empty(bo1.value) select bm as 部门,zc as 职称,count(*) as 人数 from rskp group by bm,zc order by bm into cursor tj2 case !empty(bo1.value) and empty(thisform.text1.value) select bm as 部门,zc as 职称,count(*) as 人数 from rskp where zc=bo1.value group by bm order by bm into cursor tj2 case !empty(thisform.text1.value) and empty(bo1.value) select bm as 部门,zc as 职称,count(*) as 人数 from rskp where bm=thisform.text1.value group by zc order by bm into cursor tj2 case !empty(thisform.text1.value) and !empty(bo1.value) select bm as 部门,zc as 职称,count(*) as 人数 from rskp where bm=thisform.text1.value and zc=bo1.value group by zc order by bm into cursor tj2 endcasethisform.grid1.visible=.t.thisform.grid1.recordsourcetype=1thisform.grid1.recordsource=tj2thisform.grid1.column1.width=75thisform.grid1.column2.width=75thisform.grid1.column3.width=75thisform.refresh表格recordsourcetype属性为4SQL说明，下拉组合框rowsourcetype属性设置为3SQL语句，rowsource为select distinct zc from rskp into cursor zc在text1中输入“英语”，职称中选择“中级”，点击“统计”，结果以下：其它统计报表原理和此相同。6、档案输出点击对应命令按钮进入对应统计表单。比如：“查询输出社会关系”按钮click事件代码：thisform.releasedo form 查询输出社会关系点击进入下面表单：此表数据环境为shgx和rskpText1controlsource为rskp.dh,Text2controlsource为rskp.bm,Text3controlsource为rskp.xm,Grid1recordsource为temp1Recordsourcetype为1-别名Commandgroup1click事件代码为：select rskpdo case case this.value=1 go top mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. thisform.refresh case this.value=2 mand3.enabled=.t. mand4.enabled=.t. skip -1 if recno()=1 mand1.enabled=.f. mand2.enabled=.f. endif thisform.refresh case this.value=3 mand1.enabled=.t. mand2.enabled=.t. skip if recno()=reccount() mand3.enabled=.f. mand4.enabled=.f. endif thisform.refresh case this.value=4 goto bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. thisform.refresh case this.value=5 report form 社会关系.frx for alltrim(shgx.dh)=ALLTRIM(ThisForm.text1.value) preview case this.value=6 thisform.release do form 档案输出 case this.value=7 select shgx x=thisform.text1.value thisform.grid1.recordsourcetype=4