?? sy_jyspnxstjb_rpt.pas
字號:
{*******************************************************}
{ }
{ 集郵商品業務收入統計表打印 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制:中軟金馬郵資票品項目開發組 }
{ }
{ }
{*******************************************************}
(*
省級集郵票管理 ,地市集郵票
*)
unit SY_JYSPNXSTJB_RPT;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls, Db, DBTables, RxQuery;
type
TJYSPNXSTJB_RPT = class(TQuickRep)
Qry_Print: TRxQuery;
UpdateSQL1: TUpdateSQL;
PageHeaderBand1: TQRBand;
QRSysData1: TQRSysData;
QRImage1: TQRImage;
QRLabel11: TQRLabel;
QRShape6: TQRShape;
QRBand1: TQRBand;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRShape17: TQRShape;
QRShape19: TQRShape;
QRLabel41: TQRLabel;
QRLabel42: TQRLabel;
QRLabel43: TQRLabel;
QRLabel44: TQRLabel;
QRShape20: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText12: TQRDBText;
QRLabel45: TQRLabel;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape8: TQRShape;
procedure QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
private
public
ND: String;
BJXJ: string;
end;
var
JYSPNXSTJB_RPT: TJYSPNXSTJB_RPT;
implementation
{$R *.DFM}
procedure TJYSPNXSTJB_RPT.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
Qry_Print.Close;
Qry_Print.ParamByName('ND').AsString := ND;
Qry_Print.MacroByName('BJXJ').AsString := BJXJ;
Qry_print.Open;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -