【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供fmDemoMain.pas参考，解决您在fmDemoMain.pas学习中工作中的难题，参考学习。

    unit fmDemoMain;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ComCtrls, Spin, DB, Grids, DBGrids, ExtCtrls, DBCtrls;
    
    type
      TfrmMain = class(TForm)
        DBNavigator1: TDBNavigator;
        DBGrid1: TDBGrid;
        dsPERFTEST: TDataSource;
        Button1: TButton;
        sedtPacketRecords: TSpinEdit;
        StatusBar1: TStatusBar;
        lbLog: TListBox;
        procedure Button1Click(Sender: TObject);
      private
        lStart : Longint;
        lEnd : Longint;
    
        procedure LogStartTime;
        procedure LogEndTime;
        procedure LogMsg(const sCount : Integer; const lTime : Longint);
        function GetRunTime : Longint;
      public
        { Public declarations }
        procedure ShowRecordCount(const iCount : Integer);
      end;
    
    var
      frmMain: TfrmMain;
    
    implementation
    
    uses udmDemo;
    
    {$R *.dfm}
    
    procedure TfrmMain.Button1Click(Sender: TObject);
    begin
      dmDemo.cdsPERFTEST.Active := False;
      LogStartTime;
      dmDemo.cdsPERFTEST.PacketRecords := sedtPacketRecords.Value;
      dmDemo.cdsPERFTEST.Active := True;
      LogEndTime;
      LogMsg(sedtPacketRecords.Value, GetRunTime);
    end;
    
    function TfrmMain.GetRunTime: Longint;
    begin
      Result := lEnd - lStart;
    end;
    
    procedure TfrmMain.LogEndTime;
    begin
      lEnd := GetTickCount;
    end;
    
    procedure TfrmMain.LogMsg(const sCount, lTime: Integer);
    var
      sMsg : String;
    begin
      sMsg := 'PacketRecords : ' + IntToStr(sCount) + ' : ' + FloatToStr(lTime / 1000.0);
      lbLog.Items.Add(sMsg)
    end;
    
    procedure TfrmMain.LogStartTime;
    begin
      lStart := GetTickCount;
    end;
    
    procedure TfrmMain.ShowRecordCount(const iCount: Integer);
    begin
      StatusBar1.Panels[0].Text := '目前用户端的笔数：' + IntToStr(iCount);
    end;
    
    end.