xjgl_main.mpr

vf设计的

*       *********************************************************
*       *                                                         
*       * 11/25/05            XJGL_MAIN.MPR             14:14:41  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 叶志熙                                                  
*       *                                                         
*       * Copyright (C) 2005 yj                                   
*       * 永川                                                    
*       * City, 重庆  Zip                                           
*       * 中国                                              
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD 查询 OF _MSYSMENU PROMPT "数据查询(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S"
DEFINE PAD _1o40uj4z3 OF _MSYSMENU PROMPT "信息录入(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, "ALT+I"
DEFINE PAD _1o40uj4z4 OF _MSYSMENU PROMPT "课程管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, "ALT+G"
DEFINE PAD 成绩管理 OF _MSYSMENU PROMPT "成绩管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, "ALT+M"
DEFINE PAD 数据管理 OF _MSYSMENU PROMPT "数据管理(\<D)" COLOR SCHEME 3 ;
	KEY ALT+D, "ALT+D"
DEFINE PAD 打印 OF _MSYSMENU PROMPT "打印输出(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, "ALT+P"
DEFINE PAD _1o40uj4z5 OF _MSYSMENU PROMPT "退出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "ALT+Q"
ON PAD 查询 OF _MSYSMENU ACTIVATE POPUP 数据查询s
ON PAD _1o40uj4z3 OF _MSYSMENU ACTIVATE POPUP 信息录入i
ON PAD _1o40uj4z4 OF _MSYSMENU ACTIVATE POPUP 课程管理g
ON PAD 成绩管理 OF _MSYSMENU ACTIVATE POPUP 成绩管理m
ON PAD 数据管理 OF _MSYSMENU ACTIVATE POPUP 数据管理d
ON PAD 打印 OF _MSYSMENU ACTIVATE POPUP 打印输出p
ON SELECTION PAD _1o40uj4z5 OF _MSYSMENU ;
	DO _1o40uj4z6 ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 数据查询s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询s PROMPT "学生注册查询(\<K)..." ;
	KEY CTRL+K, "CTRL+K" ;
	MESSAGE "学生注册查询"
DEFINE BAR 2 OF 数据查询s PROMPT "学生成绩查询(\<F)..." ;
	KEY CTRL+F, "CTRL+F"
DEFINE BAR 3 OF 数据查询s PROMPT "\-"
DEFINE BAR 4 OF 数据查询s PROMPT "课程设置(\<C)..." ;
	KEY CTRL+C, "CTRL+C" ;
	MESSAGE "课程设置"
ON SELECTION BAR 1 OF 数据查询s ;
	DO _1o40uj4z7 ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON BAR 2 OF 数据查询s ACTIVATE POPUP 学生成绩查
ON SELECTION BAR 4 OF 数据查询s ;
	DO _1o40uj4z8 ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 学生成绩查 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 学生成绩查 PROMPT "按班级学期查询(\<Z)..." ;
	KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 2 OF 学生成绩查 PROMPT "按学号姓名查询(\<Q)..." ;
	KEY CTRL+Q, "CTRL+Q"
DEFINE BAR 3 OF 学生成绩查 PROMPT "\-..."
DEFINE BAR 4 OF 学生成绩查 PROMPT "补考成绩查询(\<U)..." ;
	KEY CTRL+U, "CTRL+U"
ON SELECTION BAR 1 OF 学生成绩查 ;
	DO _1o40uj4z9 ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 学生成绩查 ;
	DO _1o40uj4za ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 学生成绩查 ;
	DO _1o40uj4zb ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 信息录入i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息录入i PROMPT "班级名单录入(\<I)..." ;
	KEY CTRL+I, "CTRL+I"
DEFINE BAR 2 OF 信息录入i PROMPT "学生基本情况(\<W)..." ;
	KEY CTRL+W, "CTRL+W"
DEFINE BAR 3 OF 信息录入i PROMPT "\-"
DEFINE BAR 4 OF 信息录入i PROMPT "学生注册登记(\<D)..." ;
	KEY CTRL+D, "CTRL+D"
DEFINE BAR 5 OF 信息录入i PROMPT "时钟(\<T)..." ;
	KEY CTRL+T, "CTRL+T"
ON SELECTION BAR 1 OF 信息录入i ;
	DO _1o40uj4zc ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 信息录入i ;
	DO _1o40uj4zd ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 信息录入i ;
	DO _1o40uj4ze ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 信息录入i ;
	DO _1o40uj4zf ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 课程管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 课程管理g PROMPT "教学计划设置(\<L)..." ;
	KEY CTRL+L, "CTRL+L" ;
	MESSAGE "按个人的计划"
DEFINE BAR 2 OF 课程管理g PROMPT "班级课程设置(\<G)..." ;
	KEY CTRL+G, "CTRL+G" ;
	MESSAGE "按授课学时"
DEFINE BAR 3 OF 课程管理g PROMPT "\-"
DEFINE BAR 4 OF 课程管理g PROMPT "专业名称设置(\<E)..." ;
	KEY CTRL+E, "CTRL+E" ;
	MESSAGE "按个人专业"
DEFINE BAR 5 OF 课程管理g PROMPT "课程名称设置(\<O)" ;
	KEY CTRL+O, "CTRL+O" ;
	MESSAGE "按课程名称"
ON SELECTION BAR 1 OF 课程管理g ;
	DO _1o40uj4zg ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 课程管理g ;
	DO _1o40uj4zh ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 课程管理g ;
	DO _1o40uj4zi ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 课程管理g ;
	DO _1o40uj4zj ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 成绩管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 成绩管理m PROMPT "学生成绩录入(\<H)..." ;
	KEY CTRL+H, "CTRL+H"
DEFINE BAR 2 OF 成绩管理m PROMPT "\-"
DEFINE BAR 3 OF 成绩管理m PROMPT "第一次补考成绩(\<N)..." ;
	KEY CTRL+N, "CTRL+N"
DEFINE BAR 4 OF 成绩管理m PROMPT "第二次补考成绩(\<K)..." ;
	KEY CTRL+K, "CTRL+K"
ON SELECTION BAR 1 OF 成绩管理m ;
	DO _1o40uj4zk ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 3 OF 成绩管理m ;
	DO _1o40uj4zl ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 成绩管理m ;
	DO _1o40uj4zm ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")

DEFINE POPUP 数据管理d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理d PROMPT "修改学生信息(\<M)..." ;
	KEY CTRL+M, "CTRL+M" ;
	MESSAGE "修改学生信息"
DEFINE BAR 2 OF 数据管理d PROMPT "修改学生注册信息(\<R)..." ;
	KEY CTRL+R, "CTRL+R" ;
	MESSAGE "修改学生注册信息"
DEFINE BAR 3 OF 数据管理d PROMPT "\-."
DEFINE BAR 4 OF 数据管理d PROMPT "修改密码(\<P)..." ;
	KEY CTRL+P, "CTRL+P" ;
	MESSAGE "修改密码"
DEFINE BAR 5 OF 数据管理d PROMPT "院系代码(\<Y)..." ;
	KEY CTRL+Y, "CTRL+Y" ;
	MESSAGE "院系名称及代码"
ON SELECTION BAR 1 OF 数据管理d ;
	DO _1o40uj4zn ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 2 OF 数据管理d ;
	DO _1o40uj4zo ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 4 OF 数据管理d ;
	DO _1o40uj4zp ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")
ON SELECTION BAR 5 OF 数据管理d do form xjgl_yxdm1.scx

DEFINE POPUP 打印输出p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印输出p PROMPT "打印(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
ON SELECTION BAR 1 OF 打印输出p ;
	DO _1o40uj4zq ;
	IN LOCFILE("源代码\XJGL_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is XJGL_MAIN?")


*       *********************************************************
*       *                                                         
*       * _1O40UJ4Z6  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XJGL_MAIN.MPR,            Record:   46      
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(Q)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1o40uj4z6
??CHR(7)
RE=MESSAGEBOX("是否退出学籍管理系统?",4+32+256,"信息窗口")
IF RE=6
  CLEAR EVENT
  QUIT
ENDIF




*       *********************************************************
*       *                                                         
*       * _1O40UJ4Z7  ON SELECTION BAR 1 OF POPUP 数据查询s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  XJGL_MAIN.MPR,            Record:    5      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据查询s       
*       * Prompt:     学生注册查询(K)...                          
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1o40uj4z7
CLEA
_SCREEN.WINDOWSTATE=2
_SCREEN.CAPTION="学籍信息管理系统 "
_SCREEN.CLOSABLE=.F.
_SCREEN.CONTROLBOX=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.MINBUTTON=.F.
_SCREEN.BACKCOLOR=RGB(0,200,128)
DO FORM 注册CQ.SCX



*       *********************************************************
*       *                                                         
*       * _1O40UJ4Z8  ON SELECTION BAR 4 OF POPUP 数据查询s       
*       *                                                         
*       * Procedure Origin:                                       
*       *