全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:701
推到 Plurk!
推到 Facebook!

有關ADOQuery和Button的小問題!

答題得分者是:Fishman
rabinson
一般會員


發表:19
回覆:7
積分:5
註冊:2004-02-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-11-22 13:49:10 IP:61.66.xxx.xxx 未訂閱
各位大大: 有一個小問題想請教一下,我透過ADOQuery的方式 去select資料, 我打算做的是 如果select 0筆的時候,我的button要變成disable。 我該怎麼處理呢?
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-11-22 14:01:05 IP:202.62.xxx.xxx 未訂閱
您好﹗    試試如下﹕
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From 資料表名稱');
  ADOQuery1.Open;
  Button1.Visible := Not ADOQuery1.IsEmpty;
end;
========================= 我是您的朋友﹐有您真好﹗ =========================
------
忻晟
seaturn99
版主


發表:69
回覆:427
積分:214
註冊:2003-08-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-11-22 14:01:23 IP:220.130.xxx.xxx 未訂閱
rabinson 您好 :    以下範例給您做個參考,在 ADOQuery 的 AfterOpen  Event 寫入:
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  Button1.Enabled := true;
  if DataSet.RecordCount = 0 then
    Button1.Enabled := false;
end;
---- 我只會兩件事,這也不會,那也不會 眼見不一定為真 ---- 發表人 - SouthWind 於 2004/11/22 14:06:40
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-11-22 14:02:30 IP:210.65.xxx.xxx 未訂閱
Hi rabinson,    在該 DataSet 的 AfterOpen 事件加入以下程式碼試試
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  Button2.Enabled := Not DataSet.IsEmpty;
end;
---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
rabinson
一般會員


發表:19
回覆:7
積分:5
註冊:2004-02-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-11-22 14:13:03 IP:61.66.xxx.xxx 未訂閱
謝謝各位大大的指導!! 我可以透過 上述的方式去做到該有的效果了 我是這樣做 Buttion1.enabled :=(Not ADOQuery1.IsEmpty) ;
系統時間:2024-06-26 6:53:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!