?? cx.prg
字號:
* *********************************************************
* *
* * 12/09/03 CX.MPR 14:23:49
* *
* *********************************************************
* *
* * 曾德華
* *
* * 版權所有 (C) 2003 海南省華宇有限責任公司
* * 地址
* * 海口市, 海南 571700
* * 中國
* *
* * 說明:
* * 此程序由 GENMENU 自動生成。
* *
* *********************************************************
* *********************************************************
* *
* * 設置代碼
* *
* *********************************************************
*
* *********************************************************
* *
* * 菜單定義
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
on shutdown do quit1.prg
on error do err.prg
*set defa to cd\gz
DEFINE PAD _1440uuvzc OF _MSYSMENU PROMPT "收文管理(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, ""
DEFINE PAD _1440uuvze OF _MSYSMENU PROMPT "發文管理(\<F)" COLOR SCHEME 3 ;
KEY ALT+F, ""
*DEFINE PAD _1440uuvzf OF _MSYSMENU PROMPT "員工管理(\<Y)" COLOR SCHEME 3 ;
* KEY ALT+Y, ""
DEFINE PAD _1440uuvzg OF _MSYSMENU PROMPT "臺帳(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, ""
DEFINE PAD _1440uuvzh OF _MSYSMENU PROMPT "員工管理(\<Y)" COLOR SCHEME 3 ;
KEY ALT+Y, ""
DEFINE PAD _1440uuvzi OF _MSYSMENU PROMPT "系統維護(\<P)" COLOR SCHEME 3 ;
KEY ALT+P, ""
DEFINE PAD _1440uuvzj OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _1440uuvzc OF _MSYSMENU ACTIVATE POPUP 收文管理c
ON PAD _1440uuvze OF _MSYSMENU ACTIVATE POPUP 發文管理f
*ON PAD _1440uuvzf OF _MSYSMENU ACTIVATE POPUP 員工管理y
ON PAD _1440uuvzg OF _MSYSMENU ACTIVATE POPUP 臺帳t
ON PAD _1440uuvzh OF _MSYSMENU ACTIVATE POPUP 員工管理y
ON PAD _1440uuvzi OF _MSYSMENU ACTIVATE POPUP 系統維護p
ON PAD _1440uuvzj OF _MSYSMENU ACTIVATE POPUP 幫助h
DEFINE POPUP 收文管理c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 收文管理c PROMPT "收文登記" ;
KEY CTRL+B, "CTRL+B" ;
MESSAGE "收文登記"
DEFINE BAR 2 OF 收文管理c PROMPT "\-"
DEFINE BAR 3 OF 收文管理c PROMPT "收文修改" ;
KEY CTRL+E, "CTRL+E" ;
MESSAGE "收文修改"
DEFINE BAR 4 OF 收文管理c PROMPT "\-"
DEFINE BAR 5 OF 收文管理c PROMPT "收文查詢" ;
KEY CTRL+W, "CTRL+W" ;
MESSAGE "收文查詢"
ON SELECTION BAR 1 OF 收文管理c do form bd\cw_1.scx
ON SELECTION BAR 3 OF 收文管理c do form bd\cw_2.scx
ON SELECTION BAR 5 OF 收文管理c do form bd\cw_3.scx
DEFINE POPUP 發文管理f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 發文管理f PROMPT "發文登記" ;
KEY CTRL+D, "CTRL+D" ;
*SKIP FOR qx=12;
MESSAGE "發文登記"
DEFINE BAR 2 OF 發文管理f PROMPT "\-"
DEFINE BAR 3 OF 發文管理f PROMPT "發文修改" ;
KEY CTRL+K, "CTRL+K" ;
MESSAGE "發文修改"
DEFINE BAR 4 OF 發文管理f PROMPT "\-"
DEFINE BAR 5 OF 發文管理f PROMPT "發文查詢" ;
KEY CTRL+Q, "CTRL+Q" ;
MESSAGE "發文查詢"
ON SELECTION BAR 1 OF 發文管理f do form bd\fw_1.scx
ON SELECTION BAR 3 OF 發文管理f do form bd\fw_2.scx
ON SELECTION BAR 5 OF 發文管理f do form bd\fw_3.scx
*DEFINE POPUP 員工管理y MARGIN RELATIVE SHADOW COLOR SCHEME 4
*DEFINE BAR 1 OF 員工管理y PROMPT "審核" ;
* SKIP FOR qx=12.or.qx=13.or.qx=10;
* KEY CTRL+G, "CTRL+G" ;
* MESSAGE "審核原始記錄并生成報告"
*DEFINE BAR 2 OF 員工管理y PROMPT "\-"
*DEFINE BAR 3 OF 員工管理y PROMPT "查詢" ;
* MESSAGE "查詢所有已經審核的報告"
*DEFINE BAR 4 OF 員工管理y PROMPT "\-"
*DEFINE BAR 5 OF 員工管理y PROMPT "打印" ;
* KEY CTRL+P, "CTRL+P" ;
* MESSAGE "打印報告"
* ON SELECTION BAR 1 OF 員工管理y do form bd\bg.scx
* ON SELECTION BAR 3 OF 員工管理y do form bd\bgcx.scx
* ON SELECTION BAR 5 OF 員工管理y do form bd\bgdy.scx
DEFINE POPUP 臺帳t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 臺帳t PROMPT "修改密碼" ;
MESSAGE "修改個人密碼"
DEFINE BAR 2 OF 臺帳t PROMPT "\-"
DEFINE BAR 3 OF 臺帳t PROMPT "管理權限" ;
MESSAGE "設置用戶權限"
DEFINE BAR 4 OF 臺帳t PROMPT "\-"
DEFINE BAR 5 OF 臺帳t PROMPT "注消" ;
MESSAGE "更換另一用戶登陸"
ON SELECTION BAR 1 OF 臺帳t do form bd\cgmm.scx
ON SELECTION BAR 3 OF 臺帳t do form bd\yhqx.scx
ON SELECTION BAR 5 OF 臺帳t do form bd\dl1.scx
DEFINE POPUP 員工管理y MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 員工管理y PROMPT "錄入" ;
MESSAGE "錄入個人的基本信息"
DEFINE BAR 2 OF 員工管理y PROMPT "\-"
DEFINE BAR 3 OF 員工管理y PROMPT "修改" ;
MESSAGE "修改個人基本信息"
DEFINE BAR 4 OF 員工管理y PROMPT "\-"
DEFINE BAR 5 OF 員工管理y PROMPT "查詢" ;
MESSAGE "查詢個人基本信息"
ON SELECTION BAR 1 OF 員工管理y do form bd\ygbd.scx
ON SELECTION BAR 3 OF 員工管理y do form bd\ygbdcg.scx
ON SELECTION BAR 5 OF 員工管理y do form bd\ygbdcx.scx
DEFINE POPUP 系統維護p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統維護p PROMPT "導出" ;
MESSAGE "導出數據庫，備份存盤，以備數據丟失"
DEFINE BAR 2 OF 系統維護p PROMPT "\-"
DEFINE BAR 3 OF 系統維護p PROMPT "導入" ;
MESSAGE "導入備份文件"
DEFINE BAR 4 OF 系統維護p PROMPT "\-"
DEFINE BAR 5 OF 系統維護p PROMPT "上傳" ;
MESSAGE "傳送到互聯網上"
DEFINE POPUP 幫助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助h PROMPT "幫助" ;
KEY F1, "F1" ;
MESSAGE "幫助信息"
DEFINE BAR 2 OF 幫助h PROMPT "\-"
DEFINE BAR 3 OF 幫助h PROMPT "主頁" ;
MESSAGE "網站主頁"
DEFINE BAR 4 OF 幫助h PROMPT "\-"
DEFINE BAR 5 OF 幫助h PROMPT "關于" ;
MESSAGE "關于"
DEFINE BAR 6 OF 幫助h PROMPT "\-"
DEFINE BAR 7 OF 幫助h PROMPT "退出"
ON SELECTION BAR 3 OF 幫助h do form bd\index.scx
ON SELECTION BAR 5 OF 幫助h do form bd\gy.scx
ON SELECTION BAR 7 OF 幫助h ;
DO quit
set classlib to e:\sicarlco\cd\gz
toolbars=CREATEOBJECT('gz.工具欄')
toolbars.show
toolbars.dock(0)
*IN LOCFILE("\JS2003\CD\CX" ,"MPX;MPR|FXP;PRG" ,"WHERE is CX?")
* *********************************************************
* *
* * _1440UUW01 ON SELECTION BAR 7 OF POPUP 幫助h
* *
* * Procedure Origin:
* *
* * From Menu: CX.MPR, Record: 64
* * Called By: ON SELECTION BAR 7 OF POPUP 幫助h
* * Prompt: 退出
* * Snippet: 1
* *
* *********************************************************
*
*PROCEDURE 01
*if messagebox('請確認是否退出？',292,'檢測報告管理系統')=6
*wait "正在退出檢測報告管理系統" window nowait
*wait clear
*clear events
*endif
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -