📄 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 + -