สอบถามการเขียนโปรแกรมดึงค่าจาก Combobox

[Bond_007]

พอดีอยากทำฟอร์มให้ดึงค่าจาก combobox ครับ โดยผมเขียนคำสั่งแบบนี้ครับ แล้วเวลารันโปรแกรมหน้าตาจะเป็นดังรูปครับ
procedure TFormTest.FormShow(Sender: TObject);
var
str  : string;
begin
Str := 'SELECT * FROM department ';
Query.Active := False;
Query.SQL.Clear;
Query.SQL.Add(Str);
Query.Active := True;
Query.First;
combobox1.Items.Clear;
Query.First;
while not Query.Eof do
begin
combobox1.Items.Add(Query.FieldByName('dept_name').AsString);
Query.Next;
end;
end;

end.

[Bond_007]

แต่ทีี่นี้เมื่อผมลองเลือกรายการมาสักหนึ่งรายการ เช่น test ผมอยากให้ dbgrid แสดงแค่ Test เฉยๆแบบนี่้ต้องทำยังไงครับ ขอบคุณครับ

[armds]

ใช้  lookupcombobox  น่าจะง่ายกว่านะครับ
เอา  clientdataset  กับ datasource  มาแสดงเอาครับ

[Multithreading]

รูปที่ 2 บังโค้ด ตรงในส่วน FromShow อะครับ

[Bond_007]

code เป็นแบบนี้ครับ (ผมค้นมาจาก google) ครับแล้วมาปรับเอา 
procedure TFormTest.FormShow(Sender: TObject);
var
str  : string;
begin
Str := 'SELECT * FROM department ';
Query.Active := False;
Query.SQL.Clear;
Query.SQL.Add(Str);
Query.Active := True;
Query.First;
combobox1.Items.Clear;
Query.First;
while not Query.Eof do
begin
combobox1.Items.Add(Query.FieldByName('dept_name').AsString);
Query.Next;
end;
end;

end.

รูปที่ 2 บังโค้ด ตรงในส่วน FromShow อะครับ

[Bond_007]

ขอบคุณครับ เด๋วผมขอลองทำดูครับ ไม่เคยเขียนกับ clientdataset ทุกทีใช้ myquery แต่จะพยายามทำให้ได้ครับ

ใช้  lookupcombobox  น่าจะง่ายกว่านะครับ
เอา  clientdataset  กับ datasource  มาแสดงเอาครับ