📄 unit10.dfm
字号:
WordWrap = True
FontSize = 8
end
object QRLabelDishName: TQRLabel
Left = 76
Top = 4
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
201.083333333333
10.5833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = #33756#35889#21517#31216
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 8
end
end
object QRSubDetail1: TQRSubDetail
Left = 48
Top = 167
Width = 698
Height = 36
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = True
Frame.DrawRight = True
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
95.25
1846.79166666667)
Master = QuickRep1
DataSet = TableOrdered
FooterBand = GroupFooterBand1
HeaderBand = DetailBand1
PrintBefore = False
PrintIfEmpty = False
object QRDBTextTableNum: TQRDBText
Left = 112
Top = 9
Width = 49
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
296.333333333333
23.8125
129.645833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableOrdered
DataField = 'TableNum'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextUserID: TQRDBText
Left = 174
Top = 9
Width = 51
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
460.375
23.8125
134.9375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableOrdered
DataField = 'UserID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextAmount: TQRDBText
Left = 240
Top = 9
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
635
23.8125
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableOrdered
DataField = 'Amount'
Mask = '#0.00'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextDate: TQRDBText
Left = 284
Top = 9
Width = 61
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
751.416666666667
23.8125
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableOrdered
DataField = 'Date'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBTextTime: TQRDBText
Left = 359
Top = 9
Width = 58
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
949.854166666667
23.8125
153.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = TableOrdered
DataField = 'Time'
Transparent = False
WordWrap = True
FontSize = 10
end
end
object PageFooterBand1: TQRBand
Left = 48
Top = 243
Width = 698
Height = 25
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 = (
66.1458333333333
1846.79166666667)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 4
Top = 8
Width = 81
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
21.1666666666667
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Text = 'Printed '
Transparent = False
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 618
Top = 8
Width = 80
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1635.125
21.1666666666667
211.666666666667)
Alignment = taRightJustify
AlignToBand = True
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Text = 'Page '
Transparent = False
FontSize = 10
end
end
object ChildBand1: TQRChildBand
Left = 48
Top = 228
Width = 698
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psClear
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
39.6875
1846.79166666667)
ParentBand = GroupFooterBand1
end
object GroupFooterBand1: TQRBand
Left = 48
Top = 203
Width = 698
Height = 25
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 = (
66.1458333333333
1846.79166666667)
BandType = rbGroupFooter
object QRLabelTotal: TQRLabel
Left = 4
Top = 2
Width = 81
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
5.29166666666667
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38144#21806#24635#25968#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExprTotal: TQRExpr
Left = 94
Top = 2
Width = 164
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
248.708333333333
5.29166666666667
433.916666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'SUM(TableOrdered.Amount)'
FontSize = 10
end
end
end
object TableDish: TTable
Active = True
DatabaseName = 'Ch14'
TableName = 'Dish.DB'
Left = 24
Top = 16
end
object TableOrdered: TTable
Active = True
DatabaseName = 'Ch14'
IndexFieldNames = 'DishNum'
MasterFields = 'DishNum'
MasterSource = DataSource1
TableName = 'Ordered.DB'
Left = 24
Top = 48
object TableOrderedDishNum: TIntegerField
FieldName = 'DishNum'
end
object TableOrderedTableNum: TIntegerField
FieldName = 'TableNum'
end
object TableOrderedDate: TDateField
FieldName = 'Date'
end
object TableOrderedTime: TTimeField
FieldName = 'Time'
end
object TableOrderedAmount: TFloatField
FieldName = 'Amount'
end
object TableOrderedStatus: TStringField
FieldName = 'Status'
Size = 10
end
object TableOrderedUserID: TIntegerField
FieldName = 'UserID'
end
end
object DataSource1: TDataSource
DataSet = TableDish
Left = 56
Top = 16
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -