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

有關ha0009版主BriefCase範例的問題請教

答題得分者是:ha0009
cashxin2002
版主


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-07-08 01:36:51 IP:63.84.xxx.xxx 未訂閱
請教ha0009版主及各位前輩﹒ 小弟在練習ha0009前輩有關BriefCase範例時出現這樣一個現象﹐就是無論怎么對外部檔案做修改(包括不修改外部檔案的資料內容)﹐在回到主程式中﹐按下同步作業的按鍵時﹐就會出現全部資料筆數多被修改﹐是否需要同步更新的提示﹐Code如下﹕ procedure TForm1.UpdateBatchExecute(Sender: TObject); begin if Not FileExists('D:\Test.dat') then begin ShowMessage('公事包檔案還沒有建立﹐請先建立!'); System.Exit; end; ADODataSet2.LoadFromFile('D:\Test.dat'); ADODataSet2.FilterGroup := fgPendingRecords; if ADODataSet2.RecordCount = 0 then begin ShowMessage('公事包無任何變動﹐故資料庫無需更新!') end else begin if Application.MessageBox(PChar(Format('公事包中有%d 筆變動資料﹐是否同步更新到資料庫﹖',[ADODataSet2.RecordCount])),'資料同步處理',MB_YesNo) = IDYes then begin ADODataSet2.UpdateBatch; DeleteFile('D:\Test.dat'); ShowMessage('資料庫同步作業完成﹗'); end; end; Caption := IntToStr(ADODataSet2.RecordCount); end; 請問小弟是何處有錯誤設定﹐才會出現這樣的現象的﹒ 另外請教﹕ADODataSet2.FilterGroup := fgPendingRecord; 是何意義﹖ 謝謝﹗ 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/07/08 01:39:05
------
忻晟
ha0009
版主


發表:16
回覆:507
積分:639
註冊:2002-03-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-07-08 09:36:46 IP:61.30.xxx.xxx 未訂閱
你好:
1. 你的 ADODataSet2.Filtered 要設成 True。
2. FilterGroup 
  FilterGroup 過濾資料列的更新狀態。 fgPendingRecord 將已變更尚未更新的資料過濾出來。
cashxin2002
版主


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-07-08 11:13:37 IP:63.84.xxx.xxx 未訂閱
謝謝ha0009版主的幫助﹒    問題已經解決﹐小弟完成您的實例了﹒謝謝﹗ 努力,相信會獲得美麗! 忻晟
------
忻晟
系統時間:2024-05-19 1:52:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!