trn300a.pas

公司ERP系统

unit trn300a;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, quickrpt, ExtCtrls, Qrctrls, Grids, DBGrids;

type
  Ttrn300aForm = class(TForm)
    QuickRep1: TQuickRep;
    rptTable: TTable;
    QRBand1: TQRBand;
    QRDBText14: TQRDBText;
    QRDBText15: TQRDBText;
    QRDBText16: TQRDBText;
    QRDBText18: TQRDBText;
    QRDBText19: TQRDBText;
    QRDBText20: TQRDBText;
    QRDBText21: TQRDBText;
    QRDBText23: TQRDBText;
    QRDBText25: TQRDBText;
    QRDBText27: TQRDBText;
    QRDBText32: TQRDBText;
    QRGroup1: TQRGroup;
    QRDBText34: TQRDBText;
    rptTableCust_desc: TStringField;
    rptTableCust_no: TStringField;
    rptTableCust_name: TStringField;
    rptTableSlip_no: TSmallintField;
    rptTablePage: TSmallintField;
    rptTableYy: TSmallintField;
    rptTableMm: TSmallintField;
    rptTableP_name: TStringField;
    rptTableSum_a1: TFloatField;
    rptTableSum_a2: TFloatField;
    rptTableSum_a3: TFloatField;
    rptTableSum_a: TFloatField;
    rptTableSum_b1: TFloatField;
    rptTableSum_b2: TFloatField;
    rptTableSum_b3: TFloatField;
    rptTableSum_b4: TFloatField;
    rptTableSum_b: TFloatField;
    rptTableSum_c1: TFloatField;
    rptTableSum_c2: TFloatField;
    rptTableSum_c3: TFloatField;
    rptTableSum_c: TFloatField;
    rptTableAr_slip_date: TStringField;
    rptTableAr_slip_no: TStringField;
    rptTableInvoice_no: TStringField;
    rptTableItem_desc: TStringField;
    rptTableDial: TFloatField;
    rptTableLength: TFloatField;
    rptTableQty: TFloatField;
    rptTableUnit_price: TFloatField;
    rptTableUnit_measure: TStringField;
    rptTableRec_amt: TFloatField;
    rptTableRemark: TStringField;
    QRDBText17: TQRDBText;
    QRDBText22: TQRDBText;
    QRDBText24: TQRDBText;
    QRDBText26: TQRDBText;
    QRDBText28: TQRDBText;
    QRDBText29: TQRDBText;
    QRDBText30: TQRDBText;
    QRDBText31: TQRDBText;
    QRDBText39: TQRDBText;
    QRDBText40: TQRDBText;
    QRDBText41: TQRDBText;
    QRLabel2: TQRLabel;
    QRDBText46: TQRDBText;
    QRDBText47: TQRDBText;
    QRDBText48: TQRDBText;
    QRDBText49: TQRDBText;
    QRDBText50: TQRDBText;
    QRDBText51: TQRDBText;
    QRDBText52: TQRDBText;
    QRDBText54: TQRDBText;
    QRDBText55: TQRDBText;
    QRDBText56: TQRDBText;
    QRGroup2: TQRGroup;
    QRDBText75: TQRDBText;
    QRSysData4: TQRSysData;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRSysData3: TQRSysData;
    QRSysData5: TQRSysData;
    QRSysData6: TQRSysData;
    QRSysData7: TQRSysData;
    QRSysData8: TQRSysData;
    rptTableTemp_name: TStringField;
    rptTableSum_p: TFloatField;
    rptTableSlip_amt: TFloatField;
    procedure QuickRep1BeforePrint(Sender: TQuickRep;
      var PrintReport: Boolean);
    procedure QRBand3BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    procedure QRBand3AfterPrint(Sender: TQRCustomBand;
      BandPrinted: Boolean);
  private
   { Private declarations }
  public
    { Public declarations }
  end;

var
  trn300aForm: Ttrn300aForm;

implementation
{$R *.DFM}



procedure Ttrn300aForm.QuickRep1BeforePrint(Sender: TQuickRep;
  var PrintReport: Boolean);
begin
  sender.DataSet.First;
end;

procedure Ttrn300aForm.QRBand3BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
 // If  rptTable.FieldByName('tran_name').AsString = '簿