📄 qbsrbbpt.pas
字号:
unit qbSrbbpt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
QuickRpt, Qrctrls, ExtCtrls, DBTables, Db;
type
Tqbsrbbptform = class(TForm)
qr1: TQuickRep;
QRBand1: TQRBand;
QRLabel1: TQRLabel;
QRSubDetail2: TQRSubDetail;
QRSubDetail3: TQRSubDetail;
QRLabel23: TQRLabel;
QRSubDetail4: TQRSubDetail;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel6: TQRLabel;
QRRichText3: TQRRichText;
QRLabel9: TQRLabel;
QRLabel12: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText4: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText11: TQRDBText;
QRRichText13: TQRRichText;
QRRichText14: TQRRichText;
QRRichText16: TQRRichText;
QRRichText17: TQRRichText;
QRRichText18: TQRRichText;
QRRichText19: TQRRichText;
QRRichText20: TQRRichText;
QRRichText22: TQRRichText;
QRRichText23: TQRRichText;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRLabel5: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRRichText1: TQRRichText;
QRRichText2: TQRRichText;
QRRichText4: TQRRichText;
QRRichText5: TQRRichText;
QRRichText6: TQRRichText;
QRRichText7: TQRRichText;
QRRichText9: TQRRichText;
QRRichText10: TQRRichText;
QRDBText3: TQRDBText;
QRLabel4: TQRLabel;
QRLabel10: TQRLabel;
QRDBText5: TQRDBText;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
qbsrbbptform: Tqbsrbbptform;
implementation
uses dataproc,qbsrbb;
{$R *.DFM}
procedure Tqbsrbbptform.FormCreate(Sender: TObject);
begin
QRLabel1.Left:=strtoint(floattostr(int((QRBand1.Width-QRLabel1.Width)/2)));
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -