如何在combobox中調用資料庫 |
尚未結案
|
suntao008
一般會員 發表:70 回覆:38 積分:21 註冊:2003-10-19 發送簡訊給我 |
|
demo
一般會員 發表:14 回覆:14 積分:5 註冊:2003-01-13 發送簡訊給我 |
先拉一個tquery進來
程式碼
query1.Active := false;
query1.SQL.clear;
queyr1.SQL.add('select * from tablename');
query1.active := true;
while not query1.eof do
begin
combobox1.items.add(trim(query1['fieldname']));
query1.next;
end;
若要加上'ALL'就再加上下行code
combobox1.items.add('ALL');
|
sl@cableplus.com.cn
高階會員 發表:168 回覆:359 積分:130 註冊:2004-03-26 發送簡訊給我 |
query1.Active := false; query1.SQL.clear; queyr1.SQL.add('select * from tablename'); query1.active := true; while not query1.eof do begin combobox1.items.add(trim(query1['fieldname'].AsString)); query1.next; end;如果是DBcombobox1,那在属性里直接连数据集就行了 |
suntao008
一般會員 發表:70 回覆:38 積分:21 註冊:2003-10-19 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi suntao008, 1.Add Item to ComboBox
procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.DisableControls; ComboBox1.Clear; ComboBox1.Items.Add('ALL'); Query1.SQL.Clear; Query1.SQL.Add('SELECT DISTINCT ID FROM HR_EMP_BASE ORDER BY ID'); Query1.Open; while not Query1.Eof do begin ComboBox1.Items.Add(Query1.FieldByName('ID').AsString); Query1.Next; end; ComboBox1.ItemIndex := 0; Query1.Close; Query1.EnableControls; end;2.Open Query2 by ComboBox.Text procedure TForm1.Button2Click(Sender: TObject); begin Query2.Close; Query2.SQL.Clear; if ComboBox1.ItemIndex = 0 then Query2.SQL.Add('SELECT * FROM HR_EMP_BASE ORDER BY ID') else Query2.SQL.Add('SELECT * FROM HR_EMP_BASE WHERE ID = ' Quotedstr(ComboBox1.Text) ' ORDER BY ID'); Query2.Open; end; OR procedure TForm1.ComboBox1Change(Sender: TObject); begin Query2.Close; Query2.SQL.Clear; if TComboBox(Sender).ItemIndex = 0 then Query2.SQL.Add('SELECT * FROM HR_EMP_BASE ORDER BY ID') else Query2.SQL.Add('SELECT * FROM HR_EMP_BASE WHERE ID = ' Quotedstr(TComboBox(Sender).Text) ' ORDER BY ID'); Query2.Open; end;---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |