vfp做的企业人事管理系统.docx
上传人:王子****青蛙 上传时间:2024-09-13 格式:DOCX 页数:10 大小:1.5MB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

vfp做的企业人事管理系统.docx

vfp做的企业人事管理系统.docx

预览

在线预览结束,喜欢就下载吧,查找使用更方便

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

课程设计的题目1.1数据库技术与应用课程设计的题目本次为期一周的课程设计的题目为设计一个企业人事管理系统。第二章课程设计的要求及目的2.1数据库技术与应用课程设计的要求及目的课程设计的要求1.符合课题要求,实现相应功能。可以加以其他功能或修饰,使程序更加完善、合理;2.要求界面友好美观,操作方便易行;3.注意程序的实用性、安全性;4.随时记录设计情况(备查,也为编写设计说明书作好准备);课程设计的目的本课程设计其目的在于加深对《数据库技术与应用》的原理和程序的理解、巩固、提高,让学生做到学以致用,把所学的理论知识应用于实际问题的解决、编制出完整的应用程序,为以后的实际编制大型的应用软件打下基础。第三章课程设计的说明介绍3.1数据库技术与应用课程设计的说明介绍先建立职工基本信息表、职工考核信息表,在数据库中建立关联,以便后面建立表单使用。进入界面“进入”代码如下:docasecasethisform.optiongroup1.value=1doform管理员登陆界面casethisform.optiongroup1.value=2doform一般用户登陆界面endcase“退出”代码如下:quit登录界面“确定”代码如下:*设置密码不能为空,如允许为空则不需此步骤IfLen(Alltrim(Thisform.text2.Value))=0Messagebox('请输入用户名或密码!')ReturnEndifUsegly.dbfLocateForAlltrim(用户名)==Alltrim(Thisform.text1.Value)*如果没有找到相同记录时执行下面代码IfEof()UseMessagebox('没有此用户!')Thisform.text1.Value=''Thisform.text2.Value=''i=i+1ifi<=3messagebox("密码或用户名错,请重新输入!")thisform.text2.value=""elseMessagebox('连续三次输入错误,系统将退出!')UseQuitEndifReturnENDIF*找到后执行的动做IfAlltrim(Thisform.text2.Value)==Alltrim(密码)Mesagebox("可以进入!",4+8,"信息窗口")doform管理界面*在这里添加在正确登录后你要继续执行的程度ElseUseMessagebox('密码错误!')Thisform.text2.Value=''i=i+1ifi<=3messagebox("密码错,请重新输入!")thisform.text2.value=""elseMessagebox('连续三次输入错误,系统将退出!')UseQuitEndifReturnENDIF“取消”代码如下:thisform.text1.value=""thisform.text2.value=""“退出”代码如下:doform进入界面管理员功能界面.1添加信息界面“添加”代码如下:use职工信息表appendblankthisform.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.“保存”代码如下:m=messagebox("是否保存?",4+48,"信息窗口")ifm=6messagebox("信息已保存",48,"信息窗口")elsedeletepackendifthisform.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.