[计算机软件设计精品] 《沈阳市现代科技学校教职工信息管理系统》设计源程序.doc

《沈阳市现代科技学校教职工信息管理系统》
源程序清单
源代码前联系QQ68661508
姓名:
学号:
指导老师:XXX
专业:计算机科学与技术
*主程序
**********************************************
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
=.f.
=.f.
=.f.
=1
=.f.
='沈阳市现代科技学校教职工信息管理系统'
do form fm
read events
* click 事件
**********************************************

do form 密码
* 确定按钮 click 事件
**********************************************
sele czyxx
i=i+1
if i <= 3

if alltrim(密码)<>
messagebox('用户名称或密码无效,请重试!',16,'警告窗口')
retu
else
if 权限='特权用户'
qx=1
else
qx=0
endi


=.t.
=2
= 'D:\GZGL\PIC\'
do form csh
do

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
* (字典库维护)增加按钮
**********************************************
sele &bd
go bott
appe blank

*(字典库维护)删除按钮

sele &bd
dele

*(字典库维护)恢复按钮