main.mpr

奖学金评定系统

ON BAR 2 OF (a_menupops[2]) ACTIVATE POPUP (a_menupops[4])

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "预览"
DEFINE BAR 2 OF (a_menupops[3]) PROMPT "打印"
ON SELECTION BAR 1 OF (a_menupops[3]) report form 学生基本情况 preview
ON SELECTION BAR 2 OF (a_menupops[3]) REPORT FORM 学生基本情况.frx NOEJECT NOCONSOLE TO PRINTER

DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[4]) PROMPT "电子商务学生成绩"
DEFINE BAR 2 OF (a_menupops[4]) PROMPT "国际贸易专业"
DEFINE BAR 3 OF (a_menupops[4]) PROMPT "会计学"
ON BAR 1 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[5])
ON BAR 2 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[6])
ON BAR 3 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[7])

DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "打印预览"
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "打印"
ON SELECTION BAR 1 OF (a_menupops[5]) report form 成绩1 preview
ON SELECTION BAR 2 OF (a_menupops[5]) REPORT FORM 成绩1.frx NOEJECT NOCONSOLE TO PRINTER

DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "打印预览"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "打印"
ON SELECTION BAR 1 OF (a_menupops[6]) report form 成绩2 preview
ON SELECTION BAR 2 OF (a_menupops[6]) REPORT FORM 成绩2.frx NOEJECT NOCONSOLE TO PRINTER

DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "打印预览"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "打印"
ON SELECTION BAR 1 OF (a_menupops[7]) report form 成绩3 preview
ON SELECTION BAR 2 OF (a_menupops[7]) report form 成绩3.frx noeject noconsole to printer

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF


*       *********************************************************
*       *                                                         
*       * _1OO1D0QD2  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    7           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     学生成绩查询                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qd2
_vfp.activeform.release
do form 学生成绩查询


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDB  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    8           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     评定系统维护                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qdb
_vfp.activeform.release
do form 评定系统维护


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDC  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    9           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     奖学金查询                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qdc
_vfp.activeform.release
do form 奖学金查询


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDD  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   10           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     奖学金评定说明                              
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qdd
_vfp.activeform.release
do form 奖学金评定说明


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDE  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   31           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qde
_vfp.activeform.release
clear event
clear all
close all


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDF  ON SELECTION BAR 1 OF POPUP _1om128aan      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1om128aan      
*       * Prompt:     学生基本情况查询                            
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qdf
_vfp.activeform.release
do form main


*       *********************************************************
*       *                                                         
*       * _1OO1D0QDG  ON SELECTION BAR 2 OF POPUP _1om128aan      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:    6           
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1om128aan      
*       * Prompt:     基本情况浏览                                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1oo1d0qdg
_vfp.activeform.release
do form 基本情况浏览