unit5.pas

来自「停车厂管理系统 麻雀虽小 但是五脏齐全」· PAS 代码 · 共 75 行

unit Unit5;

interface

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

type
  Tallcharge = class(TForm)
    ADOQuery1: TADOQuery;
    Label3: TLabel;
    Label4: TLabel;
    DTP1: TDateTimePicker;
    DTP2: TDateTimePicker;
    Button1: TBitBtn;
    Button2: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
     procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  allcharge: Tallcharge;

implementation

uses Unit1, Unit11, Unit15, Unit16;

{$R *.dfm}

procedure Tallcharge.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Tallcharge.Button2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select useid,usename,customers.cardid,totalmoney from customers,(select cardid,sum(money) as totalmoney from recharge where chargetime between :time1 and :time2 and statues=1 group by cardid) s where customers.cardid=s.cardid order by totalmoney desc');
  adoquery1.Parameters.ParamByName('time1').Value:=dtp1.DateTime;
  adoquery1.Parameters.ParamByName('time2').Value:=dtp2.DateTime;
  adoquery1.Open;
  with yhxf do
  begin
  QuickRep1.DataSet:=adoquery1;
  qrdbtext1.DataSet:=adoquery1;
  qrdbtext1.DataField:='useid';
  qrdbtext2.DataSet:=adoquery1;
  QRDBText2.DataField:='usename';
  qrdbtext3.DataSet:=adoquery1;
  QRDBText3.DataField:='cardid';
  qrdbtext4.DataSet:=adoquery1;
  QRDBText4.DataField:='totalmoney';
  qrlabel7.Caption:=datetostr(dtp1.Date);
  qrlabel9.Caption:=datetostr(dtp2.Date);
  qrlabel11.Caption:=datetimetostr(now);
  qrlabel13.Caption:=trim(user);
  yhxf.QuickRep1.Preview;
  end;
end;

procedure Tallcharge.FormShow(Sender: TObject);
begin
  dtp1.DateTime:=now;
  dtp2.DateTime:=now;
end;

end.