cx1.mpr

办公室档案管理系统源代码

*       *********************************************************
*       *                                                         
*       * 12/08/03               CX1.MPR                12:52:17  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

parameter qx

*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*


DEFINE PAD _1430rl6hw OF _MSYSMENU PROMPT "委托(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1430rl6hx OF _MSYSMENU PROMPT "检测(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1430rl6hy OF _MSYSMENU PROMPT "报告(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1430rl6hz OF _MSYSMENU PROMPT "台帐(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1430rl6i0 OF _MSYSMENU PROMPT "员工(\<Y)" COLOR SCHEME 3 ;
	KEY ALT+Y, ""
DEFINE PAD _1430rl6i1 OF _MSYSMENU PROMPT "维护(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1430rl6i2 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1430rl6hw OF _MSYSMENU ACTIVATE POPUP 委托w
ON PAD _1430rl6hx OF _MSYSMENU ACTIVATE POPUP 检测t
ON PAD _1430rl6hy OF _MSYSMENU ACTIVATE POPUP 报告b
ON PAD _1430rl6hz OF _MSYSMENU ACTIVATE POPUP 台帐t
ON PAD _1430rl6i0 OF _MSYSMENU ACTIVATE POPUP 员工y
ON PAD _1430rl6i1 OF _MSYSMENU ACTIVATE POPUP 维护p
ON PAD _1430rl6i2 OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 委托w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 委托w PROMPT "输入" ;
	KEY CTRL+E, "CTRL+E" ;
	MESSAGE "输入工程基本信息及委托项目"
DEFINE BAR 2 OF 委托w PROMPT "\-"
DEFINE BAR 3 OF 委托w PROMPT "查询打印" ;
	KEY CTRL+H, "CTRL+H" ;
	MESSAGE "根据单位名称和委托编号查询委托单内容并打印"
DEFINE BAR 4 OF 委托w PROMPT "\-"
DEFINE BAR 5 OF 委托w PROMPT "修改" ;
	MESSAGE "修改委托单内容"
DEFINE BAR 6 OF 委托w PROMPT "\-"
DEFINE BAR 7 OF 委托w PROMPT "删除" ;
	KEY CTRL+D, "CTRL+D" ;
	MESSAGE "删除委托单"

DEFINE POPUP 检测t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 检测t PROMPT "录入" ;
	KEY CTRL+B, "CTRL+B" ;
	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\sm.scx with qx

DEFINE POPUP 报告b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报告b PROMPT "审核" ;
	KEY CTRL+G, "CTRL+G" ;
	MESSAGE "审核原始记录并生成报告"
DEFINE BAR 2 OF 报告b PROMPT "\-"
DEFINE BAR 3 OF 报告b PROMPT "查询" ;
	MESSAGE "查询所有已经审核的报告"
DEFINE BAR 4 OF 报告b PROMPT "\-"
DEFINE BAR 5 OF 报告b PROMPT "打印" ;
	KEY CTRL+P, "CTRL+P" ;
	MESSAGE "打印报告"

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 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 "查询个人基本信息"

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 7 OF 帮助h ;
	DO _1430rl6il ;
	IN LOCFILE("\JS2003\CD\CX1" ,"MPX;MPR|FXP;PRG" ,"WHERE is CX1?")

ON SELECTION MENU _MSYSMENU dd qz

*       *********************************************************
*       *                                                         
*       * _1430RL6IL  ON SELECTION BAR 7 OF POPUP 帮助h           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CX1.MPR,            Record:   76            
*       * Called By:  ON SELECTION BAR 7 OF POPUP 帮助h           
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1430rl6il
if messagebox('请确认是否退出？',292,'检测报告管理系统')=6
wait "正在退出检测报告管理系统" window nowait
wait clear
clear events
endif