main.prg

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· PRG 代码 · 共 18 行

public capp_currentuser							&&用于保存当前用户用户名
public capp_currentpwd							&&用于保存当前用户口令
public capp_currentpop							&&用于保存当前用户权限代码
public lapp_Logon								&&用于保存当前用户是否登录成功
*设置初始值
capp_currentuser=""
capp_currentpwd=""
capp_currentpop=""
lapp_Logon=.F.
application.visible=.F.							&&隐藏Visual FoxPro主窗口
DO form forms\sysuserlog.scx					&&显示登录表单
read events										&&建立事件循环
if lapp_logon
	DO form forms\SystemMain.scx				&&显示系统主表单
	read events									&&建立事件循环
endif
quit 	 										&&关闭Visual FoxPro主窗口