请教关于DELPHI的问题， 如何去掉DBcombobox中的重复项？如何让两个DBcombobox关联呢？

已与Access数据库建立连接，下面的代码仅仅是加载三项到三个DBcombobox中。
求教 1.如果我的kc表中有重复项，那我如何把它去掉呢？

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOT_mz.Open; //加载时我用的ADOtable，没用ADOquery
while not ADOT_mz.Eof do
begin
DBComboBox1.Items.Add(ADOT_mz.Fields[1].AsString);
ADOT_mz.Next;
end;
////////////////////
ADOT_kc.Open;
while not ADOT_kc.Eof do
begin
DBComboBox2.Items.Add(ADOT_kc.Fields[1].AsString);
ADOT_kc.Next;
end;
//////////////////
ADOT_js.Open;
while not ADOT_js.Eof do
begin
DBComboBox3.Items.Add(ADOT_js.Fields[1].AsString);
ADOT_js.Next;
end;

ADOT_xuesheng.Open;
end;

2. DBcombobox2如何与DBcombobox3关联？？

我写的如下的代码，哪里错了呢？不能关联的...
procedure TFormD_Chu.DBComboBox2Change(Sender: TObject);
begin
if Trim(DBComboBox2.Text)<>'' then
begin
DBComboBox3.Items.Clear;
ADOQuery1.Close; //因为原先没想到直接用ADOquery，后来要用了才加了一个，与连接DBcombobox2连接的Datasource2连接。
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.ADD('select Name from Unit Where Area='''+Trim(DBComboBox1.Text)+'''');
ADOQuery1.Open;
While not ADOQuery1.EOF DO
begin
DBComboBox3.Items.Add(ADOQuery1.FieldByName('Name').asstring);
end;
end;

非常非常感谢...

select distinct Name from Unit......

tcombobox就是下拉框,供选择用的.它有个items属性,就是下拉的内容,你可以给它添加下拉内容.比如: combobox1.items.add('张三'); combobox1.items.add('李四'); 而要知道当前选择了张三还是李四可以这样写代码: var idx:integer; begin idx:=combobox1.itemindex;//当前选择项目的索引,从0开始,没有选是-1 if idx<>-1 then showmessage('你选择了'+combobox1.items[idx]) else showmessage('你没选择!'); end; 简单的用法就这样,自己多看帮助