学籍管理系统源码

cCaption="大学学籍成绩综合管理系统"
DECLARE integer FindWindow in win32api string cClass,String cCaption
IF FindWindow(0,cCaption)#0.or.sys(16)==cCaption
	_SCREEN.caption=cCaption
	=messagebox("本程序已经运行，无法启动新的实例！",16,"警告")
	RETURN .f.
ENDIF
*_screen.caption=cCaption
Set debug off
Close databases all
_Dir=sys(5)+sys(2003)+'\'
Set default to (_Dir)
*_Screen.VISIBLE = .F.
Set safety off
Set date to YMD
Set talk off
set dohistory off
On shutdown quit
*on error do cuowu
Public jiqihao
Public zhuce
Public tubiao
Public bzhlj
Public quanxian
Public beijing
Public xxm
Public keykk
public ximing
public zhuanyeming
PUBLIC chengjiban
public qi
public kecheng
*************************************************************************************************
If file("yonghu.dbf")
	Copy file yonghu.dbf to manerge.dat
	Delete file yonghu.dbf
Endif
If !file("xi.dbf").or.!file("chengjiku.dbf").or.!file("zhuanye.dbf").or.!file("系专业.dbf").or.!file("manerge.dat");
		.or.!file("学生档案信息.dbf").or.!file("学生档案信息.frx").or.!file("bukao.dbf")
	=messagebox("缺少系统配置文件，请重新安装本程序！",0+48,"警告")
	Quit
Endif
*************************************************************************************************
Restore from neicun
If jiqi=0
	Do start
	jiqihao=int(100000+1000000*rand(-1))
	jiqi=1
	*Mkdir 数据库
	*Mkdir 导出
	*Mkdir 数据备份
	*Mkdir 照片
	Save to neicun
Endif
bzhlj=sys(5)+sys(2003)+'\'
quanxian=0
Do form qidong.scx
Read events
*Quit
cancel