unit27.pas

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

unit Unit27;

interface

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

type
  TForm27 = class(TForm)
    Label3: TLabel;
    DTP1: TDateTimePicker;
    Label4: TLabel;
    DTP2: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form27: TForm27;

implementation

uses Unit11, Unit16, Unit1;

{$R *.dfm}

procedure TForm27.BitBtn2Click(Sender: TObject);
begin
  if messagedlg('您确定要删除收费记录？'+#13+'删除后将不能恢复。',mtconfirmation,[mbok,mbno],0)=mrok then
  begin
  ADOQuery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('delete from recharge where chargetime between :time1 and :time2');
  adoquery1.Parameters.ParamByName('time1').Value:=dtp1.DateTime;
  adoquery1.Parameters.ParamByName('time2').Value:=dtp2.DateTime;
  adoquery1.ExecSQL;
  end
end;

procedure TForm27.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select opname,sum(money)as totalmoney from recharge where chargetime between :time1 and :time2 group by opname');
  adoquery1.Parameters.ParamByName('time1').Value:=dtp1.DateTime;
  adoquery1.Parameters.ParamByName('time2').Value:=dtp2.DateTime;
  adoquery1.Open;
  with czysf do
  begin
  quickrep1.DataSet:=adoquery1;
  qrdbtext1.DataSet:=adoquery1;
  qrdbtext1.DataField:='opname';
  qrdbtext2.DataSet:=adoquery1;
  qrdbtext2.DataField:='totalmoney';
  qrlabel5.Caption:=datetostr(dtp1.DateTime);
  qrlabel7.Caption:=datetostr(dtp2.DateTime);
  qrlabel9.Caption:=trim(user);
  quickrep1.Preview;
  end
end;

procedure TForm27.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 Resize:=false;
end;

procedure TForm27.FormShow(Sender: TObject);
begin
  Dtp1.DateTime:=now;
  dtp2.DateTime:=now;
end;

end.