xtgb.prg

来自「本成绩管理系统由foxpro编写,可在VF下运行-the wage manage」· PRG 代码 · 共 21 行

function  xtgb
If  dltc=.T.                             &&用户密码为空值
on  shutdown
clear  event
close  table  all
close  database
set  sysmenu  to  default            &&恢复系统主菜单设置
set  talk  on
set  clock  off
set  sysmenu  on                   &&启动系统主菜单
set  notify  on
set  delete  off
set  excl  on
set  safety  on
else
clear  event
set  sysmenu  off
set  sysmenu  to
endif
endfunc