VF教职工信息管理系统源程序Word文档下载推荐.docx

VF教职工信息管理系统源程序Word文档下载推荐.docx

《VF教职工信息管理系统源程序Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VF教职工信息管理系统源程序Word文档下载推荐.docx（41页珍藏版）》请在冰点文库上搜索。

readevents

*fm.scxclick事件

thisform.release

doform密码

*密码.scx确定按钮click事件

seleczyxx

i=i+1

ifi<

=3

ifalltrim（密码）<

>

thisform.mm.value

messagebox（'

用户名称或密码无效，请重试！

'

16,'

警告窗口'

）

retu

else

if权限='

特权用户'

qx=1

qx=0

endi

thisform.release

_screen.visible=.t.

_screen.windowstate=2

_SCREEN.PICTURE='

D:

\GZGL\PIC\clouds.jpg'

doformcsh

dozhu.mpr

endi

messagebox（"

输入密码超过三次"

"

确认"

quit

endi

*操作员维护菜单

ifqx=1

doformczy

*字典库维护菜单

doformweihu

*增加人员菜单

doformzjry

*减少人员菜单

doformgzdel

*工资变动菜单

doformgzbd

*工资修改菜单

doformgzxg

*打印名册

doformmc

*工资变动单

doformdy2

*工资汇总台帐

doformhztz

*weihu.scx（字典库维护）增加按钮

sele&

bd

gobott

appeblank

thisform.refresh

*weihu.scx（字典库维护）删除按钮

thisform.refresh

dele

*weihu.scx（字典库维护）恢复按钮

=TABLEREVERT（.T.）

*weihu.scx（字典库维护）保存按钮

=TABLEUPDATE（.T.）

*weihu.scx（字典库维护）修改按钮

thisform.&

bd2..readonly=.f.

*zjry.scx（增加人员）增加按钮事件

selegzbx

SETFILTTO

selemax（dm）intoARRAYjlfromgzbxwhere.t.

gobottom

thisform.grdm.value=jl

（1）+1

gotop

locaforgzbx.sfz=thisform.sfz.value

iffound（）

waitwindow'

输入的人员重复，身份证号不唯一'

else

ifthisform.xb.value=1

xbb='

男'

女'

appeblank

repldmwithjl+1,xmwiththisform.xm.value,bmwiththisform.dwdm.value

replmzwiththisform.mz.value,xlwiththisform.xl.value,gzsjwiththisform.gzsj.value,rjsjwiththisform.rjsj.value

replzcwiththisform.zc.value,dpwiththisform.dp.value,cssjwiththisform.cssj.value,ygxzwiththisform.ygxz.value,zbwiththisform.zb.value,gkwiththisform.gkdw.value

replzwwiththisform.zw.value,djgwwiththisform.djgw.value,gwlbwiththisform.gwlb.value,jnlbwiththisform.jnlb.value,gwgzwiththisform.gwgz.value

repljndjwiththisform.jndj.value,jngzwiththisform.jngz.value,qtgzwiththisform.qtgz.value

replzhbtwiththisform.zhbt.value,djgzwiththisform.djgz.value,mlbtwiththisform.mlbt.value,jbbxwiththisform.ylbx.value,gbbxwithval（thisform.cxbx.displayvalue）

repljsbtwithval（thisform.jsbt.displayvalue）,gzyywiththisform.gzyy.value,rylywiththisform.ryly.value

replsfzwiththisform.sfz.value,rylywiththisform.ryly.value

repljljtwithval（thisform.jljt.value）,xbwithxbb

selebdd

appenfromgzbxfordm=jl+1

*gzdel.scx（减少人员）删除按钮click

setdeleon

selegzbx

replgzyywiththisform.text2.value

selebdd

appefromgzbxforalltrim（xm）=alltrim（thisform.xmm.value）anddm=thisform.dm.value

repljslbwithbo1.valueforalltrim（xm）=alltrim（thisform.xmm.value）anddm=thisform.dm.value

replgzrqwithdate（）

selegzdel

appefromgzbdforalltrim（xm）=alltrim（thisform.xmm.value）anddm=thisform.dm.value

selegzbd

deleforalltrim（xm）=alltrim（thisform.xmm.value）anddm=thisform.dm.value

selegzbx

dele

waitwindows'

删除成功！

setfiltto

thisform.refresh

*gzxg.scx（个人修改）保存按钮click

ifthisform.xb.value=1

replgzbx.sfzwiththisform.sfz.value

replgzbx.xmwiththisform.xm.value

replgzbx.cssjwiththisform.cssj.value

replgzbx.mzwiththisform.mz.value

replgzbx.xlwiththisform.xl.value

replgzbx.rjsjwiththisform.rjsj.value

replgzbx.gzsjwiththisform.gzsj.value

replgzbx.zbwiththisform.zb.value

replgzbx.dpwiththisform.dp.value

replgzbx.ygxzwiththisform.ygxz.value

replgzyywiththisform.gzyy.value

replrylywiththisform.ryly.value,xbwithxbb

*plxg.scx（批量修改）确定按钮事件click

*********************************************

tr='

if!

empty（thisform.txl.value）

if!

empty（tr）

tr=tr+'

andalltrim（xl）=alltrim（thisform.txl.value）'

tr='

alltrim（xl）=alltrim（thisform.txl.value）'

endi

empty（thisform.tzc.value）

andalltrim（zc）=alltrim（thisform.tzc.value）'

tr='

alltrim（zc）=alltrim（thisform.tzc.value）'

empty（thisform.tqtgz.value）

andqtgz=vaL（thisform.tqtgz.value）'

qtgz=val（thisform.tqtgz.value）'

empty（thisform.tzw.value）

andalltrim（zw）=alltrim（thisform.tzw.value）'

alltrim（zw）=alltrim（thisform.tzw.value）'

empty（thisform.tdjgz.value）

anddjgz=val（thisform.tdjgz.value）'

djgz=val（thisform.tdjgz.value）'

empty（thisform.tjngz.value）

andjngz=val（thisform.tjngz.value）'

jngz=val（thisform.tjngz.value）'

empty（thisform.gkdw.value）

andalltrim（gk）=alltrim（thisform.tgkdw.value）'

alltrim（gk）=alltrim（thisform.tgkdw.value）'

empty（thisform.tjndj.value）

andjndj=thisform.tjndj.value'

jndj=thisform.tjndj.value'

empty（thisform.tmlbt.value）

andmlbt=val（thisform.tmlbt.value）'

mlbt=val（thisform.tmlbt.value）'

empty（thisform.tgwgz.value）

andgwgz=val（thisform.tgwgz.value）'

gwgz=val（thisform.tgwgz.value）'

empty（thisform.tdwdm.value）

andbm=thisform.tdwdm.value'

bm=thisform.tdwdm.value'

empty（thisform.tdjgw.value）

anddjgw=thisform.tdjgw.value'

djgw=thisform.tdjgw.value'

empty（thisform.tylbx.value）

andjbbx=val（thisform.tylbx.value）'

jbbx=val（thisform.tylbx.value）'

empty（thisform.tjsbt.value）

andjsbt=val（thisform.tjsbt.value）'

jsbt=val（thisform.tjsbt.value）'

empty（thisform.tjljt.value）

andjljt=val（thisform.tjljt.value）'

jljt=val（thisform.tjljt.value）'

empty（thisform.tjnlb.value）

andalltrim（jnlb）=alltrim（thisform.tjnlb.value）'

alltrim（jnlb）=alltrim（thisform.tjnlb.value）'

empty（thisform.tgwlb.value）

andalltrim（gwlb）=alltrim（thisform.tgwlb.value）'

alltrim（gwlb）=alltrim（thisform.tgwlb.value）'

empty（thisform.tcxbx.value）

andgbbx=vaL（thisform.tcxbx.value）'

gbbx=val（thisform.tcxbx.value）'

empty（thisform.COMBO1.value）

empty（thisform.TEXT1.value）

IFthisform.COMBO1.value='

='

andcssj>

=thisform.TEXT1.value'

ENDI

thisform.TEXT1.value'

andcssj=thisform.TEXT1.value'

<

andcssj<

cssj>

cssj>

cssj=thisform.TEXT1.value'

cssj<

ENDI

empty（thisform.COMBO2.value）

empty（thisform.TEXT2.value）

IFbo2.value='

andrjsj>

=thisform.text2.value'

thisform.text2.value'

andrjsj=thisform.text2.value'

andrjsj<

rjsj>