📄 unit2.dfm
字号:
Width = 1
Height = 32
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
84.6666666666667
547.6875
0
2.64583333333333)
Shape = qrsVertLine
end
object QRShape6: TQRShape
Left = 315
Top = 0
Width = 1
Height = 32
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
84.6666666666667
833.4375
0
2.64583333333333)
Shape = qrsVertLine
end
end
object DetailBand1: TQRBand
Left = 38
Top = 110
Width = 718
Height = 32
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
84.6666666666667
1899.70833333333)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 8
Top = 8
Width = 55
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
21.1666666666667
21.1666666666667
145.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryEmployee
DataField = 'LAST_NAME'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText2: TQRDBText
Left = 120
Top = 8
Width = 61
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
317.5
21.1666666666667
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryEmployee
DataField = 'FIRST_NAME'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText3: TQRDBText
Left = 216
Top = 8
Width = 55
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
571.5
21.1666666666667
145.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryEmployee
DataField = 'HIRE_DATE'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape3: TQRShape
Left = 315
Top = -1
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
833.4375
-2.64583333333333
2.64583333333333)
Shape = qrsVertLine
end
object QRDBText4: TQRDBText
Left = 328
Top = 8
Width = 37
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
867.833333333333
21.1666666666667
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = QueryEmployee
DataField = 'SALARY'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape1: TQRShape
Left = 112
Top = 0
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
296.333333333333
0
2.64583333333333)
Shape = qrsVertLine
end
object QRShape2: TQRShape
Left = 207
Top = 0
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
547.6875
0
2.64583333333333)
Shape = qrsVertLine
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 142
Width = 718
Height = 59
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 = (
156.104166666667
1899.70833333333)
BandType = rbSummary
object QRExpr3: TQRExpr
Left = 0
Top = 16
Width = 109
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
42.3333333333333
288.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#38599#21592#24635#25968#65306#39'+COUNT'
FontSize = 9
end
object QRExpr4: TQRExpr
Left = 0
Top = 32
Width = 229
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
84.6666666666667
605.895833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39' '#24635#24037#36164#65306#39'+SUM(QueryEmployee.SALARY)'
FontSize = 9
end
object QRExpr5: TQRExpr
Left = 0
Top = 48
Width = 253
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
0
127
669.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = #39#24179#22343#24037#36164#65306#39'+AVERAGE(QueryEmployee.SALARY)'
FontSize = 9
end
end
end
object ReportDatabase: TDatabase
AliasName = 'IBLocal'
Connected = True
DatabaseName = 'ReportDatabase'
LoginPrompt = False
Params.Strings = (
'USER NAME=SYSDBA'
'PASSWORD=masterkey')
SessionName = 'Default'
Left = 40
Top = 8
end
object QueryEmployee: TQuery
Active = True
DatabaseName = 'ReportDatabase'
SQL.Strings = (
'SELECT EMP_NO, Last_Name, First_Name, Hire_Date, Salary'
'FROM Employee'
'ORDER BY Last_Name')
Left = 80
Top = 8
object QueryEmployeeEMP_NO: TSmallintField
FieldName = 'EMP_NO'
end
object QueryEmployeeLAST_NAME: TStringField
FieldName = 'LAST_NAME'
end
object QueryEmployeeFIRST_NAME: TStringField
FieldName = 'FIRST_NAME'
Size = 15
end
object QueryEmployeeHIRE_DATE: TDateTimeField
FieldName = 'HIRE_DATE'
DisplayFormat = 'YYYY'#39#24180#39'MM'#39#26376#39'DD'#39#26085#39
end
object QueryEmployeeSALARY: TFloatField
FieldName = 'SALARY'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -