Fórum CONSULTA AUXILIAR #570112

Ola boa tarde delphianos!!!
Estou com problema na minha consulta auxiliar vou descreve-la.

Peguei apenas duas tabelas como exemplo porque como uso herança visual o problema esta nas consultas. Eis as tabelas de Bairro e Cidade. Banco de Dados Firebird 2.5 ibexpert Delphi 7 com possibilidade de migrar para o Delphi 10 Seatle ou Berlim.

CREATE TABLE CIDADE (
COD_EMPRESA INTEGER NOT NULL,
CODIGO NUMERIC(10,0) NOT NULL,
NOME CHAR(35),
ESTADO CHAR(2),
ISS NUMERIC(3,3),
IPI NUMERIC(3,3),
ICMS NUMERIC(3,3),
COFINS NUMERIC(3,3),
);

CREATE TABLE BAIRRO (
COD_EMPRESA INTEGER NOT NULL,
CODIGO NUMERIC(10,0) NOT NULL,
CIDADE INTEGER NOT NULL,
NOME CHAR(35),
LOTE CHAR(10),
QUADRA CHAR(10),
CEP CHAR(10),
OBS CHAR(40),
);


eis o codigo do Data module de cadastro

public
{ Public declarations }
procedure GetError(DataSet: TCustomClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);
procedure AlteraCidade (aIdCid: integer; aNome: string);
procedure AlteraBairro (aIdBai: integer; aNome: string);
procedure AlteraLog (aIdLog: integer; aNome: string);



codigo cadastro de bairro
begin
inherited;
try
Application.CreateForm(TFrmConBairro, FrmConBairro);
FrmConBairro.ShowModal;
if FrmConBairro.ModalResult = mrOk then
begin
FilterCDS(DMDados.cdsBAIRRO,fsInteger,DMConsulta.cdsConBairroCODIGO.AsString);
end;
finally
FreeAndNil(FrmConBairro);
end;

end;

consulta por bairro
procedure TFrmConBairro.Procurar;
begin
inherited;
if edtConsulta.Text <> '' then
FilterCDS(DMConsulta.cdsConBAIRRO,fsString,edtConsulta.Text);
end;


eu uso uma library para guardar os codigos principais eis o codigo gerado para consulta com clientdataset

procedure FilterCDS (aCds: TClientDataSet; aType: TTypeLocalizar; aBusca: string);
begin
aCds.Close;
case aType of
fsInteger: aCds.Params[0].AsInteger := StrToInt(aBusca);
fsString: aCds.Params[0].AsString := AnsiUpperCase('%' + aBusca + '%');
end;
aCds.Open;
end

;

procedure TDMDados.AlteraCidade(aIdCid: integer; aNome: string);
begin
cdsCIDADE.Edit;
cdsCIDADECODIGO.AsInteger := aIdCid;
cdsCIDADENOME.AsString := aNome;
cdsCIDADE.Post;
end;



Então o problema que na consulta nao traz dados nenhum. Nao sei aonde estou errando pois ja revirei o codigo varias vezes, gostaria de que algum colega pudesse me dar uma luz estou meio preocupado e o cliente esta pedindo um pouco de rapidez no projeto. Boa Noite e obrigado.