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

Adoquery1 新增時檢查問題?

答題得分者是:Rain
nick167
中階會員


發表:86
回覆:133
積分:53
註冊:2003-02-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-04 16:11:21 IP:61.228.xxx.xxx 未訂閱
當User按下DBNavigator1(Insert鍵)時,檢查筆數有一筆存在,不再讓User Append procedure TForm1.ADOQuery1BeforeInsert(DataSet: TDataSet); begin ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('select cno from bank where cno = ''' Set_no ''' '); ADOQuery2.Active:=True; if ADOQuery2.RecordCount >= 1 then begin showmessage('銀行筆數已存在'); busb1ADOQuery1.Cancel; ?? 還是進入新增狀態,如何讓它回到瀏覽狀態,不新增 end; end;
cashxin2002
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-04 16:22:34 IP:63.84.xxx.xxx 未訂閱
您好﹒ 請將if ... begin 之后的語句顛倒一下試試看﹒ if ADOQuery2.RecordCount>=1 then begin busb1ADOQuery1.Cancel; ShowMessage('銀行筆數已存在'); end; 努力,相信會獲得美麗! 忻晟
------
忻晟
Rain
資深會員


發表:31
回覆:236
積分:268
註冊:2003-02-17

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-04 16:23:30 IP:220.160.xxx.xxx 未訂閱
...   if ADOQuery2.RecordCount >= 1 then begin   ...     Abort; ...
nick167
中階會員


發表:86
回覆:133
積分:53
註冊:2003-02-12

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-04 16:34:34 IP:61.228.xxx.xxx 未訂閱
引言: ... if ADOQuery2.RecordCount >= 1 then begin ... Abort; ...
busb1ADOQuery1.Cancel; //還是Append state abort 才可以,謝謝
cashxin2002
版主


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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-08-04 16:39:02 IP:63.84.xxx.xxx 未訂閱
Sorry, 回答錯誤﹒ 忘記要用
------
忻晟
系統時間:2024-11-23 11:42:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!