rbform.pas

来自「一个物流公司的物流配送系统」· PAS 代码 · 共 55 行

unit rbForm;

interface

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

type
  TFrmrb = class(TForm)
    Panel1: TPanel;
    rqpk: TDateTimePicker;
    PrintBtn: TButton;
    Label1: TLabel;
    procedure PrintBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmrb: TFrmrb;

implementation

uses DataModule, rbbForm;

{$R *.dfm}

procedure TFrmrb.PrintBtnClick(Sender: TObject);
begin
with DM.tempquery do
begin
 ACtive:=FAlse;
 SQL.Clear;
 SQL.Add('select spmc,gg,sum(case when czlx=0 then -sl else sl end)as kc,sum(case when czlx=1 then sl*dl else -sl*dl end) as kczl ');
 SQL.Add('from crk_v where lxid=1 and czrq<=:czrq group by spmc,gg order by spmc');
 Parameters.ParamByName('czrq').Value:=rqpk.Date;
 Active:=True;
 First;
end;
Frmrbb:=TFrmrbb.Create(self);
Frmrbb.rqLabel.Caption:=Datetostr(rqpk.Date);
Frmrbb.qr.PreView;
end;

procedure TFrmrb.FormShow(Sender: TObject);
begin
rqpk.Date:=date;
end;

end.