Validar ingreso al Sistema....

[marcoszorrilla]

Al formulario de validación le puedes llamar en el OnCreate de tu menú y si la validación es correcta sigues con el menú y la aplicación y sino cierra la aplicación.

UN Saludo.

[[BlueSteel]]

y como hago.. para que me cierre la aplicación si la respuesta es erronea...

asi lo esto llamando en OnCreate (Menu)


Validar := TValidar.Create(Self);
Try
Validar.ShowModal;
Finally
Validar.Free;
End;

[marcoszorrilla]

Código Delphi [-]
 //llamada
 procedure TfrMenu.FormActivate(Sender: TObject);
 begin
 AskBor:=True;
 nClave:=nClave + 1;
  
   If nClave < 2 then
   begin
   Application.CreateForm(TfrClave, frClave);
   FrClave.ShowModal;
   end;
   frMenu.Caption:='Nombre Aplicación * Usuario: '+Dmxx.UsuUsuario.value;
 end;
 
 //En el formulario de petición de clave.
 
 procedure TfrClave.SpeedButton1Click(Sender: TObject);
 begin
 {XXX es una clave que tengo yo para entrar}
   if (Codifica(mkClave.Text) = DmXX.UsuClave.Value) OR (mkClave.Text = 'XXXX')  then
   begin
       frclave.close;
   end
   else
   begin
   nIntentos:=nIntentos + 1;
   lbTrys.Visible:=True;
   lbtrys.Caption:=IntToStr(nIntentos);
   end;
 
   if nIntentos > 4 then
   begin
     frMenu.OnCloseQuery:=nil;
     frmenu.Close;
     frClave.Close;
   end;
 
 end;

Un Saludo.

[[BlueSteel]]

Lamento molestar nuevamente... pero no entiendo el codigo que enviastes...

Tengo un Formulario llamado BIENVENIDA, el cual es un SplashScreen...
Tengo un Formulario llamado VALIDAR, el donde se ingresa el USUARIO y la PASSWORD, y el mismo formulario me valida y cuenta cuantas veces se han equivocado....
Tengo un Formulario llamado MENU, en cual encadena a todos los demas formularios de mi sistemita....

Al ingresar al Sistema, aparece el formulario BIENVENIDA, luego se ingresa al formulario MENU, y en el evento onCreate del MENU, llamo al formulario VALIDAR..... luego cuando termina de ejecutarse el formulario VALIDAR, pregunto por la variable SW. Si es falsa cierro el formulario MENU, pero este no se cierra....

[jafl1965]

El código que te manda marcos es excatamente lo que pides. Porqué no pruebas Application.terminate para cerrar menu si está mal la clave?

[Chaja]

Usa como te dicen los amigos. application.terminate si no valida el codigo de ussuario.

Yo uso un componente de ToolsandComp y el codigo que puse es:

if login ='S' then
if UsersCS1.Login=False Then
Close;

en el evento Close del Form Principal hago:

WindowCloseAll.Execute;
Application.Terminate;

fijate...

[[BlueSteel]]

Gracias... ahora si me funciono con el Application.Terminate;