FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Formulario de login!!
Hola amigos!!!
Necesito saber como puedo mostrar el formulario de login inmediatamente despues de haber mostrado el menu principal, esto para introducir la clave y a trabajar... Cuento con ustedes.. ElCherchu.. |
#2
|
||||
|
||||
Si quieres que se muestre el principal y a partir de ahí aparezca el login, lo disparas en el OnShow del principal:
Código:
procedure TFrmPrincipal.FormShow(Sender: TObject); begin with TFrmLogin.Create(Self) do try if ShowModal = mrCancel Then Self.Close; finally Free; end; end;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Solucion
En mi Caso muestro Una ventana de Dialogo donde el usuario debe mostrar de clave o acceso justo antes de ver el menu principal es decir antes de ejecutar la aplicacion.
Lo hago del siguiente Modo el programa principal coloco lo siguiente begin Application.Initialize; Application.Title := 'Facturacion'; Application.CreateForm(TF_Principal, F_Principal); Application.CreateForm(TMdatos, Mdatos); Application.CreateForm(TF_Clave, F_Clave); F_Clave.ShowModal; If F_Clave.Tiene_Acceso Then begin Application.Run; End Else Begin Mdatos.Conexion_BD.Close; Application.Terminate; End end. y en el formulario clave le creas las propiedades private { Private declarations } Acceso : Boolean; public { Public declarations } Property Tiene_Acceso : Boolean Read Acceso Write Acceso; end; y por ultimo en el boton aceptar coloco lo siguiente if Mdatos.T_UsuarioClave_Usuario.Value = Clave_Usuario.Text Then Tiene_Acceso := True; Espero que te sea util..!! |
#4
|
||||
|
||||
Leonard, prueba a encerar tu código en las etiqueta [ Delphi ] [ / Delphi ] (sin espacios), verás que tiene mejor presentación.
Así quedaría tu codio con dichas etiquietas:
Tampoco estaría mal que identases tu código.
__________________
:) |
#5
|
|||
|
|||
Consulta sobre login
Amigos Disculpen que me meta en su conversacion, pero tambien necesitaba algo asi , probe y me funciono , lo que no se es que poner en el boton cancelar del formulario login, solo trabajo con el principal y el form del login
begin Application.Initialize; Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmIngreso, FrmIngreso); FrmIngreso.ShowModal; if FrmIngreso.TieneAcceso then Application.Run else Application.Terminate; end; end. En el boton cancelar puse esto pero me sale un error 'EAcces violation....' Begin Acceso := False; Close; end; el error me sale justo despues de ejecutar correctamente el comando 'Application.Terminate', cuando se ubica en el End..como que quisiera ejecutar algo mas...que no se que es , no se si me pueden ayudar |
#6
|
||||
|
||||
mira primero que todo, utiliza por favor las etiquetas para encerrar el codigo:
yo cambiaria algunas lineas de tu codigo algo asi:
y el boton cancelar la propiedad modal result le das mrCancel por supuesto en el de aceptar cuando asignesel valor a la variable tiene accesocambia esa linea por ModalResult := mrOk, listo
__________________
...Yo naci en esta ribera del arauca vibr@d0r Soy hermano de la espuma, de la garza, de la rosa y del sol... Viva Venezuela |
#8
|
|||
|
|||
Login
Gracias Amigo , Ya Funciono Con Tu Ayuda...!!
Saludos.. |
|
|
|