www.pudn.com > PROGRAM.zip > MAIN.PRG

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主窗口