📄 printmonthunit.dfm
字号:
object PrintMonthForm: TPrintMonthForm
Left = 120
Top = 87
Width = 800
Height = 483
Caption = #20179#24211#36827#36135#32479#35745#25253#34920
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object QuickRep_ckjhmx: TQuickRep
Left = 0
Top = 0
Width = 1123
Height = 794
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = ADOQuery_DATA
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
OnPreview = QuickRep_ckjhmxPreview
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poLandscape
Page.PaperSize = A4
Page.Values = (
127
2100
127
2970
127
127
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = First
PrintIfEmpty = True
SnapToGrid = True
Units = Inches
Zoom = 100
object PageFooterBand1: TQRBand
Left = 48
Top = 244
Width = 1027
Height = 21
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
55.5625
2717.27083333333)
BandType = rbPageFooter
object QRExpr11: TQRExpr
Left = 870
Top = 4
Width = 157
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
2301.875
10.5833333333333
415.395833333333)
Alignment = taRightJustify
AlignToBand = True
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#31532' '#39' + PageNumber + '#39' '#39029#39
FontSize = 9
end
object QRL_printdate: TQRLabel
Left = 0
Top = 8
Width = 79
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
21.1666666666667
209.020833333333)
Alignment = taLeftJustify
AlignToBand = True
AutoSize = True
AutoStretch = False
Caption = 'QRL_printdate'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 9
end
object QRExpr1: TQRExpr
Left = 251
Top = 6
Width = 548
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
664.104166666667
15.875
1449.91666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#21512#35745#65306#39'+FORMATNUMERIC('#39#65509'0.00'#39',sum(ADOQuery_DATA.'#21333#20215'))'
FontSize = 11
end
end
object TitleBand1: TQRBand
Left = 48
Top = 48
Width = 1027
Height = 109
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
288.395833333333
2717.27083333333)
BandType = rbTitle
object QRS_TITLE: TQRSysData
Left = 320
Top = 41
Width = 386
Height = 30
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375
846.666666666667
108.479166666667
1021.29166666667)
Alignment = taCenter
AlignToBand = True
AutoSize = True
Color = clWhite
Data = qrsReportTitle
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
Text = #20179#24211#36827#36135#32479#35745#34920
Transparent = False
FontSize = 20
end
object QRExpr13: TQRExpr
Left = 0
Top = 91
Width = 103
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
240.770833333333
272.520833333333)
Alignment = taLeftJustify
AlignToBand = True
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#25171#21360#26085#26399#65306#39'+DATE'
FontSize = 9
end
end
object ColumnHeaderBand1: TQRBand
Left = 48
Top = 157
Width = 1027
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Width = 2
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
58.2083333333333
2717.27083333333)
BandType = rbColumnHeader
object QRLabel3: TQRLabel
Left = 74
Top = 2
Width = 61
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
195.791666666667
5.29166666666667
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36827#36135#26102#38388
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel2: TQRLabel
Left = 217
Top = 2
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
574.145833333333
5.29166666666667
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21697#21517
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel5: TQRLabel
Left = 378
Top = 2
Width = 31
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
1000.125
5.29166666666667
82.0208333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #22411#21495
Color = clWhite
Font.Charset = GB2312_CHARSET
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -