毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF教职工信息管理系统 第16页

更新时间:2010-2-26:  来源:毕业论文
VF教职工信息管理系统 第16页
  ENDI
     IF thisformset.locate.combo2.value = '<='
       tr=tr+ ' and rjsj <= thisformset.locate.text2.value '
     ENDI
     IF thisformset.locate.combo2.value = '<'
       tr=tr+ ' and rjsj < thisformset.locate.text2.value '
     ENDI
   else
     IF thisformset.locate.combo2.value = '>='
       tr= ' rjsj >= thisformset.locate.text2.value '
     ENDI
     IF thisformset.locate.combo2.value = '>'
       tr= 'rjsj > thisformset.locate.text2.value '
     ENDI
    
     IF thisformset.locate.combo2.value = '='
       tr= ' rjsj = thisformset.locate.text2.value '
     ENDI
     IF thisformset.locate.combo2.value = '<='
       tr= '  rjsj <= thisformset.locate.text2.value '
     ENDI
     IF thisformset.locate.combo2.value = '<'
       tr=' rjsj < thisformset.locate.text2.value '
     ENDI

   endi 
endi
ENDI
if !empty(thisformset.locate.combo3.value)
 if !empty(thisformset.locate.text3.value)
  if !empty(tr)
     IF thisformset.locate.combo3.value = '>='
       tr=tr+ ' and gzsj >= thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '>'
       tr=tr+ ' and gzsj > thisformset.locate.text3.value '
     ENDI
    
     IF thisformset.locate.combo3.value = '='
       tr=tr+ ' and gzsj = thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '<='
       tr=tr+ ' and gzsj <= thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '<'
       tr=tr+ ' and gzsj < thisformset.locate.text3.value '
     ENDI
   else
     IF thisformset.locate.combo3.value = '>='
       tr= ' gzsj >= thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '>'
       tr= 'gzsj > thisformset.locate.text3.value '
     ENDI
    
     IF thisformset.locate.combo3.value = '='
       tr= ' gzsj = thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '<='
       tr= '  gzsj <= thisformset.locate.text3.value '
     ENDI
     IF thisformset.locate.combo3.value = '<'
       tr=' gzsj < thisformset.locate.text3.value '
     ENDI

   endi 
endi
ENDI
sele gzbx
set filt to &tr
 go top
 count to thisformset.xs.text1.value
 sum gwgz ,jngz,djgz,qtgz to g1,g2,g3,g4
 thisformset.xs.text2.value =g1
 thisformset.xs.text3.value =g2
 thisformset.xs.text4.value =g3
 thisformset.xs.text5.value=g4
thisformset.xs.refresh
thisformset.xs.show
 go top
thisformset.refresh

*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 www.751com.cn =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
sele bdd
 set filt to alltrim(bm)== alltrim(thisform.combo1.value)
report form bdd2000.frx  previ

*mc.scx 打印名册事件
**********************************************
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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页

VF教职工信息管理系统 第16页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。