来自「学籍管理系统源码」· 代码 · 共 58 行

cCaption="大学学籍成绩综合管理系统"
DECLARE integer FindWindow in win32api string cClass,String cCaption
*_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