ypybform.pas

一个物流公司的物流配送系统

unit ypybForm;

interface

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

type
  TFrmypyb = 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
  Frmypyb: TFrmypyb;

implementation

uses DataModule, ypybbForm;

{$R *.dfm}

procedure TFrmypyb.PrintBtnClick(Sender: TObject);
begin
with DM.tempquery do
begin
 ACtive:=FAlse;
 SQL.Clear;
 SQL.Add('exec ypyb_bb :stime,:etime');
 Parameters.ParamByName('stime').Value:=startofthemonth(rqpk.Date);
 Parameters.ParamByName('etime').Value:=endofthemonth(rqpk.Date);
 Active:=True;
 First;
end;
Frmypybb:=TFrmypybb.Create(self);
Frmypybb.rqLabel.Caption:=inttostr(yearof(rqpk.Date))+'年'+inttostr(monthof(rqpk.date))+'月';
Frmypybb.qr.DataSet:=DM.tempquery;
Frmypybb.iddt.Dataset:=DM.tempquery;
Frmypybb.iddt.DataField:='recid';
Frmypybb.spmcdt.Dataset:=DM.tempquery;
Frmypybb.spmcdt.DataField:='spmc';
Frmypybb.ggdt.Dataset:=DM.tempquery;
Frmypybb.ggdt.DataField:='gg';
Frmypybb.dldt.Dataset:=DM.tempquery;
Frmypybb.dldt.DataField:='dl';
Frmypybb.qckcdt.Dataset:=DM.tempquery;
Frmypybb.qckcdt.DataField:='qckc';
Frmypybb.rksdt.Dataset:=DM.tempquery;
Frmypybb.rksdt.DataField:='rks';
Frmypybb.cksdt.Dataset:=DM.tempquery;
Frmypybb.cksdt.DataField:='cks';
Frmypybb.dqkcdt.Dataset:=DM.tempquery;
Frmypybb.dqkcdt.DataField:='dqkc';
Frmypybb.psdt.Dataset:=DM.tempquery;
Frmypybb.psdt.DataField:='ps';
Frmypybb.cpkcdt.Dataset:=DM.tempquery;
Frmypybb.cpkcdt.DataField:='cpkc';
Frmypybb.kczldt.Dataset:=DM.tempquery;
Frmypybb.kczldt.DataField:='kczl';
Frmypybb.qr.PreView;
end;

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

end.