我在打开数据库连接时,捕捉了EOleException,但调试的时候还是出现下面所示的异常对话框
---------------------------
Debugger Exception Notification
---------------------------
Project SchoolManage.exe raised exception class EOleException with message '无效的授权说明'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------程序源代码如下,希望各位指点
procedure TMyDataModule.DataModuleCreate(Sender: TObject);
var
Ini:TReadWriteIni;
SetServer:TSetServer;
ConnString:string;
begin
Ini:=TReadWriteIni.Create;
ConnString:=Ini.GetConnString;
ConnServer.ConnectionString:=ConnString;
try
ConnServer.Open;
except
on EOleException do
begin
SetServer:=TSetServer.Create(self);
SetServer.ShowModal;
end;
end;
end;
---------------------------
Debugger Exception Notification
---------------------------
Project SchoolManage.exe raised exception class EOleException with message '无效的授权说明'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------程序源代码如下,希望各位指点
procedure TMyDataModule.DataModuleCreate(Sender: TObject);
var
Ini:TReadWriteIni;
SetServer:TSetServer;
ConnString:string;
begin
Ini:=TReadWriteIni.Create;
ConnString:=Ini.GetConnString;
ConnServer.ConnectionString:=ConnString;
try
ConnServer.Open;
except
on EOleException do
begin
SetServer:=TSetServer.Create(self);
SetServer.ShowModal;
end;
end;
end;
function TReadWriteIni.GetConnString: string;
begin
result:='Provider=SQLOLEDB.1;Password='+FPassword+';Persist Security Info=True;User ID='+FUserName+';Initial Catalog=xxglxt;Data Source='+FIp;
end;