?? 主菜單.mpr
字號:
* *********************************************************
* *
* * 10/22/08 主菜單.MPR 08:53:51
* *
* *********************************************************
* *
* * 作者名稱
* *
* * 版權所有 (C) 2008 公司名稱
* * 地址
* * 城市, 郵編
* * 國家
* *
* * 說明:
* * 此程序由 GENMENU 自動生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜單定義
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _2hs0j2k0h OF _MSYSMENU PROMPT "系統維護(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, ""
DEFINE PAD _2hs0j2k0i OF _MSYSMENU PROMPT "數據錄入(\<R)" COLOR SCHEME 3 ;
KEY ALT+R, ""
DEFINE PAD _2hs0j2k0j OF _MSYSMENU PROMPT "數據瀏覽(\<B)" COLOR SCHEME 3 ;
KEY ALT+B, ""
DEFINE PAD _2hs0j2k0k OF _MSYSMENU PROMPT "數據查詢(\<F)" COLOR SCHEME 3 ;
KEY ALT+F, ""
DEFINE PAD _2hs0j2k0l OF _MSYSMENU PROMPT "報表(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, ""
DEFINE PAD _2hs0j2k0m OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _2hs0j2k0h OF _MSYSMENU ACTIVATE POPUP 系統維護s
ON PAD _2hs0j2k0i OF _MSYSMENU ACTIVATE POPUP 數據錄入r
ON SELECTION PAD _2hs0j2k0j OF _MSYSMENU do form"f:0\數據瀏覽.scx"
ON SELECTION PAD _2hs0j2k0k OF _MSYSMENU do form"f:\0\學生信息查詢.scx"
ON PAD _2hs0j2k0l OF _MSYSMENU ACTIVATE POPUP 報表t
ON PAD _2hs0j2k0m OF _MSYSMENU ACTIVATE POPUP 幫助h
DEFINE POPUP 系統維護s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統維護s PROMPT "數據備份(\<B)"
DEFINE BAR 2 OF 系統維護s PROMPT "數據恢復(\<F)"
DEFINE BAR 3 OF 系統維護s PROMPT "更改密碼(\<R)"
DEFINE BAR 4 OF 系統維護s PROMPT "頁面設置(\<U)"
DEFINE BAR 5 OF 系統維護s PROMPT "退出(\<X)"
ON SELECTION BAR 5 OF 系統維護s ;
DO _2hs0j2k0n ;
IN LOCFILE("\0\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
DEFINE POPUP 數據錄入r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 數據錄入r PROMPT "學生(\<S)"
DEFINE BAR 2 OF 數據錄入r PROMPT "專業信息(\<P)"
DEFINE BAR 3 OF 數據錄入r PROMPT "宿舍信息(\<Z)"
ON SELECTION BAR 1 OF 數據錄入r do form"f:0\學生信息.scx"
ON SELECTION BAR 2 OF 數據錄入r do form"f:\0\專業信息.scx"
ON SELECTION BAR 3 OF 數據錄入r do form"f:\0\宿舍信息.scx"
DEFINE POPUP 報表t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 報表t PROMPT "學生信息報表(\<I)"
DEFINE BAR 2 OF 報表t PROMPT "學生成績報表"
ON SELECTION BAR 1 OF 報表t report form"f:\0\學生信息報表.frx" preview
ON SELECTION BAR 2 OF 報表t report form"f:\0\學生成績報表.frx" preview
DEFINE POPUP 幫助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助h PROMPT "幫助主題(\<V)"
DEFINE BAR 2 OF 幫助h PROMPT "關于系統(\<A)"
ON SELECTION BAR 2 OF 幫助h do form"f:\0\幫助.scx"
* *********************************************************
* *
* * _2HS0J2K0N ON SELECTION BAR 5 OF POPUP 系統維護s
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 13
* * Called By: ON SELECTION BAR 5 OF POPUP 系統維護s
* * Prompt: 退出(X)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2hs0j2k0n
tempstr=messagebox("確定要退出嗎?",68,"學生住宿管理系統")
if tempstr=6
use
modi window screen
set sysmenu to default
activate window command
release all
clear events
endif
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -