Fórum DBLookupComboBox: Comandos ao selecionar um item. #346391

procedure TFComunitGrupo.DBLookupComboBox1Exit(Sender: TObject);
begin
//Atualiza listItensGrupo
If Trim(DBLookupComboBox1.Text) <> ´´ Then
Begin
listItensGrupo.Clear;
with qItens do
Begin
  Close;
  SQL.Clear;
  SQL.Add(´select I.CODIGOCOMUNIDADE, I.CODIGOGRUPO, I.CODITEMGRUPO, ´ +#13+
                      ´G.CODIGO, G.GRUPO from ITEMGRUPO I JOIN GRUPOREFLEXAO G´);
  SQL.Add(´on I.CODIGOGRUPO = G.CODIGO´);
  SQL.Add(´where I.CODIGOCOMUNIDADE = :CODCOMUN´);
  SQL.Add(´order by GRUPO´);
  ParamByName(´CODCOMUN´).AsInteger := DBLookupComboBox1.KeyValue;
  Open;
End;

If not qItens.IsEmpty then
 Begin
   qItens.First;
   while not qItens.Eof do
   Begin
     listItensGrupo.items.Add(qItens.fieldByName(´CODIGO´).AsString +´ - ´+qItens.fieldByName(´GRUPO´).AsString);
     qItens.Next;
   End;
 End;

//Alualiza listGrupo
listGrupos.Clear;
DM.qGruporeflexao.Close;
DM.qGruporeflexao.SQL.Clear;
DM.qGruporeflexao.SQL.Add(´select * from GRUPOREFLEXAO´);
DM.qGruporeflexao.SQL.Add(´order by CODIGO´);
DM.qGruporeflexao.Open;
If not DM.qGruporeflexao.IsEmpty then
 Begin
   DM.qGruporeflexao.First;
   while not DM.qGruporeflexao.Eof do
   Begin
     listGrupos.items.Add(DM.qGruporeflexao.FieldbyName(´CODIGO´).AsString +´ - ´+
                          DM.qGruporeflexao.FieldbyName(´GRUPO´).Value);
     DM.qGruporeflexao.Next;
   End;
 End;
End;
end;