m_xsxj.bak

超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲到的目录）。 2、1-9章 打开对应章节例子代码复制到命令窗口

*       *********************************************************
*       *                                                         
*       * 08-09-2004            M_XSXJ.MPR              12:03:03  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET MARK TO "-"

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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ay0ptvue OF _MSYSMENU PROMPT "系统(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1ay0ptvug OF _MSYSMENU PROMPT "管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, ""
DEFINE PAD _1ay0ptvui OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1ay0ptvuk OF _MSYSMENU PROMPT "报表(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1ay0ptvum OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1ay0ptvue OF _MSYSMENU ACTIVATE POPUP 系统s
ON PAD _1ay0ptvug OF _MSYSMENU ACTIVATE POPUP 管理m
ON PAD _1ay0ptvui OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _1ay0ptvuk OF _MSYSMENU ACTIVATE POPUP 报表r
ON PAD _1ay0ptvum OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 系统s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统s PROMPT "数据备份(\<B)"
DEFINE BAR 2 OF 系统s PROMPT "数据恢复(\<R)"
DEFINE BAR 3 OF 系统s PROMPT "\-"
DEFINE BAR 4 OF 系统s PROMPT "用户管理(\<U)"
DEFINE BAR 5 OF 系统s PROMPT "\-"
DEFINE BAR 6 OF 系统s PROMPT "系统选项(\<O)"
DEFINE BAR 7 OF 系统s PROMPT "\-"
DEFINE BAR 8 OF 系统s PROMPT "退出(\<Q)" ;
	KEY ALT+F4, "Alt+F4"
ON SELECTION BAR 8 OF 系统s ;
	DO _1ay0ptvvd ;
	IN LOCFILE("学生学籍管理系统\M_XSXJ" ,"MPX;MPR|FXP;PRG" ,"WHERE is M_XSXJ?")

DEFINE POPUP 管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理m PROMPT "系部信息(\<D)"
DEFINE BAR 2 OF 管理m PROMPT "专业信息(\<M)"
DEFINE BAR 3 OF 管理m PROMPT "课程信息(\<C)"
DEFINE BAR 4 OF 管理m PROMPT "学生信息(\<S)"
DEFINE BAR 5 OF 管理m PROMPT "成绩信息(\<O)"
ON SELECTION BAR 1 OF 管理m do form f_gl_xb
ON SELECTION BAR 2 OF 管理m do form f_gl_zy
ON SELECTION BAR 3 OF 管理m do form f_gl_kc
ON SELECTION BAR 4 OF 管理m do form f_gl_xs
ON SELECTION BAR 5 OF 管理m do form f_gl_cj

DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "课程查询(\<C)"
DEFINE BAR 2 OF 查询q PROMPT "专业查询(\<M)"
DEFINE BAR 3 OF 查询q PROMPT "学生查询(\<S)"
DEFINE BAR 4 OF 查询q PROMPT "成绩查询(\<O)"

DEFINE POPUP 报表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表r PROMPT "学生名册(\<S)"
DEFINE BAR 2 OF 报表r PROMPT "成绩报表(\<O)"
ON SELECTION BAR 1 OF 报表r do form f_bb_xs

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助主题(\<C)" ;
	KEY F1, "F1"
DEFINE BAR 2 OF 帮助h PROMPT "搜索(\<S)"
DEFINE BAR 3 OF 帮助h PROMPT "\-"
DEFINE BAR 4 OF 帮助h PROMPT "关于系统(\<A)..."

ON SELECTION POPUP ALL =MESSAGEBOX("对不起，此版本没有安装该项功能！",64,"提示")

*       *********************************************************
*       *                                                         
*       *                 Cleanup Code & Procedures               
*       *                                                         
*       *********************************************************
*

SET SAFETY ON

*       *********************************************************
*       *                                                         
*       * _1AY0PTVVD  ON SELECTION BAR 8 OF POPUP 系统s           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  M_XSXJ.MPR,            Record:   15         
*       * Called By:  ON SELECTION BAR 8 OF POPUP 系统s           
*       * Prompt:     退出(Q)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ay0ptvvd
SET SYSMENU to default
return

IF MESSAGEBOX("系统将关闭！请确定...",33,"提示") = 1
	CLOSE ALL
	QUIT
ENDIF