可以试试
begin
database1.Connected := False;
database1.Params.Clear;
database1.Params.Add('UserName = youloginname');
database1.Params.Add('PassWord = youpassword');
try
database1.Connected := True;
except
ShowMessage('用户名密码有误');
end;
end;
begin
database1.Connected := False;
database1.Params.Clear;
database1.Params.Add('UserName = youloginname');
database1.Params.Add('PassWord = youpassword');
try
database1.Connected := True;
except
ShowMessage('用户名密码有误');
end;
end;
还有没有人回答呀?!