其他

我在用戶端按下ApplayUpdate(-1)後。在中介層的DataProvder的OnUpdateData裡寫了如下代碼procedure TFDM_BASE.DspCustSortCodeUpdateData(Sender: TObject;  DataSet: TCustomClientDataSet);begin  inherited;  with DataSet do  begin    First;    while not Eof do    begin      if

class procedure TFWaitForm.Execute(const AMsg: string);begin01.  with TFWaitForm.Create(Application) do  begin02    aniMain.Active := true;03    PostMessage(Handle, WM_CLOSE, 0, 0);04    Msg := AMsg;05    Show;06    SendMessage(Handle, WM_KEYDOWN, 13

procedure TFDBForm_EditForm_MD.EnableDataSetEvent(AEnalbed: Boolean);{$J+}const  CDetailBeforeEditEvent: TDataSetNotifyEvent = nil;  CDetailBeforeDeleteEvent: TDataSetNotifyEvent = nil;{$J-}begin  inherited;  if AEnalbed then  begin    if not

我們可以用使用案例圖可客戶打交道，可以確認是否是使用者所需要的，接下來我們需要做更詳細的設計。可能會用到活動圖表(Activity Diagram)     : 可以清楚的表述動作的流程，流向順序圖表(Sequence Diagram)  : 詳細的動作過程順序設計 互動圖(Collboration Diagram) :

這幾天查記憶體流失，發現編輯表單彈出後，出現了記憶體流失。原來以為是編輯表單的問題。經過排查發現是編輯表單關閉後reOpen的時候因為需要記錄原有資料集的位置所以用到了BookMark現在用了FastMM發現之前的寫法有問題 var  lvBookMark:Pointerbegin  lvBookMark:=cdsMain.GetBookMark; try    …… finally   if cdsMain.ValidateBookMark(lvBookMark) then    

 第一，主要是多寫，實踐是最好的老師，多寫系統，一套一套的系統寫。每寫完一套，就會覺得自己的水平就會提高了不少，每個高手，寫的代碼是很多的。 第二，多和身邊的同事，高手交流，和他們一起開發系統。 第三，看書嘍，怎樣把代碼寫得漂亮有條理，重用性高！比如設計模式，一定要看！最近出的InsideVCL，等水平高一點後也要看。每個程式員都寫代碼。但是要寫出好的代碼。是不容易的！ 第四，學自己不懂的技術，也許這些新的技術，可以大大的提高代碼效率。比如，繼承，Frame。等等。不要怕新的技術。

1.流：(TStream)使用流裡要注意流的位置(Position)，否則小心讀不到東西。2.介面:(Interface)介面變數不再需要的時候不要自己去調用MyInterface._release()函數。應該MyInterface:=nil;來釋放介面變數。自己調用dllInterface._Release釋放一次介面變數,dllInterface自動釋放介面變數調用一次，所以可能是釋放兩次。3.DBGridEh273966879(C01.楓長舞)

錯誤 1324。檔案夾路徑 .. 中含有無效的字元今天用移動usb disk把[visual.studio.net.2005.簡體中文版].microsoft.visua拷到了家裡，準備好好學習下csharp，也讓LP也一起學習下csharp，她待在家裡很悶，沒做事。學點東西也好。說不定以後可以幫幫忙。誰知安裝不了，裝了四五次還是不行，還以為是用usb disk沒有copy好。    

 declare @StartDate datetimedeclare @EndDate datetimedeclare @WeekDay INT, @WeekNum INTset @StartDate = '2009-10-4'  set @EndDate = '2009-10-25' set @StartDate = '2009-10-1'  set @EndDate = '2009-10-2' set @StartDate = '2009-10-3'  set @EndDate = '20

temperature010203Ares 15:02:10Check(DSCursor.ModifyRecord(ActiveBuffer));Mofen 14:58:06就這樣OK了？Mofen 14:58:25謝謝了Mofen 14:58:32我試一下。:)Ares 15:02:54function TAcbsClientDataSet.LoadBlobData(FieldName: string): boolean;var  F1, F2 : TField;  V : Variant; 

對象基礎知識中A.Free,是將執行個體記憶體釋放。A實際上是一指標。指向執行個體記憶體塊。A.Free後A並不是為nil;A仍然記錄，執行個體記憶體塊的地址(雖然記憶體已經釋放)，就像鎖被砸碎了，鑰匙依然還在(還是指向那把鎖)一樣。所以在使用if Form1 = nil來判斷Form1對象執行個體已經建立時要注意。對象間的賦值(B:=A)只是將對象地址就是指標的賦值，將A執行個體地址賦值給B，B也是指向那塊地址。

今天花了我將近一個小時的時間來才找到了這個原因,真是鬱悶.我將查詢的設計流ChangeName將QueryCreator改成QueryCreatorView後發現主的QueryCreator建立老是有問題,有一些組件不顯示了.後來才發現是在ChangeName的時候,設計流儲存了修改記錄,恢複Detail的設計流時,把Main的QueryCreator的組件進行改名,解決:在資料字典設計流改名後,重新DesignAnayzer.Star一下.這樣就好了.

tomcat配置虛擬路徑的4種方法在tomcat中，webapp檔案夾預設為web應用的根目錄。1.在tomcat\conf\server.xml中找到 host標籤，在host標籤中增加新的元素<Context/>並設定 Context的元素，其中path元素所設定的值就是在瀏覽器中所要訪問的虛擬路徑的名稱；docBase元素所對應的值就是web應用所在的具體目錄，這裡既可以的相對webapp的相對路徑，也可是檔案的絕對路徑。<Engine name="Catalina"

多層系統架構本架構已經講解中介層請參照講義http://www.cnblogs.com/dksoft/category/10146.html主題:<外掛程式式>的中介層架構 第一節主題:<外掛程式式>的中介層架構 第二節 |DLL的Exception你如何處理？|不同宿主內如果介面拋出異常，怎麼處理用戶端架構的解決方案可以參照EXE BPL DLL Interface Package

一個項目的開始先有需求，這個需求不管是直接客戶提出還是由上級提出。對應到rose裡面就是使用案例圖。使用案例圖分為use-case(用例也叫系統用例)和Business

FormDestroy和Destroy都是執行Free時執行的兩個函數FormDestroy是事件, Destroy是解構函式.FormDestroy是在Destroy中執行的事件,是為了方便程式員寫釋放資源的代碼.在程式中要麼用直接用Destroy釋放,要麼用FormDestroy事件,不要混合使用.都知道寫Destroy的一般都是destructor Destroy()begin   CdsMain.Free;   inherited destroy;//保證基類的資源釋放,

 引用自:http://blog.nettoapp.com/trackback.asp?tbID=83查詢後是該組件沒有註冊成功，可以使用下面的方法進行處理：開始->運行 regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll" 發現電腦上此檔案版本已經是dao360.dll，同樣只要把檔案更換一下，註冊後就可以啟用。你也可以在自己的電腦上進行反註冊，在前面加上/u參數。如果還有類似提示，regsvr3

今天上午折騰了半天，下午又折騰了幾個小時，終於搞定了，定出來讓大夥解燃眉之急。如果有更好的辦法請你告訴我。:)1.選刪除以前版本在Winnt\System32\ tee*70檔案刪除2.開啟Delphi7編譯Delphi 2005: Tee7D9.bpgDelphi 7:    Tee7D7.bpg3.安裝DCL的包4.reinstall FastReport安裝Fastreport先按照FastReport的TeeChart.txt說明修改frxReg.inc檔案---------------

查看ehgrid源碼procedure TCustomDBGridEh.DefaultDrawColumnCell(const Rect: TRect;  DataCol: Integer; Column: TColumnEh; State: TGridDrawState);    .......    //modify by mofen    if CheckBoxGrayAsUnChecked and (Column.CheckboxState = cbGrayed) then   

--從人事庫中查出在職的,薪卡號重複的記錄 select FGongKaHao from bas_Employee   where  FZaiZhi=0   group by FGongKaHao having count(FGongKaHao)>1 --找出進倉從表的出倉數量和出倉記錄中的出倉數量總合不一樣的記錄SELECT * FROM(    select        ISNULL(         (            --計算出倉記錄裡的出倉數量總合