|
数据库表测试记录如下（无“备注”）： paper51.com 职员号 姓名 性别 生日 学历 政治面貌 联系电话 家庭住址 所属部门 现任职务 进本单位年份 copyright paper51.com 0001刘备 男1960/09/10 博士 党员027-87820910 武汉市洪山区关山 无 CEO 1985 内容来自www.paper51.com 0002关羽 男1965/04/15 本科 党员027-87800415 武汉市洪山区卓刀泉 销售部 经理 1985 内容来自www.paper51.com 0003张飞 男1966/07/30 本科 党员027-87830730 武汉市洪山区鲁巷 生产部 经理 1985 内容来自www.paper51.com
0004赵云 男1967/12/02 本科 党员027-87311202 武汉市洪山区中南路 配送部 经理 1988 copyright paper51.com 0005诸葛亮 男 1970/06/06 博士 党员027-88850606 武汉市武昌区大成路 无 CIO 1990 copyright paper51.com 0006孙乾 男1966/07/17 专科 团员027-86580717 武汉市青山区八大家 人事部 职员 1988 内容来自论文无忧网 www.paper51.com 0007赵敏 女1972/05/30 博士 党员13871360530 武汉市桥口区武胜路 财务部 经理 1993 copyright paper51.com
0008郭襄 女1974/11/08 硕士 党员13871081108 武汉市江汉区江汉路 广告部 经理 1995 copyright paper51.com 0009苗若兰 女 1976/02/14 本科 党员027-88850214 武汉市武昌区中山路 财务部 主管 1997 copyright paper51.com 0010周芷若 女 1975/10/25 本科 党员027-84771025 武汉市汉阳区钟家村 广告部 主管 1996 copyright paper51.com 0011简雍 男1967/09/27 专科 团员13011240927 武汉市青山区红钢城 后勤部 职员 1987 paper51.com 0012糜竺 男1967/07/12 专科 团员027-86560712 武汉市青山区任家路 后勤部 职员 1987 copyright paper51.com 0013徐庶 男1969/03/05 硕士 党员13339680305 武汉市武昌区积玉桥 人事部 经理 1989 copyright paper51.com 0014钟灵 女1978/06/16 专科 团员13976270616 武汉市洪山区街道口 广告部 职员 1999 http://www.paper51.com 0015穆婉清 女 1977/12/24 专科 团员027-88321224 武汉市武昌区武泰闸 财务部 职员 1998 copyright paper51.com
0016庞统 男1966/01/31 博士 党员13035250131 武汉市武昌区小东门 技术部 经理 1990 paper51.com 0017蒋琬 男1972/10/07 本科 党员027-83861007 武汉市桥口区易家墩 技术部 主管 1995 http://www.paper51.com 0018马超 男1975/06/12 本科 党员13029680612 武汉市江汉区姑嫂树 销售部 主管 1996 paper51.com 0019黄忠 男1955/09/26 本科 党员13578280926 武汉市武昌区梅家山 配送部 主管 1991 内容来自www.paper51.com 0020廖化 男1968/05/11 专科 团员13013570511 武汉市江岸区永清街 销售部 职员 1988 内容来自www.paper51.com
主要模块的设计说明和程序代码 paper51.com 系统主界面 copyright paper51.com
内容来自www.paper51.com 系统主界面是用户进入系统后主要接触的界面，由它可以进入各个功能模块。分别单击按钮“增加记录”、“修改记录”、“删除记录”、“查询”、“报表打印”可进入与之相对应的功能模块，单击“退出”按钮退出本系统。为使界面不至于单调，可以为主界面加入背景。 内容来自www.paper51.com 在“增加记录”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com do form 增加记录 内容来自www.paper51.com thisform.release 内容来自论文无忧网 www.paper51.com 在“修改记录”按钮的“Click”事件中添加代码如下： copyright paper51.com
do form 修改记录 http://www.paper51.com thisform.release http://www.paper51.com 在“删除记录”按钮的“Click”事件中添加代码如下： copyright paper51.com do form 删除记录 copyright paper51.com thisform.release copyright paper51.com 在“查询”按钮的“Click”事件中添加代码如下： copyright paper51.com
do form 查询 内容来自www.paper51.com thisform.release copyright paper51.com 在“报表打印”按钮的“Click”事件中添加代码如下： paper51.com do form 报表打印 http://www.paper51.com
thisform.release http://www.paper51.com 在“退出”按钮的“Click”事件中添加代码如下： copyright paper51.com thisform.release 内容来自论文无忧网 www.paper51.com
clear events copyright paper51.com “增加记录”模块 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 企业新进职员都要为其建立人事档案，该模块的功能就是添加新职员信息。操作很简单，按需要输入完数据后，单击“确定”按钮即可，同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计，以防用户误操作。如：将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”，使用户只能输入四位数字，输入其它字符无效。同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。单击“确定”后，如果没有输入“职员号”或输入的“职员号”已存在，系统都会弹出提示信息，以便用户改正。 copyright paper51.com
在“确定”按钮的“Click”事件中添加代码如下： paper51.com * 检查“职员号”是否为空 http://www.paper51.com if empty(alltrim(thisform.txtID.value)) paper51.com messagebox("职员号不能为空",48,"错误") 内容来自论文无忧网 www.paper51.com thisform.txtID.setfocus paper51.com else http://www.paper51.com * 获取各输入值 copyright paper51.com inID=alltrim(thisform.txtID.value) http://www.paper51.com inName=alltrim(thisform.txtName.value) paper51.com
inSex=alltrim(thisform.txtSex.value) 内容来自www.paper51.com inBirth=alltrim(thisform.txtBirth.value) http://www.paper51.com
inLearn=alltrim(thisform.txtLearn.value) http://www.paper51.com inPolitics=alltrim(thisform.txtPolitics.value) paper51.com inPhone=alltrim(thisform.txtPhone.value) 内容来自www.paper51.com inAddress=alltrim(thisform.txtAddress.value) copyright paper51.com inDepartment=alltrim(thisform.txtDepartment.value) 内容来自论文无忧网 www.paper51.com inFunction=alltrim(thisform.txtFunction.value) http://www.paper51.com
inDate=alltrim(thisform.txtDate.value) 内容来自论文无忧网 www.paper51.com inMemo=alltrim(thisform.edtMemo.value) copyright paper51.com * 检查输入的“职员号”是否已存在 内容来自论文无忧网 www.paper51.com set order to 职员号 paper51.com
seek inID 内容来自www.paper51.com
if !found() http://www.paper51.com insert into 职员信息表value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo) 内容来自www.paper51.com messagebox("添加成功！",48,"信息") copyright paper51.com
* 添加完毕后清空各文本框 内容来自论文无忧网 www.paper51.com thisform.txtID.value='' 内容来自论文无忧网 www.paper51.com thisform.txtName.value='' 内容来自论文无忧网 www.paper51.com thisform.txtSex.value='' http://www.paper51.com thisform.txtBirth.value='' http://www.paper51.com thisform.txtLearn.value='' 内容来自论文无忧网 www.paper51.com thisform.txtPolitics.value='' 内容来自www.paper51.com thisform.txtPhone.value='' http://www.paper51.com thisform.txtAddress.value='' http://www.paper51.com thisform.txtDepartment.value='' 内容来自论文无忧网 www.paper51.com
thisform.txtFunction.value='' http://www.paper51.com thisform.txtDate.value='' 内容来自论文无忧网 www.paper51.com thisform.edtMemo.value='' 内容来自www.paper51.com
else 内容来自论文无忧网 www.paper51.com messagebox("此职员号已存在，请另输一个",48,"错误") 内容来自论文无忧网 www.paper51.com thisform.txtID.value='' copyright paper51.com
thisform.txtID.setfocus copyright paper51.com
endif http://www.paper51.com endif 内容来自www.paper51.com 在“取消”按钮的“Click”事件中添加代码如下： http://www.paper51.com * 清空各文本框 内容来自www.paper51.com
thisform.txtID.value='' 内容来自论文无忧网 www.paper51.com thisform.txtName.value='' 内容来自www.paper51.com
thisform.txtSex.value='' copyright paper51.com thisform.txtBirth.value='' copyright paper51.com thisform.txtLearn.value='' copyright paper51.com thisform.txtPolitics.value='' http://www.paper51.com thisform.txtPhone.value='' copyright paper51.com
thisform.txtAddress.value='' copyright paper51.com thisform.txtDepartment.value='' http://www.paper51.com
thisform.txtFunction.value='' 内容来自论文无忧网 www.paper51.com thisform.txtDate.value='' paper51.com
thisform.edtMemo.value='' copyright paper51.com thisform.txtID.setfocus 内容来自论文无忧网 www.paper51.com 在“退出”按钮的“Click”事件中添加代码如下： copyright paper51.com thisform.release paper51.com
do form 主界面 http://www.paper51.com |