?? 主菜單.mpr
字號:
* *********************************************************
* *
* * 12/29/06 主菜單.MPR 23:33:24
* *
* *********************************************************
* *
* * 作者名稱
* *
* * 版權所有 (C) 2006 公司名稱
* * 地址
* * 城市, 郵編
* * 國家
* *
* * 說明:
* * 此程序由 GENMENU 自動生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜單定義
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1z91ehnu1 OF _MSYSMENU PROMPT "系統維護" COLOR SCHEME 3
DEFINE PAD _1z91ehnu2 OF _MSYSMENU PROMPT "瀏覽" COLOR SCHEME 3
DEFINE PAD _1z91ehnu3 OF _MSYSMENU PROMPT "查詢" COLOR SCHEME 3
DEFINE PAD _1z91ehnu4 OF _MSYSMENU PROMPT "報表" COLOR SCHEME 3
DEFINE PAD _1z91ehnu5 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1z91ehnu1 OF _MSYSMENU ACTIVATE POPUP 系統維護
ON PAD _1z91ehnu2 OF _MSYSMENU ACTIVATE POPUP 瀏覽
ON PAD _1z91ehnu3 OF _MSYSMENU ACTIVATE POPUP 查詢
ON PAD _1z91ehnu4 OF _MSYSMENU ACTIVATE POPUP 報表
ON SELECTION PAD _1z91ehnu5 OF _MSYSMENU do form f:\王雪志\退出系統.scx
DEFINE POPUP 系統維護 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統維護 PROMPT "修改數據表"
DEFINE BAR 2 OF 系統維護 PROMPT "維護表記錄"
DEFINE BAR 3 OF 系統維護 PROMPT "修改表單"
ON BAR 1 OF 系統維護 ACTIVATE POPUP 修改數據表
ON BAR 2 OF 系統維護 ACTIVATE POPUP 維護表記錄
ON BAR 3 OF 系統維護 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 "成績表"
ON SELECTION BAR 1 OF 修改數據表 ;
DO _1z91ehnu7 ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 修改數據表 ;
DO _1z91ehnu8 ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 3 OF 修改數據表 ;
DO _1z91ehnu9 ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
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 _1z91ehnua ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 維護表記錄 ;
DO _1z91ehnub ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 3 OF 維護表記錄 ;
DO _1z91ehnuc ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
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 _1z91ehnud ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 修改表單 ;
DO _1z91ehnue ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 3 OF 修改表單 ;
DO _1z91ehnuf ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
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 _1z91ehnug ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 瀏覽 ;
DO _1z91ehnuh ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 3 OF 瀏覽 ;
DO _1z91ehnui ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
DEFINE POPUP 查詢 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢 PROMPT "查詢成績" ;
KEY CTRL+I, "CTRL+I"
DEFINE BAR 2 OF 查詢 PROMPT "查詢學生" ;
KEY CTRL+U, "CTRL+U"
ON SELECTION BAR 1 OF 查詢 ;
DO _1z91ehnuj ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 查詢 ;
DO _1z91ehnuk ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
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 _1z91ehnul ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 2 OF 報表 ;
DO _1z91ehnum ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
ON SELECTION BAR 3 OF 報表 ;
DO _1z91ehnun ;
IN LOCFILE("\王雪志\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")
* *********************************************************
* *
* * _1Z91EHNU7 ON SELECTION BAR 1 OF POPUP 修改數據表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 7
* * Called By: ON SELECTION BAR 1 OF POPUP 修改數據表
* * Prompt: 學生表
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1z91ehnu7
close data
open data test
use xsb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNU8 ON SELECTION BAR 2 OF POPUP 修改數據表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 8
* * Called By: ON SELECTION BAR 2 OF POPUP 修改數據表
* * Prompt: 課程表
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1z91ehnu8
close data
open data test
use cjb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNU9 ON SELECTION BAR 3 OF POPUP 修改數據表
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 9
* * Called By: ON SELECTION BAR 3 OF POPUP 修改數據表
* * Prompt: 成績表
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1z91ehnu9
close data
open data test
use kcb.dbf
MODIFY STRUCTURE
* *********************************************************
* *
* * _1Z91EHNUA ON SELECTION BAR 1 OF POPUP 維護表記錄
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 12
* * Called By: ON SELECTION BAR 1 OF POPUP 維護表記錄
* * Prompt: 學生表
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1z91ehnua
close data
DO FORM 學生表.scx
* *********************************************************
* *
* * _1Z91EHNUB ON SELECTION BAR 2 OF POPUP 維護表記錄
* *
* * Procedure Origin:
* *
* * From Menu: 主菜單.MPR, Record: 13
* * Called By: ON SELECTION BAR 2 OF POPUP 維護表記錄
* * Prompt: 課程表
* * Snippet: 5
* *
* *********************************************************
*
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -