backmune.mpr

学籍管理系统源码

sele * from chengjiku where 学期<>" " into table suoyinchengji
use
sele 1
use suoyindangan EXCLUSIVE
index on 系 to xisuoyin
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



*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3Z8  ON SELECTION BAR 4 OF POPUP 数据处理s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   54       
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据处理s       
*       * Prompt:     数据库备份                                  
*       * Snippet:    26                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3z8
set safety off
xizhuanyebei=""
banbei=""
dangbei=""
qibei=""
WAIT windows "正在备份数据库，请等待..........." at 100,40 timeout 2
use 系专业 EXCLUSIVE
chdir 数据备份
sele * from 系专业 where 档案=.t. into table backupdangan
chdir ..
use
use chengjiku EXCLUSIVE
chdir 数据备份
sele * from chengjiku where 学期<>" " into table backupchengji
chdir ..
use
chdir 数据备份
use backupdangan EXCLUSIVE
index on 系 to xisuoyin
chdir ..
go top
do while(.not.eof())
   banbei=alltrim(班级)
   if xizhuanyebei<>alltrim(alltrim(系)+alltrim(专业))
      xizhuanyebei=alltrim(alltrim(系)+alltrim(专业))
      copy file "数据库\"+"&xizhuanyebei"+".dbc" to "数据备份\"+"&xizhuanyebei"+".dbc"
      copy file "数据库\"+"&xizhuanyebei"+".dct" to "数据备份\"+"&xizhuanyebei"+".dct"
      copy file "数据库\"+"&xizhuanyebei"+".dcx" to "数据备份\"+"&xizhuanyebei"+".dcx"
   endif
   copy file "数据库\"+"&banbei"+".dbf" to "数据备份\"+"&banbei"+".dbf"
   copy file "数据库\"+"&banbei"+".fpt" to "数据备份\"+"&banbei"+".fpt"
   skip
enddo
use
delete file "数据备份\xisuoyin.idx"
xizhuanyebei=""
chdir 数据备份
use backupchengji EXCLUSIVE
index on 系 to xisuoyin
chdir ..
go top
do while(.not.eof())
   banbei=alltrim(班级)
   qibei=alltrim(学期)
   xizhuanyebei=alltrim(alltrim(系)+alltrim(专业))
   if file("数据备份\"+"&xizhuanyebei"+".dbc")
      copy file "数据库\"+"&banbei"+"&qibei"+".dbf" to "数据备份\"+"&banbei"+"&qibei"+".dbf"
   else
         copy file "数据库\"+"&xizhuanyebei"+".dbc" to "数据备份\"+"&xizhuanyebei"+".dbc"
         copy file "数据库\"+"&xizhuanyebei"+".dct" to "数据备份\"+"&xizhuanyebei"+".dct"
         copy file "数据库\"+"&xizhuanyebei"+".dcx" to "数据备份\"+"&xizhuanyebei"+".dcx"
         copy file "数据库\"+"&banbei"+"&qibei"+".dbf" to "数据备份\"+"&banbei"+"&qibei"+".dbf"
   endif
   skip
enddo
use
delete file "数据备份\xisuoyin.idx"
close tables all
WAIT windows "数据库备份完毕！......" at 100,40 timeout 1 nowait




*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZD  ON SELECTION BAR 2 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   59       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 关于系统g       
*       * Prompt:     软件帮助                                    
*       * Snippet:    27                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zd
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
return shellexecute(0,"open","file:///" + bzhlj +"bzh.htm","","",1)


*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZF  ON SELECTION BAR 4 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   61       
*       * Called By:  ON SELECTION BAR 4 OF POPUP 关于系统g       
*       * Prompt:     选择背景色                                  
*       * Snippet:    28                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zf
beitemp=0
beitemp=beijing
beijing=getcolor(16777215)
if beijing==-1
   beijing=beitemp
endif
save to neicun
_screen.activeform.container1.backcolor=beijing




*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZH  ON SELECTION BAR 6 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   63       
*       * Called By:  ON SELECTION BAR 6 OF POPUP 关于系统g       
*       * Prompt:     信息反馈                                    
*       * Snippet:    29                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zh
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()
lpszOP = ""
lpszFile = "mailto:[e-mail]"
lpszParams = ""
lpszDir = "C:\"
fsshowcmd = 1
LNRETURN = ShellExecute(HWND, lpszOP, lpszFile, lpszParams, lpszDir,fsshowcmd)



*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZJ  ON SELECTION BAR 7 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   64       
*       * Called By:  ON SELECTION BAR 7 OF POPUP 关于系统g       
*       * Prompt:     我的主页                                    
*       * Snippet:    30                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zj
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()
lpszOP = ""
lpszFile = "http://jihe9.myrice.com/"
lpszParams = ""
lpszDir = "C:\"
fsshowcmd = 1
LNRETURN = ShellExecute(HWND, lpszOP, lpszFile, lpszParams, lpszDir,fsshowcmd)





*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZK  ON SELECTION BAR 9 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   66       
*       * Called By:  ON SELECTION BAR 9 OF POPUP 关于系统g       
*       * Prompt:     软件注册                                    
*       * Snippet:    31                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zk
do form 6_5.scx


*       *********************************************************
*       *                                                         
*       * _0HZ0UQ3ZM  ON SELECTION BAR 10 OF POPUP 关于系统g      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  BACKMUNE.MPR,            Record:   67       
*       * Called By:  ON SELECTION BAR 10 OF POPUP 关于系统g      
*       * Prompt:     关于本软件                                  
*       * Snippet:    32                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0hz0uq3zm
do form 6_3.scx