VF教职工信息管理系统-源程序.docVIP

*主程序 ********************************************** 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