dephi中如何列出班级所有成员？

Question

一张表单上有两个下拉框,第一个下拉框显示所有的班级,第二个下拉框需要根据第一个下拉框所选择的班级而显示这个班级所有的成员,不知道该如何实现,希望提供源代码! 

Answer 1

1. select 班级 from 表
2. select 成员 from 表 where 班级= 第一个下拉框.Text

Answer 2

//读取数据库中的班级列表放在ComboBox1中
  ComboBox1.Items.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Append('select * from 班级表');
  Query1.Open;
  Query1.First;
  while not Query1.Eof do
  begin
    ComboBox1.Items.Append(Query1.fieldbyname('班级名称').AsString);
    Query1.Next;
  end;
  Query1.Close;
  
//当班级列表框改变后：即：ComboBox1的onChange
  if ComboBox1.ItemIndex<0 then
    exit;
  ComboBox2.Items.Clear;
  Query1.SQL.Clear;
  Query1.SQL.Append('select * from 成员表 where 班级='''+Combobox1.Text+'''');
  Query1.Open;
  while not Query1.Eof do
  begin
    ComboBox2.Items.Append(Query1.fieldbyname('成员名称').AsString);
    Query1.Next;
  end;
  Query1.Close;