?? mainmenu1.mpr
字號(hào):
* *********************************************************
* *
* * 08/12/02 MAINMENU1.MPR 16:14:03
* *
* *********************************************************
* *
* * 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
IF !FILE("f:\work\vfp7\教務(wù)信息處理系統(tǒng)\教務(wù)信息.dbc")
MESSAGEBOX("打開(kāi)數(shù)據(jù)庫(kù)失敗！")
ELSE
OPEN DATABASE "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\教務(wù)信息.dbc"
ENDIF
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0qm0ysn6o OF _MSYSMENU PROMPT "查詢" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q" ;
MESSAGE "可以查詢學(xué)生成績(jī)、教師和課程信息，但不能修改"
DEFINE PAD _0qm0ysn6p OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
KEY ALT+M, "ALT+M"
DEFINE PAD _0qm0ysn6q OF _MSYSMENU PROMPT "統(tǒng)計(jì)" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6r OF _MSYSMENU PROMPT "選課" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6s OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0qm0ysn6t OF _MSYSMENU PROMPT "幫助" COLOR SCHEME 3 ;
KEY F1, "F1"
DEFINE PAD _0qm0ysn6u OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E"
ON PAD _0qm0ysn6o OF _MSYSMENU ACTIVATE POPUP 查詢
ON PAD _0qm0ysn6p OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _0qm0ysn6q OF _MSYSMENU ACTIVATE POPUP 統(tǒng)計(jì)
ON SELECTION PAD _0qm0ysn6r OF _MSYSMENU ;
DO _0qm0ysn6v ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON PAD _0qm0ysn6s OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0qm0ysn6t OF _MSYSMENU ACTIVATE POPUP 幫助
ON SELECTION PAD _0qm0ysn6u OF _MSYSMENU ;
DO _0qm0ysn6w ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
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 _0qm0ysn77 ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON SELECTION BAR 2 OF 打印 ;
DO _0qm0ysn78 ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
DEFINE POPUP 幫助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助 PROMPT "關(guān)于..."
ON SELECTION BAR 1 OF 幫助 ;
DO _0qm0ysn7b ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
ON SELECTION POPUP 打印 ;
DO _0qm0ysn7d ;
IN LOCFILE("F:\WORK\VFP7\教務(wù)信息處理系統(tǒng)\MENU\MAINMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU1?")
* *********************************************************
* *
* * _0QM0YSN6V ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 22
* * Called By: ON SELECTION PAD
* * Prompt: 選課
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0qm0ysn6v
DO FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\Forms\選課.scx"
* *********************************************************
* *
* * _0QM0YSN6W ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 30
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0qm0ysn6w
tempstr=MESSAGEBOX("確定要退出嗎",1+32+256,"教務(wù)信息處理系統(tǒng)")
IF tempstr=6
RELEASE ALL
CLEAR EVENTS
ENDIF
* *********************************************************
* *
* * _0QM0YSN77 ON SELECTION BAR 1 OF POPUP 打印
* *
* * Procedure Origin:
* * From Menu: MAINMENU1.MPR, Record: 25
* * Called By: ON SELECTION BAR 1 OF POPUP 打印
* * Prompt: 課程成績(jī)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0qm0ysn77
REPORT FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\reports\課程成績(jī).frx" PREVIEW
* *********************************************************
* *
* * _0QM0YSN78 ON SELECTION BAR 2 OF POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 26
* * Called By: ON SELECTION BAR 2 OF POPUP 打印
* * Prompt: 班級(jí)信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0qm0ysn78
REPORT FORM "f:\work\vfp7\教務(wù)信息處理系統(tǒng)\reports\班級(jí)信息.frx" PREVIEW
* *********************************************************
* *
* * _0QM0YSN7B ON SELECTION BAR 1 OF POPUP 幫助
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 29
* * Called By: ON SELECTION BAR 1 OF POPUP 幫助
* * Prompt: 關(guān)于...
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0qm0ysn7b
tempstr="教務(wù)信息處理系統(tǒng)"+CHR(13)+"版本號(hào) 2.0"
MESSAGEBOX(tempstr,0+64,"教務(wù)信息處理系統(tǒng)")
* *********************************************************
* *
* * _0QM0YSN7D ON SELECTION POPUP 打印
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU1.MPR, Record: 24
* * Called By: ON SELECTION POPUP 打印
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0qm0ysn7d
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 + -