vfp做的企业人事管理系统方案

《vfp做的企业人事管理系统方案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.....企业人事管理系统第一章课程设计的题目1.1数据库技术与应用课程设计的题目本次为期一周的课程设计的题目为设计一个企业人事管理系统。第二章课程设计的要求及目的2.1数据库技术与应用课程设计的要求及目的2.1.1课程设计的要求1.符合课题要求，实现相应功能。可以加以其他功能或修饰，使程序更加完善、合理；2.要求界面友好美观，操作方便易行；3.注意程序的实用性、安全性；4.随时记录设计情况（备查，也为编写设计说明书作好准备）；2.1.2课程设计的目的本课程设计其目的在于加深对《数据库技术与应用》的原理和程序的理解、巩固、提高，让学生做到学以致用

2、，把所学的理论知识应用于实际问题的解决、编制出完整的应用程序，为以后的实际编制大型的应用软件打下基础。学习参考.....第三章课程设计的说明介绍3.1数据库技术与应用课程设计的说明介绍先建立职工基本信息表、职工考核信息表，在数据库中建立关联，以便后面建立表单使用。3.1.1进入界面“进入”代码如下：docasecasethisform.optiongroup1.value=1doform管理员登陆界面thisform.releasecasethisform.optiongroup1.value=2学习参考.....doform一般用户登陆界面th

3、isform.releaseendcase“退出”代码如下：quit3.1.2登录界面“确定”代码如下：*设置密码不能为空，如允许为空则不需此步骤IfLen(Alltrim(Thisform.text2.Value))=0Messagebox('请输入用户名或密码！')Return学习参考.....EndifUsegly.dbfLocateForAlltrim(用户名)==Alltrim(Thisform.text1.Value)*如果没有找到相同记录时执行下面代码IfEof()UseMessagebox('没有此用户！')Thisform.te

4、xt1.Value=''Thisform.text2.Value=''Thisform.text1.SetFocusi=i+1ifi<=3messagebox("密码或用户名错，请重新输入!")thisform.text2.value=""thisform.text2.setfocuselseMessagebox('连续三次输入错误，系统将退出！')UseQuitEndifReturnENDIF学习参考.....*找到后执行的动做IfAlltrim(Thisform.text2.Value)==Alltrim(密码)Mesagebox(＂可以进入

5、！＂，４＋８，＂信息窗口＂)doform管理界面thisform.release*在这里添加在正确登录后你要继续执行的程度ElseUseMessagebox('密码错误！')Thisform.text2.Value=''Thisform.text2.SetFocusi=i+1ifi<=3messagebox("密码错，请重新输入!")thisform.text2.value=""thisform.text2.setfocuselseMessagebox('连续三次输入错误，系统将退出！')UseQuitEndifReturn学习参考.....EN

6、DIF“取消”代码如下：thisform.text1.value=""thisform.text2.value=""thisform.refresh“退出”代码如下：doform进入界面thisform.release3.1.3管理员功能界面3.1.3.1添加信息界面学习参考.....“添加”代码如下：use职工信息表appendblankthisform.txt职工号.readonly=.f.thisform.txt姓名.readonly=.f.thisform.txt性别.readonly=.f.thisform.txt学历.readonly

7、=.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职工号.setfocusthisform.refresh“保存”代码如下：m=messagebox(

8、"是否保存？",4+48,"信息窗口")ifm=6messagebox("信息已保存",48,"信息窗口")elsedeletepack