关于控件Radiobox 与 Combobox 的问题

Question

每次提问，都得到了大家的帮助，最后问题顺利解决，希望这次也能。
如何实现选中其中的一个Radiobox , Combobox 出现对应的Items中选项呢。（列出某个字段的所有内容）如 有Radiobox1  Radiobox2 Radiobox3   选中Radiobox2 后 Combobox1 出现对应的Items. 选中Radiobox3后 Combobox1 出现对应的Items.
虚心请教，希望得到大家的解答。

Answer 1

（列出某个字段的所有内容），
数据库采用ACCESS。

Answer 2

代码没测试`~`procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0:
    begin
      ComboBox1.Clear ;
      with Query1 do
      begin
        Close;
        sql.clear;
        sql.add('select * from 表 where 字段='+Quotedstr('过滤条件')) ;
        open;
        first;
        while not Eof do
        begin
          ComboBox1.Items.Add(Query1.filedbyname('要的字段').asstring) ;
          Next;
        end;
      end;
    end;
    1:
    begin
       //同上
    end;;
    2
    begin
       //同上
    end:
  else ;  end;
end;

Answer 3

选中Radiobox2 后 Combobox1 出现对应的Items. 选中Radiobox3后 Combobox1 出现对应的Items.
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
ComboBox1.ItemIndex := RadioGroup1.ItemIndex;
end;

Answer 4

也谢谢楼上的：wudi_1982(︻┳═一酒可千日不饮，但不可一饮不醉) ( 我的意思是说 选中Radiobox2   Combobox1 出现对一个表中对应的字段选中Radiobox3   Combobox1 出现另一个字段。

Answer 5

sql.add('select * from 表 where 字段='+Quotedstr('过滤条件')) ;
过滤条件，具体是指什么？

Answer 6

比如说,你的SQL是select * from 表 where 字段='aaa'
那么这里就是
sql.add(sql.add('select * from 表 where 字段='+Quotedstr('aaa')) ;

Answer 7

比如说,你的SQL是select * from 表 where 字段='aaa'
那么这里就是
sql.add('select * from 表 where 字段='+Quotedstr('aaa')) ;

Answer 8

我的意思其实就是说如何用delphi实现选中不同的RadioButton1  dbcombobox出现相关的字段。如第一个radiobutton1 选中湖南，dbcombobox1 个会出现湖南所有城市。第二个radiobutton1 选中湖北   则 dbcombobox1 个会出现湖南所有城市。

Answer 9

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
      ComboBox1.Clear ;
      with Query1 do
      begin
        Close;
        sql.clear;
        sql.add('select 城市 from 表 where 省份='+Quotedstr('湖南')) ;
        open;
        first;
        while not Eof do
        begin
          ComboBox1.Items.Add(Query1.filedbyname('城市').asstring) ;
          Next;
        end;
      end;end;

Answer 10

问题还是没有解决，换种方法算了。用两个Combobox ,分别为Combobox1 Combobox2肯定能实现类似功能。我建了两个表，一个为省，一个为城市，province ，  city再次请教，如何把所有省名（province表） 显示在第一个combobox1中，对其（Combobox1）进行操作时，如选中湖南 combobox2会出现湖南的所有城市（city 表）？

Answer 11

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
      ComboBox2.Clear ;
      with Query1 do
      begin
        Close;
        sql.clear;
        sql.add('select 城市 from 表 where 省份='+Quotedstr(combobox1.text)) ;
        open;
        first;
        while not Eof do
        begin
          ComboBox1.Items.Add(Query1.filedbyname('城市').asstring) ;
          Next;
        end;
      end;
end;

Answer 12

在ComboBox1的OnChange事件里做
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
      ComboBox2.Clear ;
      with Query1 do
      begin
        Close;
        sql.clear;
        sql.add('select 城市 from 表 where 省份='+Quotedstr(combobox1.text)) ;
        open;
        first;
        while not Eof do
        begin
          ComboBox2.Items.Add(Query1.filedbyname('城市').asstring) ;//上面的错了,这里要改成ComboBox2
          Next;
        end;
      end;
end;