Ver Mensaje Individual
  #3  
Antiguo 13-03-2009
Avatar de chino150
chino150 chino150 is offline
Miembro
 
Registrado: dic 2007
Posts: 86
Reputación: 19
chino150 Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
Coloca la propiedad LoginPrompt a False, diseña tu pantalla pantalla de login como desees y una vez introducidos los datos pásalos a la conexión.
Capturas el error que pueda haber al conectar y visuyalizas la pantalla de nuevo si es necesario.
ok lo intente pero cuando le hago click al botton aceptar do muestra el formulario principal pero cuando le dio click a cancelar si este es el codigo que
utilize
Código Delphi [-]
procedure TfrmLogin.btnAceptarClick(Sender: TObject);
var
   sUsuario, sContra : String;
begin
    sUsuario := txtUsuario.Text;
    sContra := txtContra.Text;
    md.BD.Disconnect;
    md.BD.User := sUsuario;
    md.BD.Password := sContra;
    md.BD.Connect;
end;

end.
no se que estoy haciendo mal.
Responder Con Cita