Validar Una ContraseÑa Y Cerrar La Ventana De Inicio De Sesion

[TrUnkS]

Hola a todos. He buscado tanta cosa y no he podido solucionar mi problema. Tengo una aplicación en Delphi en donde el Form principal que aparece al ejecutar la aplicación corresponde a INICIO DE SESION, en donde uno puede ingresar su nombre de usuario y contraseña. Mi preguta es como lo hago para validar el nombre de usuario y contraseña y además cerrar la ventana de inicio de sesión cuando doy en ACEPTAR en el formulario. Uso Paradox 7 y Delphi 6. Por lo general llamo a mis formularios utilizando FORM.ShowModal; en el evento onclick de los botones. Por favor ayuda urgente.

[vtdeleon]

Saludos

Se ha hablado bastante sobre el tema, has una busqueda para el caso. Chequeate este hilo
Suerte

[TrUnkS]

Hola. Para que mi ventana de INICIO DE SESION se oculte (sin destruirla) cuando le doy en ACEPTAR, pongo este código en el evento Onclik del boton ACEPTAR o en otro evento?

Código Delphi [-]
Application.Initialize;
    with FSesion.Create(nil) do begin //FSesion=nombre Form INICIO SESION
      if ShowModal=mrok then begin
        frmPantEntr:=TfrmPantEntr.Create(nil);
        Application.CreateForm(TFPrincipal, FPrincipal); //FPrincipal=nombre Form que aparece después 
                                                //del logueo al pinchar en boton ACEPTAR
        FreeAndNil(frmPantEntr);
        Application.Run;
      end else
      begin
        application.Terminate;
      end;//If
    end;//With

[vtdeleon]

Saludos

• Ese codigo no esta en ningun evento, sino en el archivo DPR.

• Por que no destruirlo, por que ocultarlo? lo vas a usar despues?

Si es asi,

Código Delphi [-]
Application.Initialize;
  Fsesion:=TFsesion.Create(nil);
    with FSesion do begin //FSesion=nombre Form INICIO SESION
      if ShowModal=mrok then begin
        frmPantEntr:=TfrmPantEntr.Create(nil);
        Application.CreateForm(TFPrincipal, FPrincipal); 
        FreeAndNil(frmPantEntr);
        Application.Run;
      end else
      begin
        application.Terminate;
      end;//If
    end;//With

Con esto tienes Fsesion aun en memoria, sin destruir

[TrUnkS]

Hola vtdeleon... gracias por responder, con decirte que trabajo hace solo 2 meses con delphi y estoy realizando una aplicación para mi practica. Por esta razón quizás me complique la existencia. Bueno cuando habro el archivo .dpr automaticamente me abre el archivo Sesion.pas que es el primer Form de INICIO DE SESION. Puse el código en Sesion.pas y bueno me marca error de que no esta definido el frmPantEntr, obviamente pues es un nombre de un Form, pero quiero saber a que Form esta dirigido ese nombre para reeemplazarlo, ¿será FPrincipal?, ¿estaré bien con poner el código en Sesion.pas?. Quisiera destruir FSesion depués de haber validado la contraseña. ¿ Es necesario poner algo en Ondestroy?. De antemano gracias

[vtdeleon]

Saludos

Vamos desde el principio.

FSesion ==> Form de acceso
FPrincipal ==> Form Principal

En el DPR poner esto:

Código Delphi [-]
Application.Initialize;
Fsesion:=tFsesion.create(nil);
with Fsesion do begin
 if ShowModal=mrok then begin
  Application.CreateForm(TFprincipal, Fprincipal);
  Application.Run;
 end else begin
  application.Terminate;
 end;//If
end;//With

En Fsesion solo pones tu codigo de validacion (comprobacion de usuairio y clave).