*       *********************************************************
*       *                                                         
*       * 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