Ver Mensaje Individual
  #5  
Antiguo 13-04-2011
Rowerto Rowerto is offline
Miembro
 
Registrado: abr 2010
Posts: 20
Reputación: 0
Rowerto Va por buen camino
Cita:
Normalmente o lo mas adecuado es tener los componentes NO visibles en un datamodule, pero como ya lo tenias asi, no quise meterle mas cosas.
Entonces el datamodule en tu caso se convierte en el form principal, ahi es donde tienes el componente que enlaza la BD (adoConnection), al llamar a los demas forms y estar ligados al principal ya tendran la conexion.
Te refieres a algo asi?

Código Delphi [-]

///////////////.dpr
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {DataModule2: TDataModule};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

///////////////unit1.pas
// aqui la cabecera tipica
implementation
uses unit2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   //lo que haya que hacer con el datamodule
end;

end.

///////////unit2.pas
unit Unit2;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule2 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ////// mas el resto de querys, tablas, etc...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

Y asi solo tengo que añadir en el uses de cada uno de mis forms la unit del data module con todas las conexiones, consultas y demas montadas en ella? O incluso hacer un datamodule por cada form?

Perdon por el corta-pega
Responder Con Cita