DELPHI多層分布式開發(2)(4)

服務器端進行客戶計數

除了上面的功能外，這個程序還加上了一個在線用戶以及查詢用戶統計的功 能。由於這個應用程序執行模式是 Multiple Instance執行模式，所以當某個前 台第一次連上線後，應用程序服務器會激活RemoteDataModule的事件程序，而斷 線後又會執行OnDestroy事件程序，因此就可以用這兩個事件計算連上服務器的 用戶個數。至於Query個數的計算，則由TQuery的OnAfterOpen事件函數判斷。

Form1部分，主要用於顯示

首先在form上安放五個Tlabel控件，其中四個放在一個容器Panel1裡兩個計 數的label分別取名為ClIEntCount和QueryCount。屬性Capyion=0。注意，下面 的程序在Form1所在的單元Unit1中編寫。

在private下聲明兩個變量：

FQueryCount: Integer;

FClIEntCount: Integer;

在public下聲明兩個過程

procedure UpdateClIEntCount(Incr: Integer);

procedure IncQueryCount;

在實現區寫入過程：

procedure Tform1.UpdateClIEntCount(Incr: Integer);
begin
FClientCount := FClIEntCount + Incr;
ClientCount.Caption := IntToStr(FClIEntCount);
end;

procedure Tform1.IncQueryCount;
begin
Inc(FQueryCount);
QueryCount.Caption := IntToStr(FQueryCount);
end;