主程序代码:
set talk off
set escape off
set exclusive off
set help on
set console on
set date ansi
set century on
set safety off
set color to
set sysmenu off
set notify off
do form frmlogin
read events
on shutdown do quitall.prg
public bb,userset
do MENU.MPR
这样运行时没问题
但我后来有加了一个打开数据库的程序opendb.prg:
if not dbused("km")
open database km exclusive
endif
set database to km
if not used("tblusers")
use tblusers alias tblusers in 0
endif
select tblusers
set deleted on
if not used("bb")
use bb alias bb in 0
endif
select bb
set deleted on
然后把主程序改成:
set talk off
set escape off
set exclusive off
set help on
set console on
set date ansi
set century on
set safety off
set color to
set sysmenu off
set notify off
do opendb.prg
read events
do form frmlogin
read events
on shutdown do quitall.prg
public bb,userset
do MENU.MPR
结果运行就再也没正常过了
总是到不了系统登陆的界面
如果单运行主程序,他会显示opendb不存在
但他明明在项目里
我是参考一本8.0版本的书,但我用的是6.0
也不知道是不是这个因素
我现在就卡死在这了,请各位帮帮忙,感谢
