用combobox做搜尋 |
尚未結案
|
diehuman
初階會員 發表:91 回覆:57 積分:29 註冊:2003-04-16 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
(table 元件是一次將所有該 table 的資料帶出, 若是資料量大可能效能會比較差).
接下來說明你要的功能可以使用 Locate 來進行, 如:
Locate 傳入要查的欄位, 值, 和部分查詢的參數後, 回傳 true 為找到了, false 為沒找到. procedure TForm1.Button1Click(Sender: TObject);
begin
if not Table1.Locate(ComboBox1.Text, Edit1.Text, [loPartialKey])
ShowMessage('not found!');
end;
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
小弟日前有寫到這樣一段查詢功能最基礎的程式﹐可能适合您使用﹐但小弟是選擇RadioButton的元件來做選擇資料欄的處理﹐若您要使用ComboBox元件﹐只需要一點點的修正﹐先將欄位名稱加入在ComboBox的String中﹐另外只需要根据ComboBox的Text屬性內容作為查詢的欄位條件即可﹒小弟的原程式碼如下﹕ procedure TForm6.btStartSearchClick(Sender: TObject);
begin
if edSearch.Text='' then
begin
MessageDlg('無查詢內容!',mtWarning,[mbOK],0);
end
else
begin
if rbFunction.Checked then
begin
if Table1.Locate ('Function',edSearch.Text,
[loCaseInsensitive,loPartialKey]) then
MessageDlg('找到您所需要的資料!',
mtWarning,[mbOK],0)
Else
MessageDlg('找不到您所需要的資料, 請确認查詢條件!',mtError,[mbOk],0);
edSearch.SetFocus;
end;
if rbFunctionName.Checked then
begin
if Table1.Locate('Function Name',edSearch.text,
[loCaseInsensitive,loPartialKey]) then
MessageDlg('找到您所需要的資料!',mtWarning,[mbOK],0)
Else
MessageDlg('找不到您所需要的資料, 請确認查詢條件!',mtError,[mbOk],0);
edSearch.SetFocus;
end;
end;
end; 發表人 - cashxin2002 於 2003/05/10 12:47:27
------
忻晟 |
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |