Fórum IBX delphi 7 #52378

Olá amigos,

Tenho uma pequena dúvida a respeito da IBQuery no componente de acesso IBX do delphi 7. Nas propriedades da IBQuery tem o campo DataSource, poderia me eplicar qual é sua função, para que ligar o DataSource ali na IBQuery?

Esta dúvida surgiu de um aplicação de teste, uso o F.B 1.5, criei 3 forms forms, um simples com nome Comunidades e outro como GrupodeReflexão o terceiro IncluirGrupo onde pode listar os grupos, dentro de uma comunidade há varios Grupos, ai fiz um Banco com os campos:

TABELA COMUNIDADE
CODIGO INTEGER NOT NULL,
NOMECOMUNIDADE VARCHAR (60),

TABELA GRUPOREFLEXAO
CODIGOGRUPO INTEGER NOT NULL,
NOMEGRUPO VARCHAR(60),

TABELA INTENSGRUPO
CODIGOITENS INTEGER NOT NULL,
CODIGO INTEGER NOT NULL,
CODIGOGRUPO INTEGER NOT NULL,

Ao criar os forms, na propriedade da Query do ItensGrupo coloquei:

select * from ITEMGRUPO
WHERE CODIGOCOMUNIDADE = :CODIGO

Mas o que não quero é ter que colocar ParamByName para atualizar o BDGride do Form comunidades. No botão incluir grupo do from Comunidade está o form IncluiGrupo.

Quando acho o grupo coloquei essa propriedade no Evento OnPresKey do Edit, na Form IncluirGrupo:

procedure TFIncluirGrupo.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
If Key = #13 Then
Begin
DM.qItensGrupo.Insert;
DM.qItensGrupoCODIGOGRUPO.Value := qGrupoCODIGO.Value;
DM.qItemCatequese.Post;
FComunidades.qItensGrupo.Close;
FComunidades.qItensGrupo.ParamByName(´CODIGO´).Value := FComunidade.edCodigo.Text;
FComunidade.qIntensGrupo.Open;
FComunidade.BtnGravar.SetFocus;
Close;
End;
End;

Me disseram que com o Campo DataSource no IBQuery posso facilitar isso.

Obrigado.
Rodrigo.
rodrigorpb@bol.com.br

[color=green:c6957cb5fa]Movido de Delphi para Interbase/Firebird[/color:c6957cb5fa]