mune.mpr

学籍管理系统源码

   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



*       *********************************************************
*       *                                                         
*       * _0I20VE4Z1  ON SELECTION BAR 5 OF POPUP 数据处理s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MUNE.MPR,            Record:   60           
*       * Called By:  ON SELECTION BAR 5 OF POPUP 数据处理s       
*       * Prompt:     数据库备份                                  
*       * Snippet:    32                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0i20ve4z1
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




*       *********************************************************
*       *                                                         
*       * _0I20VE4Z3  ON SELECTION BAR 6 OF POPUP 数据处理s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MUNE.MPR,            Record:   61           
*       * Called By:  ON SELECTION BAR 6 OF POPUP 数据处理s       
*       * Prompt:     数据库恢复                                  
*       * Snippet:    33                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0i20ve4z3
Wait windows "正在恢复数据库，请等待..........." at 100,40 timeout 2
Set safety off
xibei=""
zhuanyebei=""
xizhuanyebei=""
banbei=""
dangbei=""
qibei=""
zhuanyehaobei=100
Sele 1
Use xi EXCLUSIVE
Sele 2
Use zhuanye EXCLUSIVE
Sele 3
Use 系专业 EXCLUSIVE
Sele 4
Use chengjiku EXCLUSIVE
Chdir 数据备份
If file("backupdangan.dbf")
	Sele 5
	Use backupdangan EXCLUSIVE
	Go top
	Do while(.not.eof())
		xibei=alltrim(系)
		zhuanyebei=alltrim(专业)
		banbei=alltrim(班级)
		dangbei=档案
		Sele xi
		Locate for 系=xibei
		If(eof())
			Append blank
			Replace 系 with xibei
		Endif
		Sele zhuanye
		Locate for 系=xibei.and.专业=zhuanyebei
		If(eof())
			Append blank
			zhuanyehaobei=zhuanyehaobei+1
			Replace 系 with xibei,专业 with zhuanyebei,专业号 with str(zhuanyehaobei)
		Endif
		Sele 系专业
		Locate for 系=xibei.and.专业=zhuanyebei.and.班级=banbei.and.档案=.t.
		If(eof())
			Append blank
			Replace 系 with xibei,专业 with zhuanyebei,班级 with banbei,专业号 with str(zhuanyehaobei),档案 with dangbei
		Endif
		Locate for 系=xibei.and.专业=zhuanyebei.and.班级=banbei.and.档案=.f.
		If(eof())
			Replace 系 with xibei,专业 with zhuanyebei,班级 with banbei,专业号 with str(zhuanyehaobei),档案 with dangbei
		Endif
		Chdir ..
		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"
			Delete file "数据备份\"+"&xizhuanyebei"+".dbc"
			Delete file "数据备份\"+"&xizhuanyebei"+".dct"
			Delete file "数据备份\"+"&xizhuanyebei"+".dcx"
		Endif
		Copy file "数据备份\"+"&banbei"+".dbf" to "数据库\"+"&banbei"+".dbf"
		Copy file "数据备份\"+"&banbei"+".fpt" to "数据库\"+"&banbei"+".fpt"
		Delete file "数据备份\"+"&banbei"+".dbf"
		Delete file "数据备份\"+"&banbei"+".fpt"
		Chdir 数据备份
		Sele backupdangan
		Skip
	Enddo
	zhuanyehaobei=100
Endif
If file("backupchengji.dbf")
	Sele 6
	Use backupchengji EXCLUSIVE
	Go top
	Do while(.not.eof())
		xibei=alltrim(系)
		zhuanyebei=alltrim(专业)
		xizhuanyebei=xibei+zhuanyebei
		banbei=alltrim(班级)
		qibei=alltrim(学期)
		Sele xi
		Locate for 系=xibei
		If(eof())
			Append blank
			Replace 系 with xibei
		Endif
		Sele zhuanye
		Locate for 系=xibei.and.专业=zhuanyebei
		If(eof())
			Append blank
			zhuanyehaobei=zhuanyehaobei+1
			Replace 系 with xibei,专业 with zhuanyebei,专业号 with str(zhuanyehaobei)
		Endif
		Sele chengjiku
		Locate for 系=xibei.and.专业=zhuanyebei.and.班级=banbei.and.学期=qibei
		If(eof())
			Append blank
			Replace 系 with xibei,专业 with zhuanyebei,班级 with banbei,学期 with qibei
		Endif
		Chdir ..
		If file("数据库\"+"&xizhuanyebei"+".dbc")
			Copy file "数据备份\"+"&banbei"+"&qibei"+".dbf" to "数据库\"+"&banbei"+"&qibei"+".dbf"
			Delete file "数据备份\"+"&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"
			Delete file "数据备份\"+"&xizhuanyebei"+".dbc"
			Delete file "数据备份\"+"&xizhuanyebei"+".dct"
			Delete file "数据备份\"+"&xizhuanyebei"+".dcx"
			Delete file "数据备份\"+"&banbei"+"&qibei"+".dbf"
		Endif
		Chdir 数据备份
		Sele backupchengji
		Skip
	Enddo
Endif
Chdir ..
Close tables all
If file("数据备份\backupchengji.dbf")
	Delete file "数据备份\backupchengji.dbf"
Endif
If file("数据备份\backupdangan.dbf")
	Delete file "数据备份\backupdangan.dbf"
Endif
Wait windows "数据库恢复完毕！........" at 100,40 timeout 1 nowait



*       *********************************************************
*       *                                                         
*       * _0I20VE4Z7  ON SELECTION BAR 2 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MUNE.MPR,            Record:   66           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 关于系统g       
*       * Prompt:     软件帮助                                    
*       * Snippet:    34                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _0i20ve4z7
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)


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




*       *********************************************************
*       *                                                         
*       * _0I20VE4ZB  ON SELECTION BAR 6 OF POPUP 关于系统g       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MUNE.MPR,            Record:   70           
*       * Called By:  ON SELECTION BAR 6 OF POPUP 关于系统g       
*       * Prompt:     信息反馈                                    
*       * Snippet:    36                                          
*       *