gz_str.prg

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

set skip of bar 1 OF 台帐基础管 .t.
set skip of bar 2 OF 台帐基础管 .t.
set skip of bar 3 OF 台帐基础管 .t.
set skip of bar 4 OF 台帐基础管 .t.
set skip of bar 6 OF 台帐基础管 .t.

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

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  
set excl on
clos database
use gz

modi stru
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.
use
endif