kuai.mpr

学籍管理系统源码

go top
do while(.not.eof())
   banbei=alltrim(班级)
   sele 2
   use &banbei EXCLUSIVE
   index on 学号 to tempsuoyin
   use
   delete file tempsuoyin.idx
   sele 1
   skip
enddo
use
delete file xisuoyin.idx
xizhuanyebei=""
sele 1
use suoyinchengji EXCLUSIVE
index on 系 to xisuoyin
go top
do while(.not.eof())
   banbeiqibei=alltrim(班级)+alltrim(学期)
   sele 2
   use &banbeiqibei EXCLUSIVE
   index on 学号 to tempsuoyin
   use
   delete file tempsuoyin.idx
   sele 1
   skip
enddo
use
close tables all
delete file xisuoyin.idx
delete file suoyindangan.dbf
delete file suoyinchengji.dbf
chdir ..
wait windows "数据库优化完毕！..........." at 100,40 timeout 1 nowait



*       *********************************************************
*       *                                                         
*       * _0HM1BTKSV  ON SELECTION BAR 10 OF POPUP 快捷菜单       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   24           
*       * Called By:  ON SELECTION BAR 10 OF POPUP 快捷菜单       
*       * Prompt:     退出系统                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksv
close all
_screen.activeform.release


*       *********************************************************
*       *                                                         
*       * _0HM1BTKSX  ON SELECTION BAR 2 OF POPUP 查询统计        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   13           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 查询统计        
*       * Prompt:     单科本班名次                                
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksx
mbiaozi=1
do form 4.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKSZ  ON SELECTION BAR 3 OF POPUP 查询统计        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   14           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 查询统计        
*       * Prompt:     平均分本班名次                              
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btksz
mbiaozi=2
do form 4.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKT1  ON SELECTION BAR 4 OF POPUP 查询统计        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   15           
*       * Called By:  ON SELECTION BAR 4 OF POPUP 查询统计        
*       * Prompt:     总分本班名次                                
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btkt1
mbiaozi=3
do form 4.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKT2  ON SELECTION BAR 5 OF POPUP 查询统计        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   16           
*       * Called By:  ON SELECTION BAR 5 OF POPUP 查询统计        
*       * Prompt:     班级学生补考名单                            
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btkt2
mbiaozi=6
do form 4.scx


*       *********************************************************
*       *                                                         
*       * _0HM1BTKT5  ON SELECTION BAR 2 OF POPUP 输出打印        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   20           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 输出打印        
*       * Prompt:     档案打印输出                                
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btkt5
public kk
do form 2_6.scx
if kk<>" "
   WAIT windows "档案库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
   WAIT windows "档案库输出失败！......." at 100,40 timeout 1
endif


*       *********************************************************
*       *                                                         
*       * _0HM1BTKT7  ON SELECTION BAR 3 OF POPUP 输出打印        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  KUAI.MPR,            Record:   21           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 输出打印        
*       * Prompt:     成绩打印输出                                
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hm1btkt7
public kk3
do form 3_6.scx
if kk3<>" "
   WAIT windows "成绩库输出成功,所输出的库文件在导出文件夹中！......." at 100,40 timeout 1
else
   WAIT windows "成绩库导出失败！......." at 100,40 timeout 1
endif