validar dos campos (password y usuario)

[el_barto]

no subestimes el poder del motor de busqueda del foro, aqui esta un hilo que muy seguramente te ayudara en tu proposito:

http://www.clubdelphi.com/foros/showthread.php?t=21935

[Yessy]

Gracias por responder.
No habia podido accesar a la pagina despues de ese dia desde mi computadora.
Aqui detallo el código que estoy utilizando.

procedure TPASSWORD.OKClick(Sender: TObject);

begin
if (edit1.Text= '')= true then
begin
showmessage ('Introduzca Su Nombre De Usuario');
edit1.SetFocus;
end;
if (edit2.Text= '')= true then
begin
showmessage ('Introduzca Su Password');
edit2.SetFocus;
end;
if (edit1.Text= '' )and (edit2.Text= '' )= true then
principal.ShowModal;
edit1.SetFocus;
edit1.Text:= '';
edit2.Text:= '';
edit1.SetFocus;
if (TBpassword.FindKey ([edit1.text]) = true ) then
showmessage ('Clave incorrecta');

end;


end.

El cual no me funciona.
Gracias nuevamente

[vtdeleon]

Saludos

Código Delphi [-]
    procedure TPASSWORD.OKClick(Sender: TObject);
     begin
     if trim(edit1.Text= '') then
     begin
        showmessage ('Introduzca Su Nombre De Usuario');
        edit1.SetFocus;
      end else
       if trim(edit2.Text= '') then
        begin
          showmessage ('Introduzca Su Password');
          edit2.SetFocus;
        end else
    {Esto aqui no lo entiendo, ya que esos mismo campos lo evaluaste anteriormente
    Pienso que no va.}
    {
     if (edit1.Text= '' )and (edit2.Text= '' )= true then
      principal.ShowModal;
     edit1.SetFocus;
     edit1.Text:= '';
     edit2.Text:= '';
     edit1.SetFocus;}
  //if (TBpassword.FindKey ([edit1.text]) = true ) then
   {regularmente uso Locate}
   if not TBpassword.locate('usuario;clave',VarArrayOf([edit1.text,edit2.text]),[]) then
            showmessage ('Usuario o Clave incorrecta');
         else 
           {aqui el codigo para abrir tu ventana principal}
         end;

Por ultimo has una busqueda en este foro, yaqeu se ha hablado mucho (o bastante) de este tema.
Suerte

[Yessy]

Hola
Gracias a todos por la ayuda.
Ya entendi y la aplicacion funciona muy bien

[Ade]

hola necesito que alguien me ayude, uso delphi 4 con componentes zeos y mysql, y puse en el boton entrar, lo siguiente;
ZTable1 es mi tabla de usuarios(nombre, usuario, password)

procedure TForm1.Button1Click(Sender: TObject);
begin
if not ZTable1.Locate('usuario', Edit1.Text, []) then
showmessage('Usuario incorrecto.')
else Form2.ShowModal
end;

solo trato de buscar en la tabla el usuario introducido por en el edit pero me sale el siguiente error;

Stack overflow, alguien podria ayudarme, gracias