2022年vfp做的企业人事管理系统教学总结 .pdf

企业人事管理系统第一章 课程设计的题目1.1 数据库技术与应用课程设计的题目本次为期一周的课程设计的题目为设计一个企业人事管理系统。第二章 课程设计的要求及目的2.1 数据库技术与应用课程设计的要求及目的2.1.1课程设计的要求1.符合课题要求，实现相应功能。可以加以其他功能或修饰，使程序更加完善、合理；2.要求界面友好美观，操作方便易行；3.注意程序的实用性、安全性；4.随时记录设计情况（备查，也为编写设计说明书作好准备）；2.1.2课程设计的目的本课程设计其目的在于加深对数据库技术与应用的原理和程序的理解、巩固、提高，让学生做到学以致用，把所学的理论知识应用于实际问题的解决、 编制出完整的应用程序， 为以后的实际编制大型的应用软件打下基础。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 21 页 - - - - - - - - - - 第三章课程设计的说明介绍3.1 数据库技术与应用课程设计的说明介绍先建立职工基本信息表、 职工考核信息表，在数据库中建立关联，以便后面建立表单使用。3.1.1 进入界面“进入”代码如下：do case case thisform.optiongroup1.value=1 do form 管理员登陆界面thisform.release case thisform.optiongroup1.value=2 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 21 页 - - - - - - - - - - do form 一般用户登陆界面thisform.release endcase “退出”代码如下：quit 3.1.2 登录界面“确定”代码如下：*设置密码不能为空，如允许为空则不需此步骤If Len(Alltrim(Thisform.text2.Value)=0 Messagebox( 请输入用户名或密码！ ) Return 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 21 页 - - - - - - - - - - Endif Use gly.dbf Locate For Alltrim( 用户名 )=Alltrim(Thisform.text1.Value) *如果没有找到相同记录时执行下面代码If Eof() Use Messagebox( 没有此用户！ ) Thisform.text1.Value= Thisform.text2.Value= Thisform.text1.SetFocus i=i+1 if i=3 messagebox( 密码或用户名错，请重新输入!) thisform.text2.value= thisform.text2.setfocus else Messagebox( 连续三次输入错误，系统将退出！) Use Quit Endif Return ENDIF 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 21 页 - - - - - - - - - - *找到后执行的动做If Alltrim(Thisform.text2.Value)=Alltrim(密码) Mesagebox( 可以进入！，信息窗口) do form 管理界面thisform.release *在这里添加在正确登录后你要继续执行的程度Else Use Messagebox( 密码错误！ ) Thisform.text2.Value= Thisform.text2.SetFocus i=i+1 if i=3 messagebox( 密码错，请重新输入 !) thisform.text2.value= thisform.text2.setfocus else Messagebox( 连续三次输入错误，系统将退出！) Use Quit Endif Return 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 21 页 - - - - - - - - - - ENDIF “取消”代码如下：thisform.text1.value= thisform.text2.value= thisform.refresh “退出”代码如下：do form 进入界面thisform.release3.1.3 管理员功能界面3.1.3.1 添加信息界面精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 21 页 - - - - - - - - - - “添加”代码如下：use 职工信息表append blank thisform.txt 职工号 .readonly=.f. thisform.txt 姓名.readonly=.f. thisform.txt 性别.readonly=.f. thisform.txt 学历.readonly=.f. thisform.txt 籍贯.readonly=.f. thisform.txt 出生日期 .readonly=.f. thisform.txt 政治面貌 .readonly=.f. thisform.txt 所属部门 .readonly=.f. 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 21 页 - - - - - - - - - - thisform.txt 进公司年份 .readonly=.f. thisform.txt 婚姻状况 .readonly=.f. thisform.edt 简历 2.readonly=.f. thisform.txt 职工号 .setfocus thisform.refresh “保存”代码如下：m=messagebox( 是否保存？ ,4+48,信息窗口 ) if m=6 messagebox( 信息已保存 ,48,信息窗口 ) else delete pack endif thisform.txt 职工号 .readonly=.t. thisform.txt 姓名.readonly=.t. thisform.txt 性别.readonly=.t. thisform.txt 学历.readonly=.t. thisform.txt 籍贯.readonly=.t. thisform.txt 出生日期 .readonly=.t. thisform.txt 政治面貌 .readonly=.t. thisform.txt 所属部门 .readonly=.t. thisform.txt 进公司年份 .readonly=.t. 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 8 页，共 21 页 - - - - - - - - - - thisform.txt 婚姻状况 .readonly=.t. thisform.edt 简历 2.readonly=.t. thisform.txt 职工号 .setfocus thisform.refresh “退出”代码如下：thisform.release 3.1.3.2 修改信息可进行修改并保存， 同时通过查找所要修改的记录，方便管理员修改。“修改”代码如下：use 职工信息表精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 21 页 - - - - - - - - - - thisform.txt 职工号.readonly=.f. thisform.txt 姓名.readonly=.f. thisform.txt 性别.readonly=.f. thisform.txt 学历.readonly=.f. thisform.txt 籍贯.readonly=.f. thisform.txt 出生日期 .readonly=.f. thisform.txt 政治面貌 .readonly=.f. thisform.txt 所属部门 .readonly=.f. thisform.txt 进公司年份 .readonly=.f. thisform.txt 婚姻状况 .readonly=.f. thisform.edt 简历 2.readonly=.f. thisform.txt 职工号.setfocus“保存”代码如下：m=messagebox( 是否保存？ ,4+48,信息窗口 ) if m=6 messagebox( 信息已保存 ,48,信息窗口 ) thisform.txt 职工号.readonly=.t. thisform.txt 姓名.readonly=.t. thisform.txt 性别.readonly=.t. thisform.txt 学历.readonly=.t. thisform.txt 籍贯.readonly=.t. thisform.txt 出生日期 .readonly=.t. 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 21 页 - - - - - - - - - - thisform.txt 政治面貌 .readonly=.t. thisform.txt 所属部门 .readonly=.t. thisform.txt 进公司年份 .readonly=.t. thisform.txt 婚姻状况 .readonly=.t. thisform.edt 简历 2.readonly=.t. thisform.txt 职工号.setfocus else thisform.refresh endif “查找“代码如下：set order to 职工号seek allt(thisform.text1.value) if !found() messagebox( 此职工号不存在 ,48,错误) go top endif thisform.text1.value= thisform.refresh 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 11 页，共 21 页 - - - - - - - - - - 3.1.3.3删除界面“删除”代码如下：m = messagebox( 是否删除 ?,4+32,信息窗口 ) if m=6 messagebox( 记录已经删除 !,48, 信息窗口 ) delete pack select 职工信息表go bottom else thisform.refresh 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 12 页，共 21 页 - - - - - - - - - - endif 3.1.3.4查询界面“查询”代码如下：getid=allt(thisform.text1.value) getname=allt(thisform.text2.value) getdepart=allt(thisform.text3.value) flag1=thisform.check1.value flag2=thisform.check2.value flag3=thisform.check3.value if flag1=0 and flag2=0 and flag3=0 messagebox( 请输入查询条件 ,48,错误) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 21 页 - - - - - - - - - - endif if flag1=1 and flag2=0 and flag3=0 select * from 职工信息表where 职工号 =getid into cursor aa thisform.grid1.recordsource=aa endif if flag1=0 and flag2=1 and flag3=0 select * from 职工信息表where 姓名=getname into cursor aa thisform.grid1.recordsource=aa endif if flag1=0 and flag2=0 and flag3=1 select * from 职工信息表where 所属部门 =getdepart into cursor aa thisform.grid1.recordsource=aa endif if flag1=1 and flag2=1 and flag3=0 select * from 职工信息表where 职工号 =gettid and 姓名 =getname into cursor aa thisform.grid1.recordsource=aa endif if flag1=0 and flag2=1 and flag3=1 select * from 职工 信 息 表where 姓 名 =getname and 所 属 部 门=getdepart into cursor aa thisform.grid1.recordsource=aa 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 21 页 - - - - - - - - - - endif if flag1=1 and flag2=0 and flag3=1 select * from 职 工 信 息 表where 职 工 号 =getid and 所 属部 门=getdepart into cursor aa thisform.grid1.recordsource=aa endif if flag1=1 and flag2=1 and flag3=1 select * from 职工信息表where 职工号 =getid and 姓名=getname and 所属部门 =getdepart into cursor aa thisform.grid1.recordsource=aa endif “清除”代码如下：thisform.check1.value=0 thisform.check2.value=0 thisform.check3.value=0 thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.grid1.recordsource= thisform.refresh 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 15 页，共 21 页 - - - - - - - - - - 3.1.3.5统计界面“统计”代码如下：do case case thisform.optiongroup1.value=1 select 性别 ,count(*) as 人数from 职工信息表group by 性别into cursor xx thisform.grid1.recordsource=xx thisform.refresh case thisform.optiongroup1.value=2 select 所属部门 ,count(*) as 人数 from 职工信息表group by 所属部门 into cursor yy thisform.grid1.recordsource=yy thisform.refresh case thisform.optiongroup1.value=3 select 学历 ,count(*) as 人数from 职工信息表group by 学历精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 21 页 - - - - - - - - - - into cursor zz thisform.grid1.recordsource=zz thisform.refresh case thisform.optiongroup1.value=4 select 政治面貌 ,count(*) as 人数 from 职工信息表group by 政治面貌 into cursor hh thisform.grid1.recordsource=hh thisform.refresh endcase 3.1.3.6报表打印界面精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 21 页 - - - - - - - - - - “打印预览”代码如下：do case case thisform.G2.value=1 report form 职工信息报表preview thisform.refresh case thisform.G2.value=2 report form 职工考核信息报表preview thisform.refresh endcase “打印”代码如下：do case case thisform.G2.value=1 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 18 页，共 21 页 - - - - - - - - - - report form 职工信息报表to printer prompt thisform.refresh case thisform.G2.value=2 report form 职工考核信息报表to printer prompt thisform.refresh endcase 3.1.4 用户浏览界面“第一个”代码如下：go top thisform.refresh “上一个”代码如下：if.not.bof() 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 19 页，共 21 页 - - - - - - - - - - skip -1 thisform.refresh else messagebox( 已经是第一个了！ ) endif “下一个”代码如下：if.not.eof() skip 1 thisform.refresh else messagebox( 已经是最后一个了！ ) endif “末一个”代码如下：go bottom thisform.refresh “退出”代码如下：thisform.release 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 20 页，共 21 页 - - - - - - - - - - 文档编码：KDHSIBDSUFVBSUDHSIDHSIBF-SDSD587FCDCVDCJUH 欢迎下载 精美文档欢迎下载 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 21 页，共 21 页 - - - - - - - - - -