DELPHI多层分布式开发(2)

日期：2007年5月2日作者：查看:[大字体中字体小字体]

on E: EDBEngineError do

raise Exception.Create('Password Required') ;

end;

end;

服务器端进行客户计数

除了上面的功能外，这个程序还加上了一个在线用户以及查询用户统计的功能。由于这个应用程序执行模式是 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;
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页
DELPHI多层分布式开发(2) 相关文章：
·DELPHI多层分布式开发(2)
DELPHI多层分布式开发(2) 相关软件