📄 unit_rep_file.dfm
字号:
end
object QRShape7: TQRShape
Left = 1
Top = 227
Width = 716
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
2.64583333333333
600.604166666667
1894.41666666667)
Shape = qrsRectangle
end
object QRShape8: TQRShape
Left = 1
Top = 190
Width = 716
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
2.64583333333333
502.708333333333
1894.41666666667)
Shape = qrsRectangle
end
object QRShape9: TQRShape
Left = 1
Top = 152
Width = 716
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
2.64583333333333
402.166666666667
1894.41666666667)
Shape = qrsRectangle
end
object QRShape10: TQRShape
Left = 75
Top = 113
Width = 1
Height = 267
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
706.4375
198.4375
298.979166666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape11: TQRShape
Left = 189
Top = 113
Width = 1
Height = 115
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
304.270833333333
500.0625
298.979166666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape12: TQRShape
Left = 264
Top = 113
Width = 1
Height = 115
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
304.270833333333
698.5
298.979166666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape13: TQRShape
Left = 189
Top = 264
Width = 1
Height = 39
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
103.1875
500.0625
698.5
2.64583333333333)
Shape = qrsRectangle
end
object QRShape14: TQRShape
Left = 264
Top = 264
Width = 1
Height = 39
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
103.1875
698.5
698.5
2.64583333333333)
Shape = qrsRectangle
end
object QRShape15: TQRShape
Left = 378
Top = 113
Width = 1
Height = 190
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
502.708333333333
1000.125
298.979166666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape16: TQRShape
Left = 454
Top = 113
Width = 1
Height = 190
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
502.708333333333
1201.20833333333
298.979166666667
2.64583333333333)
Shape = qrsRectangle
end
end
object QRGroup1: TQRGroup
Left = 38
Top = 417
Width = 718
Height = 22
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
BeforePrint = QRGroup1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
58.2083333333333
1899.70833333333)
Expression = 'ADOQuery1.flag'
Master = QuickRep1
ReprintOnNewPage = False
object QRDBText1: TQRDBText
Left = 104
Top = 2
Width = 21
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
275.166666666667
5.29166666666667
55.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = 'flag'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel38: TQRLabel
Left = 3
Top = 3
Width = 711
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
7.9375
7.9375
1881.1875)
Alignment = taCenter
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = 'QRLabel38'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object DetailBand1: TQRBand
Left = 38
Top = 439
Width = 718
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
Frame.Style = psDot
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
66.1458333333333
1899.70833333333)
BandType = rbDetail
object QRDBRichText1: TQRDBRichText
Left = 3
Top = 3
Width = 711
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
Size.Values = (
47.625
7.9375
7.9375
1881.1875)
Alignment = taLeftJustify
AutoStretch = True
Color = clWindow
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
DataField = 'note'
DataSet = ADOQuery1
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 466
Width = 718
Height = 23
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 = (
60.8541666666667
1899.70833333333)
BandType = rbPageFooter
object QRSysData2: TQRSysData
Left = 630
Top = 3
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1666.875
7.9375
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 10
end
object QRLabel39: TQRLabel
Left = 591
Top = 3
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1563.6875
7.9375
95.25)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029#30721':'
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 464
Width = 718
Height = 2
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 = (
5.29166666666667
1899.70833333333)
BandType = rbSummary
end
end
object ADOQuery1: TADOQuery
Connection = DM.ADOC
Parameters = <
item
Name = 'midh'
Attributes = [paNullable]
DataType = ftString
NumericScale = 255
Precision = 255
Size = 14
Value = Null
end>
SQL.Strings = (
'select * from Notes where idh=:midh order by dat')
Left = 48
Top = 47
object ADOQuery1sno: TAutoIncField
FieldName = 'sno'
ReadOnly = True
end
object ADOQuery1bh: TStringField
FieldName = 'bh'
FixedChar = True
Size = 10
end
object ADOQuery1dat: TDateTimeField
FieldName = 'dat'
end
object ADOQuery1note: TMemoField
FieldName = 'note'
BlobType = ftMemo
end
object ADOQuery1idh: TStringField
FieldName = 'idh'
FixedChar = True
Size = 14
end
object ADOQuery1flag: TStringField
FieldName = 'flag'
FixedChar = True
Size = 4
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -