数据库连接不成功，就卡在那不动了，牛人给解决一下
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;
[解决办法]

引用:

就是设成1也不管用

程序等多久都没反应?

正常情况, 数据库连接不上, 顶多比超时时间多等个半分钟左右, 不会无限期等待
[解决办法]
实在解决不了, 你和周围的同事或朋友一块儿看看
在论坛上大家只能提供思路和经验, 不一定符合你所说的情况
[解决办法]
连接数据库这类耗时的操作应该用多线程