main.prg

实现了视窗化管理,并且能够进行本地asp查询功能

on error do DealError with error(),sys(16),program(),lineno(),message(),message(1)
public capp_currentuser							&&用于保存当前用户用户名
public capp_currentpwd							&&用于保存当前用户口令
public capp_currentpop							&&用于保存当前用户权限代码
public lapp_Logon								&&用于保存当前用户是否登录成功
*设置初始值
capp_currentuser=""
capp_currentpwd=""
capp_currentpop=""
lapp_Logon=.F.
SET TALK OFF
_VFP.visible=.F.							&&隐藏Visual FoxPro主窗口
DO form forms\sysuserlog.scx					&&显示登录表单
read events										&&建立事件循环
if lapp_logon
	_VFP.visible=.T.						&&显示Visual FoxPro主窗口
	_VFP.caption="图书借阅管理系统"
	_screen.windowstate=2
	SET SYSMENU TO _MWINDOW						&&Visual FoxPro的系统菜单仅保留“窗口”菜单
	SET STATUS BAR OFF
	do menu\菜单1.mpr						&&登录成功，显示图书借阅管理系统菜单
	read events									&&建立事件循环
endif
SET TALK ON
quit 											&&关闭Visual FoxPro主窗口
procedure DealError		&&错误处理过程
	parameters nError,cFile,cProgram,nLineno,cMsg,cLine
	cCr=chr(13)+chr(10)			&&获得换行符
	cstr="程序发生错误，错误信息如下：" +cCr+"错误代号：" + alltrim(str(nError))  + cCr
	cstr=cstr+"错误信息：" + cMsg + cCr+"语句行号：" + alltrim(str(nLineno))+ cCr
	cstr=cstr+"出错代码：" + cLine+ cCr+"程序名称：" + cProgram  + cCr
	cstr=cstr+"程序文件：" + cFile
	messagebox(cstr,16,"图书借阅管理系统")
return