Login delPhi 7
 

Buenos dias Lo que quiero es saver como le ponco una validadcion a una edit me explicao mejor quiero que si el primer edit el del nombre de usuario esta en blanco me tire un mensaje que me diga que esta en blanco elte campo o ke este usuario no esiste que me hagauna comparacion del usuario. el codigo que tengo debajo me funciona perfeta mento lo unico es que si dejo el campo del edit un basio lo que yo quiero es que no me deje es cribir si no esta lleno correta mete el nombre del usuario el el edit 1 por que los otra me esta funcionando muy bien.

gracia espero que me puedad eyudar
:)


public
{ Public declarations }
usuario1: boolean;
end;
var
Flogin: TFlogin;
implementation
{$R *.dfm}
procedure TFlogin.Button2Click(Sender: TObject);
begin
if usuario1=false then
Application.Terminate;
//else
fLogin.close;
end;
procedure TFlogin.Button1Click(Sender: TObject);
begin
// Codigo para verificar los.
if (edit2.text<>'') and (edit1.text<>'') then begin
// Codigo pra verificar o igualdade dos campos Nombre y Clave.
if (Edit1.text=adoquery1.FieldByName('usuario').AsString) and (edit2.text=adoquery1.FieldByName('clave').AsString) then begin
fLogin.Close;
edit1.Text:='';
usuario1:=true;
end else begin
messageBox(handle,'Clave Invalida','Cambiar!',MB_ICONERROR+mb_OK);
edit1.Text:='';
edit2.text:='';
edit2.SetFocus;
end;
end else
messageBox(handle,'Nombe de Usuário Inválida ','Cambiar!',MB_ICONERROR+mb_OK);
edit1.Text:='';
end;
end.

Coloca el edit del password ó edit2 con Enabled = false.
Programa el evento del Edit1 OnChange ó OnKeyPress con el código de validación del Edit1. Si validación == OK entonces Edit2->Enabled = true; else Mensaje de no validado.....

Saludos.

No he entendido la pregunta. Es bastante difícil leer una letra tan grande (al menos para mi...) y creo que al código fuente le falta algo, ¿no?

Código Delphi [-]
public
    { Public declarations }
    usuario1: boolean;
  end;
var
  Flogin: TFlogin;
implementation
{$R *.dfm}
procedure TFlogin.Button2Click(Sender: TObject);
begin
if usuario1=false then
Application.Terminate;
//else
fLogin.close;
end;
procedure TFlogin.Button1Click(Sender: TObject);
begin
// Codigo para verificar los.
if (edit2.text<>'') and (edit1.text<>'') then begin
  // Codigo pra  verificar  o igualdade dos campos Nombre y Clave.
  if (Edit1.text=adoquery1.FieldByName('usuario').AsString) and (edit2.text=adoquery1.FieldByName('clave').AsString) then begin
    fLogin.Close;
    edit1.Text:='';
    usuario1:=true;
  end else begin
    messageBox(handle,'Clave Invalida','Cambiar!',MB_ICONERROR+mb_OK);
    edit1.Text:='';
    edit2.text:='';
    edit2.SetFocus;
  end;
end else
  messageBox(handle,'Nombe de Usuário  Inválida ','Cambiar!',MB_ICONERROR+mb_OK);
  edit1.Text:='';
end;
end.

¿Así se ve mejor?