線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1162
推到 Plurk!
推到 Facebook!

為什麼是重覆執行?

尚未結案
tea15
初階會員


發表:64
回覆:72
積分:27
註冊:2005-06-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-09-28 09:04:45 IP:220.130.xxx.xxx 未訂閱
private      { Private declarations }      f,t:string;      Function MyWorkDate(InDate : TDate) : TDate;   public      { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin datetimepicker1.Date:=EncodeDate(strtoint(copy(edit1.Text,1,4)),strtoint(copy(edit1.Text,5,2)),strtoint(copy(edit1.Text,7,2))); edit2.Text:=datetostr(myworkdate(datetimepicker1.Date)); if adoQuery1.Locate('holiday', edit2.Text, []) then ////-----為什麼老是這一行出現重覆執行的動作?//// begin if radiobutton1.Checked then //繳款日 begin    edit2.Text:=datetostr(myworkdate(datetimepicker1.Date-1)) end else if radiobutton2.Checked then//兌現日 begin edit2.Text:=datetostr(myworkdate(datetimepicker1.Date+1)) end end;       Function Tform1.MyWorkDate(InDate : TDate) : TDate;   var     DOW :word;     R: TDate;   begin     R:= InDate;     DOW := DayOfTheWeek(R);         if RadioButton1.Checked then      begin       Case DOW of       6 : R := R -1;       7 : R := R -2;       1 : R := R -3;       else       R := R-1;       end       end      else if RadioButton2.Checked then      begin       Case DOW of       5 : R := R +3;       6 : R := R +2;       7 : R := R +1;       else       R := R+1;       end       end;      label1.caption := '星期'+IntToStr(DayOfTheWeek(R));   Result := R;   end;    一直是這樣的錯誤,我該如何修改呢?
pgdennis
資深會員


發表:41
回覆:526
積分:443
註冊:2002-05-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-09-28 16:05:27 IP:218.163.xxx.xxx 未訂閱
Button1Click這個會重複執行? if adoQuery1.Locate('holiday', edit2.Text, []) then還是這判斷式會重複執行? < >後者不可能發生的.. 可否再詳細描述徵狀< > 星期一,星期二...星期日..星期一..無窮迴圈@@
------
星期一,二...無窮迴圈@@
tea15
初階會員


發表:64
回覆:72
積分:27
註冊:2005-06-15

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-09-29 08:32:01 IP:211.20.xxx.xxx 未訂閱
您好... 我也不知道為什麼... 它的錯誤總是在這一行... 它的訊息是...
引言: Button1Click這個會重複執行? if adoQuery1.Locate('holiday', edit2.Text, []) then還是這判斷式會重複執行? < >後者不可能發生的.. 可否再詳細描述徵狀< > 星期一,星期二...星期日..星期一..無窮迴圈@@
bestlong
站務副站長


發表:126
回覆:734
積分:512
註冊:2002-10-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-09-29 08:59:56 IP:60.248.xxx.xxx 未訂閱
那要看你的 adoQuery1 的 SQL 語法為何? 還有 adoQuery1 的相關事件的程式碼有寫什麼? 雪龍 http://bestlong.no-ip.com/ 學海無涯覺無盡,勤做筆記防失憶
------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/
lutienlung
一般會員


發表:3
回覆:5
積分:1
註冊:2005-04-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-09-29 09:14:14 IP:202.39.xxx.xxx 未訂閱
您好 我猜想應該是在adoQuery1AfterScroll這個事件中 有呼叫Button1Click的程式碼 建議您如果查不出來 可以像bestlong大大說的 先將adoQuery1的所有事件先清除 試看看!
tea15
初階會員


發表:64
回覆:72
積分:27
註冊:2005-06-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-09-29 16:38:01 IP:211.20.xxx.xxx 未訂閱
我的adoquery1的sql語法就是select *from holiday.. 跟這個有關嗎?那我要如何更改呢? <>< face="Verdana, Arial, Helvetica">引言: 那要看你的 adoQuery1 的 SQL 語法為何? 還有 adoQuery1 的相關事件的程式碼有寫什麼? 雪龍 http://bestlong.no-ip.com/ 學海無涯覺無盡,勤做筆記防失憶
bestlong
站務副站長


發表:126
回覆:734
積分:512
註冊:2002-10-19

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-09-29 18:11:05 IP:60.248.xxx.xxx 未訂閱
請問是使用什麼資料庫? 那有作 adoQuery1.Open 了嗎 ? 建議貼出完整的程式碼才好判斷. 雪龍 http://bestlong.no-ip.com/ 學海無涯覺無盡,勤做筆記防失憶
------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/
系統時間:2024-06-16 10:55:35
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!