*fm.scx click 事件
**********************************************
thisform.release
do form 密码
*密码.scx 确定按钮 click 事件
**********************************************
sele czyxx
i=i+1
if i <= 3
if alltrim(密码)<>thisform.mm.value
messagebox('用户名称或密码无效，请重试！',16,'警告窗口')
retu
else
if 权限='特权用户'
qx=1
else
qx=0
endi
thisform.release
_screen.visible=.t.
_screen.windowstate=2
_SCREEN.PICTURE = 'D:\GZGL\PIC\clouds.jpg'
do form csh
do zhu.mpr
endi
else
messagebox("输入密码超过三次","确认")
quit
endi
*操作员文护菜单
**********************************************
if qx=1
do form czy
endi
*字典库文护菜单
**********************************************
if qx=1
do form weihu
endi
*增加人员菜单
**********************************************
if qx=1
do form zjry
endi
*减少人员菜单
**********************************************
if qx=1
do form gzdel
endi
*工资变动菜单
**********************************************
if qx=1
do form gzbd
endi
*工资修改菜单
**********************************************
if qx=1
do form gzxg
endi
*打印名册
**********************************************
do form mc
*工资变动单
**********************************************
do form dy2
*工资汇总台帐
**********************************************
do form hztz
*weihu.scx (字典库文护)增加按钮
**********************************************
sele &bd
go bott
appe blank
thisform.refresh
*weihu.scx(字典库文护)删除按钮
thisform.refresh
sele &bd
dele
thisform.refresh
*weihu.scx(字典库文护)恢复按钮
**********************************************
sele &bd
=TABLEREVERT(.T.)
*weihu.scx (字典库文护)保存按钮
**********************************************
sele &bd
=TABLEUPDATE(.T.)
*weihu.scx (字典库文护)修改按钮
**********************************************
thisform.&bd2..readonly =.f.
thisform.refresh
*zjry.scx (增加人员)增加按钮事件
**********************************************
sele gzbx
SET FILT TO
sele max(dm) into ARRAY jl from gzbx where .t.
go bottom
thisform.grdm.value=jl(1) + 1
go top
loca for gzbx.sfz = thisform.sfz.value
if found()
wait window '输入的人员重复，身份证号不唯一'
retu
else
if thisform.xb.value=1
xbb='男'
else
xbb='女'
endi
appe blank
appe blank
repl dm with jl+1 ,xm with thisform.xm. value,bm with thisform.dwdm.value
repl mz with thisform.mz.value ,xl with thisform.xl.value,gzsj with thisform.gzsj.value, rjsj with thisform.rjsj.value
repl zc with thisform.zc.value, dp with thisform.dp.value,cssj with thisform.cssj.value,ygxz with thisform.ygxz.value,zb with thisform.zb.value,gk with thisform.gkdw.value
repl zw with thisform.zw.value,djgw with thisform.djgw.value,gwlb with thisform.gwlb.value,jnlb with thisform.jnlb.value,gwgz with thisform.gwgz.value
repl jndj with thisform.jndj.value,jngz with thisform.jngz.value,qtgz with thisform.qtgz.value
repl zhbt with thisform.zhbt.value,djgz with thisform.djgz.value,mlbt with thisform.mlbt.value,jbbx with thisform.ylbx.value,gbbx with val(thisform.cxbx.displayvalue)
repl jsbt with val(thisform.jsbt.displayvalue),gzyy with thisform.gzyy.value,ryly with thisform.ryly.value
repl sfz with thisform.sfz.value,ryly with thisform.ryly.value
repl jljt with val(thisform.jljt.value),xb with xbb
endi
sele bdd
appen from gzbx for dm=jl+1
thisform.refresh
*gzdel.scx (减少人员)删除按钮click
**********************************************
set dele on
sele gzbx
repl gzyy with thisform.text2.value
sele bdd
appe from gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value
repl jslb with thisform.combo1.value for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value
repl gzyy with thisform.text2.value
repl gzrq with date()
sele gzdel
appe from gzbd for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value
appe from gzbx for alltrim(xm)= alltrim(thisform.xmm.value) and dm= thisform.dm.value
www.youerw.com
set filt to
thisform.refresh
*gzxg.scx (个人修改)保存按钮click
**********************************************
sele gzbx
if thisform.xb.value=1
xbb='男'
else
xbb='女'
endi
repl gzbx.sfz with thisform.sfz.value
repl gzbx.xm with thisform.xm.value
repl gzbx.cssj with thisform.cssj.value
repl gzbx.mz with thisform.mz.value
repl gzbx.xl with thisform.xl.value
repl gzbx.rjsj with thisform.rjsj.value
repl gzbx.gzsj with thisform.gzsj.value
repl gzbx.zb with thisform.zb.value
repl gzbx.dp with thisform.dp.value
repl gzbx.ygxz with thisform.ygxz.value
repl gzyy with thisform.gzyy.value
repl ryly with thisform.ryly.value,xb with xbb
*plxg.scx (批量修改)确定按钮事件click
*********************************************
set excl on tr=''
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] 下一页