*****请问如何让数据库连接出错不跳窗口********

Question

try
         DataModule1.ADOConnection.Connected := True;
         DataModule1.ADOConnection.Connected := False;
       except
          DataModule1.ADOConnection.Connected := False;
          self.MShow.Lines.Add(datetimetostr(now)+':数据库连接失败!');
          WriteErrorlog('数据库连接失败!');
       end;
这样写,oracle连接出错时,还是会跳连接出错窗口,请问如何避免出现窗口?谢谢

Answer 1

调试的时候会出现窗口，
直接运行exe就没有了

Answer 2

>>         DataModule1.ADOConnection.Connected := True;
>>         DataModule1.ADOConnection.Connected := False;连接又断开？？？晕~~~
 
    try
       DataModule1.ADOConnection.LoginPrompt := false;
       DataModule1.ADOConnection.Connected := False;
       DataModule1.ADOConnection.Connected := True;
    except
   ...

Answer 3

try
       DataModule1.ADOConnection.LoginPrompt := false;
       DataModule1.ADOConnection.Connected := False;
       DataModule1.ADOConnection.Connected := True;
    except
还是跳窗体,我是直接运行EXE的