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

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

更新时间:2010-2-26:  来源:毕业论文
VF教职工信息管理系统 第13页
*主程序
**********************************************
set talk off
set esca off
set excl on
set cent on
set  hour to 24
set sysmenu to
SET SAFE OFF
SET SYSMENU OFF
SET EXCL ON
SET STATUS BAR OFF
SET CLOCK STATUS
SET DELE ON
public qx
qx=0
_screen.visible=.f.
_screen.maxbutton=.f.
_screen.minbutton=.f.
_screen.windowstate=1
_screen.closable=.f.
_screen.caption='沈阳市现代科技学校教职工信息管理系统'
do form fm
read events

*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.751com.cn    
    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] 下一页

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

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