Eu faço aqui exatamente como o Romário, mas penso em Responsabilidades, e
relacionamentos, assim se preciso acabem repetindo alguns componentes me
mais de um data module!
Em 28/03/06, Romario (Listas) <[EMAIL PROTECTED]> escreveu:
>
> Hummmmm... Não creio que essa seja a melhor opção.
>
> Os Datamodules serão melhor utilizados se forem separados por regra de
> negócio.
>
> Respondendo a uma outra pergunta que rolou na lista, depois da dica de
> um grande amigo, passei a criá-los da seguinte forma:
>
> ==============================================================
>
> Unit SeuDatamodule;
>
> Interface
>
> Uses
> SysUtils, Classes, Variants, SqlExpr, Provider, DBXpress;
>
> Type
>
> TSeuDatamodule = Class(TDataModule)
>
> sds_suaTabela : TSQLDataSet;
> dsp_suaTabela : TDataSetProvider;
> cds_suaTabela : TClientDataSet;
> dts_suaTabela : TDataSource;
> .
> .
> .
>
> Private
> { Private declarations }
>
> Public
> { Public declarations }
>
> End;
>
> Function SeuDatamodule: TSeuDatamodule;
>
> Implementation
>
> {$R *.xfm}
>
> Var
> dtm : TSeuDatamodule = Nil;
>
> { <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }
> { F U N Ç Õ E S }
> { <><><><><><><><><><><><><><><><><><><><><><><><><><><><><><> }
>
> Function dtm_vantagem: Tdtm_vantagem;
> Begin
>
> If (dtm = Nil) then
>
> dtm := Tdtm_vantagem.Create(Application);
>
> Result := dtm;
>
> End;
>
> ==============================================================
>
> Sds,
>
> Romario
>
>
>
>
> Rubem Nascimento da Rocha escreveu:
>
> > Pq vc num faz um datamodule pra cada formulário? Com certeza, um
> formulário
> > deve envolver várias entidades! Eu costumo fazer assim! O único
> impecilho é
> > ter que criar o datamodule que é usado pelo form junto com ele!
> >
> > Sds.
> >
> >> From: Leonardo Mascarenhas <[EMAIL PROTECTED]>
> >> Reply-To: delphi-br@yahoogrupos.com.br
> >> To: delphi-br@yahoogrupos.com.br
> >> Subject: [delphi-br] DM Super-lotado!!!!
> >> Date: Mon, 27 Mar 2006 17:12:15 -0300
> >>
> >> Olá amigos....
> >>
> >> Estou usado os componentes DBExpress SQLDataSet SQLQuery para cada um
> >> deles tenho que usar um DataSetProvider e um ClientDataSet.
> >> Estou super lotando meu Data Module.
> >>
> >> Alguem tem alguma dica? Comentário?
> >>
> >> Tem alguma solução ou tenho que organizar de outraforma?
> >>
> >> Entidades 20 X 4 Componentes = 80!!!! oque fazer???
>
>
> _______________________________________________________
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
>
> http://br.acesso.yahoo.com
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
>
>
> ------------------------------
> *Links do Yahoo! Grupos*
>
> - Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> - Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]<[EMAIL PROTECTED]>
>
> - O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
--
Carlos Delfino
Consultoria e Pesquisa
Desenvolvimento de Softwares.
Sun Certified Associate for Java Platform
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
