rp_contract_order.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit rp_contract_order;

interface

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

type
  TQReport_contract_order = class(TForm)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRDBText1: TQRDBText;
    QRDBText3: TQRDBText;
    QRLabel1: TQRLabel;
    PageHeaderBand1: TQRBand;
    QRSysData1: TQRSysData;
    QRSysData2: TQRSysData;
    QRSubDetailOrders: TQRSubDetail;
    QRDBText4: TQRDBText;
    QRDBText9: TQRDBText;
    QRSubDetailItems: TQRSubDetail;
    QRShapeGray: TQRShape;
    QRDBText5: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText6: TQRDBText;
    QRDBText7: TQRDBText;
    QRDBOrderNo: TQRDBText;
    QRDBSalesDate: TQRDBText;
    QRGroupCust: TQRGroup;
    GroupFooterBand1: TQRBand;
    dscontract: TDataSource;
    dsmachine: TDataSource;
    qryCustomer: TQuery;
    qryOrders: TQuery;
    qryItems: TQuery;
    Query1: TADOQuery;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    procedure PageHeaderBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QReport_contract_order: TQReport_contract_order;

implementation

{$R *.dfm}

procedure TQReport_contract_order.PageHeaderBand1BeforePrint(
  Sender: TQRCustomBand; var PrintBand: Boolean);
begin
// Re-enable the order fields on the item subdetail so that the order
  // information will be repeated after a page break
  //QRDBOrderNo.Enabled := true;
  //QRDBSalesDate.Enabled := QRDBOrderNo.Enabled;
end;

end.