?? ba260report.dfm
字號:
inherited qrBA260: TqrBA260
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 = #37504#34892#32232#34399#23565#29031#34920
FontSize = 16
end
inherited QRLabel4: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
0
150.8125)
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 40
Size.Values = (
44.9791666666667
1778
0
105.833333333333)
Caption = 'BA260'
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 4
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
10.5833333333333
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37504#34892#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 72
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
190.5
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37504#34892#31777#31281
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 168
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
444.5
222.25
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37504#34892#20840#21517
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Size.Values = (
60.8541666666667
2000.25)
object QRDBText1: TQRDBText
Left = 4
Top = 4
Width = 43
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
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'BankID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 72
Top = 4
Width = 96
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
190.5
10.5833333333333
254)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'BankAttribName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 168
Top = 4
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
444.5
10.5833333333333
171.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'BankName'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Size.Values = (
44.9791666666667
1651
52.9166666666667
82.0208333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
164.041666666667)
FontSize = 10
end
end
inherited qyReport: TQuery
BeforeOpen = qyReportBeforeOpen
SQL.Strings = (
'SELECT BankID, BankAttribName, BankName'
'FROM Bank'
'WHERE CompanyID = :CompanyID'
'AND BankID >= :BeginBankID'
'AND BankID <= :EndBankID'
'ORDER BY BankID')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginBankID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndBankID'
ParamType = ptUnknown
end>
object qyReportBankID: TStringField
FieldName = 'BankID'
Origin = 'KINGSBYPRG.Bank.BankID'
FixedChar = True
Size = 7
end
object qyReportBankAttribName: TStringField
FieldName = 'BankAttribName'
Origin = 'KINGSBYPRG.Bank.BankAttribName'
FixedChar = True
Size = 12
end
object qyReportBankName: TStringField
FieldName = 'BankName'
Origin = 'KINGSBYPRG.Bank.BankName'
FixedChar = True
Size = 40
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -