[delphi-br] Re: DM Super-lotado!!!!
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!.
[delphi-br] Re: try...except
Paulo,
Essa função tá declarada no início do código com outro nome... vc tem
que renomeá-la...
Tem também que criar uma varíavel na função que pega o nome da unit...
Funciona blzinha!
[]´s
Luis Alberto.
--- Em delphi-br@yahoogrupos.com.br, plucaslazaro
[EMAIL PROTECTED] escreveu
Luis, tbem estou com este código mas nao consegui fazer o programa
de testes
funcionar, ou melhor nao sai da compilacao dá erro justamente no
CreateDataException(Screen.ActiveForm.Name,
Paulo
- Original Message -
From: Luis Lopes [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, October 06, 2005 6:46 PM
Subject: [delphi-br] try...except
Pessoal,
Estou fazendo um teste de tratamento de excessão,
utilizando uma forma e uma sugestão do nosso colega
Walter.
O problema é que a excessão é gerada, mas não passa no
bloco except. Alguém já viu isso acontecer?
Ae está a unit do teste. Está preparada para gerar uma
excessão e a excessão está sendo gerada.
procedure TdmPrincipal.TesteTratamentoErro(Sender:
TObject);
begin
try
with dmParametro.ClientDataSetParametro do
begin
Edit;
FieldByName('versao_sistema').AsString :=
'455444';
ApplyUpdates(-1);
end;
except
on E: Exception do
CreateDataException(Screen.ActiveForm.Name,
Screen.ActiveControl.Name,
'84', GetUnitName(Self),
'procedure
TfDlgRelatorioInspecoes.BitBtn2Click(Sender:
TObject);',
E.Message,
E.ClassName,
'DMFrot.dsListaInspecoesPendentes.Dataset.Open;',
'SErrorTableOpen');
end;
end;
Agradeço a ajuda...
[]´s
Luis Alberto
___
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos
emoticons e
muito mais. Instale agora!
www.yahoo.com.br/messenger/
--
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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
___
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos
emoticons e muito mais. Instale agora!
www.yahoo.com.br/messenger/
--
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] ou [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
[delphi-br] Master/Detail DBExpress - Auto-increment
Bruno, Infelizmente não estou conseguindo acessar o endereço que vc me passou... []´s Luis Alberto -- 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] ou [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
