Recordando y solicitando ayuda.

[TiammatMX]

Buen día/tarde/noche, según aplique.

Recientemente he retomado Delphi y ObjectPASCAL en CodeTyphon, tratando de replicar lo que ya sabía (hace MUCHO TIEMPO) me puse a hacerle a mi esposa una aplicacioncita para manejar sus listas de asistencia (ella es maestra) usando PostgreSQL y CodeTyphon. Mis problemas son dos, esencialmente:

1. conectar el DataModule a la aplicación DESDE LA CREACIÖN, algo que sabía hacer bastante bien.
2. Llamar las pantallas y que dentro de éstas esté correctamente conectado el DataModule para evitar reconectarlo y así.

Les paso el código que estoy haciendo, solamente las partes esenciales.

El DataModule:

Código Delphi [-]
unit uDatos;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, PQConnection, SQLDB, DB;

type

  { TDatos }

  TDatos = class(TDataModule)
    Conexion: TPQConnection;
    FuenteDatos: TDataSource;
    SQLDatos: TSQLQuery;
    Transaccion: TSQLTransaction;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private

  public

  end;

var
  Datos: TDatos;

implementation

{$R *.frm}

{ TDatos }

procedure TDatos.DataModuleCreate(Sender: TObject);
begin
  Conexion.Connected := True;
end;

procedure TDatos.DataModuleDestroy(Sender: TObject);
begin
  Conexion.Connected := False;
end;

end.

La pantalla principal:

Código Delphi [-]
unit uPrincipal;

{$mode objfpc}{$H+}

interface

uses
  uDatos, Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Menus;

type

  { TfrmPrincipal }

  TfrmPrincipal = class(TForm)
    imlImagenes: TImageList;
    mmuPegar: TMenuItem;
    mmuCortar: TMenuItem;
    mmuCopiar: TMenuItem;
    mmuCerrar: TMenuItem;
    mmuRegistroAlumnos: TMenuItem;
    mmuRegistroTutores: TMenuItem;
    mmuListaAsistencia: TMenuItem;
    mmuProcesos: TMenuItem;
    mmuVentana: TMenuItem;
    mmuReportes: TMenuItem;
    mmuArchivo: TMenuItem;
    mmuEditar: TMenuItem;
    mmuMenu: TMainMenu;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure mmuCerrarClick(Sender: TObject);
  private

  public

  end;

var
  frmPrincipal: TfrmPrincipal;
  gDatos : TDataModule;

implementation

{$R *.frm}

{ TfrmPrincipal }  

procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
  gDatos := Datos.Create(Self);

{  if gDatos.Conexion.Connected then
     MessageDlg('BBDD conectada', mtInformation,[mbOk],0);}
end;

procedure TfrmPrincipal.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
{  gDatos.Conexion.Connected := False;
  CloseAction := caFree;}
end;

procedure TfrmPrincipal.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  Accion : TCloseAction;
begin
//  CanClose := ;
  if MessageDlg('¿Desea salir de la aplicación?', mtConfirmation,[mbYes, mbNo],0) = mrYes then
     begin
       Accion := caFree;
       FormClose(Sender, Accion);
     end;
end;

procedure TfrmPrincipal.mmuCerrarClick(Sender: TObject);
begin
  Close;
end;

end.

Y el compilador del proyecto:

Código Delphi [-]
program SEPPuebla;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, // this includes the CT adLCL widgetset
  Forms, uPrincipal, uDatos
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.Run;
end.

Si tuviesen algún comentario o indicación, con todo gusto lo implememento y les comento qué sucede.

¡Saludos!

[Dexter182]

Ignorando lo que es CodeTyphon y suponiendo que entendí tu pregunta, creo que sólo te falta la siguiente línea:

Código Delphi [-]
Application.CreateForm(TDatos, Datos);

Pero ten en cuenta que soy súper principiante.
Que conste que te avisé.

[[movorack]]

Hola! Según veo en tu código. En el create de TDatos estás realizando la conexión y TfrmPrincipal.gDatos lo estás creando en TfrmPrincipal.FormCreate por lo tanto debería conectar en ese preciso momento.

Con este código de ejemplo, al crear otras pantallas debes pasarle el objeto TfrmPrincipal.gDatos. Aunque en lugar de ello puedes usar la variable global uDatos.Datos y solo hacer uso de uDatos en las otras pantallas.

Una pregunta. ¿porque CodeTyphon? Si es un desarrollo personal sin animo de lucro, creo que puedes usar el Delphi Community Edition.

[TiammatMX]

Empezado por Dexter182

Ignorando lo que es CodeTyphon y suponiendo que entendí tu pregunta, creo que sólo te falta la siguiente línea:
Código Delphi [-]Application.CreateForm(TDatos, Datos);


Pero ten en cuenta que soy súper principiante.
Que conste que te avisé.

¡Excelente! Pero ¿en dónde ponerlo? Esa es la duda principal.

Empezado por movorack

Hola! Según veo en tu código. En el create de TDatos estás realizando la conexión y TfrmPrincipal.gDatos lo estás creando en TfrmPrincipal.FormCreate por lo tanto debería conectar en ese preciso momento.

Con este código de ejemplo, al crear otras pantallas debes pasarle el objeto TfrmPrincipal.gDatos. Aunque en lugar de ello puedes usar la variable global uDatos.Datos y solo hacer uso de uDatos en las otras pantallas.

Una pregunta. ¿porque CodeTyphon? Si es un desarrollo personal sin animo de lucro, creo que puedes usar el Delphi Community Edition.

Esencialmente lo hago en CodeTyphon porque requiero practicar Delphi, o más bien ObjectPASCAL, y la verdad Lazarus no me satisface del todo. Volviendo al caso, mmmm variable global ¿en la pantalla principal?

[Dexter182]

Empezado por TiammatMX

¡Excelente! Pero ¿en dónde ponerlo? Esa es la duda principal.

En el mismo lugar que has puesto:

Código Delphi [-]
Application.CreateForm(TfrmPrincipal, frmPrincipal);

Saludos!

[Ñuño Martínez]

Tengo curiosidad por saber porqué Lazarus no te satisface del todo.

[TiammatMX]

Empezado por Ñuño Martínez

Tengo curiosidad por saber porqué Lazarus no te satisface del todo.

No, no me satisface. Y sobre todo, por el tema de la conexión a la base de datos que está en PostgreSQL. Lazarus es BASTANTE engorroso para conectar.

[Ñuño Martínez]

Entonces lo que no te satisface son los componentes de conexión con la base de datos (perdón por ser tan tiquismiquis ). Ten en cuenta que todo lo que tiene Code Typhon está disponible para Lazarus (se limita a embutirlo todo, a veces sin siquiera leer la licencia, por cierto); sólo tienes que instalarlo y en las últimas versiones es muy fácil. Abres Paquete > Administrar Paquetes en Línea y a disfrutar.