vfp做的企业人事管理系统

精品文档---下载后可任意编辑第一章 课程设计的题目1.1 数据库技术与应用课程设计的题目本次为期一周的课程设计的题目为设计一个企业人事管理系统。第二章 课程设计的要求及目的2.1 数据库技术与应用课程设计的要求及目的课程设计的要求1.符合课题要求，实现相应功能。可以加以其他功能或修饰，使程序更加完善、合理；2.要求界面友好美观，操作方便易行；3.注意程序的有用性、安全性；4.随时记录设计情况（备查，也为编写设计说明书作好准备）；课程设计的目的本课程设计其目的在于加深对《数据库技术与应用》的原理和程序的理解、巩固、提高，让学生做到学以致用，把所学的理论知识应用于实际问题的解决、编制出完整的应用程序，为以后的实际编制大型的应用软件打下基础。第三章 课程设计的说明介绍3.1 数据库技术与应用课程设计的说明介绍 先建立职工基本信息表、职工考核信息表，在数据库中建立关联，以便后面建立表单使用。 进入界面“进入”代码如下：do casecase thisform.optiongroup1.value=1do form 管理员登陆界面 case thisform.optiongroup1.value=2do form 一般用户登陆界面endcase“退出”代码如下：quit精品文档---下载后可任意编辑 登录界面“确定”代码如下：*设置密码不能为空，如允许为空则不需此步骤If Len(Alltrim(Thisform.text2.Value))=0Messagebox('请输入用户名或密码！')ReturnEndifUse gly.dbf Locate For Alltrim(用户名)==Alltrim(Thisform.text1.Value) *假如没有找到相同记录时执行下面代码If Eof()UseMessagebox('没有此用户！')Thisform.text1.Value=''Thisform.text2.Value=''i=i+1if i<=3messagebox("密码或用户名错，请重新输入!")thisform.text2.value=""elseMessagebox('连续三次输入错误，系统将退出！')UseQuitEndifReturnENDIF*找到后执行的动做If Alltrim(Thisform.text2.Value)==Alltrim(密码)Mesagebox(＂可以进入！＂，４＋８，＂信息窗口＂)do form 管理界面精品文档---下载后可任意编辑*在这里添加在正确登录后你要继续执行的程度ElseUseMessagebox('密码错误！')Thisform.text2.Value=''i=i+1if i<=3messagebox("密码错，请重新输入!")thisform.text2.value=""elseMessagebox('连续三次输入错误，系统将退出！')UseQuitEndifReturnENDIF“取消”代码如下：thisform.text1.value=""thisform.text2.value=""“退出”代码如下：do form 进入界面 管理员功能界面.1...