Mostrar Formulario solo 1 vez y destruirlo

[BuRtOn]

mmm...Coso, no vi en ninguna parte de este hilo, donde yo ,me crea superior a alguien, si lees con atencion siempre les dije que solo llevo com 5 meses con delphi, y todos lo saben, si acudo al foro es por que los necesito, y estoy hasta ahora aprendiendo......en fin hombre te agardezco que me allas ayudado...y ya nada de broncas...

[[coso]]

es cierto, no lo pone en ningun lado...ok, ningun problema. de nada saludos y adios.

[BuRtOn]

Bueno ya trabaje toda la logica de seguridad....pero aun no entiendo algo...miren si compruebo lo siguiente:

Todo este codigo lo genero en el evento OnClick del boton aceptar del formulario Serial.

El IdArchivo: Se genera con una aplicacion aparte, y creo el archivo donde instalo la aplicacion, para que pueda llamar el archivo y hacer la comparacion con el IdPc que extrajo la funcion....

Código Delphi [-]
   
  if IdArchivo = IdPc (Este Id se extrae por medio de una funcion) then
    begin
      MessageDlg('Bienvenido, Registro Satisfactorio',mtInformation,[mbOK],0);
      frmSerial.Visible:=False;
      //Que nunca vuelva a salir el formulario de Seriales ya que el usuario esta registrado.
 
    end
 else
   begin
     MessageDlg('Datos Incorrectos',mtInformation,[mbOK],0);
     Application.Terminate;
   end;

Esto se genera en el Formulario Serial es simple....Apenas se ejecute la condicion que si el IdArchivo = IDPc es verdadero, inmediatamente se vuelve Invisible el FormSerial, y aparece el Formulario de Seguridad de la aplicacion, que es el que contiene lo basico de un modulo de seguridad, El Tipo de usuario, el loggin y el password, y un boton que es aceptar y otro botn que es salir de la aplicacion....Bueno aqui va la segunda parte de lo que hice:

Si el usuario ingresa el loggin, tipo, y password correctos da click en Aceptar, 'Se genera de nuevo la misma consulta que se hace en el frmSerial pero es interna, siempre que le de click al boton de aceptar para iniciar session de usuario normal el genera la consulta interna, pregunta que si el Id que esta extrayendo internamente es diferente al del archivo, emita un mensaje de que la aplicacion fue instalada en otro pc, ya que la funcion de extraer el Id esta en el Boton de aceptar del frmSeguridad, y el valor de la funcion lo paso a un Edit, para hacer la comparacion entre el Id que extrajo automaticamente la funcion, con el archivo que nostros generamos....el archivo que generamos como mencione anteriormente se genera con una aplicacion aparte....y si no es igual la comparacion, pues me tiene que volver a aparecer el frmSeriales'.


El problema es es, que mi formulario frmSerial , solo tiene que ser visible la primera vez que genere la aplicacion, y que sea visible de nuevo cuando la consulta interna que hice en el formulario frmSeguridad no sea igual y me indique que la aplicacion esta en otro pc diferente al que se instalo inicialmente.....

se que me dijeron que en el evento OnCreate...y pues solo supongo que con un condicional If....pues me guie mas o menos por el codigo que me facilito mi amigo Dec....Entonces esta vez ya la logica esta construida, solo quiero que me muestre el formulario frmSerial, en los casos que estoy nombrando anteriormente....por favor cualquier ayuda se los agardezco...es lo unico que me hace falta......Gracias.....



Posdata: Tambien supongo que hay que hacer un contador de registros, que si el registro esta hecho una vez, no vuelva a salir el formulario frmSerial... bueno la logica ya esta, pero no se como hacer que mi formulario solo salga en las ocasiones que indico anteriormente...gracias...

[[egostar]]

Yo no entiendo algo

Empezado por BuRtOn

Esto se genera en el Formulario Serial es simple....Apenas se ejecute la condicion que si el IdArchivo = IDPc es verdadero, inmediatamente se vuelve Invisible el FormSerial, y aparece el Formulario de Seguridad de la aplicacion, que es el que contiene lo basico de un modulo de seguridad, El Tipo de usuario, el loggin y el password, y un boton que es aceptar y otro botn que es salir de la aplicacion....Bueno aqui va la segunda parte de lo que hice:

Porque haces esa comparación en el Formulario frmSerial, no sería mas conveniente hacerlo en el proyecto principal?

Yo lo haría en el evento OnShow del form principal, hablitando (si existe) el menú o deshabilitando el menu (si existe) dependiendo de si está o no registrado.

Código Delphi [-]
if IdArchivo = IdPc then begin
   MessageDlg('Bienvenido',mtInformation,[mbOK],0);
   HabilitaMenu;
end
else begin
       MessageDlg('No se ha registrado el sistema, favor de registrar',mtInformation,[mbOK],0);
       frmSerial.ShowModal;
       if frmSerial.ExistoRegistro then begin
          HabilitaMenu;
       end
       else begin
              ShowMessage('sistema no registrado satisfactoriamente');
              DesHabilitaMenu;
       end;
end;

Es decir solo cuando no está registrado el sistema muestras la pantalla de registro, si está registrado ya no se muestra nunca.

Salud OS

[BuRtOn]

Hola Egostar....coloco esa consulta en el formulario frmSerial, por que cuando instale por primera vez la aplicacion es el primero formulario que saldra, y pues ingreso los datos, y le doy en aceptar, si son correctos, me pasara al formulario de seguridad que es el principal.....por eso lo hice...y pues cuando la consulta interna que hago en el formulario principal, me devuelve falso, osea los datos no corrsponden, pues llamo de nuevo el formulario frmSerial...y de nuevo tengo que volver a ingresarle los datos...por eso lo hice asi....


Me gustaria saber que hace el evento OnShow ??? y esa propiedad de Habiltarmenu, nunca la he utilizado....pero segun como me dijiste que lo hiciera se ve muy sencillo...es que me habian dado mucho codigo, y que todo se tenia que hacer en el evento OnCreate....y pues me confundi....Gracias Egostar, jejeje ayer tambien me salvaste la vida....gracias de nuevo...

[BuRtOn]

Oh lo olvidaba, Egostar, si tengo que hacer algun contador, o algo asi ??? para analisar si la persona ya esta registrada, y que no vuelva a salir el fmrSerial ????...se me pasaba eso...Gracias....

[[egostar]]

Empezado por BuRtOn

Hola Egostar....coloco esa consulta en el formulario frmSerial, por que cuando instale por primera vez la aplicacion es el primero formulario que saldra, y pues ingreso los datos, y le doy en aceptar, si son correctos, me pasara al formulario de seguridad que es el principal.....por eso lo hice...y pues cuando la consulta interna que hago en el formulario principal, me devuelve falso, osea los datos no corrsponden, pues llamo de nuevo el formulario frmSerial...y de nuevo tengo que volver a ingresarle los datos...por eso lo hice asi....


Me gustaria saber que hace el evento OnShow ??? y esa propiedad de Habiltarmenu, nunca la he utilizado....pero segun como me dijiste que lo hiciera se ve muy sencillo...es que me habian dado mucho codigo, y que todo se tenia que hacer en el evento OnCreate....y pues me confundi....Gracias Egostar, jejeje ayer tambien me salvaste la vida....gracias de nuevo...

, bueno, el evento OnShow a diferencia del OnCreate se ejecuta cada vez que muestras la forma, personalmente no me gusta mucho el evento OnCreate porque solo lo hace una vez (cuando es creada la forma) pero hay situaciones que requieren que se hagan cada vez que se muestra una forma (por ejemplo, inicializar alguna variable), pero como te digo es una cuestión meramente personal, tu puedes usar el OnCreate si te causa confusión.

Referente al HabilitaMenu/DesHabilitaMenu , pues no son propiedades, es una función que se me ocurrio por el ejemplo que te he dado, quise decir que si está registrado sigues con el proceso normal del sistema, si no está registrado, no le permites continuar.

En cuanto a la parte de la validación que estas haciendo, precisamente he puesto

Código Delphi [-]
       if frmSerial.ExistoRegistro then begin
          HabilitaMenu;
       end

Ya que efectivamente, debes validar que lo que se ha ingresado es correcto, si no, debes de actuar en consecuencia, frmSerial.ExistoRegistro también es una variable que se me ocurrio para validar que se ha registrado correctamente el sistema.

Empezado por BuRtOn

Oh lo olvidaba, Egostar, si tengo que hacer algun contador, o algo asi ??? para analisar si la persona ya esta registrada, y que no vuelva a salir el fmrSerial ????...se me pasaba eso...Gracias....

Analiza lo que te he mostrado, no necesitas ningún contador, la lógica que te muestro me parece que te ayuda a resolverlo.

Salud OS.