main.prg

来自「一个用vf6.0编写的学生管理系统。包括 登录 、系统维护、数据处理、 资料查」· PRG 代码 · 共 47 行

Set safety off
Set talk off
Set deleted on
Clear memo
Close all

Public yonghu,denglu,hlp
yonghu=sys(5)+curdir()+"用户.DBF"
denglu=sys(5)+curdir()+"登录.DBF"
hlp=sys(5)+curdir()+"帮助.chm"

If file(allt(hlp))
    Set help to 帮助
Endif

If !file(allt(yonghu)) or !file(allt(denglu))
	Messagebox("系统信息丢失，无法启动！",48+0,"学生管理系统")
Else
    Use 登录 share
	If RECCOUNT()<7
			Use in 登录
			Do form welcome
			Read events
			_Screen.visible=.F.
	Else
		Go 7
		If allt(leftc(显示登录,4))="BAAB"
			Public _user
			_user="null"
			Use in 登录
			Do form mainform
			Do form toolbar
			Read events
			_Screen.visible=.F.
		Else
			Use in 登录
			Do form welcome
			Read events
			_Screen.visible=.F.
		Endif
	Endif
Endif