Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Solicitud de user y password en delphi (https://www.clubdelphi.com/foros/showthread.php?t=21795)

el_barto 27-05-2005 18:45:00

Solicitud de user y password en delphi
 
Tengo 5 usuarios creados en mi base de datos en interbase y quiero que cuando ejecute mi programa en delphi les pida usuario y contraseña pero este cuadro donde pide usuario y contraseña este personalizado por mi agregandole una imagen o un texto, no quiero que sea el mismo recuadro que tiene por defecto delphi, como se hace esto

Lepe 27-05-2005 18:51:15

Crea una nueva ventana usa 2 botones BitBtn, al de aceptar le pones ModalREsult := mrOk y al de cancelar MrCancel

esa ventana llamala así
Código Delphi [-]
if Ventana.ShowModal = mrOK then 
  Se supone que es el usuario correcto
else
  Application.Terminate.

Un saludo

el_barto 27-05-2005 20:22:27

perdona la ignorancia y como se crea la ventana???, por que la que te hablo en el primer hilo aparece por default

el_barto 27-05-2005 23:50:22

La ventana se crea como un messagebox o que???

Lepe 28-05-2005 14:29:07

1.- En delphi, Project --> Options, deja la ventana en cuestion en el apartado de Available Forms

Para crear la ventana, hay varias opciones, una de ellas es esta:
Código Delphi [-]
 with Tform1.Create(nil) do
  try
   if ShowModal = mrOk then
     begin
      // lo que quieras
    end;
  finally 
    Free;
  end
end;

Otra forma sería:
Código Delphi [-]
 Form1 := Tform1.Create(nil);
  try
   if ShowModal = mrOk then
     begin
      // lo que quieras
    end;
  finally 
    freeandnil(Form1);
  end
end;

Si quieres ocultar la ventana que te sale al principio, creo que es esto:
Cita:

Empezado por jachguate en otro hilo
Podes hacer un dialogo a tu gusto para pedir usuario y pass... pone la propiedad LoginPronpt de tu conexión a la base de datos a false y le pasas directamente los valores introducidos por el usuario en tu formulario.

Un saludo


La franja horaria es GMT +2. Ahora son las 21:13:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi