gz_clear.prg

建设银行代发财政局工资接口系统

gz_gj.mybar.command6.enabled=.f.
gz_gj.mybar.command7.enabled=.f.
gz_gj.mybar.command8.enabled=.f.

gz_gj.mybar.command1.enabled=.f.
gz_gj.mybar.command2.enabled=.f.
gz_gj.mybar.command3.enabled=.f.
gz_gj.mybar.command4.enabled=.f.
gz_gj.mybar.command5.enabled=.f.
gz_gj.mybar.command9.enabled=.f.
gz_gj.mybar.command10.enabled=.f.
gz_gj.mybar.command11.enabled=.f.
gz_gj.mybar.command12.enabled=.f.

if messagebox("请注意:在执行本功能前,请其他用户退出本系统,"+chr(13)+"否则,本系统将强行关闭其他用户的数据文件。",1+64,"提示")#1
set skip of bar 1 OF 台帐基础管 .f.
set skip of bar 2 OF 台帐基础管 .f.
set skip of bar 3 OF 台帐基础管 .f.
set skip of bar 4 OF 台帐基础管 .f.
set skip of bar 6 OF 台帐基础管 .f.

set skip of BAR 1 OF 系统管理 .f.
set skip of BAR 2 OF 系统管理 .f.
set skip of BAR 3 OF 系统管理 .f.
set skip of BAR 4 OF 系统管理 .f.

gz_gj.mybar.command1.enabled=.t.
gz_gj.mybar.command2.enabled=.t.
gz_gj.mybar.command3.enabled=.t.
gz_gj.mybar.command4.enabled=.t.
gz_gj.mybar.command5.enabled=.t.
gz_gj.mybar.command9.enabled=.t.
gz_gj.mybar.command10.enabled=.t.
gz_gj.mybar.command11.enabled=.t.
gz_gj.mybar.command12.enabled=.t.

  retu
else  
wait windows "正在清理数据,请稍候......" nowait
set excl on
clos database
use gz
pack
use links
pack
use gs
pack
use
wait clear
xx=messagebox("数据清理完毕...",0+64,"提示")#1
gz_gj.mybar.command1.enabled=.t.
gz_gj.mybar.command2.enabled=.t.
gz_gj.mybar.command3.enabled=.t.
gz_gj.mybar.command4.enabled=.t.
gz_gj.mybar.command5.enabled=.t.
gz_gj.mybar.command9.enabled=.t.
gz_gj.mybar.command10.enabled=.t.
gz_gj.mybar.command11.enabled=.t.
gz_gj.mybar.command12.enabled=.t.
gz_gj.mybar.command6.enabled=.t.
gz_gj.mybar.command7.enabled=.t.
gz_gj.mybar.command8.enabled=.t.
set skip of bar 1 OF 台帐基础管 .f.
set skip of bar 2 OF 台帐基础管 .f.
set skip of bar 3 OF 台帐基础管 .f.
set skip of bar 4 OF 台帐基础管 .f.
set skip of bar 6 OF 台帐基础管 .f.

set skip of BAR 1 OF 系统管理 .f.
set skip of BAR 2 OF 系统管理 .f.
set skip of BAR 3 OF 系统管理 .f.
set skip of BAR 4 OF 系统管理 .f.

endif