Eduardo, Gostaria ver este exemplo também. [EMAIL PROTECTED] Obrigado. Levi
_____ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Bianchi Ribeiro Enviada em: domingo, 27 de agosto de 2006 15:37 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: SimpleDataSet em tempo de execução É Carlos, acho que realmente não estou lhe entendendo, a principio eu não criaria um form de pesquisa generico e sim um Repositorio(que podia ser um dataModule) de pesquisa genérico, adicionaria o mesmo no repositorio do Delphi e herdaria todos os meus repositorios(DataModule) dele. Depois criaria um repositorio para cada tabela no banco herdando-os do repositorio principal, fazendo isso vc separaria sua regra de negocio da GUI, mas isso não vem ao caso. Estou com um exemplo "funcionando" do que vc está querendo, me manda um e.mail que eu lhe envio. Abraço !!! Eduardo Bianchi [EMAIL PROTECTED] --- Em delphi-br@yahoogrupos.com.br, "carlosclara" <[EMAIL PROTECTED]> escreveu > > Bem, amigo, não funcionou. Acho que não me expliquei bem: Tenho um > formulario (formProcura) com um grid ligado a um Tdatasource(dtSrc). > > Eu estava usando o componente SQLClientdataSet no delphi 7. > > Declaro a classe constructor: > > public > { Public declarations } > constructor Create(AOwner: TComponent; DataSet: TSimpleDataSet); > reintroduce; > > E para chamar: > constructor TformProcurar.Create(AOwner: TComponent; DataSet: > TSimpleDataSet); > begin > inherited create(AOWner);// Chama o construtor da classe base > dtSrc.DataSet:= DataSet;// atribui o dataset de procura > end; > > Quando chamo o form: > > formProcurar:= TformProcurar.create(Self, dmADM.sds_proc_uni); > //dmADM.sds_proc_uni: simpledataset (sds_proc_uni) em um > datamodule(dmADM) com o sql de procura > > Este exemplo eu retirei da revista clubedelphi 30(Sistema DataCar) do > Ghinter Pauli. > > --- Em delphi-br@yahoogrupos.com.br, "Eduardo Bianchi Ribeiro" > <[EMAIL PROTECTED]> escreveu > > > > Oi Carlos, > > Vc deve usar o método "Assign" para atribuir um DataSet a outro. > > Eu tomei a liberdade de alterar um pouco seu construtor e funcionou > > bem aqui ... > > > > constructor Create(AOwner: TComponent; DataSet: Pointer); reintroduce; > > > > constructor TForm2.Create(AOwner: TComponent; DataSet: Pointer); > > var > > dtSrc : TSimpleDataSet; > > begin > > inherited create (AOwner); > > dtSrc := TSimpleDataSet(DataSet); > > end; > > > > Form2 := TForm2.Create(Self,SimpleDataSet1); > > > > Espero que tenha lhe ajudado > > > > Abraços ... > > > [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] 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
