[delphi-br] Re: DM Super-lotado!!!!

2006-05-08 Por tôpico rbr_vix_es 



Não será necessário criá-los no formulário, só utilizá-los. Se o
DataModule não estiver criado, a função o cria automaticamente.

Exemplo:

Function TSeuDataModule.SalvarCliente(oCliente: TCliente): Boolean;
Begin
 With cdsCliente do
 Begin
 Try
 ...
 Except
 ...
 End;
 End;
End;


Acho que não mencionei, mas procuro trabalhar com o máximo de
orientação a objetos e utilizando um padrão similar ao MVC
(Model-View-Controller).

Espero ter ajudado novamente.

Sds,

Romario






--- Luis Lopes escreveu

 Romário,
 
 Contibuiu e muito. É exatamente o que pensei e tentei fazer há um
tempo atrás e não consegui.
 Mas, abusando mais da sua boa vontade e explorando o seu
conhecimento, como fica, nos formulários, a criação do módulo? É que
não etendi muito bem o esse esquema da função com o mesmo nome da unit
e não quero fazer por fazer. Quero entender o que estou fazendo.
 
 Agradeço muitíssimo.
 
 Luis Alberto
 Belo Horizonte - MG











-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

Re: [delphi-br] Re: DM Super-lotado!!!!

2006-05-06 Por tôpico Luis Lopes 



Romário,
 
 Contibuiu e muito. É exatamente o que pensei e tentei fazer há um tempo atrás e não consegui.
Mas, abusando mais da sua boa vontade e explorando o seu conhecimento, como fica, nos formulários, a criação do módulo? É que não etendi muito bem o esse esquema da função com o mesmo nome da unit e não quero fazer por fazer. Quero entender o que estou fazendo.

Agradeço muitíssimo.





Luis Alberto
Belo Horizonte - MG

  
-
 Navegue com o Yahoo! Acesso Grátis, assista aos jogos do Brasil na Copa e ganhe prêmios de hora em hora.

[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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.

[delphi-br] Re: DM Super-lotado!!!!

2006-05-04 Por tôpico luisalbertolopes 



Romário,

Desculpe a minha santa igorância, mas não entendi funcionamento do
código abaixo (é um código que vc postou há um tempo atrás). Estou
tentando criar meus Data Módulos como vc sugeriu.
Ah! Queria, também, saber quais as vantagens de serem criados assim.

Grato

--- Em delphi-br@yahoogrupos.com.br, Romario (Listas)
[EMAIL PROTECTED] escreveu

 Ops! Comecei o Datamodule com um nome e terminei com outro.
 
 Segue abaixo o exemplo corrigido.
 
 =
 
 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 SeuDatamodule: TSeuDatamodule;
 Begin
 
 If (dtm = Nil) then
 
 dtm := TSeuDatamodule.Create(Application);
 
 Result := dtm;
 
 End;
 
 =
 
 Sds,
 
 Romario
 
 
 
 
 Romario (Listas) escreveu:
  Hum... 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
 
  
 
  
   
 ___ 
 Yahoo! doce lar. Faça do Yahoo! sua homepage. 
 http://br.yahoo.com/homepageset.html











-- 
 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]






  




  
Yahoo! Grupos, um serviço oferecido por:
  
  
PUBLICIDADE




  
  



  




  
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 Termos do Serviço do Yahoo!.