unit1.pas

来自「ADO+DCOM例程 服务器与客户端 有源码 请大家指点」· PAS 代码 · 共 45 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    clientcount: TLabel;
    querycount: TLabel;
  private
    { Private declarations }
    Nclientcount:integer;
    Nquerycount:integer;
  public
    { Public declarations }
    procedure UpdateClientCount(inc:integer);
    procedure UpdateQueryCount;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure Tform1.UpdateClientCount(inc:integer);
begin
  nClientCount := nClientCount + inc;
  ClientCount.Caption := intTostr(nClientCount);
end;

procedure Tform1.UpdateQueryCount;
begin
  nQueryCount := nQueryCount + 1;
  QueryCount.Caption := intTostr(nQueryCount);
end;

end.