frmprint_zd.pas

实用的茶楼管理系统

unit frmPrint_ZD;

interface

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

type
  TprintForm_ZD = class(TForm)
    QRep: TQuickRep;
    ColumnHeaderBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRShape1: TQRShape;
    DetailBand1: TQRBand;
    qText_Name: TQRDBText;
    qText_price: TQRDBText;
    SummaryBand1: TQRBand;
    qLabel_SumPrice: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    TitleBand1: TQRBand;
    QRLabel1: TQRLabel;
    qLabel_SSJE: TQRLabel;
    QueDetail: TADOQuery;
    QLabel_Time: TQRLabel;
    QRShape2: TQRShape;
  private
    { Private declarations }
  public
//    constructor CreateQRep(TableID:string;total:string;SSJE:string);
//    destructor Destroy; override;
    procedure getDetail(TableID:string;total:string;SSJE:string);
  end;

var
  printForm_ZD: TprintForm_ZD;

implementation
uses dataModule;

{$R *.dfm}

procedure TprintForm_ZD.getDetail(TableID:string;total:string;SSJE:string);
begin
  QueDetail.SQL.Text:='select tOrderDetail.MenuID,menu.name,menu.price from tOrderDetail,menu where tOrderDetail.MenuID=menu.ID and tOrderDetail.cTableID='''+TableID+'''';
  QueDetail.Open;

  qLabel_SumPrice.Caption :=total;
  qLabel_SSJE.Caption :=SSJE;
  QLabel_Time.Caption :='日期 '+FormatDateTime('YYYY-MM-DD  HH:MM:SS',now);
end;


end.