?? zhumenu.mpr
字號:
* *********************************************************
* *
* * 10/30/06 ZHUMENU.MPR 21:28:48
* *
* *********************************************************
* *
* * 作者名稱
* *
* * 版權所有 (C) 2006 公司名稱
* * 地址
* * 城市, 郵編
* * 國家
* *
* * 說明:
* * 此程序由 GENMENU 自動生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜單定義
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1xl1a1f99 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
KEY CTRL+F, "CTRL+F"
DEFINE PAD _1xl1a1f9o OF _MSYSMENU PROMPT "編輯(\<E)" COLOR SCHEME 3 ;
KEY CTRL+E, "CTRL+E"
DEFINE PAD _1xl1a1f9p OF _MSYSMENU PROMPT "學籍(\<X)" COLOR SCHEME 3 ;
KEY CTRL+X, "CTRL+X"
DEFINE PAD _1xl1a1f9q OF _MSYSMENU PROMPT "成績(\<C)" COLOR SCHEME 3 ;
KEY CTRL+C, "CTRL+C"
DEFINE PAD _1xl1a1f9r OF _MSYSMENU PROMPT "課程(\<G)" COLOR SCHEME 3 ;
KEY CTRL+G, "CTRL+G"
DEFINE PAD _1xl1a1f9s OF _MSYSMENU PROMPT "系統維護(\<M)" COLOR SCHEME 3 ;
KEY CTRL+M, "CTRL+M"
DEFINE PAD _1xl1a1f9t OF _MSYSMENU PROMPT "退出系統(\<Q)" COLOR SCHEME 3 ;
KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _1xl1a1f9u OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
KEY CTRL+H, "CTRL+H"
ON PAD _1xl1a1f99 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _1xl1a1f9p OF _MSYSMENU ACTIVATE POPUP 學籍x
ON PAD _1xl1a1f9q OF _MSYSMENU ACTIVATE POPUP 成績c
ON PAD _1xl1a1f9r OF _MSYSMENU ACTIVATE POPUP 課程g
ON PAD _1xl1a1f9s OF _MSYSMENU ACTIVATE POPUP 系統維護m
ON SELECTION PAD _1xl1a1f9t OF _MSYSMENU ;
DO _1xl1a1f9v ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
KEY CTRL+N, "Ctrl+N" ;
MESSAGE "創建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打開(\<O)..." ;
KEY CTRL+O, "Ctrl+O" ;
MESSAGE "打開已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "關閉(\<C)" ;
MESSAGE "關閉當前文件"
DEFINE BAR 4 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
KEY CTRL+S, "Ctrl+S" ;
MESSAGE "保存當前改動了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存為(\<A)..." ;
MESSAGE "用新文件名保存當前改動了的文件"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "頁面設置(\<U)..." ;
MESSAGE "修改頁面布局和打印機設置"
DEFINE BAR 8 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
MESSAGE "退出 Visual FoxPro"
DEFINE POPUP 學籍x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 學籍x PROMPT "基本情況錄入"
DEFINE BAR 2 OF 學籍x PROMPT "學號查詢"
DEFINE BAR 3 OF 學籍x PROMPT "姓名查詢"
ON SELECTION BAR 1 OF 學籍x DO FORM 錄入基本情況
ON SELECTION BAR 2 OF 學籍x DO FORM 學號查詢
ON SELECTION BAR 3 OF 學籍x DO FORM 姓名查詢
DEFINE POPUP 成績c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成績c PROMPT "成績錄入"
DEFINE BAR 2 OF 成績c PROMPT "成績查詢"
DEFINE BAR 3 OF 成績c PROMPT "成績打印"
ON SELECTION BAR 1 OF 成績c DO FORM 成績錄入
ON SELECTION BAR 2 OF 成績c DO FORM 成績查詢
ON SELECTION BAR 3 OF 成績c ;
DO _1xl1a1f9w ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 課程g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 課程g PROMPT "查看課程"
DEFINE BAR 2 OF 課程g PROMPT "打印課程表"
ON SELECTION BAR 1 OF 課程g DO FORM 查看課程表
ON SELECTION BAR 2 OF 課程g ;
DO _1xl1a1f9x ;
IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
DEFINE POPUP 系統維護m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統維護m PROMPT "密碼修改"
ON SELECTION BAR 1 OF 系統維護m DO FORM 密碼修改
* *********************************************************
* *
* * _1XL1A1F9V ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 35
* * Called By: ON SELECTION PAD
* * Prompt: 退出系統(Q)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1xl1a1f9v
set procedure to zhumenu.mpr &&指明該過程的位置
close databases &&關閉數據庫
close all &&關閉所有的表和數據
clear events &&清除事件循環
quit &&退出系統
* *********************************************************
* *
* * _1XL1A1F9W ON SELECTION BAR 3 OF POPUP 成績c
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 27
* * Called By: ON SELECTION BAR 3 OF POPUP 成績c
* * Prompt: 成績打印
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1xl1a1f9w
SET FILTER TO &&指定訪問當前表中記錄時滿足的條件
REPORT FORM 成績單.frx &&從成績單報表中輸出
* *********************************************************
* *
* * _1XL1A1F9X ON SELECTION BAR 2 OF POPUP 課程g
* *
* * Procedure Origin:
* *
* * From Menu: ZHUMENU.MPR, Record: 31
* * Called By: ON SELECTION BAR 2 OF POPUP 課程g
* * Prompt: 打印課程表
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1xl1a1f9x
SET FILTER TO &&指定訪問當前表中記錄時滿足的條件
REPORT FORM 課程表.frx &&從課程表報表中輸出
close all
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -