Res: [delphi-br] Criando dm
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] e-mail: [EMAIL PROTECTED] - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.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]
Re: Res: [delphi-br] Criando dm
obrigado jean ,valeu pela ajuda, sim, desta maneira dá certo, só que eu queria um tipo de criação onde eu passe apenas o nome do dm e a procedure/function se vire na criação, dessa maneira ai já tenho no sistema. Jean Barreiros [EMAIL PROTECTED] 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] e-mail: [EMAIL PROTECTED] - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.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]
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] 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] e-mail: [EMAIL PROTECTED] - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.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]
RES: Res: [delphi-br] Criando dm
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]
Re: Res: [delphi-br] Criando dm
Pessoal !!! URGENTE !! Respondam ai !! Estão pensando o que ?? Se ele perguntou tem que responder e rápido !!! Berdam escreveu: será que isso é tão difícil assim galera, ou o pessoal que sabe não quer responder?? Jean Barreiros [EMAIL PROTECTED] 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] e-mail: [EMAIL PROTECTED] - Mensagem original De: Berdam [EMAIL PROTECTED] Para: Delphi delphi-br@yahoogrupos.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]