eudy.net puedes probar con este codigo,a mi me ha funcionado hasta el momento.
Código Delphi
[-]
procedure Tflogin.BitBtn1Click(Sender: TObject);
var
consulta : string;
begin
consulta := '';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if Edit1.Text = '' then
begin
ShowMessage('Digite su Nombre de usuario ');
Edit1.SetFocus;
exit;
end
else if Edit2.Text = '' then
begin
ShowMessage('Digite su contraseña ');
Edit2.SetFocus;
exit;
end
else
consulta := 'SELECT * FROM login WHERE nombre = ' +
QuotedStr(edit1.Text) + ' AND password = ' +
QuotedStr(edit2.Text);
ADOQuery1.SQL.Add(consulta);
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
Application.MessageBox('Usuario No Encontrado ó Contraseña Incorrecto ','Aviso ',MB_OK + MB_ICONerror);
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
exit;
end
else
begin
Edit1.Clear;
Edit2.Clear;
Fmenu.ShowModal;
end;
Salu2