用ADO连接,在form1上添加DBComboBox1,要在DBComboBox的下拉框里显示表bumen的dep_name列的内容,用adoquery控件如何连接,求高手帮忙; 
比如dep_name有(1.2.3.4),那么DBComboBox1的下拉框中就有(1.2.3.4),当往dep_name中添加5的时候,DBComboBox1中也相应的加上5.
請問哪位高手，此次如何能解？

<textarea class="delphi" rows="10" cols="60" name="code"> var Form1: TForm1; list:TStringList; implementation procedure TForm1.FormCreate(Sender: TObject); begin list:=TStringList.Create; with ADOQuery1 do begin Open; DisableControls; while not Eof do begin list.Add(fieldbyname('dep_name').AsString); Next; end; EnableControls; First; end; DBComboBox1.Items.Assign(list); end; procedure TForm1.dep_nameExit(Sender: TObject); begin list.Add(dep_name.Text); DBComboBox1.Items.Clear; DBComboBox1.Items.Assign(list); end; </textarea>

procedure TForm1.dep_nameExit(Sender: TObject);

begin

list.Add(dep_name.Text);

DBComboBox1.Items.Clear;

DBComboBox1.Items.Assign(list);

end;

這個語句怎麼產生出來的,是自定義函數吧,那你在什麼時候觸發他呢?

借此詢問一下版主,你這兒的結案按鈕好像沒有效果哦!我很多問題都點了這個點這個按鈕結案,但是就看到結案的效果!敬請版主注意一下,

是一各dbedit元件寫在onexit

參考此篇吧
http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=88169
===================引 用 books 文 章===================
借此詢問一下版主,你這兒的結案按鈕好像沒有效果哦!我很多問題都點了這個點這個按鈕結案,但是就看到結案的效果!敬請版主注意一下,

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL