OU TALVEZ... o pessoal está tão ocupado trabalhando e não tem tempo pra
responder???????
Type
TipoDM = (tdCadastro, tdConsultas, tdRelatorios, tdCustom, tdBla);
Procedure CriaMeuDM(MeuDM: TipoDM);
Begin
Case meuDM of
tdCadastro: Begin
CriarDMCadastro;
end;
tdConsultas: Begin
CriarDMConsultas;
end;
tdRelatorios: Begin
CriarDMRelatorios;
end;
...
...
end;
End;
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam
Enviada em: sexta-feira, 30 de maio de 2008 11:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Criando dm
será que isso é tão difícil assim galera, ou o pessoal que sabe não quer
responder??
Jean Barreiros <[EMAIL PROTECTED] <mailto:delphijean%40yahoo.com.br> >
escreveu: Cara aho que basta você usar isso:
if not Assigned(dmCadastros) then
dmCadastros := TdmCadastros. Create(Self) ;
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED] <mailto:jean%40comerciofsa.com.br>
e-mail: [EMAIL PROTECTED] <mailto:delphijean%40gmail.com>
----- Mensagem original ----
De: Berdam <[EMAIL PROTECTED] <mailto:berdamzinho%40yahoo.com.br> >
Para: Delphi <delphi-br@yahoogrupos.com.br
<mailto:delphi-br%40yahoogrupos.com.br> >
Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
Assunto: [delphi-br] Criando dm
Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função
abaixo, tem alguma maneira de fazer isso genérico??
Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz
a função, mas não fui pra frente no momento em que testo o tipo dele
(Tdatamodule) , alguém por favor pode dar uma ajuda??
procedure TFSinprod.CriaDm( dm:String) ;
begin
if dm = 'dmcadastros' then
if not Assigned(dmCadastro s) then
begin
dmCadastros := TdmCadastros. Create(Self) ;
end
end;
------------ --------- --------- --------- --------- --------- -
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
------------ --------- --------- ---
http://www.curricul ar.com.br/ berdam
Visite
http://passandovene no.blogspot. com
------------ --------- --------- --------- --------- --------- -
------------ --------- --------- ---
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
----------------------------------------------------------
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe
---------------------------------
http://www.curricular.com.br/berdam
Visite
http://passandoveneno.blogspot.com
----------------------------------------------------------
---------------------------------
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
