📄 ba270report.~dfm
字号:
inherited qrBA270: TqrBA270
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
Width = 71
Size.Values = (
44.9791666666667
1778
52.9166666666667
187.854166666667)
FontSize = 10
end
inherited QRSysData2: TQRSysData
Width = 8
Size.Values = (
44.9791666666667
1778
105.833333333333
21.1666666666667)
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 = 293
Width = 169
Size.Values = (
58.2083333333333
775.229166666667
63.5
447.145833333333)
Caption = #26989#21209#21729#22522#26412#36039#26009#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 = 'BA270'
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 4
Top = 84
Width = 66
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
222.25
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26989#21209#21729#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 76
Top = 84
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
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20013#25991#22995#21517
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 144
Top = 84
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
381
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #33521#25991#21517#23383
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 264
Top = 84
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
698.5
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36899#32097#38651#35441
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel10: TQRLabel
Left = 408
Top = 84
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1079.5
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #34892#21205#38651#35441
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 508
Top = 84
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1344.08333333333
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38651#23376#37109#20214
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Height = 44
Size.Values = (
116.416666666667
2000.25)
object QRDBText1: TQRDBText
Left = 4
Top = 4
Width = 71
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
10.5833333333333
10.5833333333333
187.854166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SalesManID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 76
Top = 4
Width = 78
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
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ChineseName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 144
Top = 4
Width = 78
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
381
10.5833333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'EnglishName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 260
Top = 4
Width = 85
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
687.916666666667
10.5833333333333
224.895833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ContactPhone'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 408
Top = 4
Width = 78
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1079.5
10.5833333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'MobilePhone'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 508
Top = 4
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1344.08333333333
10.5833333333333
95.25)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'EMail'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 260
Top = 24
Width = 99
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
687.916666666667
63.5
261.9375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ContactAddress'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 169
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
inherited qyReport: TQuery
Active = True
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT SalesManID, ChineseName, EnglishName,'
'ContactPhone, MobilePhone, ContactAddress, EMail'
'FROM SalesMan'
'WHERE CompanyID = :CompanyID'
'AND SalesManID >= :BeginSalesManID'
'AND SalesManID <= :EndSalesManID'
'ORDER BY SalesManID')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
Value = 'KS'
end
item
DataType = ftString
Name = 'BeginSalesManID'
ParamType = ptUnknown
Value = '0000'
end
item
DataType = ftString
Name = 'EndSalesManID'
ParamType = ptUnknown
Value = 'ZZZZ'
end>
object qyReportSalesManID: TStringField
FieldName = 'SalesManID'
Origin = 'KINGSBYPRG.SalesMan.SalesManID'
FixedChar = True
Size = 4
end
object qyReportChineseName: TStringField
FieldName = 'ChineseName'
Origin = 'KINGSBYPRG.SalesMan.ChineseName'
FixedChar = True
Size = 8
end
object qyReportEnglishName: TStringField
FieldName = 'EnglishName'
Origin = 'KINGSBYPRG.SalesMan.EnglishName'
FixedChar = True
Size = 15
end
object qyReportContactPhone: TStringField
FieldName = 'ContactPhone'
Origin = 'KINGSBYPRG.SalesMan.ContactPhone'
FixedChar = True
end
object qyReportMobilePhone: TStringField
FieldName = 'MobilePhone'
Origin = 'KINGSBYPRG.SalesMan.MobilePhone'
FixedChar = True
Size = 10
end
object qyReportContactAddress: TStringField
FieldName = 'ContactAddress'
Origin = 'KINGSBYPRG.SalesMan.ContactAddress'
FixedChar = True
Size = 60
end
object qyReportEMail: TStringField
FieldName = 'EMail'
Origin = 'KINGSBYPRG.SalesMan.EMail'
FixedChar = True
Size = 30
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -