*       *********************************************************
*       *                                                         
*       * 12/22/05              XTCD.MPR                15:08:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱                                                
*       *                                                         
*       * 版權所有 (C) 2005 公司名稱                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國家                                              
*       *                                                         
*       * 說明:                                            
*       * 此程序由 GENMENU 自動生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜單定義                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ov0wfvjw OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _1ov0wfvjx OF _MSYSMENU PROMPT "記錄操作" COLOR SCHEME 3 ;
	SKIP FOR x1=0
DEFINE PAD _1ov0wfvjy OF _MSYSMENU PROMPT "綜合信息" COLOR SCHEME 3 ;
	SKIP FOR x2=0
DEFINE PAD _1ov0wfvjz OF _MSYSMENU PROMPT "查詢" COLOR SCHEME 3 ;
	SKIP FOR x3=0
DEFINE PAD _1ov0wfvk0 OF _MSYSMENU PROMPT "統計" COLOR SCHEME 3
ON PAD _1ov0wfvjw OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD _1ov0wfvjx OF _MSYSMENU ACTIVATE POPUP 記錄操作
ON SELECTION PAD _1ov0wfvjy OF _MSYSMENU do form 頁框
ON PAD _1ov0wfvjz OF _MSYSMENU ACTIVATE POPUP 查詢
ON PAD _1ov0wfvk0 OF _MSYSMENU ACTIVATE POPUP 統計

DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件 PROMPT "系統備份"
DEFINE BAR 2 OF 文件 PROMPT "系統恢復"
DEFINE BAR 3 OF 文件 PROMPT "修改用戶密碼"
DEFINE BAR 4 OF 文件 PROMPT "登錄"
DEFINE BAR 5 OF 文件 PROMPT "\-"
DEFINE BAR 6 OF 文件 PROMPT "退出"
ON SELECTION BAR 1 OF 文件 ;
	DO _1ov0wfvk1 ;
	IN LOCFILE("教師信息管理系統\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")
ON SELECTION BAR 2 OF 文件 ;
	DO _1ov0wfvk2 ;
	IN LOCFILE("教師信息管理系統\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")
ON SELECTION BAR 3 OF 文件 do form .\修改
ON SELECTION BAR 4 OF 文件 do form 登錄
ON SELECTION BAR 6 OF 文件 ;
	DO _1ov0wfvk3 ;
	IN LOCFILE("教師信息管理系統\XTCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is XTCD?")

DEFINE POPUP 記錄操作 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 記錄操作 PROMPT "教師"
DEFINE BAR 2 OF 記錄操作 PROMPT "授課"
DEFINE BAR 3 OF 記錄操作 PROMPT "課酬"
ON SELECTION BAR 1 OF 記錄操作 do form 教師
ON SELECTION BAR 2 OF 記錄操作 do form 授課
ON SELECTION BAR 3 OF 記錄操作 do form 課酬

DEFINE POPUP 查詢 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢 PROMPT "姓名查詢"
DEFINE BAR 2 OF 查詢 PROMPT "編號查詢"
DEFINE BAR 3 OF 查詢 PROMPT "工齡查詢"
ON SELECTION BAR 1 OF 查詢 do form 姓名查詢
ON SELECTION BAR 2 OF 查詢 do form 編號查詢
ON SELECTION BAR 3 OF 查詢 do form 工齡查詢

DEFINE POPUP 統計 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 統計 PROMPT "基本情況"
ON SELECTION BAR 1 OF 統計 do form 統計


*       *********************************************************
*       *                                                         
*       * _1OV0WFVK1  ON SELECTION BAR 1 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 文件            
*       * Prompt:     系統備份                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ov0wfvk1
if messagebox("請將備份盤插入軟盤驅動器,系統數據庫將備份到軟盤",4+32+256,"提示信息")=6
 copy file .\教師簡況.*  a:\
 copy file .\授課.*   a:\
 copy file .\課酬.*  a:\
 endif


*       *********************************************************
*       *                                                         
*       * _1OV0WFVK2  ON SELECTION BAR 2 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:    6           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 文件            
*       * Prompt:     系統恢復                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ov0wfvk2
if messagebox("請將備份盤插入軟盤驅動器",4+32+256,"提示信息")=6
 wait
 copy  file a:\教師簡況.*  .\
 copy file a:\授課.*   .\
 copy file a:\課酬.*  .\
 endif


*       *********************************************************
*       *                                                         
*       * _1OV0WFVK3  ON SELECTION BAR 6 OF POPUP 文件            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XTCD.MPR,            Record:   10           
*       * Called By:  ON SELECTION BAR 6 OF POPUP 文件            
*       * Prompt:     退出                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ov0wfvk3
set sysmenu to default
clear event