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;