?? rpt4.pas
字號:
unit Rpt4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls;
type
TFrm_Rpt4 = class(TForm)
QuickRep1: TQuickRep;
ColumnHeaderBand1: TQRBand;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
SummaryBand1: TQRBand;
QLbl_title: TQRLabel;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRLabel9: TQRLabel;
QRExpr1: TQRExpr;
QRExpr2: TQRExpr;
QRLabel10: TQRLabel;
QRSysData1: TQRSysData;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
procedure QLbl_titlePrint(sender: TObject; var Value: String);
procedure QRLabel12Print(sender: TObject; var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Rpt4: TFrm_Rpt4;
implementation
uses sys_dm, sys_global ;
{$R *.dfm}
procedure TFrm_Rpt4.QLbl_titlePrint(sender: TObject; var Value: String);
begin
if m_mode = 'b' then value := '本日交班明細表';
if m_mode = 'k' then value := '本日交款明細表';
end;
procedure TFrm_Rpt4.QRLabel12Print(sender: TObject; var Value: String);
begin
value := m_OpName ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -