用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 發送簡訊給我 |
發表時間：2003-05-09 09:57:38
IP:218.172.xxx.xxx 未訂閱
系統時間：2024-06-03 11:15:58
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |