为何下面语句中,我在连接数据库时,如果登陆名有错,不显示'数据库没有连接,联机设置失败!',而是系统出现提示错误信息,我希望系统不提示,而显示示'数据库没有连接,联机设置失败!'着行语句。Try
      begin
      Aconntemp.Close;
      Aconntemp.ConnectionString :=setstr0;
      Aconntemp.LoginPrompt:=false;
      Aconntemp.Connected:=true;
      Aconntemp.Open;
      end;
    Except
      Showmessage('数据库没有连接,联机设置失败!');
   end;

解决方案 »

  1.   

    找出错误代码,当有这个代码时执行 Showmessage('数据库没有连接,联机设置失败!'); 这语句不就ok了,试一下if或其它语句
      

  2.   

    登录名有错的错误代码不在这里面,你捕捉不到的!
    参考下面的sql:string;sql:='select * from user where userId='+''''+trim(edtUser.text)+'''';
    query1.close;
    query1.sql.clear;
    query1.sql.add(sqltmp);
    query1.open;
    if query1.FieldByName('pwd').Asstring <> edtPwd.text
    begin
      Showmessage('数据库没有连接,联机设置失败!'); 
      Exit; 
    end