mainmenu.mpr

vfp开发的学生学籍管理系统。实现基本功能

*       *********************************************************
*       *                                                         
*       * 11/05/03            MAINMENU.MPR              15:58:13  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                        Setup Code                       
*       *                                                         
*       *********************************************************
*

SET TALK OFF
SET DEBUG OFF
IF !FILE ("E:\project\学生信息管理系统\课程信息表.dbc")
    MESSAGEBOX("打开数据库失败！")
ELSE
    OPEN DATABASE "E:\project\学生信息管理系统\课程信息表.dbc"
ENDIF

*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1360y8a7g OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q" ;
	MESSAGE "可以查询学生信息，课程信息和学生成绩信息"
DEFINE PAD _1360y8a7h OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3 ;
	KEY ALT+M, "ALT+M"
DEFINE PAD _1360y8a7i OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _1360y8a7j OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
	KEY F1, "F1"
DEFINE PAD _1360y8a7k OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
	KEY ALT+E, "ALT+E"
ON PAD _1360y8a7g OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1360y8a7h OF _MSYSMENU ACTIVATE POPUP 修改
ON PAD _1360y8a7i OF _MSYSMENU ACTIVATE POPUP 统计
ON PAD _1360y8a7j OF _MSYSMENU ACTIVATE POPUP 帮助
ON SELECTION PAD _1360y8a7k OF _MSYSMENU ;
	DO _1360y8a7l ;
	IN LOCFILE("E:\PROJECT\学生信息管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")

DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "学生信息"
DEFINE BAR 2 OF 查询 PROMPT "课程信息"
DEFINE BAR 3 OF 查询 PROMPT "\-"
DEFINE BAR 4 OF 查询 PROMPT "学生成绩"
ON SELECTION BAR 1 OF 查询 do form "E:\project\学生信息管理系统\Forms\学生信息.scx"
ON SELECTION BAR 2 OF 查询 do form "E:\project\学生信息管理系统\Forms\课程信息.scx"
ON SELECTION BAR 4 OF 查询 do form "E:\project\学生信息管理系统\Forms\成绩信息.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 SELECTION BAR 1 OF 修改 do form "E:\project\学生信息管理系统\Forms\修改学生信息.scx"
ON SELECTION BAR 2 OF 修改 do form "E:\project\学生信息管理系统\Forms\修改课程信息.scx"
ON SELECTION BAR 3 OF 修改 do form "E:\project\学生信息管理系统\Forms\修改成绩信息.scx"

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "个人成绩"
DEFINE BAR 2 OF 统计 PROMPT "课程统计"
ON SELECTION BAR 1 OF 统计 do form "E:\project\学生信息管理系统\Forms\个人成绩.scx"
ON SELECTION BAR 2 OF 统计 do form "E:\project\学生信息管理系统\Forms\课程统计.scx"

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于..." ;
	KEY F1, "F1"
ON SELECTION BAR 1 OF 帮助 ;
	DO _1360y8a7m ;
	IN LOCFILE("E:\PROJECT\学生信息管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")

ON SELECTION MENU _MSYSMENU ;
	DO _1360y8a7n ;
	IN LOCFILE("E:\PROJECT\学生信息管理系统\MENU\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")

*       *********************************************************
*       *                                                         
*       * _1360Y8A7L  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   21       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1360y8a7l
tempstr = MESSAGEBOX("确定要退出吗",1+32+256,"学生信息管理系统")
IF tempstr=6
   RELEASE ALL
   CLEAR EVENTS
ENDIF


*       *********************************************************
*       *                                                         
*       * _1360Y8A7M  ON SELECTION BAR 1 OF POPUP 帮助            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:   20       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助            
*       * Prompt:     关于...                                     
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1360y8a7m
tempstr = "学生信息管理系统" + CHR(13) + "版本号1.0"
MESSAGEBOX(tempstr,0+64,"学生信息管理系统")


*       *********************************************************
*       *                                                         
*       * _1360Y8A7N  ON SELECTION MENU _MSYSMENU                 
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:    1       
*       * Called By:  ON SELECTION MENU _MSYSMENU                 
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1360y8a7n
SET TALK OFF
SET DEBUG OFF
IF !FILE("E:\project\学生信息管理系统\课程信息.d bc")
  MESSAGEBOX("打开数据库失败！！！")
ELSE
  OPEN DATABASE "E:\project\学生信息管理系统\学生课程.dbc"
ENDIF