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

企业人事管理系统 课程设计的题目 1.1 数据库技术与应用课程设计的题目 本次为期一周的课程设计的题目为设计一个企业人事管理系统。 第二章 课程设计的要求及目的 2.1 数据库技术与应用课程设计的要求及目的 2.1.1课程设计的要求 1.符合课题要求，实现相应功能。可以加以其他功能或修饰，使程序更加完善、合理； 2.要求界面友好美观，操作方便易行； 3.注意程序的实用性、安全性； 4.随时记录设计情况（备查，也为编写设计说明书作好准备）； 2.1.2课程设计的目的 本课程设计其目的在于加深对《数据库技术与应用》的原理和程序的理解、巩固、提高，让学生做到学以致用，把所学的理论知识应用于实际问题的解决、编制出完整的应用程序，为以后的实际编制大型的应用软件打下基础。 第三章 课程设计的说明介绍 3.1 数据库技术与应用课程设计的说明介绍 先建立职工基本信息表、职工考核信息表，在数据库中建立关联，以便后面建立表单使用。 3.1.1 进入界面 “进入”代码如下： do case case thisform.optiongroup1.value=1 do form 管理员登陆界面 thisform.release case thisform.optiongroup1.value=2 do form 一般用户登陆界面 thisform.release endcase “退出”代码如下： quit 3.1.2 登录界面 “确定”代码如下： *设置密码不能为空，如允许为空则不需此步骤 If Len(Alltrim(Thisform.text2.Value))=0 Messagebox(请输入用户名或密码！) Return 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 *找到后执行的动做 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 ENDIF “取消”代码如下： thisform.text1.value= thisform.text2.value= thisform.refresh “退出”代码如下： do form 进入界面 thisform.release 3.1.3 管理员功能界面 3.1.3.1 添加信息界面 “添加”代码如下： 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. thisform.txt进公司年份.readonly=.f. thisform.txt婚姻状况.readonly=.f. thisform.edt简历2.readonly=.f. thisform.txt职工号.setfocus thisform.refresh “保存”代码如下： m=messagebox(是否保存？,4+48,信息窗口)