📄 oe112a.pas
字号:
unit oe112a;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBTables, Db, quickrpt, ExtCtrls, Qrctrls, Grids, DBGrids;
type
Toe112aForm = class(TForm)
QuickRep1: TQuickRep;
QRBand2: TQRBand;
rptTable: TTable;
QRBand3: TQRBand;
QRLabel28: TQRLabel;
QRBand1: TQRBand;
QRLabel29: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRLabel1: TQRLabel;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
QRDBText20: TQRDBText;
QRDBText21: TQRDBText;
QRDBText22: TQRDBText;
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRDBText29: TQRDBText;
QRDBText30: TQRDBText;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
QRExpr3: TQRExpr;
QRDBText31: TQRDBText;
QRDBText32: TQRDBText;
QRGroup1: TQRGroup;
QRDBText33: TQRDBText;
QRDBText34: TQRDBText;
QRDBText35: TQRDBText;
QRDBText36: TQRDBText;
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
oe112aForm: Toe112aForm;
implementation
{$R *.DFM}
procedure Toe112aForm.QuickRep1BeforePrint(Sender: TQuickRep;
var PrintReport: Boolean);
begin
sender.DataSet.First;
end;
procedure Toe112aForm.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
If rptTable.FieldByName('tran_name').AsString = '簿
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -