DELPHI多层分布式开发(2)

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

在实现区写入过程：

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;

--------------------------------------------------------

COM部分

--------------------------------------------------------

在PcSQL窗口的两个事件OnCreate和OnDesticy，建立事件驱动程序：

procedure TPcSQL.RemoteDataModuleCreate(Sender: TObject);

begin

end;

procedure TPcSQL.RemoteDataModuleDestroy(Sender: TObject);

begin

end;
上一页 [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) 相关软件