findframefrm.~pas

相关的销售服务管理行业的一个软件

unit FindFrameFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FindStatFrameFrm, ActnList, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls,
  jpeg, ExtCtrls, Db, ADODB, EHGrids;

type
  TFindFrameForm = class(TFindStatFrameForm)
    LCount: TLabel;
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
  private
    FRecordCount: integer;
    procedure SetRecordCount(const Value: integer);
    { Private declarations }
  public
    { Public declarations }
    property RecordCount: integer read FRecordCount write SetRecordCount;
  end;

var
  FindFrameForm: TFindFrameForm;

implementation

{$R *.DFM}

{ TFindFrameForm }

procedure TFindFrameForm.SetRecordCount(const Value: integer);
const ResultInfo = '   查询结果: %s条';
var
  sRecordCount: string;
begin
  FRecordCount   := Value;
  sRecordCount   := IntToStr(Value);
  lCount.Caption := Format(ResultInfo,[sRecordCount]);
end;

procedure TFindFrameForm.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  inherited;
  RecordCount := ADOQuery1.RecordCount;
end;

end.