如果你不想让程序报错,可以这样解决:
procedure TForm1.FormCreate(Sender: TObject);
begin
try
Database1.Connected:=true;
except
application.Terminate;//数据库连接不上,程序退出
end;
end;
具体要实现怎样的结果,你自己再处理吧
procedure TForm1.FormCreate(Sender: TObject);
begin
try
Database1.Connected:=true;
except
application.Terminate;//数据库连接不上,程序退出
end;
end;
具体要实现怎样的结果,你自己再处理吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货