cx.mpr

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

*       *********************************************************
*       *                                                         
*       * 06/05/04               CX.MPR                 17:50:52  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 曾德华                                                  
*       *                                                         
*       * 版权所有 (C) 2004 海南省华宇有限责任公司               
*       * 地址                                                    
*       * 海口市, 海南  571700                                      
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

lparameter qx
qx=alltrim(qx)

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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1951295cm OF _MSYSMENU PROMPT "检测(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1951295co OF _MSYSMENU PROMPT "报告(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1951295cp OF _MSYSMENU PROMPT "台帐(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1951295cs OF _MSYSMENU PROMPT "员工(\<Y)" COLOR SCHEME 3 ;
	KEY ALT+Y, ""
DEFINE PAD _1951295ct OF _MSYSMENU PROMPT "维护(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _1951295cu OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1951295cm OF _MSYSMENU ACTIVATE POPUP 检测t
ON PAD _1951295co OF _MSYSMENU ACTIVATE POPUP 报告b
ON PAD _1951295cp OF _MSYSMENU ACTIVATE POPUP 台帐t
ON PAD _1951295cs OF _MSYSMENU ACTIVATE POPUP 员工y
ON PAD _1951295ct OF _MSYSMENU ACTIVATE POPUP 维护p
ON PAD _1951295cu OF _MSYSMENU ACTIVATE POPUP 帮助h

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 "管理权限" ;
	SKIP FOR qx=12 ;
	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 "查询个人基本信息"
ON SELECTION BAR 1 OF 员工y do bd\ygbd.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 7 OF 帮助h ;
	DO _1951295di ;
	IN LOCFILE("\SICARLCO\CD\CX" ,"MPX;MPR|FXP;PRG" ,"WHERE is CX?")

ON SELECTION MENU _MSYSMENU qx=alltrim(qx)

*       *********************************************************
*       *                                                         
*       *                      清理代码及过程                     
*       *                                                         
*       *********************************************************
*

qx=alltrim(qx)

*       *********************************************************
*       *                                                         
*       * _1951295DI  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 _1951295di
if messagebox('请确认是否退出？',292,'检测报告管理系统')=6
wait "正在退出检测报告管理系统" window nowait
wait clear
clear events
endif