Ver Mensaje Individual
  #1  
Antiguo 03-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Reputación: 21
enecumene Va por buen camino
Pantalla Login

Saludos señores:

tengo este problemita, ya tengo el form de login creado, ya se como llamarlo antes del principal, tengo un codigo en el boton aceptar pero no se como hago que al dar a ese boton valide el password y entre de una vez al principal, y como hacerlo que en vez darle al boton dandole Enter?

aqui os dejo codigo del boton:

Código Delphi [-]
procedure TLogin.BitBtn4Click(Sender: TObject);
begin
  if not tbUsuarios.Active then
    tbUsuarios.Open;

  if tbUsuarios.Locate('usuario', User.Text, []) then
  begin
    if tbUsuarios.FieldByName('contrasena').AsString = Pass.Text then
      ShowMessage('Estan correctos');
    else
      ShowMessage('Pass incorrecto');
  end
  else
    ShowMessage('User innexistente');
end;

gracias!!!
Responder Con Cita