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