数据库连接不成功，就卡在那不动了，牛人给解决一下
function TDM.isconn():boolean;
var
AppIni:TInifile;
sFilename,sServer,sDatabase,sUsername,sPassword:string;
begin
result := true;
sFilename:=ExtractFilePath(application.ExeName)+'link.ini' ;
AppIni := TIniFile.Create(sFilename);
sServer:=AppIni.ReadString('YJDataBase','Server','Server');
sDatabase:=AppIni.ReadString('YJDataBase','Database','Database');
sUsername:=AppIni.ReadString('YJDataBase','Username','Username');
sPassword:=AppIni.ReadString('YJDataBase','Password','Password');
With conyj do
begin
Close;
LoginPrompt:=False;
ConnectionString:='Provider=SQLOLEDB.1;Password='#39+sPassword+#39';Persist Security Info=True;User ID='#39+sUsername+#39';Initial Catalog='#39+sDatabase+#39';Data Source='#39+sServer+#39'';
Try
Connected:=True;
Except
//链接异常处理
ON EOLEException do //这里需要在uses中添加ComObj才可以使用
begin
showmessage('药监数据库连接不成功！');
result := false;
Halt;
end;
end;
end;
end;
[解决办法]
