[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