clientdataset com parametros

Delphi

05/04/2005

Olá gente como eu faço para passar um parametro para o client dataset uso interbase + dbexpress com o clientdataset:
TSQLDATASET:
select DP.*, PO.MATRICULA, PO.NOME
from DEPENDENTE DP
inner join POLICIAL PO on PO.POLICIAL_ID = DP.POLICIAL_ID
where DEPENDENTE_ID = :DEPENDENTE_ID****
***** SEM ISSO AQUI ELE ACEITA

PARA PESQUISA:TSQLCLIENTDATASET
SELECT PO. *,SE.NOME_SETOR
from POLICIAL PO
inner join SETOR SE on SE.SETOR_ID = PO.SETOR_ID
where PO.MATRICULA like :MATRICULA
order by
PO.POSTO_FUNCAO DESC


AGORA PARA PSQUISA
FrmProcurar:=TFrmProcurar.create(self,dm.cds_procura_policial);
FrmProcurar.Caption :=´Localização do Dependente´;
FrmProcurar.LabelInforma.Caption :=´Digite a matricula do policial!´;
try
if FrmProcurar.ShowModal=mrOk then
begin
if DtSrc.State=dsbrowse then
DM.CDS_policial.Edit;
DM.CDS_policial.Close;
DM.CDS_policial.params[0].AsInteger:=DM.cds_procura_dependentesDependente_ID.AsInteger;
DM.CDS_policial.Open;
end;
finally
DM.cds_procura_policial.close;
FrmProcurar.Free;
end;
****
agora na tela ele nao recebe o parametro e abre a tela em branco, e agora o que faço


Mariocanel

Mariocanel

Curtidas 0

Respostas

Kotho

Kotho

05/04/2005

Por um acaso, quando você fecha o formulário de pesquisa, não está fechando o ClientDataSet???


GOSTEI 0
POSTAR