?? mainmenu.mpr
字號(hào):
* *********************************************************
* *
* * 08/12/02 MAINMENU.MPR 16:15:57
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (C) 2002 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* *
* *********************************************************
* *********************************************************
* *
* * Setup Code
* *
* *********************************************************
*
SET TALK OFF
SET DEBUG OFF
SET DELETED ON
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0qm0yv30y OF _MSYSMENU PROMPT "查詢" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q" ;
MESSAGE "可以查詢學(xué)生成績(jī)、教師和課程信息,但不能修改"
DEFINE PAD _0qm0yv30z OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
KEY ALT+M, "ALT+M"
DEFINE PAD _0qm0yv310 OF _MSYSMENU PROMPT "統(tǒng)計(jì)" COLOR SCHEME 3
DEFINE PAD _0qm0yv311 OF _MSYSMENU PROMPT "選課" COLOR SCHEME 3
DEFINE PAD _0qm0yv312 OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0qm0yv313 OF _MSYSMENU PROMPT "幫助" COLOR SCHEME 3 ;
KEY F1, "F1"
DEFINE PAD _0qm0yv314 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E"
ON PAD _0qm0yv30y OF _MSYSMENU ACTIVATE POPUP 查詢
ON PAD _0qm0yv30z OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _0qm0yv310 OF _MSYSMENU ACTIVATE POPUP 統(tǒng)計(jì)
ON SELECTION PAD _0qm0yv311 OF _MSYSMENU ;
DO _0qm0yv315 ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON PAD _0qm0yv312 OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0qm0yv313 OF _MSYSMENU ACTIVATE POPUP 幫助
ON SELECTION PAD _0qm0yv314 OF _MSYSMENU ;
DO _0qm0yv316 ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 查詢 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢 PROMPT "個(gè)人信息"
DEFINE BAR 2 OF 查詢 PROMPT "教師信息"
DEFINE BAR 3 OF 查詢 PROMPT "課程信息"
DEFINE BAR 4 OF 查詢 PROMPT "\-"
DEFINE BAR 5 OF 查詢 PROMPT "學(xué)生成績(jī)"
ON SELECTION BAR 1 OF 查詢 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\個(gè)人信息.scx"
ON SELECTION BAR 2 OF 查詢 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\教師信息.scx"
ON SELECTION BAR 3 OF 查詢 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\課程信息.scx"
ON SELECTION BAR 5 OF 查詢 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\學(xué)生成績(jī).scx"
DEFINE POPUP 修改 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改 PROMPT "個(gè)人信息"
DEFINE BAR 2 OF 修改 PROMPT "教師信息"
DEFINE BAR 3 OF 修改 PROMPT "班級(jí)信息"
DEFINE BAR 4 OF 修改 PROMPT "系信息"
DEFINE BAR 5 OF 修改 PROMPT "課程信息"
DEFINE BAR 6 OF 修改 PROMPT "成績(jī)信息"
ON SELECTION BAR 1 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改個(gè)人信息.scx"
ON SELECTION BAR 2 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改教師信息.scx"
ON SELECTION BAR 3 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改班級(jí)信息.scx"
ON SELECTION BAR 4 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改系信息.scx"
ON SELECTION BAR 5 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改課程信息.scx"
ON SELECTION BAR 6 OF 修改 do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\修改成績(jī)信息.scx"
DEFINE POPUP 統(tǒng)計(jì) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 統(tǒng)計(jì) PROMPT "個(gè)人成績(jī)"
DEFINE BAR 2 OF 統(tǒng)計(jì) PROMPT "課程統(tǒng)計(jì)"
ON SELECTION BAR 1 OF 統(tǒng)計(jì) do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\統(tǒng)計(jì)個(gè)人成績(jī).scx"
ON SELECTION BAR 2 OF 統(tǒng)計(jì) do form "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\統(tǒng)計(jì)課程.scx"
DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "課程成績(jī)"
DEFINE BAR 2 OF 打印 PROMPT "班級(jí)信息"
ON SELECTION BAR 1 OF 打印 ;
DO _0qm0yv31g ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF 打印 ;
DO _0qm0yv31h ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 幫助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助 PROMPT "關(guān)于..."
ON SELECTION BAR 1 OF 幫助 ;
DO _0qm0yv31j ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION POPUP 打印 ;
DO _0qm0yv31m ;
IN LOCFILE("教務(wù)信息處理系統(tǒng)\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
* *********************************************************
* *
* * _0QM0YV315 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 22
* * Called By: ON SELECTION PAD
* * Prompt: 選課
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0qm0yv315
DO FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\選課.scx"
* *********************************************************
* *
* * _0QM0YV316 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 30
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0qm0yv316
tempstr=MESSAGEBOX("確定要退出嗎",1+32+256,"教務(wù)信息處理系統(tǒng)")
IF tempstr=6
RELEASE ALL
CLEAR EVENTS
ENDIF
* *********************************************************
* *
* * _0QM0YV31G ON SELECTION BAR 1 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 打印
* * Prompt: 課程成績(jī)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0qm0yv31g
REPORT FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\reports\課程成績(jī).frx" PREVIEW
* *********************************************************
* *
* * _0QM0YV31H ON SELECTION BAR 2 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 打印
* * Prompt: 班級(jí)信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0qm0yv31h
REPORT FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\reports\班級(jí)信息.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YV31J ON SELECTION BAR 1 OF POPUP 幫助
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 29
* * Called By: ON SELECTION BAR 1 OF POPUP 幫助
* * Prompt: 關(guān)于...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0qm0yv31j
tempstr="教務(wù)信息處理系統(tǒng)"+CHR(13)+"版本號(hào) 2.0"
MESSAGEBOX(tempstr,0+64,"教務(wù)信息處理系統(tǒng)")
* *********************************************************
* *
* * _0QM0YV31M ON SELECTION POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 24
* * Called By: ON SELECTION POPUP 打印
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0qm0yv31m
if sys(13)="OFFLINE"
messagebox("打印機(jī)出錯(cuò),請(qǐng)重試!")
else
messagebox("打印機(jī)準(zhǔn)備就緒,關(guān)閉對(duì)話框準(zhǔn)備打印!")
endif
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -