H
hcm0790
Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码如下:
procedure TErpConnection.MtsDataModuleActivate(Sender: TObject);
begin
Conn_Con.ConnectionString:=DataSource();
if IncActive=False then
begin
//出现异常,处理错误,应用终止。
SaveLog('beyond MaxActive');
raise Exception.Create('beyond MaxActive');
SetAbort;
halt;//没反应!
end;
end;
procedure TErpConnection.MtsDataModuleActivate(Sender: TObject);
begin
Conn_Con.ConnectionString:=DataSource();
if IncActive=False then
begin
//出现异常,处理错误,应用终止。
SaveLog('beyond MaxActive');
raise Exception.Create('beyond MaxActive');
SetAbort;
halt;//没反应!
end;
end;