Decidir que Form abre primero en una aplicación

[ZiriusB]

Buenas noches, estoy realizando una aplicación en la que me abre un form de "Apertura de Caja" en la que coloco el monto inicial de la caja, luego al hacer clic en aceptar me abre el form principal en donde tengo el menú y esas cosas...

El form de "Apertura de caja" debe salir solo al inicio del día, es decir una vez que el usuario haya introducido la cantidad, el cliente puede cerrar la aplicación y volver a abrirla y ya no debería salir mas el Form "Apertura de Caja" sino pasar directamente al Form principal...


¿Hay alguna forma de hacerlo?

[[AgustinOrtu]]

El framework VCL necesita:

1. Se setee el "MainForm" de la aplicacion. Este debe ser una variable global definida en la seccion interface de la unidad del form
2. El form se inicializa no con su constructor Create, sino mediante Application.CreateForm
3. Cuando el MainForm es cerrado, la aplicacion termina

Esta implementacion no la podes cambiar

Yo creo que la opcion mas sana es, dejar el que tenes como "menu principal" como MainForm; luego realizar la validacion "si no introdujo la cantidad para hoy" --> crear y mostrar form caja, caso contrario, seguir con el principal

Ejemplo trivial

Código Delphi [-]
function IntrodujoCantidad: Boolean;
begin
  Result := False;
end;

var
  FormCaja: TForm3;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  if not IntrodujoCantidad then
  begin
    FormCaja := TForm3.Create(NIL);
    try
      FormCaja.ShowModal;
    finally
      FormCaja.Free;
    end;
  end;

  Application.Run;
end.

[ecfisa]

Hola ZiriusB.

Empezado por ZiriusB

...
El form de "Apertura de caja" debe salir solo al inicio del día, es decir una vez que el usuario haya introducido la cantidad, el cliente puede cerrar la aplicación y volver a abrirla y ya no debería salir mas el Form "Apertura de Caja" sino pasar directamente al Form principal...

Para que se ejecute una vez por día (la primera vez que se abra la aplicación) podes hacer:

Código Delphi [-]
program Project1;

uses
  Forms, Windows, SysUtils, Registry,
  Unit1 in 'Unit1.pas' {frmMain},
  Unit2 in 'Unit2.pas' {frmDailyCashBox};

{$R *.res}

function isSetDailyCashBox: Boolean;
const
  KNAME = 'SoftWare\Your_App_Name\DailyCashBox';
  VNAME = 'LastUpdate';
var
  rg: TRegistry;
  dt: TDateTime;
begin
  rg         := TRegistry.Create;
  rg.RootKey := HKEY_CURRENT_USER;
  dt         := 0;
  rg.OpenKey(KNAME, True);
  try   
    if not rg.ValueExists(VNAME) then
      rg.WriteDate(VNAME, dt);
    dt     := rg.ReadDate(VNAME);
    Result := dt = Date;
    rg.WriteDate(VNAME, Date);
  finally
    rg.CloseKey;
  end;
end;

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.ShowMainForm := False;

  if not isSetDailyCashBox then
  begin
    frmDailyCashBox := TfrmDailyCashBox.Create(nil);
    try
      frmDailyCashBox.ShowModal;
    finally
      frmDailyCashBox.Free;
    end;
  end;

  Application.ShowMainForm := True;
  Application.Run;
end.

Saludos

[ZiriusB]

Empezado por ecfisa

Hola ZiriusB.

Código Delphi [-]
program Project1;

uses
  Forms, Windows, SysUtils, Registry,
  Unit1 in 'Unit1.pas' {frmMain},
  Unit2 in 'Unit2.pas' {frmDailyCashBox};

{$R *.res}

function isSetDailyCashBox: Boolean;
const
  KNAME = 'SoftWare\Your_App_Name\DailyCashBox';
  VNAME = 'LastUpdate';
var
  rg: TRegistry;
  dt: TDateTime;
begin
  rg         := TRegistry.Create;
  rg.RootKey := HKEY_CURRENT_USER;
  dt         := 0;
  rg.OpenKey(KNAME, True);
  try   
    if not rg.ValueExists(VNAME) then
      rg.WriteDate(VNAME, dt);
    dt     := rg.ReadDate(VNAME);
    Result := dt = Date;
    rg.WriteDate(VNAME, Date);
  finally
    rg.CloseKey;
  end;
end;

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.ShowMainForm := False;

  if not isSetDailyCashBox then
  begin
    frmDailyCashBox := TfrmDailyCashBox.Create(nil);
    try
      frmDailyCashBox.ShowModal;
    finally
      frmDailyCashBox.Free;
    end;
  end;

  Application.ShowMainForm := True;
  Application.Run;
end.

Saludos

Buenis dias, gracias por la respuesta, dos preguntas:

1.- El registro de validacion ¿donde se guarda? es decir, al abrir el programa luego de abrirlo por primera vez, donde revisa el sistema si ya se ha introducido el valor en dailycashBox...

2.- Tenia el Form de "Apertura de Caja" como principal, debo establecer el "Form1" como principal con esta funcion? (Project>>options>>forms)

[[AgustinOrtu]]

Empezado por ZiriusB

1.- El registro de validacion ¿donde se guarda? es decir, al abrir el programa luego de abrirlo por primera vez, donde revisa el sistema si ya se ha introducido el valor en dailycashBox...

2.- Tenia el Form de "Apertura de Caja" como principal, debo establecer el "Form1" como principal con esta funcion? (Project>>options>>forms)

1 - En realidad esa misma pregunta te la deberiamos hacer a vos: En algun lugar guardas la informacion? Usas alguna base de datos?


2 - Si

[ecfisa]

Empezado por ZiriusB

1.- El registro de validacion ¿donde se guarda? es decir, al abrir el programa luego de abrirlo por primera vez, donde revisa el sistema si ya se ha introducido el valor en dailycashBox...

Si te referis donde se guarda la última fecha de ajuste de caja en el ejemplo, es en el registro de Windows. Esta se coteja con la actual del sistema y de ser diferente indíca que el formulario inicialización no fué abierto en la fecha.

El ejemplo no contempla si fué efectiva y correctamente inicializada la caja. De esta taréa creo que debería encargarse frmDailyCashBox y desconozco la lógica que tenes pensada para ese punto, por ejemplo ignoro que es el "registro de validación".
El lugar de guardado podría ser en el registro de Windows, en tu base de datos, un archivo, etc., depende de como tengas pensado implementarlo.

Empezado por ZiriusB

2.- Tenia el Form de "Apertura de Caja" como principal, debo establecer el "Form1" como principal con esta funcion? (Project>>options>>forms)

Si. Tu formulario principal será el primero que se cree, es decir el que figura encabezando la lista en la ventana Project->Options->Forms->Auto-create forms.
O, mirando el código del proyecto, es el primero en crearse; ejemplos:

Código Delphi [-]
...
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain); // frmMain es el principal

Código Delphi [-]
...
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); // Form1 es el principal

Saludos

Edito: No había visto la respuesta de Agustín mientras redactaba este mensaje pero coincido con él.

[ZiriusB]

Empezado por AgustinOrtu

1 - En realidad esa misma pregunta te la deberiamos hacer a vos: En algun lugar guardas la informacion? Usas alguna base de datos?


2 - Si

Uso una base de datos, donde guardo el monto form "apertura de caja", ese monto que guardo es el que quiero validar a la hora de abrir el form "apertura de caja" o el "Form Principal"

Empezado por ecfisa

Si te referis donde se guarda la última fecha de ajuste de caja en el ejemplo, es en el registro de Windows. Esta se coteja con la actual del sistema y de ser diferente indíca que el formulario inicialización no fué abierto en la fecha.

El ejemplo no contempla si fué efectiva y correctamente inicializada. De esta taréa creo que debería encargarse frmDailyCashBox y desconozco la lógica que tenes pensada para ese punto, por ejemplo ignoro que es el "registro de validación".
El lugar de guardado podría ser en el registro de Windows, en tu base de datos, un archivo, etc., depende de como tengas pensado implementarlo.


Si. Tu formulario principal será el primero que se cree, es decir el que figura encabezando la lista en la ventana Project->Options->Forms->Auto-create forms.
O, mirando el código del proyecto, es el primero en crearse; ejemplos:
Código Delphi [-]... begin Application.Initialize; Application.CreateForm(TfrmMain, frmMain); // frmMain es el principal

Código Delphi [-]... begin Application.Initialize; Application.CreateForm(TForm1, Form1); // Form1 es el principal


Saludos

Edito: No había visto la respuesta de Agustín mientras redactaba este mensaje pero coincido con él.

Con "registro de validacion" me referia a lo que veo que en la funcion se estaba guardando. fue solo por ponerle un nombre, jejejeje.

[ecfisa]

Hola ZiriusB.

Empezado por ZiriusB

Uso una base de datos, donde guardo el monto form "apertura de caja", ese monto que guardo es el que quiero validar a la hora de abrir el form "apertura de caja" o el "Form Principal"

¿ Contra que valor debe validarse ese monto y donde se encuentra almacenado ?


Por otro lado te soy sincero, veo muy inseguro que el primer usuario en ejecutar la aplicación pueda modificar el valor de la caja... ¿ No debería realizarse esa acción de forma automática ? (Esto dicho desde la ignorancia que tengo sobre los detalles de la situación)

Saludos

[[AgustinOrtu]]

Empezado por ZiriusB

Uso una base de datos, donde guardo el monto form "apertura de caja", ese monto que guardo es el que quiero validar a la hora de abrir el form "apertura de caja" o el "Form Principal"

Nosotros te mostramos un ejemplo, el "esqueleto" del codigo que hace lo que preguntabas: "Si se da X, antes de mostrar principal, mostrar otro form; luego mostrar form principal"

Tenes que implementar "X": que es la funcion booleana del esqueleto

No sabemos como funciona la logica de negocio ni como se valida la cantidad.

Tampoco conocemos la estructura de la tabla en donde estas guardando la informacion

Por ejemplo, podrias tener un campo fecha y validar contra esa fecha