endif
thisform.refresh case this.value=3
this.command1.enabled=.t. this.command2.enabled=.t. skip
if recno()=reccount()
this.command3.enabled=.f. this.command4.enabled=.f. endif
thisform.refresh case this.value=4 goto bottom
this.command1.enabled=.t. this.command2.enabled=.t. this.command3.enabled=.f. this.command4.enabled=.f. thisform.refresh case this.value=5 report form 社会关系.frx for alltrim(shgx.dh)=ALLTRIM(ThisForm.text1.value) preview case this.value=6 thisform.release do form 档案输出 case this.value=7 select shgx
x=thisform.text1.value
thisform.grid1.recordsourcetype=4
thisform.grid1.recordsource='select * from shgx where alltrim(shgx.dh)=alltrim(x) and rskp.dh=shgx.dh into cursor tempt1' thisform.refresh endcase
报表预览截图如下：
25
同样，点击进入人事卡片：
设置好文本框的controlsource属性以及buttongroup1的click事件代码即可运行。
精确查询界面可随意查询任意代号人员信息：
26
“查询”click事件代码： x=this.parent.text1.value
this.parent.grid1.recordsourcetype=4
this.parent.grid1.recordsource='select dh as 代号,ybrgx as 与本人关系,csny as 出生年月,hyzk as 婚姻状况,whcd as 文化程度,zzmm as 政治面目,gzdw as 工作单位,zwgz as 职务工种,gz as 工资,jjly as 经济来源 from jtcy where alltrim(dh)=alltrim(x) into cursor page2' 其他页面类似。
7、修改密码
27
“修改”按钮click事件代码为： sele glry
if allt(thisform.text1.value)==\ thisform.text1.setfocus else
locate for allt(xm)==allt(thisform.text1.value) if eof()
messagebox(\此用户不存在，请重新输入！\提示\ thisform.text1.value=\ thisform.text2.value=\ thisform.text3.value=\ thisform.text4.value=\ thisform.text1.setfocus() else
if !allt(mm)==allt(thisform.text2.value)
messagebox(\密码错误，请重新输入！\提示\ thisform.text2.value=\ thisform.text3.value=\ thisform.text4.value=\ thisform.text2.setfocus() else
if allt(thisform.text3.value)==\
28
