*allocate.scx清空按钮事件
**********************************************
thisformset.locate.sfz.value=''
thisformset.locate.xb.value=0
thisformset.locate.xm.value=''
thisformset.locate.xl.value =''
thisformset.locate.dp.value=''
thisformset.locate.zc.value=''
thisformset.locate.grdm.value=''
thisformset.locate.qtgz.value=''
thisformset.locate.zw.value=''
thisformset.locate.djgz.value=''
thisformset.locate.jngz.value=''
thisformset.locate.gkdw.value=''
thisformset.locate.jndj.value=''
thisformset.locate.mlbt.value=''
thisformset.locate.gwgz.value=''
thisformset.locate.dwdm.value=''
thisformset.locate.djgw.value=''
thisformset.locate.ylbx.value=''
thisformset.locate.ryly.value=''
thisformset.locate.zhbt.value=''
thisformset.locate.jsbt.value=''
thisformset.locate.jljt.value=''
thisformset.locate.jnlb.value=''
thisformset.locate.gwlb.value=''
thisformset.locate.gzyy.value=''
thisformset.locate.cxbx.value=''
thisformset.locate.zb.value=''
*allocate.scx打印按钮click 事件
**********************************************
x= thisformset.xs.text1.value
x1= thisformset.xs.text2.value
x2= thisformset.xs.text3.value
x3= thisformset.xs.text4.value
x4= thisformset.xs.text5.value
report form gzbxdy.frx previ
*czy.scx (操作员信息)修改按钮click 事件
**********************************************
sele czyxx
go top
loca for 编号==this.parent.text1.value
if foun()
repl 姓名 with this.parent.text2.value,密码 with this.parent.text3.value,权限 with this.parent.combo1.value
endi
thisform.refresh
wait window '修改完毕' time 3
*czy (操作员信息)增加按钮click 事件
**********************************************
sele czyxx
go top
loca for 编号=this.parent.text1.value
if not foun()
if !empty(this.parent.text1.value)
appe blank
repl 姓名 with this.parent.text2.value,密码 with this.parent.text3.value,权限 with this.parent.combo1.value
repl 编号 with this.parent.text1.value
endi
else
?chr(7)+chr(7)
wait window '输入的操作员重复' time 3
retu
endi
thisform.refresh
wait window '增加新操作员完毕' time 3
*czy (操作员信息)删除按钮click事件
**********************************************
sele czyxx
go top
loca for 编号=this.parent.text1.value
if foun()
if recno()<>1
dele
pack
else
wait window '第一个记录不能删除，可以修改'
retu
endi
endi
thisform.refresh
wait window '删除完毕' time 3
*gzbd.scx (工资变动)保存按钮click 事件
**********************************************
sele gzbd
appe from gzbx for dm = thisform.dm.value
repl gzrq with thisform.bdrq.value
sele bdd
appe from gzbx for dm = thisform.dm.value
a1=bm
repl bdd.xbm with thisform.dwdm.value
repl bdd.xdw with dwbmmc.bmmc
repl bdd.xzw with thisform.zc.value
repl bdd.xzc with thisform.zc.value
repl bdd.xgk with thisform.gkdw.value
repl bdd.xdjgw with thisform.djgw.value
repl bdd.xgwlb with thisform.gwlb.value
repl bdd.xjnlb with thisform.jnlb.value
repl bdd.xjndj with thisform.jndj.value
repl bdd.xzhbt with thisform.zhbt.value
repl bdd.xgwgz with thisform.gwgz.value
repl bdd.xjngz with val(thisform.jngz.value)
repl bdd.xdjgz with thisform.djgz.value
repl bdd.xqtgz with thisform.qtgz.value
repl bdd.xjljt with thisform .jljt.value
repl bdd.jsbt with thisform.jsbt.value
repl bdd.xjbbx with thisform .ylbx.value
repl bdd.xgbbx with thisform .cxbx.value
repl bdd.xmlbt with thisform.mlbt.value
repl bdd.gzyy with thisform.gzyy.value
sele dwbmmc
loca for bmdm=a1
a2=bmmc
sele bdd
repl ydw with a2
sele gzbx
repl gzbx.bm with thisform.dwdm.value
repl gzbx.zw with thisform.zw.value
repl gzbx.zc with thisform.zc.value
repl gzbx.gk with thisform.gkdw.value
repl gzbx.djgw with thisform.djgw.value
repl gzbx.gwlb with thisform.gwlb.value
repl gzbx.jnlb with thisform.jnlb.value
repl gzbx.jndj with thisform.jngz.value
repl gzbx.zhbt with thisform.zhbt.value
repl gzbx.gwgz with thisform.gwgz.value
repl gzbx.jngz with val(thisform.jngz.value)
repl gzbx.djgz with thisform.djgz.value
repl gzbx.qtgz with thisform.qtgz.value
repl gzbx.jljt with thisform .jljt.value
repl gzbx.jsbt with thisform.jsbt.value
repl gzbx.mlbt with thisform.mlbt.value
repl gzbx.jbbx with thisform .ylbx.value
repl gzbx.gbbx with thisform .cxbx.value
repl gzbx.gzyy with thisform.gzyy.value
repl gzbx.gzrq with thisform.bdrq.value、
*gzcx.scx (查询)输入姓名查找
**********************************************
thisform.dm.value=gzbx.dm
dwdm=gzbx.bm
sele dwbmmc
loca for bmdm=gzbx.bm
if foun()
thisform.text1.value=dwbmmc.bmmc
endi
*gzcx.scx cloum3.text1 click事件
**********************************************
sele gzbx
xm1=gzbx.xm
thisform.xmm.value=XM1
set filt to alltrim(xm)=alltrim(thisform.xmm.value)
THISFORM.REFRESH
*hztz.scx (打印汇总台帐)统计按钮click
**********************************************
sele gzbx.bm,sum(gzbx.gwgz) AS 岗位津贴,dwbmmc.bmmc as 单位 ,sum(gzbx.jngz)as 职务工资,sum(gzbx.qtgz) as 其它工资,sum(gzbx.djgz) as 提高10％, ;
sum(gzbx.mlbt) as 煤粮补贴,sum(gzbx.gbbx) as 书报补贴 , sum(gzbx.jbbx) as 住房补贴, count (gzbx.dm) as 人数, ;
sum(gzbx.jljt) as 教龄津贴 ,sum(gzbx.jsbt) as 职务补贴 ;
from gzbx,dwbmmc where gzbx.bm=dwbmmc.bmdm ;
group by gzbx.bm into table ls1
sele ls1
use
sele ztj
zap
appe from ls1
repl all 合计 with 职务工资+岗位津贴+提高10％
repl all 平均工资 with 合计/人数
thisform.refresh
*hztz.scx (打印汇总台帐)打印按钮
**********************************************
report form ztjdy.frx previe
*dy2.scx (变动单打印)按钮click 事件
**********************************************
sele bdd
set filt to alltrim(bm)== alltrim(thisform.combo1.value)
report form bdd2000.frx previ
youerw.com
**********************************************
sele GZBX.Bm as 单位代码 ,GZBX.DM AS 个人代码 ,DWBMMC.BMMC AS 单位 ,GZBX.xm AS 姓名 ,GZBX.XB AS 性别,GZBX.CSSJ AS 出生日期 ,GZBX.GZSJ AS 工作时间, GZBX.RJSJ AS 入局时间, GZBX.ZC AS 职称 , GZBX.ZW AS 职务, ;
GZBX.GK AS 归靠岗位, GZBX.DJGW AS 等级岗位, GZBX.GWLB AS 津贴档次, GZBX.JNLB AS 职务等级, GZBX.JNDJ AS 工资档次, GZBX.ZHBT AS 综合补贴, GZBX.GWGZ AS 岗位津贴 ,;
GZBX.JNGZ AS 职务工资, GZBX.DJGZ AS 提高10％, GZBX.QTGZ AS 其它工资,GZBX.jljt AS 教龄津贴 ,GZBX.JSBT AS 职务补贴,GZBX.MLBT AS 煤粮补贴,GZBX.JBBX AS 住房补贴, ;
GZBX.GBBX AS 书报补贴 GROUP BY GZBX.BM,gzbx.gk order by GZBX.BM ,gzbx.gk WHERE GZBX.BM=DWBMMC.BMDM FROM GZBX, DWBMMC INTO TABLE LS2
SELE LS2
USE
SELE GZBXTJ
ZAP
APPE FROM LS2
go top
sele GZBXTJ
index on alltrim(单位代码) + alltrim(归靠岗位) tag wizard_1
IF !EMPTY(THISFORM.COMBO1.VALUE)
set filt to alltrim(单位代码)== alltrim(thisform.combo1.value)
ENDI
report form gzbxTJDY.frx prev
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>