VF教职工信息管理系统源程序.docx
- 文档编号:2373900
- 上传时间:2023-05-03
- 格式:DOCX
- 页数:41
- 大小:20.91KB
VF教职工信息管理系统源程序.docx
《VF教职工信息管理系统源程序.docx》由会员分享,可在线阅读,更多相关《VF教职工信息管理系统源程序.docx(41页珍藏版)》请在冰点文库上搜索。
VF教职工信息管理系统源程序
*主程序
**********************************************
settalkoff
setescaoff
setexclon
setcenton
sethourto24
setsysmenuto
SETSAFEOFF
SETSYSMENUOFF
SETEXCLON
SETSTATUSBAROFF
SETCLOCKSTATUS
SETDELEON
publicqx
qx=0
_screen.visible=.f.
_screen.maxbutton=.f.
_screen.minbutton=.f.
_screen.windowstate=1
_screen.closable=.f.
_screen.caption='沈阳市现代科技学校教职工信息管理系统'
doformfm
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
else
qx=0
endi
thisform.release
_screen.visible=.t.
_screen.windowstate=2
_SCREEN.PICTURE='D:
\GZGL\PIC\clouds.jpg'
doformcsh
dozhu.mpr
endi
else
messagebox("输入密码超过三次","确认")
quit
endi
*操作员维护菜单
**********************************************
ifqx=1
doformczy
endi
*字典库维护菜单
**********************************************
ifqx=1
doformweihu
endi
*增加人员菜单
**********************************************
ifqx=1
doformzjry
endi
*减少人员菜单
**********************************************
ifqx=1
doformgzdel
endi
*工资变动菜单
**********************************************
ifqx=1
doformgzbd
endi
*工资修改菜单
**********************************************
ifqx=1
doformgzxg
endi
*打印名册
**********************************************
doformmc
*工资变动单
**********************************************
doformdy2
*工资汇总台帐
**********************************************
doformhztz
*weihu.scx(字典库维护)增加按钮
**********************************************
sele&bd
gobott
appeblank
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(增加人员)增加按钮事件
**********************************************
selegzbx
SETFILTTO
selemax(dm)intoARRAYjlfromgzbxwhere.t.
gobottom
thisform.grdm.value=jl
(1)+1
gotop
locaforgzbx.sfz=thisform.sfz.value
iffound()
waitwindow'输入的人员重复,身份证号不唯一'
retu
else
ifthisform.xb.value=1
xbb='男'
else
xbb='女'
endi
appeblank
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
endi
selebdd
appenfromgzbxfordm=jl+1
thisform.refresh
*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
replgzyywiththisform.text2.value
replgzrqwithdate()
selegzdel
appefromgzbdforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.value
appefromgzbxforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.value
repljslbwithbo1.valueforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.value
replgzyywiththisform.text2.value
replgzrqwithdate()
selegzbd
deleforalltrim(xm)=alltrim(thisform.xmm.value)anddm=thisform.dm.value
selegzbx
dele
waitwindows'删除成功!
'
setfiltto
thisform.refresh
*gzxg.scx(个人修改)保存按钮click
**********************************************
selegzbx
ifthisform.xb.value=1
xbb='男'
else
xbb='女'
endi
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
*********************************************
setexclon
tr=''
if!
empty(thisform.txl.value)
if!
empty(tr)
tr=tr+'andalltrim(xl)=alltrim(thisform.txl.value)'
else
tr='alltrim(xl)=alltrim(thisform.txl.value)'
endi
endi
if!
empty(thisform.tzc.value)
if!
empty(tr)
tr=tr+'andalltrim(zc)=alltrim(thisform.tzc.value)'
else
tr='alltrim(zc)=alltrim(thisform.tzc.value)'
endi
endi
if!
empty(thisform.tqtgz.value)
if!
empty(tr)
tr=tr+'andqtgz=vaL(thisform.tqtgz.value)'
else
tr='qtgz=val(thisform.tqtgz.value)'
endi
endi
if!
empty(thisform.tzw.value)
if!
empty(tr)
tr=tr+'andalltrim(zw)=alltrim(thisform.tzw.value)'
else
tr='alltrim(zw)=alltrim(thisform.tzw.value)'
endi
endi
if!
empty(thisform.tdjgz.value)
if!
empty(tr)
tr=tr+'anddjgz=val(thisform.tdjgz.value)'
else
tr='djgz=val(thisform.tdjgz.value)'
endi
endi
if!
empty(thisform.tjngz.value)
if!
empty(tr)
tr=tr+'andjngz=val(thisform.tjngz.value)'
else
tr='jngz=val(thisform.tjngz.value)'
endi
endi
if!
empty(thisform.gkdw.value)
if!
empty(tr)
tr=tr+'andalltrim(gk)=alltrim(thisform.tgkdw.value)'
else
tr='alltrim(gk)=alltrim(thisform.tgkdw.value)'
endi
endi
if!
empty(thisform.tjndj.value)
if!
empty(tr)
tr=tr+'andjndj=thisform.tjndj.value'
else
tr='jndj=thisform.tjndj.value'
endi
endi
if!
empty(thisform.tmlbt.value)
if!
empty(tr)
tr=tr+'andmlbt=val(thisform.tmlbt.value)'
else
tr='mlbt=val(thisform.tmlbt.value)'
endi
endi
if!
empty(thisform.tgwgz.value)
if!
empty(tr)
tr=tr+'andgwgz=val(thisform.tgwgz.value)'
else
tr='gwgz=val(thisform.tgwgz.value)'
endi
endi
if!
empty(thisform.tdwdm.value)
if!
empty(tr)
tr=tr+'andbm=thisform.tdwdm.value'
else
tr='bm=thisform.tdwdm.value'
endi
endi
if!
empty(thisform.tdjgw.value)
if!
empty(tr)
tr=tr+'anddjgw=thisform.tdjgw.value'
else
tr='djgw=thisform.tdjgw.value'
endi
endi
if!
empty(thisform.tylbx.value)
if!
empty(tr)
tr=tr+'andjbbx=val(thisform.tylbx.value)'
else
tr='jbbx=val(thisform.tylbx.value)'
endi
endi
if!
empty(thisform.tjsbt.value)
if!
empty(tr)
tr=tr+'andjsbt=val(thisform.tjsbt.value)'
else
tr='jsbt=val(thisform.tjsbt.value)'
endi
endi
if!
empty(thisform.tjljt.value)
if!
empty(tr)
tr=tr+'andjljt=val(thisform.tjljt.value)'
else
tr='jljt=val(thisform.tjljt.value)'
endi
endi
if!
empty(thisform.tjnlb.value)
if!
empty(tr)
tr=tr+'andalltrim(jnlb)=alltrim(thisform.tjnlb.value)'
else
tr='alltrim(jnlb)=alltrim(thisform.tjnlb.value)'
endi
endi
if!
empty(thisform.tgwlb.value)
if!
empty(tr)
tr=tr+'andalltrim(gwlb)=alltrim(thisform.tgwlb.value)'
else
tr='alltrim(gwlb)=alltrim(thisform.tgwlb.value)'
endi
endi
if!
empty(thisform.tcxbx.value)
if!
empty(tr)
tr=tr+'andgbbx=vaL(thisform.tcxbx.value)'
else
tr='gbbx=val(thisform.tcxbx.value)'
endi
endi
if!
empty(thisform.COMBO1.value)
if!
empty(thisform.TEXT1.value)
if!
empty(tr)
IFthisform.COMBO1.value='>='
tr=tr+'andcssj>=thisform.TEXT1.value'
ENDI
IFthisform.COMBO1.value='>'
tr=tr+'andcssj>thisform.TEXT1.value'
ENDI
IFthisform.COMBO1.value='='
tr=tr+'andcssj=thisform.TEXT1.value'
ENDI
IFthisform.COMBO1.value='<='
tr=tr+'andcssj<=thisform.TEXT1.value'
ENDI
IFthisform.COMBO1.value='<'
tr=tr+'andcssj ENDI else IFthisform.COMBO1.value='>=' tr='cssj>=thisform.TEXT1.value' ENDI IFthisform.COMBO1.value='>' tr='cssj>thisform.TEXT1.value' ENDI IFthisform.COMBO1.value='=' tr='cssj=thisform.TEXT1.value' ENDI IFthisform.COMBO1.value='<=' tr='cssj<=thisform.TEXT1.value' ENDI IFthisform.COMBO1.value='<' tr='cssj ENDI endi endi ENDI if! empty(thisform.COMBO2.value) if! empty(thisform.TEXT2.value) if! empty(tr) IFbo2.value='>=' tr=tr+'andrjsj>=thisform.text2.value' ENDI IFbo2.value='>' tr=tr+'andrjsj>thisform.text2.value' ENDI IFbo2.value='=' tr=tr+'andrjsj=thisform.text2.value' ENDI IFbo2.value='<=' tr=tr+'andrjsj<=thisform.text2.value' ENDI IFbo2.value='<' tr=tr+'andrjsj ENDI else IFbo2.value='>=' tr='rjsj>=thisform.text2.value' ENDI IFbo2.value='>'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VF 教职工 信息管理 系统 源程序