数据*/sele1
use注册新员工表setsafeoff/*设置保护级防止数据被重写*/zapthis.enabled=.F.thisform.command1.enabled=.T.thisform.command3.enabled=.F.thisform.refreshendifendif3.“取消”为command3,其clickevent代码为:sele1/*选择工作区1*/setsafeoff/*设置保护级防止数据被重写*/zapthis.enabled=.F.thisform.command2.enabled=.F.thisform.command1.enabled=.T.thisform.refresh/*关闭当前表单*/4.“返回”为command4,其clickevent代码为:thisform.release/*关闭当前表单*/doform功能表.scx/*执行功能表表单*/
3.3数据查询
在此,数据查询包括按身份证号查询员工工资情况。图7为查询表单的运行效果:
图7
查询
输入身份证号之后如图8:
图8查询结果
若查询的员工不存在则如图9:
图9查询无结果
Text1为输入身份证号的空白处,其代码为:iflen(alltrim(thisform.text1.value))=0thisform.command1.enabled=.F.elsesfzh=thisform.text1.valuethisform.command1.enabled=.T.endif“查询”为command1,其clickevent代码为:sele1setorderto身份证号locaallfor身份证号=alltrim(sfzh)ifnoteof()thisform.grid1.recordsource="人员资料"setfilterto身份证号=sfzhthisform.grid1.refreshelse=messagebox("没有此员工的工资记录!")
/*确保text2总长度不为空*/
/*身份证号不为空*/
/*选择工作区1*//*查询身份证号相对应的数据*/
endif“退出”为command2,其clickevent代码为