.
.
.
openwithparm(w_登录界面,'show');
连接数据库;
if SQLCA.sqlcode <> 0 then
MessageBox ("连接","服务器数据库连接错误,请进行环境初始化设置",stopsign!)
w_登录界面.TriggerEvent("ue_close")
halt close
end if
w_登录界面.TriggerEvent("ue_close")
open(w_系统主界面)
.
.
.
.
另外在,w_登录界面 的ue_close事件中写上close(parent);
这样:
假设这个启动窗口为w_splash,主窗口为w_main
在application的open事件中连接数据库之前写上:
open(w_splash)
然后在w_main的active事件中写上
if isvalid(w_splash) then
close(w_splash)
end if
其实PB带的sample就有,还有很多不错的多多