kuai.mpr

学籍管理系统源码

*       *********************************************************
*       *                                                         
*       * 09/24/01              KUAI.MPR                22:18:41  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 蔡旭                                                    
*       *                                                         
*       * 版权所有 (C) 2001 成都电子机械高等专科学校             
*       * 四川省成都市花牌坊街2号                                 
*       * 成都市, 四川  610000                                      
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "专业号查询&修改"
DEFINE BAR 2 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 3 OF 快捷菜单 PROMPT "档案查询"
DEFINE BAR 4 OF 快捷菜单 PROMPT "成绩查询"
DEFINE BAR 5 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 6 OF 快捷菜单 PROMPT "查询统计"
DEFINE BAR 7 OF 快捷菜单 PROMPT "输出打印"
DEFINE BAR 8 OF 快捷菜单 PROMPT "\-"
DEFINE BAR 9 OF 快捷菜单 PROMPT "数据整理"
DEFINE BAR 10 OF 快捷菜单 PROMPT "退出系统"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _0hm1btksn ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _0hm1btksp ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 4 OF 快捷菜单 ;
	DO _0hm1btksr ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON BAR 6 OF 快捷菜单 ACTIVATE POPUP 查询统计
ON BAR 7 OF 快捷菜单 ACTIVATE POPUP 输出打印
ON SELECTION BAR 9 OF 快捷菜单 ;
	DO _0hm1btkst ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 10 OF 快捷菜单 ;
	DO _0hm1btksv ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")

DEFINE POPUP 查询统计 SHORTCUT RELATIVE
DEFINE BAR 1 OF 查询统计 PROMPT "\-"
DEFINE BAR 2 OF 查询统计 PROMPT "单科本班名次"
DEFINE BAR 3 OF 查询统计 PROMPT "平均分本班名次"
DEFINE BAR 4 OF 查询统计 PROMPT "总分本班名次"
DEFINE BAR 5 OF 查询统计 PROMPT "班级学生补考名单"
ON SELECTION BAR 2 OF 查询统计 ;
	DO _0hm1btksx ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 3 OF 查询统计 ;
	DO _0hm1btksz ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 4 OF 查询统计 ;
	DO _0hm1btkt1 ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 5 OF 查询统计 ;
	DO _0hm1btkt2 ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")

DEFINE POPUP 输出打印 SHORTCUT RELATIVE
DEFINE BAR 1 OF 输出打印 PROMPT "\-"
DEFINE BAR 2 OF 输出打印 PROMPT "档案打印输出"
DEFINE BAR 3 OF 输出打印 PROMPT "成绩打印输出"
ON SELECTION BAR 2 OF 输出打印 ;
	DO _0hm1btkt5 ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")
ON SELECTION BAR 3 OF 输出打印 ;
	DO _0hm1btkt7 ;
	IN LOCFILE("管理系统\KUAI" ,"MPX;MPR|FXP;PRG" ,"WHERE is KUAI?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _0HM1BTKSN  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     专业号查询&修改                             
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksn
do form 1_6.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKSP  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:    7           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     档案查询                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksp
biaozi=3
do form 2.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKSR  ON SELECTION BAR 4 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:    8           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 快捷菜单        
*       * Prompt:     成绩查询                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksr
nbiaozi=3
do form 3.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKST  ON SELECTION BAR 9 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   23           
*       * Called By:  ON SELECTION BAR 9 OF POPUP 快捷菜单        
*       * Prompt:     数据整理                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btkst
wait windows "正在优化数据库，请等待..........." at 100,40 timeout 2
set safety off
xizhuanyebei=""
banbei=""
dangbei=""
qibei=""
sele 1
use 系专业 EXCLUSIVE
chdir 数据库
sele * from 系专业 where 档案=.t. into table suoyindangan
chdir ..
use
sele 1
use chengjiku EXCLUSIVE
chdir 数据库
sele * from chengjiku where 学期<>" " into table suoyinchengji
use
sele 1
use suoyindangan EXCLUSIVE
index on 系 to xisuoyin