?? rpt1.pas
字號:
unit Rpt1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, ExtCtrls, QRCtrls;
type
TFrm_Rpt1 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel1: TQRLabel;
QLB_YJ: TQRLabel;
QLB_CZ: TQRLabel;
QLB_YP: TQRLabel;
QLB_XY: TQRLabel;
QLB_QT: TQRLabel;
QLB_HT: TQRLabel;
QRLabel7: TQRLabel;
QLB_ZS: TQRLabel;
QRShape1: TQRShape;
QRLabel8: TQRLabel;
QRSysData1: TQRSysData;
QRLabel9: TQRLabel;
QLB_Title: TQRLabel;
QRShape2: TQRShape;
QRLabel11: TQRLabel;
QLB_YYJE: TQRLabel;
QRLabel12: TQRLabel;
QLB_OpName: TQRLabel;
QRSysData2: TQRSysData;
procedure QLB_YJPrint(sender: TObject; var Value: String);
procedure QLB_CZPrint(sender: TObject; var Value: String);
procedure QLB_YPPrint(sender: TObject; var Value: String);
procedure QLB_XYPrint(sender: TObject; var Value: String);
procedure QLB_QTPrint(sender: TObject; var Value: String);
procedure QLB_HTPrint(sender: TObject; var Value: String);
procedure QLB_ZSPrint(sender: TObject; var Value: String);
procedure QLB_YYJEPrint(sender: TObject; var Value: String);
procedure QLB_OpNamePrint(sender: TObject; var Value: String);
procedure QLB_TitlePrint(sender: TObject; var Value: String);
procedure QRLabel12Print(sender: TObject; var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_Rpt1: TFrm_Rpt1;
implementation
uses HandIn, sys_global ;
{$R *.dfm}
procedure TFrm_Rpt1.QLB_YJPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_YJ.Caption ;
end;
procedure TFrm_Rpt1.QLB_CZPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_CZ.Caption ;
end;
procedure TFrm_Rpt1.QLB_YPPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_YP.Caption ;
end;
procedure TFrm_Rpt1.QLB_XYPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_XY.Caption ;
end;
procedure TFrm_Rpt1.QLB_QTPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_QT.Caption ;
end;
procedure TFrm_Rpt1.QLB_HTPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_HT.Caption ;
end;
procedure TFrm_Rpt1.QLB_ZSPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_ZS.Caption ;
end;
procedure TFrm_Rpt1.QLB_YYJEPrint(sender: TObject; var Value: String);
begin
Value := frm_handin.LB_YYJE.Caption ;
end;
procedure TFrm_Rpt1.QLB_OpNamePrint(sender: TObject; var Value: String);
begin
Value := M_OpName ;
end;
procedure TFrm_Rpt1.QLB_TitlePrint(sender: TObject; var Value: String);
begin
if m_mode = 'b' then value := '每日交班表' ;
if m_mode = 'k' then value := '每日交款表' ;
end;
procedure TFrm_Rpt1.QRLabel12Print(sender: TObject; var Value: String);
begin
if m_mode = 'b' then value := '交班人:' ;
if m_mode = 'k' then value := '交款人:' ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -