fke.mpr

学生档案管理系统

 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _0MV16ZHR2 OF _MSYSMENU PROMPT '文 件 (\<F)' COLOR SCHEME 3 KEY ALT+F , ''
 DEFINE PAD _0MV16ZHR3 OF _MSYSMENU PROMPT '编 辑 (\<E)' COLOR SCHEME 3 KEY ALT+E , ''
 DEFINE PAD _0MV16ZHR4 OF _MSYSMENU PROMPT '帮 助 (\<H)' COLOR SCHEME 3 KEY ALT+H , ''
 DEFINE PAD _0MV16ZHR5 OF _MSYSMENU PROMPT '退 出 (\<E)' COLOR SCHEME 3 KEY ALT+E , ''
 ON PAD _0MV16ZHR2 OF _MSYSMENU ACTIVATE POPUP 文件F
 ON PAD _0MV16ZHR3 OF _MSYSMENU ACTIVATE POPUP 编辑E
 ON PAD _0MV16ZHR4 OF _MSYSMENU ACTIVATE POPUP 帮助H
 ON PAD _0MV16ZHR5 OF _MSYSMENU ACTIVATE POPUP 退出E
 DEFINE POPUP 文件F COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MFI_CLOSE OF 文件F PROMPT '关闭(\<C)' MESSAGE '关闭当前文件' KEY CTRL+C ,  ;
      'CTRL+C'
 DEFINE BAR _MFI_CLALL OF 文件F PROMPT '全部关闭(\<Z)' MESSAGE '全部关闭窗口' KEY CTRL+Z ,  ;
      'CTRL+Z'
 DEFINE POPUP 编辑E COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MED_CUT OF 编辑E PROMPT '剪切(\<T)' MESSAGE '移去选定内容并将其放入剪贴板'  ;
      KEY CTRL+X , 'Ctrl+X'
 DEFINE BAR _MED_COPY OF 编辑E PROMPT '复制(\<C)' MESSAGE '将选定内容复制到剪贴板上' KEY  ;
      CTRL+C , 'Ctrl+C'
 DEFINE BAR _MED_PASTE OF 编辑E PROMPT '粘贴(\<P)' MESSAGE '粘贴剪贴板上的内容' KEY  ;
      CTRL+V , 'Ctrl+V'
 DEFINE POPUP 帮助H COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 帮助H PROMPT '技术支持(\<H)' MESSAGE '提供软件支持信息' KEY CTRL+H ,  ;
      'CTRL+H'
 DEFINE BAR 2 OF 帮助H PROMPT '关于(\<A)' MESSAGE '提供软件关于信息' KEY CTRL+A ,  ;
      'CTRL+A'
 ON SELECTION BAR 1 OF 帮助H do form 帮助.scx
 ON SELECTION BAR 2 OF 帮助H do form 关于启动.scx
 DEFINE POPUP 退出E COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 退出E PROMPT '退出系统(\<Q)' MESSAGE '退出系统！' KEY CTRL+Q , 'CTRL+Q'
 ON SELECTION BAR 1 OF 退出E  ;
      DO _0mv16zhrc  IN LOCFILE("\XEROXPRO\FKE" ,"MPX;MPR|FXP;PRG" ,"WHERE is FKE?")

PROCEDURE _0mv16zhrc
 AAC = MESSAGEBOX('真的要退出系统吗？请保存好数据据后按＜确定＞退出。',33,'疑问')
 IF AAC = 1
    CLOSE ALL
    USE czry
    PACK 
    QUIT 
 ENDIF 
ENDPROC