[delphi-br] Re: SimpleDataSet em tempo de execução

2006-08-28 Por tôpico Eduardo Bianchi Ribeiro 
  É 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 ...
 










-- 
 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

[delphi-br] Re: SimpleDataSet em tempo de execução

2006-08-27 Por tôpico Eduardo Bianchi Ribeiro 
  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 ...








-- 
 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

[delphi-br] Re: SimpleDataSet em tempo de execução

2006-08-27 Por tôpico carlosclara 
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 ...








-- 
 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