FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ayuda con Password dialog
Hola, muy buenas tardes, necesito de su ayuda, porque yo no le puedo, no le puedo y no le puedo, ya estuve checando varios hilos y sigo sin encontrarle una solucion. mi problema es el siguiente tengo una aplicacion MDI y utilizo un password Dialog para usuario y contraseña, quiero que el password dialog sea el primero en aparecer y cuando la contraseña sea incorrecta que me permita capturarla hasta 3 veces, el codigo en el archivo DPR:
Código:
{$R *.res} begin Application.Initialize; Application.CreateForm(TPrincipal, Principal); Application.CreateForm(TPasswordDlg, PasswordDlg); Application.CreateForm(TModulo, Modulo); Application.CreateForm(TSplash, Splash); Application.CreateForm(TFrSeleccionarArt, FrSeleccionarArt); //Application.Run; PasswordDLG.ShowModal; Código:
procedure TPasswordDlg.OKBtnClick(Sender: TObject); var i:integer; begin if DBLookupComboBox1.Text=''then begin Showmessage('No ha seleccionado el usuario, favor de hacerlo'); DBLookupComboBox1.SetFocus; end else begin principal.Edit9.Text:=DBLookupComboBox1.Text; modulo.ADOEmpleado.Filtered:=false; modulo.ADOEmpleado.Filter:=('Nombre=')+ quotedstr(DBLookupComboBox1.Text); modulo.ADOEmpleado.Filtered:=true; Edit3.Text:=modulo.ADOEmpleadoId_empleado.AsString; modulo.ADOEmpleado.Filtered:=false; modulo.ADOPassword.Filtered:=false; modulo.ADOPassword.Filter:=('Id_empleado=')+quotedstr(Edit3.Text); modulo.ADOPassword.Filtered:=true; if Password.Text=modulo.ADOPasswordPassword.AsString then begin Splash.Show; Splash.Update; for i:=1 to 100 do begin Splash.ProgressBar1.Position:=i; sleep(20); end; Splash.Close; application.Run; end else begin Password.Clear;Password.SetFocus; showmessage(' La contraseña no es la correcta, intentelo de nuevo'); a:=a+1; if a=3 then begin showmessage('Ya perdió usted las 3 oportunidades, Adios'); application.Terminate; end; end; end; end; |
#2
|
||||
|
||||
Sería útil que nos contaras qué es lo que no funciona de tu código.
// Saludos |
#3
|
||||
|
||||
Así de rapidez se me ocurre que podrias hacer del mismo splash el formulario del password.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com |
#4
|
|||
|
|||
Creo que no me explique bien
Gracias por contestar, El codigo que les puse cuando la contraseña es correcta entra, eso esta bien, lo que no me funciona del codigo es que cuando la contraseña sea incorrecta quiero que me permita volver a capturar la contraseña hasta 3 veces y despues de las 3 veces sino le atino que me cierre la aplicacion.
|
#5
|
||||
|
||||
Para qué complicarse tanto,tan sólo has esto en el evento OnCreate de tu Formulario principal:
Luego en tiempo de Diseño pones la propiedad Visible=True y su propiedad FormStyle=fsNormal de tu formulario que es donde el usuario se Loguea, de esa manera cuando corra tu aplicacion lo primero que se va mostrar es el formulario donde se loguea. Para el caso de sólo permitir 3 intentos pues te es suficiente tener una variable que cuente las veces que el usuario intentó, ésto sería en el boton de Aceptar de tu formulario de Logueo mas o menos así: Desde luego debes inicializar la variable Cantidad_de_Intentos con cero, ésto lo puedes hacer en el evento OnCreate de tu formualrio de Logueo. Espero te sea de Utilidad.. Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Última edición por rgstuamigo fecha: 20-02-2010 a las 00:09:16. |
#6
|
|||
|
|||
Gracias, ya solucione el problema
Hola rgstuamigo muchas gracias por la ayuda, apliqué tu idea en el programa y sí funcionó, y tambien gracias a todos los que me respondieron.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Ayuda con código para password | radenf | Varios | 7 | 29-10-2007 23:02:18 |
open dialog y memo | Lucass | Varios | 1 | 07-08-2007 16:59:39 |
problemas con el cuadro Color.Dialog | quake2420 | Gráficos | 6 | 20-05-2007 18:35:53 |
ayuda para ingresar password | santoto | C++ Builder | 2 | 21-03-2007 02:21:10 |
dialog | ilcapo | C++ Builder | 1 | 13-02-2006 08:27:04 |
|