VFP课程设计.docVIP

数据库课程设计项目名称： 人力资源管理系统学 院： 理学院专 业： 信息与计算科学班 级：信息081班学 号：15 号姓 名：贺 路 人力资源管理系统以人力资源管理系统为例，进行实际的应用程序设计。对实际理解和掌握VFP语言以及进行实际的项目开发有很好的作用，也可以很好的锻炼我们的实践能力，使我们不止是游跃于纸上谈兵。课程设计的主要内容： 项目分析与项目设计； VFP应用程序开发； 菜单、Tree控件等的使用；人力资源管理系统功能简介1.1 系统概述 本系统概述即需求分析。人力资源管理系统通常包括人事档案的增、删、改、查、备份、统计、打印等，具体管理中还涉及到登录用户的密码保护以及根据系统用户不同的使用权限提供查询等等。本章所设计的人力资源管理系统，可以实现上述功能，能够方便、快捷、准确地获得所需的信息。1.2 系统构成整个人力资源管理系统包括如下基本功能。1. 信息管理方面（1） 数据库初始化：实现对数据库初始化功能,系统内容的备份。（2） 记录编辑：实现记录的编辑功能，包括添加、修改、保存、简单浏览等。（3） 记录删除：当某些记录已经不需要的时候，可以进行删除操作。（4） 档案备份：档案资料应该进行备份，可进行自动备份，也可还可以进行手动备份。（5） 条件查询：包括简单查询和多条件查询，能够实现实时查询，同时可以进行打印。（6） 分类统计：实现按不同标准进行的简单统计。2系统管理方面(1)更改密码：可以更改登录用户的密码。（2）用户设置：用来添加新用户，包括密码设置。（3）权限管理：根据不同的用户，设置不同的权限。（4）帮助：提供帮助信息。1.3 本系统主要文件组成 人力资源管理系统的主要功能是对记录的增、删、改、查和进行打印等。1. 表单功能模块登录模块 调用表单frmLogin.scx；系统封面模块 调用表单frmSplash.scx；主控模块 调用表单frmMain.scx；初始化模块 调用表单frmdbInt.scx；数据备份模块 调用表单frmBackup.scx；录入模块 调用表单frmAdd.scx；浏览模块 调用表单frmBrowse.scx；删除模块 调用表单frmDel.scx；图片管理模块 调用表单frmGetImg.scx；统计模块 调用表单frmtj.scx；简单查找模块 调用表单frmOneFind.scx；组合查找模块 调用表单frmMoreFind.scx；打印模块 调用表单frmPrint.scx；系统帮助模块 调用表单frmHelp.scx；系统时间模块 调用表单frmSysTime.scx；密码管理模块 调用表单frmPassword.scx；用户管理模块 调用表单frmUserset.scx。2. 菜单与报表文件系统功能菜单 MainMenu.mnx；人力信息详细报表 xxbb.frx；人力信息简单报表 rsjb.frx。1 人力资源管理系统设计2.1 规划设计数据库整个数据库worker.dbr中共有3个表，即depart(部门表)、member（职员表）、use（用户表）。分别介绍如下：1. user.dbf此表用来记录所有操作者的信息：表1 user表结构字段名称数据类型说明NAME字符型（10）登录用户的名字LEVEL字符型（9）登录用户的使用权PWD字符型（20）登录密码RECLOGIN备注型（4）记录登录信息TIMES整型（4）登录次数BACKING字符型（40）登录背景图片2. depart.dbf此表用来记录所有部门的编号和名称：表2 depart表结构字段名称数据类型说明部门编号字符(4)每个部门编号部门名称字符（16）记录部门名称 3 member.dbf此表用来记录所有人力资源信息：表3 member表结构字段名称数据类型说明职工号字符型（8）职工号，这是member的关键字，是唯一的姓名字符型（8）职工姓名曾用名字符型（8）职工曾用名性别字符型（2） 性别民族字符型（10）民族政治面貌字符型（8）政治面貌婚否字符型（4）婚否，包括已婚，未婚两种情况身份证字符型（18）身份证部门字符型（20）部门出生日期日期型（8）出生日期职务字符型（10）职务职称字符型（10）职称学历字符型（10）学历专业字符型（10）专业毕业学校字符型（20）毕业学校工作时间日期型（8）工作时间籍贯字符型（40）籍贯家庭住址字符型（40）家庭住址个人简历备注型（4）个人简历是个人发展具体情况的说明，可以有较多内容照片通用型（4）记录职工个人照片，最好是bmp格式文件2.2 登录表单设计 此功能是为了保护系统的安全性而设置的权限。1. 登录表单的运行界面 2.事件与代码（1）组合框控件cboUser的Click的事件：THISFORM.txtPwd.setfocus THISFORM.txtPwd.Value= (2)命令按钮控件cmdLogin的Click的事件：o=THISFORM.cboUserLoginName=o.valuelocate for name=LoginNameif found()LoginPwd=Pwdelse=MessageBox(用户名错误,请重新输入,0,信使服务)returnendifif THISform.txtPwd.value=alltrim(LoginPwd)LoginTime=Time()replace times with times+1replace recLogin with recLogin+LoginName+LoginTime+chr(13)useTHISFORM.release do form frmMain with LoginName,LoginTime,LoginPwd &执行主程序 else =MessageBox(密码错误!,0,信使服务)THISFORM.txtPwd.value=THISFORM.txtPwd.setfocusendif23 系统主表单设计主表单主要用于提供进行各种操作的界面平台和菜单平台，以完成对整个人力资源管理系统的控制与管理。1. 系统主表单的运行界面 图1 主功能菜单2. 系统主界面菜单的设计其中，“档案管理”菜单项包括：数据库初始化；记录浏览；记录编辑；记录删除；档案备份；退出系统。 “查询打印”菜单项包括：简单查询打印；多条件查询打印；记录打印；分类统计。“系统维护”菜单项包括：更改密码；用户设置；系统日期；帮助。表单与控件的属性 从主表单frmMain的设计界面上可以看到，表单中共包括如下两个控件：图象控件Imgback、状态控件olcStatus.（1）表单frmMain的属性：Name=frmMainAutoCenter=.t.Caption=欢迎使用人力资源管理系统!Closeable=.f.Icon=sysicon.icoShowWindow=2ShowTips=.t.(2) 图象控件Imgback的属性： Name=imqbckPicture=main.jpgStretch=2（3）状态控件olcStatus的属性。状态栏属性的设置只需要在该控间上面，单击右键，选择SBarcontrol Properties进行设置属性即可。图2显示出了设置第一个panel（欢迎状态信息）的界面和图3显示了第二个（日期）的界面。 Name=oleStatusStyle=0 功能：作为系统的状态栏，在表单的底部提供系统状态信息。 图2 3.事件与代码（1）表单控件frmMain的Init事件Parameters cName,cPwd,cTimePublic cLoqinName,CloginPwd,cLoginTimeTHISFORM.IMGBACK.left=0THISFORM.IMGBACK.top=0THISFORM.IMGBACK.width=this.widthTHISFORM.IMGBACK.height=this.heightcLoginName=cNamecLoginPwd=cPwdcLoginTime=cTimeTHISFORM.oleStatus.Panels(1).width=this.width*0.50THISFORM.oleStatus.Panels(2).width=this.width*0.20THISFORM.oleStatus.Panels(3).width=this.width*0.10THISFORM.oleStatus.Panels(4).width=this.width*0.10THISFORM.oleStatus.Panels(5).width=this.width*0.10do mainmenu.mpr with this,.t. 2.4 记录浏览表单的设计数据库浏览表单主要用来对职工数据库记录进行浏览，包括总体浏览和详细浏览。用户可以通过选择部门来进行浏览。2.5.1.表单的运行界面 2.5.2.事件与代码(1)表格控件grdBrowse的AfterRowColChange事件：THISFORM.refresh(2)文本框控件cboDepartment的InteractiveChange事件：select membercFind=alltrim(this.value)set filter to alltrim(member.部门)=cFind go top THISFORM.refresh2.5 记录添加修改表单的设计数据库添加修改表单frmAdd主要用来对职工数据库记录进行添加和修改。 1.表单的运行界面2.事件与代码（1）表单控件frmAdd的Load事件：Public cGetPic,nGetRecnocGetPic=nGetRecno=1(2)表单控件frmAdd的Init事件：THISF0RM.setall(“readonly”,.t.,ComboBox)THISF0RM.setall(“readonly”,.t.,TextBox)THISF0RM.setall(“readonly”,.t.,EditBox)(3)列表框控件lstMember的Click事件：nGetRecno=recno()THISFORM.refresh(4)命令按钮控件cmdPic的Click事件：do form.formsfrmGetlmg to cgetpicAPPEND GENERAL 照片 FROM &cGetPic link(5)命令按钮控件cmdFirst的Click事件：go topnGetRecno=recno()THISFORM.lstMember.ListItemID=nGetRecnoThis.parent.cmdFirst.enabled=.t.This.parent.cmdPre.enabled=.t.This.parent.cmdNext.enabled=.t.This.parent.cmdLast.enabled=.t.THISFORM.refresh(6)命令按钮控件cmdPre的Click事件：if bof()skipnGetRecno=1THISFORM.lstMember.ListItemID=1this.parent.cmdFirst.enabled=.f.this.parent.cmdPre.enabled=.f.this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f.else skip-1if .not.bof() nGetRecno=recno() go nGetRecno this.parent.cmdFirst.enabled=.t. this.parent.cmdPre.enabled=.t. this.parent.cmdNext.enabled=.t. this.parent.cmdLast.enabled=.t.else skip nGetRecno=1 THISFORM.lstMember.ListItemID=1this.parent.cmdFirst.enabled=.f.this.parent.cmdPre.enabled=.f.this.parent.cmdNext.enabled=.t.this.parent.cmdLast.enabled=.t.endifendifif nGetRecno1THISFORM.lstMember.ListItemID= nGetRecnoendif THISFORM.refresh(7)命令按钮控件cmdNext的Click事件：if eof()this.parent.cmdFirst.enabled=.t.this.parent.cmdPre.enabled=.t.this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f.elseskipif .not.eof() nGetRecno=recno() go nGetRecno this.parent.cmdFirst.enabled=.t. this.parent.cmdPre.enabled=.t. this.parent.cmdNext.enabled=.t. this.parent.cmdLast.enabled=.t.else this.parent.cmdFirst.enabled=.t.this.parent.cmdPre.enabled=.t.this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f. endif endifTHISFORM.lstMember.ListItemID=nGetRecnoTHISFORM.refresh(8)命令按钮控件cmdLast的Click事件：go bottomnGetRecno=recno()this.parent.cmdFirst.enabled=.t.this.parent.cmdPre.enabled=.t.this.parent.cmdNext.enabled=.f.this.parent.cmdLast.enabled=.f.THISFORM.lstMember.ListItemID=nGetRecnoTHISFORM.refresh(9)命令按钮控件cmdAdd的Click事件：if this.caption=添加 THISFORM.setall(ReadOnly,.f.,TextBox) THISFORM.setall(ReadOnly,.f.,EditBox)THISFORM.setall(ReadOnly,.f.,ComboBox)THISFORM.setall(Enabled,.f.,Commandbutton)THISFORM.cmdPic.enabled=.t.THISFORM.lstMember.enabled=.f.this.enabled=.t.this.caption=保存append blank go bottomTHISFORM.refershTHISFORM.txt职工号.setfocuselse THISFORM.setall(ReadOnly,.f.,TextBox) THISFORM.setall(ReadOnly,.f., EditBox)THISFORM.setall(ReadOnly,.f.,ComboBox)THISFORM.setall(Enabled,.f.,Commandbutton)THISFORM.cmdPic.enabled=.f.THISFORM.lstMember.enabled=.t.this.enabled=.t.this.caption=添加endif(10)命令按钮控件cmdModi的Click事件：if this.caption=添加 THISFORM.setall(ReadOnly,.f.,TextBox) THISFORM.setall(ReadOnly,.f., EditBox)THISFORM.setall(ReadOnly,.f.,ComboBox)THISFORM.setall(Enabled,.f.,Commandbutton)THISFORM.cmdPic.enabled=.t.THISFORM.lstMember.enabled=.f.this.enabled=.t.this.caption=保存append blankgo bottomTHISFORM.refreshTHISFORM.txt职工号.setfocuselse THISFORM.setall(ReadOnly,.t.,TextBox) THISFORM.setall(ReadOnly,.t., EditBox)THISFORM.setall(ReadOnly,.t.,ComboBox)THISFORM.setall(Enabled,.t.,Commandbutton)THISFORM.cmdPic.enabled=.f.THISFORM.lstMember.enabled=.t.this.enabled=.t.this.caption=添加endif2.6 简单查找表单的设计简单查找模块就是利用单一条件进行查询。本功能模块给出了按照姓名和职工号进行查询的方法。1.表单的运行界面2.事件与代码（1）表单控件frmOneSeek的Load事件：Public nGetRecnoset filter to (2)选项按钮控件og的Click事件：if this.value=1THISFORM.lblInfo.caption=”请输入姓名”else THISFORM.lblInfo.caption=”请输入职工号”endif(3)按钮控件cmdFind的Click事件：if THISFORM.og.value=1 locate for 姓名=alltrim(THISFORM.txtFind.value)else locate for 职工号=alltrim(THISFORM.txtFind.value)endifif found() nGetRecno=recno() go nGetRecno THISFORM.cmdPrint.enabled=.t.else =messagebox(“没有找到相应的记录！”,64,”温馨提示”)endifTHISFORM.refresh2.7 组合查找表单的设计 组合查找模块就是利用多个条件组合到一起进行查询，尤其对记录比较多的数据表更为适用。1.表单的运行界面2.事件与代码（1）文本框txtName的InteractiveChange事件：set exact offgetxm=ALLTRIM(THISFORM.txtName.VALUE) getzym=ALLTRIM(THISFORM.txtName2.VALUE)getzz=ALLTRIM(THISFORM.txtAddr.VALUE) getjg=ALLTRIM(THISFORM.txtAddr2.VALUE)getbm=ALLTRIM(THISFORM.comBm.VALUE)s= if len(getxm)0 s=s+姓名=getxmendifif len(getzym)0 s=s+.and+曾用名=getzymendifif len(getzz)0 s=s+.and.+家庭住址=getzzendifif len(getjg)0 s=s+.and.+籍贯=getjgendif if len(getbm)0 s=s+.and.+部门=getbmendifdo while left(s,5)=.and.OR.LEFT(s,5)=.AND. s=subst(s,6)enddoIF LEN(ALLTRIM(S)=0 SET FILTER TOELSE set filter to &s ENDIFGO TOPTHISFORM.refresh（2）文本框txtName2的InteractiveChange事件：set exact offgetxm=ALLTRIM(THISFORM.txtName.VALUE) getzym=ALLTRIM(THISFORM.txtName2.VALUE)getzz=ALLTRIM(THISFORM.txtAddr.VALUE) getjg=ALLTRIM(THISFORM.txtAddr2.VALUE)getbm=ALLTRIM(THISFORM.comBm.VALUE)s= if len(getxm)0 s=s+姓名=getxmendifif len(getzym)0 s=s+.and+曾用名=getzymendifif len(getzz)0 s=s+.and.+家庭住址=getzzendifif len(getjg)0 s=s+.and.+籍贯=getjgendif if len(getbm)0 s=s+.and.+部门=getbmendifdo while left(s,5)=.and.OR.LEFT(s,5)=.AND. s=subst(s,6)enddoIF LEN(ALLTRIM(S)=0 SET FILTER TOELSE set filter to &s ENDIFGO TOPTHISFORM.refresh（3）文本框txtAddr的InteractiveChange事件：set exact offgetxm=ALLTRIM(THISFORM.txtName.VALUE) getzym=ALLTRIM(THISFORM.txtName2.VALUE)getzz=ALLTRIM(THISFORM.txtAddr.VALUE) getjg=ALLTRIM(THISFORM.txtAddr2.VALUE)getbm=ALLTRIM(THISFORM.comBm.VALUE)s= if len(getxm)0 s=s+姓名=getxmendifif len(getzym)0 s=s+.and+曾用名=getzymendifif len(getzz)0 s=s+.and.+家庭住址=getzzendifif len(getjg)0 s=s+.and.+籍贯=getjgendif if len(getbm)0 s=s+.and.+部门=getbmendifdo while left(s,5)=.and.OR.LEFT(s,5)=.AND. s=subst(s,6)enddoIF LEN(ALLTRIM(S)=0 SET FILTER TOELSEset filter to &s ENDIFGO TOPTHISFORM.refresh（4）文本框txtAddr2的InteractiveChange事件：set exact offgetxm=ALLTRIM(THISFORM.txtName.VALUE) getzym=ALLTRIM(THISFORM.txtName2.VALUE)getzz=ALLTRIM(THISFORM.txtAddr.VALUE) getjg=ALLTRIM(THISFORM.txtAddr2.VALUE)getbm=ALLTRIM(THISFORM.comBm.VALUE)s= if len(getxm)0 s=s+姓名=getxmendifif len(getzym)0 s=s+.and+曾用名=getzymendifif len(getzz)0 s=s+.and.+家庭住址=getzzendifif len(getjg)0 s=s+.and.+籍贯=getjgendif if len(getbm)0 s=s+.and.+部门=getbmendifdo while left(s,5)=.and.OR.LEFT(s,5)=.AND. s=subst(s,6)enddoIF LEN(ALLTRIM(S)=0 SET FILTER TOELSE set filter to &s ENDIFGO TOPTHISFORM.refresh（5）文本框comBm的InteractiveChange事件：set exact offgetxm=ALLTRIM(THISFORM.txtName.VALUE) getzym=ALLTRIM(THISFORM.txtName2.VALUE)getzz=ALLTRIM(THISFORM.txtAddr.VALUE) getjg=ALLTRIM(THISFORM.txtAddr2.VALUE)getbm=ALLTRIM(THISFORM.comBm.VALUE)s= if len(getxm)0 s=s+姓名=getxmendifif len(getzym)0 s=s+.and+曾用名=getzymendifif len(getzz)0 s=s+.and.+家庭住址=getzzendifif len(getjg)0 s=s+.and.+籍贯=getjgendif if len(getbm)0 s=s+.and.+部门=getbmendifdo while left(s,5)=.and.OR.LEFT(s,5)=.AND. s=subst(s,6)enddoIF LEN(ALLTRIM(S)=0 SET FILTER TOELSE set filter to &s ENDIFGO TOPTHISFORM.refresh2.8 数库初始据化和备份表单的设计数据库初始化和备份表单在功能和界面上基本相同，因此，这里主要以数据库初始化表单作为分析对象，备份表单与之类似。数据库初始化主要是对数据进行备份和初始化，这个功能属于不常用的功能，但是在这里作为一个典型的功能给出比较完整地说明。1.表单的运行界面3.主要事件（1）文本框txtFileName的Init的事件：This.value=RS-+alltrim(str(year(date()+-+;Alltrim(str(month(date()+-+ alltrim(str(day(date()+.dbf（2）文本框txtFileName的DblClick的事件：nYesNo=messgebox(“要重新命名备份的文件吗?”,65,”信使服务”)if nYesno=1this.ReafOnly=.f. this.SelectOnEntry=.t.endif(3)计时器控件tmrTime的Timer事件：THISFORM.lblDate.caption=年份:+alltrim(str(year(date()+年+chr(13)+; 月份:+ alltrim(str(month(date()+月+chr(13)+; 日期:+ alltrim(str(day(date()+日+chr(13)+; 时间:+ alltrim(str(hour(datetime()+点+chr(13)+; 分钟:+ alltrim(str(minute(datetime()+分+chr(13)+; 秒:+ alltrim(str(sec(datetime()+秒（4）命令按钮控件cmdHelp的Click事件：=messagebox(本功能将清空数据表中的所有数据,请慎重使用!+chr(13);+另外,双击备份文件名,可以更改备份文件名。,64,信使服务)（5）命令按钮控件cmdBackup的Click事件：nYesNo=messgebox(真的要进行备份吗?,65,信使服务) cFileName=THISFORM.txtFileName.valueif nYesNo=1 if file(cFileName) bakFileNameDbf=bak+ cFileName if file(bakFileNameDbf) delete file &bakFileNameDbf endif bakFileNameFpt=bak+right(cFileName,at(.dbf,cFileName)+.FPT rename &cFileName to &bakFileNameDbf rename &cFileName to &bakFileName endifcopy to &cFileNameendif 2.9 更改密码表单的设计1.表单的运行界面2.事件与代码(1)文本框控件txtUser的Valid事件：locate for name=alltrim(this.value)if !found() =Message(注意：该用户没找到！+CHR(13)+; 请确认CaosLock是否被按下。,64,信使服务) elsegetuser=alltrim(this.value)getpass=user.pwdendif(3)文本框控件Oldpass的Valid事件：if empty(alltrim(THISFORM.txtUser.value) =MessageBox(注意：用户名不能为空！+CHR(13)+; 请确认用户名是否正确填写。,64,信使服务)elselocate for (name=alltrim(THISFORM.txtUser.value).and.;(pwd=alltrim(this.value)if !found() =MessageBox(注意：该用户没找到或密码错误!+CHR(13)+; 请确认输入是否正确。,64,信使服务)else getuser=alltrim(this.value) getpass=user.pwdendifendif(4)按钮控件cmdChange的Click事件：if empty(alltrim(THISFORM.txtUser.value) =MessageBox(注意：用户名不能为空！+CHR(13)+; 请确认用户名是否正确填写。,64,信使服务)elselocate for (name=alltrim(THISFORM.txtUser.value).and.;(pwd=alltrim(THISFORM.oldpass.value)if !found() =MessageBox(注意：该用户没找到或密码错误!+CHR(13)+; 请确认输入是否正确。,64,信使服务)else getuser=alltrim(THISFORM.txtUser.value) getpass=user.pwd replace user.pwd with alltrim(THISFORM.NewPass.value)endifendif2.10 用户管理表单的设计 用户管理表单主要是添加新的使用用户。这里有一个user表用来存放用户的信息，可以通过这个数据表进行添加用户。1事件与代码： （1）文本框控件txtUser的Valid事件： if empty(alltrim(this.value).and.not.this.readonly=MessageBox(注意：用户名不能为空！+chr(13)+; 请确认。,64,信使服务)endif (2)文本框控件newPass的Valid事件： if (alltrim(this.value)!=alltrim(THISFORM.oldpass.value).or.; (alltrim(THISFORM.oldpass.value)!=alltrim(this.value) =MessageBox(密码不一致,64,信使服务) THISFORM.oldpass.value=endif (3)按钮控件cmdAdd的Click事件： flag=0 if this.caption=添加新用户this.caption=保存THISFORM.txtUser.readonly=.f. THISFORM.oldpass.readonly=.f.THISFORM.newpass.readonly=.f.This.left=this.left+20 else if empty(alltrim(THISFORM.txtUser.value) =MessageBox(用户名不能为空！,64,信使服务) THISFORM.txtUser.setfocus else flag=flag+1 endif if (alltrim(this.newpass.value)!=alltrim(THISFORM.oldpass.value).or.; (alltrim(THISFORM.oldpass.value)!=alltrim(this.newpass.value) =MessageBox(密码不一致,64,信使服务) THISFORM.oldpass.value= this.newpass.value= THISFORM.oldpass.setfocus else flag=flag+1 endif if flag=2 nYesNo=MessageBox(确认添加用户+; alltrim(THISFORM.txtuser.value)+?,65,信使服务) if nyesno=1 append blank go bottom replace name with alltrim(THISFORM.txtuser.value) replace pwd with alltrim(THISFORM.oldpass.value) endif endif this.caption=添加新用户 endif 2.11 统计表单的设计 统计表单是最简单的一个表单，用来对数据表member进行有关统计。 1 表单的运行界面 2事件与代码： （1） 表单frmCount的Load事件：public sexMale, sexFmale, zhujiao,