301
Delphi / Pascal / Re: สอบถามการเขียนโปรแกรมดึงค่าจาก Combobox
« เมื่อ: กันยายน 18, 2012, 09:31:09 AM »
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.
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 อะครับ