|
2、 grcx (工资查询) paper51.com 这个表单的是实现按工号查询，没一个工号有一个固定的密码查询的结果是 内容来自www.paper51.com 职工的基本情况。当然工号和密码要连接生成器。代码在“确定”按钮里具体如下： 内容来自论文无忧网 www.paper51.com inname=alltrim(thisform.text1.value) copyright paper51.com inpswd=alltrim(thisform.text2.value) 内容来自论文无忧网 www.paper51.com set order to tms_user copyright paper51.com seek inname paper51.com if!found() paper51.com cMessageTitle='设备管理系统' 内容来自论文无忧网 www.paper51.com cMessageText='用户名错误，请重新输入' 内容来自www.paper51.com nDialogType=4+32 内容来自www.paper51.com nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) copyright paper51.com do case paper51.com case nAnswer=6 copyright paper51.com
thisform.text1.value='' http://www.paper51.com thisform.text1.setfocus 内容来自www.paper51.com case nAnswer=7 paper51.com messagebox("请勿偷窥他人资料",48,"警告") http://www.paper51.com thisform.release paper51.com endcase paper51.com else 内容来自www.paper51.com if tms_pswd!=inpswd http://www.paper51.com cMessageTitle='设备管理系统' 内容来自www.paper51.com
cMessageText='密码错误，请重新输入' 内容来自论文无忧网 www.paper51.com nDialogType=4+32 内容来自论文无忧网 www.paper51.com
nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) paper51.com do case http://www.paper51.com
case nAnswer=6 paper51.com
if flag<2 paper51.com thisform.text2.value='' 内容来自www.paper51.com thisform.text2.setfocus 内容来自论文无忧网 www.paper51.com flag=flag+1 内容来自www.paper51.com else 内容来自www.paper51.com messagebox("请勿偷窥他人资料",48,"警告") http://www.paper51.com thisform.release 内容来自www.paper51.com
endif paper51.com case nAnswer=7 paper51.com messagebox("请勿偷窥他人资料",48,"警告") copyright paper51.com thisform.release 内容来自www.paper51.com endcase 内容来自论文无忧网 www.paper51.com
else paper51.com thisform.release copyright paper51.com
par1=inname 内容来自论文无忧网 www.paper51.com do form salary\form\gresult copyright paper51.com endif http://www.paper51.com endif copyright paper51.com
按“退出”按钮就释放表单。 http://www.paper51.com 3、 gresult 主要是被grcx (工资查询)调用，当然生成器里连接了其它表。 内容来自论文无忧网 www.paper51.com
4、 gwgz(岗位工资) 对岗位工资的管理。同gzgl功能一样。 内容来自论文无忧网 www.paper51.com 5、 gcgz(等级)也同gzgl功能一样 copyright paper51.com 6、 jm（密码表） 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
代码在“确定按钮里” 内容来自论文无忧网 www.paper51.com click事件： 内容来自论文无忧网 www.paper51.com sele mab http://www.paper51.com loca for allt(mab.用户名)==allt(thisform.txtusername.value)and allt(mab.密码)==allt(thisform.txtpassword.value) 内容来自www.paper51.com if foun() paper51.com
doC:\修改工资管理3\main.mpr paper51.com read events 内容来自www.paper51.com
thisform.visible=.f. copyright paper51.com thisform.txtpassword.value="" paper51.com release thisform copyright paper51.com else 内容来自论文无忧网 www.paper51.com thisform.txtpassword.value="" 内容来自论文无忧网 www.paper51.com
messagebox("你没有权限，请输入正确密码",0+16+0,"出错") 内容来自www.paper51.com thisform.txtpassword.setfocus 内容来自论文无忧网 www.paper51.com endi http://www.paper51.com
|