admin_menu.prg

一套难绝对能编译的人事系统,界面漂亮,构思新颖,

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: ADMIN_MENU.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LPARAMETER WINNAME
 DEFINE MENU ADMIN_MENU BAR IN (WINNAME)
 DEFINE PAD PAD1 OF ADMIN_MENU PROMPT '文件(\<F)' COLOR SCHEME 3 KEY ALT+F , ''
 DEFINE PAD PAD2 OF ADMIN_MENU PROMPT '编辑(\<E)' SKIP FOR T_READONLY COLOR SCHEME 3 KEY  ;
      ALT+E , ''
 ON PAD PAD1 OF ADMIN_MENU ACTIVATE POPUP 文件
 ON PAD PAD2 OF ADMIN_MENU ACTIVATE POPUP 编辑
 DEFINE POPUP 文件 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 文件 PROMPT '重新装载数据(\<R)' SKIP FOR  .NOT. (T_READONLY) KEY CTRL+R ,  ;
      '^R'
 DEFINE BAR 2 OF 文件 PROMPT '更新数据库(\<U)' SKIP FOR  ;
      T_READONLY .OR.  .NOT. ADMIN_MANGER.COMMAND2.ENABLED KEY CTRL+U , '^U'
 DEFINE BAR 3 OF 文件 PROMPT '\-'
 DEFINE BAR 4 OF 文件 PROMPT '添加新的用户(\<N)' SKIP FOR T_READONLY KEY CTRL+N , '^N'  ;
      HALFHEIGHT IMAGETEMP(12)
 DEFINE BAR 5 OF 文件 PROMPT '删除当前的用户(\<D)' SKIP FOR T_READONLY KEY CTRL+D , '^D'  ;
      HALFHEIGHT IMAGETEMP(9)
 DEFINE BAR 6 OF 文件 PROMPT '查找指定的用户纪录(\<F)' KEY CTRL+F , '^F' HALFHEIGHT  ;
      IMAGETEMP(11)
 DEFINE BAR 7 OF 文件 PROMPT '\-'
 DEFINE BAR 8 OF 文件 PROMPT '退出' HALFHEIGHT IMAGETEMP(10)
 ON SELECTION BAR 1 OF 文件 admin_manger.command2.Click
 ON SELECTION BAR 2 OF 文件 admin_manger.command2.Click
 ON SELECTION BAR 4 OF 文件 admin_manger.container2.new.click
 ON SELECTION BAR 5 OF 文件 admin_manger.container2.delerec.click
 ON SELECTION BAR 6 OF 文件 admin_manger.container2.search.click
 ON SELECTION BAR 8 OF 文件 admin_manger.command1.Click
 DEFINE POPUP 编辑 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 编辑 PROMPT '撤销当前所有的修改(\<Z)' SKIP FOR  ;
       .NOT. (ADMIN_MANGER.CONTAINER2.UNDO.ENABLED) KEY CTRL+Z , '^Z' HALFHEIGHT IMAGETEMP(17)
 DEFINE BAR 2 OF 编辑 PROMPT '保存当前所做的修改(\<S)' SKIP FOR  ;
       .NOT. (ADMIN_MANGER.CONTAINER2.SAVE.ENABLED) KEY CTRL+S , '^S' HALFHEIGHT IMAGETEMP(15)
 DEFINE BAR 3 OF 编辑 PROMPT '\-'
 DEFINE BAR 4 OF 编辑 PROMPT '更改当前用户的密码(\<P)' KEY CTRL+P , '^P' HALFHEIGHT  ;
      IMAGETEMP(14)
 DEFINE BAR 5 OF 编辑 PROMPT '对用户的权限进行设置(\<Q)' KEY CTRL+Q , '^Q' HALFHEIGHT  ;
      IMAGETEMP(19)
 DEFINE BAR 6 OF 编辑 PROMPT '\-'
 DEFINE BAR 7 OF 编辑 PROMPT '修改系统管理员密码(\<A)' SKIP FOR  ;
      (SUBSTR(CHREN(_SCREEN.CURRENTWIDE,0),15,1) = '2' .OR.  ;
_SCREEN.CURRENTUSER == 'ADMINISTRATOR')  ;
      KEY CTRL+A , '^A'
 ON SELECTION BAR 1 OF 编辑 admin_manger.container2.undo.click
 ON SELECTION BAR 2 OF 编辑 admin_manger.container2.save.click
 ON SELECTION BAR 4 OF 编辑 admin_manger.cgpaswd
 ON SELECTION BAR 5 OF 编辑 admin_manger.cgwide
 ON SELECTION BAR 7 OF 编辑 admin_manger.cgadminpaswd
 ACTIVATE MENU ADMIN_MENU NOWAIT
*