Fórum ComboBox dependendo de outro #219521

with query1 do
  begin
    sql.clear;
    sql.text:=´select nome from unidade where secretaria = :sSecretaria´
    parambyname(´sSecretaria´).asstring:=dbcomboboxSecretaria.text;
  end;

with query1 do
  begin
    sql.clear;
    sql.text:=´select nome from setores where unidade = :sUnidade´
    parambyname(´sUnidade´).asstring:=dbcomboboxUnidade.text;
  end;

{Carregando a Query}
With Query1 do
Begin
   Close; //Fecha a Query
   Sql.Clear; // Limpa o código sql da Query
   Sql.Add(´Select * from TABELA1´); //Carrega a Query com os dados da tabela que vc quiser
   Open; // Abre a Query para uso
end;  
{Carregando o primeiro ComboBox}
Combobox1.Items.Clear; //Limpa os itens existentes no Combobox
Query1.First; //Vai para o primeiro registro da query
while not Query1.Eof do //Loop feito nos dados inseridos na query
begin
   Combobox1.Items.add(Query1.FieldByName(´CAMPO´).Asstring); //Adiciona o registro do campo que quiser no ComboBox
   Query1.Next; //passa para o próximo registro da tabela
end;

If Combobox1.text<>´´ then 
{caso o usuário tenha selecionado algo, então o segundo combobox será habilitado e carregado com os dados da outra tabela!}
begin
   With Query1 do  //Carregando a Query com os dados da segunda tabela
   Begin
      Close; 
      Sql.Clear; 
      Sql.Add(´Select * from TABELA2´); 
      Open; 
   end;  
   {Carregando o segundo ComboBox}
   Combobox2.Items.Clear;
   Query1.First; 
   while not Query1.Eof do 
   begin
      Combobox2.Items.add(Query1.FieldByName(´CAMPO´).Asstring); 
      Query1.Next; 
   end;  
   Combobox2.Enabled:=True;  //Ativa o copmbobox2, já com os dados carregados
end;