?? xtcd.mpr
字號:
* *********************************************************
* *
* * 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -