Referencia a diferentes instancias del mismo Form

[[gluglu]]

Ufffff !!!!

Vaya vaya, Curso de OOP acelerado el que me estais dando entre todos !!

Ante todo expresaros mis más sinceras gracias a todos. Está claro que todos los días se aprende algo nuevo.

Bueno, intentaré dar información adicional y expresar mi punto de vista a todo esto.

Lepe : La lógica es precisamente lo que tengo clarísimo. La estructura del programa y de la inmensa mayoría de las bases de datos, viene de una aplicación muy muy completa que tengo en Clipper (sí, Clipper ), y lo que se trata ahora es de hacer un nuevo programa en Delphi, empezando de nuevo desde la primera línea de programación hasta la última, pero con la misma lógica y funcionalidad.

Debo de reconocer que la estructura de una reserva en mi programa es muy compleja internamente, con muchísima 'normalización' en la base de datos y tablas subyacentes a cada reserva.

No concibo el programa sin que el usuario pueda abrir todas las reservas que quiera y que su sistema (memoria, etc) le permita. Para ello ya tengo claro que utilizaré un 'array de reservas' en forma de array de TObject o algo parecido que además he visto que Lepe ha participado en muchos hilos que hablan de estos temas.

Cada Form correspondiente a una Reserva, se compone de 5 frames. Cada Frame tiene que acceder a aprox. 50-60 valores o datos de la reserva comunes. Por ello veo lógico situar el IBDataSet que contiene todos estos datos comunes en el Form principal de la reserva. A su vez cada frame tiene sus propios DataSet's que sólo se van a manejar en cada frame particular. El más complejo de los frames llega a tener unos 20 dataset's 'particulares'.

Utilizo Frames, quiero explicarlo, porque me voy moviendo entre uno y otro frame de manera ágil. Pierdo un poco tiempo al inicio de crear la reserva completa en crear todos los frames juntos, pero después es rápido pasar de uno a otro. Podría perfectamente haber utilizado un TPageControl. Pero me decidí por utilizar Frames, tanto por presenetación en pantalla como por manejabilidad en tiempo de diseño. No tengo por supuesto la necesidad de reutilizar ninguno de esos frames en ninguna otra parte del programa en otros forms.

Tal y como explicaba en otro hilo, además cada reserva, en concreto cada uno de los frames, va a poder abrir diferentes ventanas modales que corresponden a diferentes opciones para cada reserva. Mientras el usuario tenga una ventana modal abierta correspondiente a algún dato concreto de una reserva determinada, no le permito acceder a otra reserva diferente. Por ello lo de abrirlo en modo modal.

Por ejemplo, para concretar un poco, una reserva Nº 1 muestra todos los datos comunes, p.ej. Nombre Cliente, Fecha Llegada, Nº Noches, Fecha Salida, Agencia contratante, Nº Tarifa Precios, etc ....

Pulsamos botón de Depósitos entregados. Se abre Ventana Modal de Depósitos de esa Rva. Nº 1. En ella se podrán añadir, modificar, anular depósitos correspondientes a la Rva Nº 1. Mientras estemos con la ventana modal abierta de depósitos, no se permite ninguna otra operación que no sea de depósitos. Pero cada vez que añado un depósito, necesito añadir a la tabla de la base de datos correspondientes a depósitos un registro que contenga además el número de reserva, nº agencia y forma de pago predeterminada que son datos contenidos en la tabla común de la reserva y cuyo DataSet se encuentra en el formulario principal.

Ya me estoy aclarando ( ) perfectamente respecto al tema de las propiedades que me explicais.

Claro, lógico, necesito saber en el Form de depósitos, qué Nº de reserva lo ha llamado para actuar consecuentemente.

Para complicar un poco más la lógica. Si abro la ventana modal de tarjetas de crédito para mostrar las tarjetas de garantía para esa reserva, pues desde ahí también permito efectuar directamente un depósito. Entonces no sólo la reserva principal desde su frame correspondiente va a llamar al DataSet correspondiente para crear un nuevo depósito, sino que en este caso el depósito se realiza directamente desde la pantalla de tarjetas de crédito !

Espero no estar liando demasiado a quien esté leyendo todo este rollo mío ! .

Por eso necesito esa interacción entre diferentes ventanas, forms, frames y DataSet's. Todos referidos a la reserva. Y claro, sabiendo en cada momento cual de las reservas llama a cada uno. Ya que puedo tener muchas reservas abiertas en cada momento.

....

[[gluglu]]

... perdón por el rollo anterior. Me concentro ahora en vuestros comentarios.

DarKraZY : He entendido perfectamente. Dos pequeños comentarios a tu explicación. Falta 'Property' en el código expuesto y especificar que la 'Property' debe de ser definida tanto en Form2 como en Form3. En ningun caso esa propiedad se refiere al Form1. Sólo quería aclararlo para otros foristas.

Código Delphi [-]
TForm1 = class(TForm);
{...}
Procedure TForm1.ButtonClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.DataSetForm := IBDataSet1;
end;

Código Delphi [-]
TForm2 = class(TForm);
...
private
  FDataSetForm : TIBDataSet;
public
  property DataSetForm: TIBDataSet read FDataSetForm write FDataSetForm;
end;

Procedure TForm2.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
  Form3 := TForm3.Create(Self);
  Form3.DataSetForm := DataSetForm;
end;

Código Delphi [-]
TForm3 = class(TForm);
...
private
  FDataSetForm : TIBDataSet;
public
  property DataSetForm: TIBDataSet read FDataSetForm write FDataSetForm;
end;
 
Procedure TForm3.ButtonClick(Sender: TObject);
var
  Aux : Integer;
begin
  // Aquí quiero acceder al IBDataSet1 contenido en Form1
  Aux := DataSetForm.FieldByName('CAMPO1').Value;
end;

Román : Pasar parámetros por propiedades. También lo entendí ya perfectamente. Quiero añadir un pequeño detalle que me he dado cuenta al implementarlo:

Código Delphi [-]
type 
  TForm3 = class(TForm)
  private
    FParam: Integer;
  public
    property Param: Integer read FParam write FParam;
  end;

Al construir el formulario en p.ej. Form2

Código Delphi [-]
procedure TForm2.ButtonClick(Sender: TObject);
  Form3 := TForm3.Create(Application);
  Form3.Param := 84;
end;

Me he dado cuenta, está claro, que durante la creación de Form3, el parámetro no está disponible. Por tanto tengo que reubicar todo aquello que dependa de ese parámetro a otro evento, por ejemplo el OnActivate del Form3.

Por último. Otro pequeño detalle referente a los campos de un IBDataSet cualquiera.

Al 'pasarlo' a otros formularios mediante la opción de 'property' siempre tengo que acceder a los valores utilizando FieldByName('CAMPO'). Me he dado cuenta en general en mi programa que al permitir utilizar valores null, si accedo al valor mediante IBDataSet1CAMPO.Value, si el campo es null me devuelve 0, tanto si es 0 como si es null. (Personalmente me viene bien que sea así, pero que dentro de la BD diferencie entre 0 y null).

En cambio si accedo por IBDataSet1.FieldByName('CAMPO').Value y preguntar por su valor, Delphi (2006 VCL.NET en mi caso) diferencia entre 0 y null y en un If tengo que preguntar ambas opciones:

Código Delphi [-]
if (IBDataSet1.FieldByName('CAMPO').IsNull) or
    (IBDataSet1.FIeldByName('CAMPO').Value = 0) then ...

Una vez más gracias a todos.

Estoy en ello ... como dice por ahí algún avatar !

[[Lepe]]

Empezado por guglu

Me he dado cuenta, está claro, que durante la creación de Form3, el parámetro no está disponible. Por tanto tengo que reubicar todo aquello que dependa de ese parámetro a otro evento, por ejemplo el OnActivate del Form3.

¿a qué te refieres?

En el evento TForm3.FormCreate si está disponible, de hecho, el evento OnCreate llega después de crear todos los componentes / propiedades de tu forma (a menos que tengas OldCreateOrder a True).

Si necesitas que al ejecutar esta línea:

Código Delphi [-]
Form3.Param := 84;

Se ejecute codigo adicional, necesitas el SetValorCampo.

La modificación de una propiedad, por ejemplo Param, debe ser autónoma y no depender de otros eventos (OnActivate). Dentro de SetValorCampo puedes hacer todo lo que necesites para sincronizar todos los controles del Form.


Saludos

[[gluglu]]

Me refiero a que en el momento de crear el Form, no está disponible el valor 84 del parámetro que tengo que pasar.

Hablo del valor concreto, en este caso del ejemplo, 84.

En el OnCreate inicializo varios campos y hago varias operaciones que precisan del valor 84.

El valor 84 se asigna justo después de haber terminado el OnCreate.

Mi caso concreto. Al crear en este caso por ejemplo mi Form BookingMain, necesito saber el número de reserva al que se refiere. (Supongamos : 84). En el OnCreate de TBookingMain hago varias operaciones que necesitan del valor 84.

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Create(Sender: TObject);
begin
  ....
  // Aquí no está disponible el valor 84 de Param
  ...
end;
 
TBookingMain.Activate(Sender: TObject);
begin
  ...
  // Aquí si está disponible el valor 84 de Param
  ...
end;

No niego que a lo mejor quedaría más claro llamar a un proceso 'Initialize' :

Código Delphi [-]
TMain.ButtonClick(Sender: TObject)
  BookingMain := TBookingMain.Create(Self);
  BookingMain.Param := 84;
  BookingMain.Initialize(nil);
  BookingMain.Show;

Código Delphi [-]
TBookingMain.Initialize(Sender: TObject);
begin
  ....
  // Realizar aquí todas las operaciones de Inicialización de la Rva. 84
  // al estar disponible aquí el valor Param = 84
  ...
end;

[DarKraZY]

Hola gluglu!

Por todo lo que comentas en el último post acerca del parametro (supongamos 84) es mejor la idea de Lepe.

Ya que si todo lo que dependa de ese valor "deberías" hacerlo dentro del SetParam.

Código Delphi [-]
type 
  TForm3 = class(TForm)
  private
    FParam: Integer;
    procedure SetParam(Value: Integer);
  public
    property Param: Integer read FParam write SetParam;
  end;

{...}

procedure TForm3.SetParam(Value: Integer);
begin
  { Previamente en el Create del form ya se creó BookingMain }
  BookingMain.Param := Value;
  BookingMain.Show;
end;