servmain.pas

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· PAS 代码 · 共 46 行

unit servmain;


interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Grids, DBGrids, Db;

type
  TMainForm = class(TForm)
    Panel1: TPanel;
    QueryCount: TLabel;
    ClientCount: TLabel;
  private
    FQueryCount: Integer;
    FClientCount: Integer;
  public
    procedure UpdateClientCount(Incr: Integer);
    procedure IncQueryCount;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

//更新客户的个数
procedure TMainForm.UpdateClientCount(Incr: Integer);
begin
  FClientCount := FClientCount + Incr;
  ClientCount.Caption := IntToStr(FClientCount);
end;
//增加查询个数
procedure TMainForm.IncQueryCount;
begin
  Inc(FQueryCount);
  QueryCount.Caption := IntToStr(FQueryCount);
end;



end.