menu1.mpr

一个基于foxbase小程序

*       *********************************************************
*       *                                                         
*       * 10/07/03              MENU1.MPR               15:15:28  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _12d0wpbh2 OF _MSYSMENU PROMPT "学生信息查询" COLOR SCHEME 3
DEFINE PAD _12d0wpbh3 OF _MSYSMENU PROMPT "Excel文件编辑" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _12d0wpbh4 OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _12d0wpbh2 OF _MSYSMENU ACTIVATE POPUP 学生信息查
ON PAD _12d0wpbh3 OF _MSYSMENU ACTIVATE POPUP excel文件
ON PAD _12d0wpbh4 OF _MSYSMENU ACTIVATE POPUP 退出系统

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 modifystudent
ON SELECTION BAR 2 OF 学生信息查 do form 表单2

DEFINE POPUP excel文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF excel文件 PROMPT "学生信息"
DEFINE BAR 2 OF excel文件 PROMPT "学生成绩"
ON SELECTION BAR 1 OF excel文件 do form 表单1
ON SELECTION BAR 2 OF excel文件 do form 成绩

DEFINE POPUP 退出系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统 PROMPT "退出"
ON SELECTION BAR 1 OF 退出系统 ;
	DO _12d0wpbh5 ;
	IN LOCFILE("\FOXWORK\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")


*       *********************************************************
*       *                                                         
*       * _12D0WPBH5  ON SELECTION BAR 1 OF POPUP 退出系统        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU1.MPR,            Record:   13          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出系统        
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _12d0wpbh5
clos all
quit