dfm_reprint.pas

来自「仓库管理系统 仓库管理系统」· PAS 代码 · 共 122 行

unit dfm_reprint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGridEh, ComCtrls, DB,
  ADODB, ppVar, ppCtrls, ppBands, ppClass, ppPrnabl, ppCache, ppProd,
  ppReport, ppComm, ppRelatv, ppDB, ppDBPipe, ppModule, daDataModule;

type
  Tdfmreprint = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1jyh: TWideStringField;
    ADOQuery1esl: TFloatField;
    ADOQuery1esjje: TFloatField;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    rpDBPipeline1: TppDBPipeline;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppLine1: TppLine;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppDBText11: TppDBText;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppLabel9: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppLabel2: TppLabel;
    ppLine2: TppLine;
    ppLabel11: TppLabel;
    ppDBText14: TppDBText;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppDBCalc2: TppDBCalc;
    ppLabel10: TppLabel;
    DataSource3: TDataSource;
    ADOTable1: TADOTable;
    rpDBPipeline2: TppDBPipeline;
    daDataModule1: TdaDataModule;
    procedure FormShow(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmreprint: Tdfmreprint;

implementation

uses dfm_sale, dbmRainbowMis;

{$R *.dfm}

procedure Tdfmreprint.FormShow(Sender: TObject);
var
  fstr:AnsiString;
begin
  fstr:='SELECT t_saledet.jyh,sum(t_saledet.sl) as esl, sum(t_saledet.sjje) as esjje FROM t_saledet'
       +' WHERE t_saledet.rq=#%s#'
       +' group by t_saledet.jyh';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[datetostr(Date())]));
    Prepared;
    open;
  end;
end;
    
procedure Tdfmreprint.DataSource1DataChange(Sender: TObject;
  Field: TField);
begin
  if ADOQuery1.RecordCount >0 then
    edit1.Text :=ADOQuery1['jyh'];
end;

procedure Tdfmreprint.BitBtn1Click(Sender: TObject);
begin
  with ADOQuery2 do
  begin
    ADOQuery2.Close;
    ADOQuery2.Parameters.ParamByName('vjyh').Value := trim(edit1.text);
    ADOQuery2.Open;
  end;
  ppReport1.Print;  
end;

end.