Ayuda :: Login

[loquillo3]

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