Fórum Data Module e ADO #263579

Application.CreateForm(ClasseDoDM, DM);

Por exemplo

Application.CreateForm(TDataModule1, DataModule1);

Bruno,
onde que eu informo no meu FORM, eu estou meio perdido.

Putz, eu estou travado, veja o código abaixo:

unit UPrincipal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, WinSkinData, ToolWin, ComCtrls, Menus, StdCtrls, Mask,
DBCtrls, DB, ADODB;

type
TFrmPrincipal = class(TForm)
MainMenu1: TMainMenu;
Cadastros1: TMenuItem;
ToolBar1: TToolBar;
SkinData1: TSkinData;
Timer1: TTimer;
StatusBar1: TStatusBar;
Cadastros2: TMenuItem;
Cliente1: TMenuItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmPrincipal: TFrmPrincipal;

implementation

uses UModulo;

{$R *.dfm}

procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=´ ´+DateToStr(now);
StatusBar1.Panels[1].Text:=´ Logado às ´+TimeToStr(now);
StatusBar1.Panels[2].Text:=´ Loja: ´+DTModulo.tb_loja.FieldByName(´loja´).AsString;
end;

end.

Faz assim...

procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
Application.CreateForm(TDM, DM);

StatusBar1.Panels[0].Text:=´ ´+DateToStr(now);
StatusBar1.Panels[1].Text:=´ Logado às ´+TimeToStr(now);
StatusBar1.Panels[2].Text:=´ Loja: ´+DTModulo.tb_loja.FieldByName(´loja´).AsString;
end;


Caso a tb_loja não esteja sendo aberta no create do datamodule então abre ela logo após de instanciar o Data Module...

Bruno,
deu certo.

Toda vez em que eu deseja utilizar o módulo eu tenho que fazer isso?

Nossa, que trampo velho.

Muito obrigado pela ajuda.

Sempre que eu tiver com alguma dúvida eu posso falar contigo?

Abraços e Feliz Ano Novo...

Não... Uma vez criado o datamodule você nunca mais vai precisar criar ele denovo...

Pode contar com a minha ajuda sim... E com a ajuda de todos aqui do Forum...

Falou...