|
do form 修改记录 thisform.release 在“删除记录”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com do form 删除记录 内容来自论文无忧网 www.paper51.com thisform.release 内容来自www.paper51.com 在“查询”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com do form 查询 copyright paper51.com
thisform.release paper51.com
在“报表打印”按钮的“Click”事件中添加代码如下： 内容来自论文无忧网 www.paper51.com do form 报表打印 paper51.com thisform.release 内容来自www.paper51.com 在“退出”按钮的“Click”事件中添加代码如下： http://www.paper51.com thisform.release paper51.com clear events 内容来自论文无忧网 www.paper51.com “增加记录”模块 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
企业新进职员都要为其建立人事档案，该模块的功能就是添加新职员信息。操作很简单，按需要输入完数据后，单击“确定”按钮即可，同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计，以防用户误操作。如：将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”，使用户只能输入四位数字，输入其它字符无效。同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。单击“确定”后，如果没有输入“职员号”或输入的“职员号”已存在，系统都会弹出提示信息，以便用户改正。 内容来自www.paper51.com
在“确定”按钮的“Click”事件中添加代码如下： 内容来自www.paper51.com * 检查“职员号”是否为空 内容来自论文无忧网 www.paper51.com if empty(alltrim(thisform.txtID.value)) http://www.paper51.com messagebox("职员号不能为空",48,"错误") paper51.com
thisform.txtID.setfocus 内容来自论文无忧网 www.paper51.com else copyright paper51.com * 获取各输入值 http://www.paper51.com inID=alltrim(thisform.txtID.value) copyright paper51.com inName=alltrim(thisform.txtName.value) 内容来自论文无忧网 www.paper51.com inSex=alltrim(thisform.txtSex.value) http://www.paper51.com inBirth=alltrim(thisform.txtBirth.value) copyright paper51.com inLearn=alltrim(thisform.txtLearn.value) paper51.com inPolitics=alltrim(thisform.txtPolitics.value) copyright paper51.com inPhone=alltrim(thisform.txtPhone.value) copyright paper51.com inAddress=alltrim(thisform.txtAddress.value) 内容来自论文无忧网 www.paper51.com inDepartment=alltrim(thisform.txtDepartment.value) http://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) 内容来自论文无忧网 www.paper51.com * 检查输入的“职员号”是否已存在 paper51.com set order to 职员号 内容来自www.paper51.com seek inID paper51.com
if !found() 内容来自论文无忧网 www.paper51.com
insert into 职员信息表value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo) 内容来自www.paper51.com messagebox("添加成功！",48,"信息") http://www.paper51.com * 添加完毕后清空各文本框 http://www.paper51.com thisform.txtID.value='' http://www.paper51.com
thisform.txtName.value='' paper51.com thisform.txtSex.value='' 内容来自论文无忧网 www.paper51.com thisform.txtBirth.value='' http://www.paper51.com thisform.txtLearn.value='' http://www.paper51.com thisform.txtPolitics.value='' http://www.paper51.com thisform.txtPhone.value='' http://www.paper51.com thisform.txtAddress.value='' http://www.paper51.com thisform.txtDepartment.value='' http://www.paper51.com thisform.txtFunction.value='' paper51.com
thisform.txtDate.value='' http://www.paper51.com
内容来自论文无忧网 www.paper51.com |