wmtimesumform1.pas

管理

unit WMTimesumForm1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, DB, ADODB, Grids, DBGrids;

type
  TWMTimesumForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Edit1: TEdit;
    adoTimeSum: TADODataSet;
    adoTimeSumAutoID: TAutoIncField;
    adoTimeSumVeriety: TStringField;
    adoTimeSumPrice: TIntegerField;
    adoTimeSumNumber: TIntegerField;
    adoTimeSumSumprice: TIntegerField;
    adoTimeSumDayincome: TIntegerField;
    adoTimeSumDayPayout: TIntegerField;
    adoTimeSumSumMonth: TIntegerField;
    adoTimeSumSumYear: TIntegerField;
    adoTimeSumMoneykind: TStringField;
    adoTimeSumEnterTime: TStringField;
    adoTimeSumRemark: TStringField;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WMTimesumForm: TWMTimesumForm;


implementation

uses MainForm1;

{$R *.dfm}

procedure TWMTimesumForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TWMTimesumForm.FormCreate(Sender: TObject);
begin
  adoTimeSum.Open;
end;

procedure TWMTimesumForm.BitBtn1Click(Sender: TObject);
const
  FilterStr = 'EnterTime >= ''%s'' and EnterTime <= ''%s''';
var
  I,ASum:Integer;
  AStartDate,AEndDate:String;

begin

  AStartDate:= FormatDateTime('yyyy-mm-dd',DateTimePicker1.Date);
  AEndDate  := FormatDateTime('yyyy-mm-dd',DateTimePicker2.Date);

  adoTimeSum.Filtered := False;
  adoTimeSum.Filter   := Format(FilterStr,[AStartDate,AEndDate]);
  adoTimeSum.Filtered := True;
  ASum := 0;
  For I:=1 To 100000 do
    begin
      ASum := ASum+adoTimeSumSumprice.Value;
      adoTimeSum.Next;
      if adoTimeSum.Eof then Break;
    end;
      Edit1.Text := InttoStr(ASum);

end;

end.