?? ar270report.dfm
字號:
inherited qrAR270: TqrAR270
Functions.DATA = (
'0'
'0'
#39#39)
Page.Values = (
50
2970
50
2100
50
50
0)
inherited bdPageHeader: TQRBand
Size.Values = (
280.458333333333
2000.25)
inherited CompanyName: TQRLabel
Size.Values = (
66.1458333333333
838.729166666667
0
322.791666666667)
FontSize = 16
end
inherited QRSysData1: TQRSysData
Size.Values = (
44.9791666666667
1778
52.9166666666667
113.770833333333)
FontSize = 10
end
inherited QRSysData2: TQRSysData
Size.Values = (
44.9791666666667
1778
105.833333333333
132.291666666667)
FontSize = 10
end
inherited QRLabel1: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
52.9166666666667
158.75)
FontSize = 10
end
inherited QRLabel2: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
105.833333333333
89.9583333333333)
FontSize = 10
end
inherited ReportName: TQRLabel
Left = 304
Width = 148
Size.Values = (
58.2083333333333
804.333333333333
63.5
391.583333333333)
Caption = #25033#25910#24115#27454#30064#21205#34920
FontSize = 16
end
inherited QRLabel4: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
0
158.75)
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 36
Size.Values = (
44.9791666666667
1778
0
95.25)
Caption = 'AR270'
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 273
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
722.3125
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21934#25818#31278#39006
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 344
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
910.166666666667
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21934#25818#26085#26399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 428
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1132.41666666667
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21934#25818#34399#30908
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 581
Top = 88
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1537.22916666667
232.833333333333
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37329#38989
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Top = 145
Size.Values = (
60.8541666666667
2000.25)
object QRDBText3: TQRDBText
Left = 277
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
732.895833333333
10.5833333333333
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'IDType'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 345
Top = 4
Width = 50
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
912.8125
10.5833333333333
132.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'JobDate'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 429
Top = 4
Width = 36
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1135.0625
10.5833333333333
95.25)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'JobID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 569
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1505.47916666667
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Amount'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 168
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Size.Values = (
44.9791666666667
1651
52.9166666666667
89.9583333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
150.8125)
FontSize = 10
end
end
object QRGroup1: TQRGroup [3]
Left = 19
Top = 125
Width = 756
Height = 20
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 = (
52.9166666666667
2000.25)
Expression = 'qyReport.CustomerID'
Master = Owner
ReprintOnNewPage = False
object QRLabel7: TQRLabel
Left = 4
Top = 4
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23458#25142#31777#31281':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 68
Top = 4
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
179.916666666667
10.5833333333333
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'CustomerID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 136
Top = 4
Width = 127
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
359.833333333333
10.5833333333333
336.020833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'CustomerAttribName'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
Active = True
CachedUpdates = True
RequestLive = True
SQL.Strings = (
'SELECT CustomerID, CustomerAttribName,'
'SPACE(8) AS JobDate, SPACE(10) AS JobID, SPACE(8) AS IDType,'
'0 AS Amount'
'FROM CustomerMaster'
'WHERE CompanyID = '#39'~~'#39)
UpdateObject = UpdateSQL1
object qyReportCustomerID: TStringField
FieldName = 'CustomerID'
FixedChar = True
Size = 8
end
object qyReportCustomerAttribName: TStringField
FieldName = 'CustomerAttribName'
FixedChar = True
Size = 10
end
object qyReportJobDate: TStringField
FieldName = 'JobDate'
FixedChar = True
Size = 8
end
object qyReportJobID: TStringField
FieldName = 'JobID'
FixedChar = True
Size = 10
end
object qyReportIDType: TStringField
FieldName = 'IDType'
FixedChar = True
Size = 8
end
object qyReportAmount: TIntegerField
FieldName = 'Amount'
DisplayFormat = '#,##0'
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update CustomerMaster'
'set'
' CustomerID = :CustomerID,'
' CustomerAttribName = :CustomerAttribName'
'where'
' CustomerID = :OLD_CustomerID and'
' CustomerAttribName = :OLD_CustomerAttribName')
InsertSQL.Strings = (
'insert into CustomerMaster'
' (CustomerID, CustomerAttribName)'
'values'
' (:CustomerID, :CustomerAttribName)')
DeleteSQL.Strings = (
'delete from CustomerMaster'
'where'
' CustomerID = :OLD_CustomerID and'
' CustomerAttribName = :OLD_CustomerAttribName')
Left = 100
Top = 8
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -