多層應用系統中進行多個資料表資料的異動 |
|
尚未結案
|
|
sundy6719
初階會員   發表：136 回覆：78 積分：42 註冊：2002-07-10 發送簡訊給我 |
|||
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
引言: 我有參考李維老師的分散式多層應用系統篇內的p3-20在多層應用系統中進行多個資料表資料的異動可是我都看不懂那麼要做一個多層應用系統中進行多個資料表資料的異動至少要先設定什麼還是大約有什麼原理要先去了解的sundy6719 你好 我想你已有警覺了吧！沒錯，應該是看書的進度超過了你理解的進度了；當你看書覺得有些不了解的時候，還可以問問別人，但當你覺得有很大部份看不懂的時候，表示前面的章節還有很多沒有完全瞭解(至少重要部份沒瞭解到)，那麼這時應該回頭重新整理一遍前面的章節。 建議你，把P3-8及P3-10的那兩張流程圖確實搞懂，從p3-7~p3-11有這兩張圖的完整說明(但不一定詳盡)，最好把第二章的範例照著實作一遍，才能有較深的體認，而隨後的範例及說明即是印証這兩張圖用的，李維老師也在文中特別強調一定要確實瞭解這兩張圖。 至於你提到[有什麼原理要先去了解的]，除了上面建議的那兩張流程圖要完全瞭解外，另一就是第四章對於MIDAS的工作原理。 |
||
|
jieshu
版主  發表：42 回覆：894 積分：745 註冊：2002-04-15 發送簡訊給我 |
引言: 我有參考李維老師的分散式多層應用系統篇內的p3-20在多層應用系統中進行多個資料表資料的異動可是我都看不懂那麼要做一個多層應用系統中進行多個資料表資料的異動至少要先設定什麼還是大約有什麼原理要先去了解的 雖然這個問題真的不知要怎麼問法可是真的研究好久看不懂李維老師所寫的範例程式 ~~~謝謝大概就是Server寫一個Function給Client呼叫，作Transaction的處理，也可偷懶的用DataSetProvider的OnDataRequest事件處理。
Server
function TForm1.DataSetProvider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
var
li_e : Integer;
begin
Database1.StartTransaction; try
DataSetProvider1.ApplyUpdates(Input[0], 0, li_e);
DataSetProvider2.ApplyUpdates(Input[1], 0, li_e);
Database1.Commit;
except
on E : Exception do
begin
Database1.Rollback;
Raise Exception.Create(E.Message);
end;
end;
end; Client
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ClientDataSet1.DataRequest(VarArrayOf([ClientDataSet1.Delta, ClientDataSet2.Delta]));
end;
------
人生有夢，逐夢而行 人若為善，福雖未至，禍已遠離 人若為惡，禍雖未至，福已遠離 http://www.taconet.com.tw/jieshu/ |
||
|
sundy6719
初階會員 發表：136 回覆：78 積分：42 註冊：2002-07-10 發送簡訊給我 |
|||
|
jieshu
版主 發表：42 回覆：894 積分：745 註冊：2002-04-15 發送簡訊給我 |
引言: jieshu大大您寫的好詳細謝謝您我可以在請教一個問題嗎DataSetProvider1.ApplyUpdates(Input[0], 0, li_e); 內的applyupdates內參數代表什麼意思 我只知道applyupdates(0)和-1所代表的意思 謝謝您你指的是ClientDataSet.ApplyUpdates(0);只有一個參數，而DataSetProvider.ApplyUpdates(Input[0], 0, li_e);卻有三個參數，Help的說明如下： Applies updates received from a client dataset. function ApplyUpdates(const Delta: OleVariant; MaxErrors: Integer; out ErrorCount: Integer); OleVariant; overload; 也就是收取ClientDataSet的異動包(ClientDataSet.Delta)來Update，第一個參數即為ClientDataSet.Delta，第二個參數和ClientDataSet.ApplyUpdates(0)內的參數同義，第三個參數要給一個變數，好讓他傳回更新錯誤的數量。 所以如果不允許有更新錯誤，可在try..except中加入判斷如下： if li_e > 0 then Raise Exception.Create('錯誤筆數：' IntToStr(li_e));
------
人生有夢，逐夢而行 人若為善，福雖未至，禍已遠離 人若為惡，禍雖未至，福已遠離 http://www.taconet.com.tw/jieshu/ |
||
|
Ktop_Robot
站務副站長  發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2004-04-10 12:01:23
IP:203.70.xxx.xxx 未訂閱
系統時間：2024-05-04 0:30:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |