unit sfmx;

interface

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

type
  TxfmxForm = class(TForm)
    Panel1: TPanel;
    DateTimePicker1: TDateTimePicker;
    Button1: TButton;
    Label1: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    StatusBar1: TStatusBar;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xfmxForm: TxfmxForm;

implementation
uses sys_dm;

{$R *.dfm}

procedure TxfmxForm.Button1Click(Sender: TObject);
var
r1:real;
begin
//frm_sys_dm.Qr_tmp1
r1:=0;
with frm_sys_dm.Qr_tmp1 do
 begin
 close;
 sql.clear;
 sql.Add('select xfmxrq00 as 日期,sum(xfmxksje-xfmxsyje) as 金額 from addxfmx');
 sql.add('where xfmxrq00>=:stardate and xfmxrq00<=:enddate');
 sql.add('group by xfmxrq00');
 sql.add('order by xfmxrq00');
 Parameters.parambyname('stardate').Value :=datetimepicker1.date;
 Parameters.parambyname('enddate').Value :=datetimepicker2.date;
 open;
 end;
 if frm_sys_dm.Qr_tmp1.Active=true then
 begin
  while not frm_sys_dm.Qr_tmp1.Eof do
    begin
    r1:=r1+frm_sys_dm.Qr_tmp1.Fields[1].Asfloat;
    frm_sys_dm.qr_tmp1.next;
    end;
  dbgrid1.Columns.Items[1].Width:=300;
 end;
 label4.Caption:=formatfloat('0.00',r1);

end;

procedure TxfmxForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TxfmxForm.FormCreate(Sender: TObject);
begin
datetimepicker1.date:=date();
datetimepicker2.date:=date();
end;

end.