in110report.~pas

一套融入了系统营销管理思想的管理软件产品

unit IN110Report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseReport, DB, DBTables, QRCtrls, QuickRpt, ExtCtrls;

type
  TqrIN110 = class(TQuickReport)
    QRGroup2: TQRGroup;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    qyReportChangeID: TStringField;
    qyReportChangeDate: TStringField;
    qyReportChangeCode: TStringField;
    qyReportWarehouseID: TStringField;
    qyReportDescription: TStringField;
    qyReportChangeItem: TStringField;
    qyReportProductID: TStringField;
    qyReportChangeQuantity: TBCDField;
    qyReportChangeAmount: TBCDField;
    qyReportProductName: TStringField;
    qyReportWarehouseName: TStringField;
    qyReportChangeName: TStringField;
    QRShape2: TQRShape;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRDBText8: TQRDBText;
    QRDBText9: TQRDBText;
    QRDBText10: TQRDBText;
    QRDBText11: TQRDBText;
    QRDBText12: TQRDBText;
    procedure qyReportBeforeOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure IN110Print(ChangeID: String);

var
  qrIN110: TqrIN110;

implementation

uses Main;

var
  sChangeID : String;

{$R *.dfm}

procedure IN110Print(ChangeID: String);
begin
  sChangeID := ChangeID;
  qrIN110.Preview;
end;

procedure TqrIN110.qyReportBeforeOpen(DataSet: TDataSet);
begin
  inherited;
  with qyReport do
  begin
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('ChangeID').AsString := sChangeID;
  end;
end;

end.