gjxz.prg

来自「专家库管理系统(多用户)」· PRG 代码 · 共 22 行

IF WEXIST("tz_gj")
    RELEASE windows tz_gj
   ELSE
    DO form tz_gj NAME tz_gj
    IF WEXIST("ryzl")
       tz_gj.mybar.command1.enabled=.f.
    ENDIF
    IF WEXIST("xtzd")
       tz_gj.mybar.command2.enabled=.f.
    ENDIF       
    IF WEXIST("dy")
       tz_gj.mybar.command3.enabled=.f.
    ENDIF    
    IF WEXIST("bfhf")
       tz_gj.mybar.command4.enabled=.f.
    ENDIF    
    IF WEXIST("about")
       tz_gj.mybar.command7.enabled=.f.
    ENDIF        
  ENDIF
 set mark of bar 1 of 查看v to WEXIST("tz_gj")