📄 unit14.~dfm
字号:
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
84.666666666666670000
2770.187500000000000000)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 0
Top = 14
Width = 64
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
0.000000000000000000
37.041666666666670000
169.333333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_no'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText2: TQRDBText
Left = 90
Top = 14
Width = 78
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
238.125000000000000000
37.041666666666670000
206.375000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_name'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText3: TQRDBText
Left = 170
Top = 14
Width = 85
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
449.791666666666700000
37.041666666666670000
224.895833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_score'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText4: TQRDBText
Left = 353
Top = 14
Width = 71
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
933.979166666666700000
37.041666666666670000
187.854166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_sex'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText5: TQRDBText
Left = 427
Top = 14
Width = 78
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1129.770833333333000000
37.041666666666670000
206.375000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_type'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText6: TQRDBText
Left = 530
Top = 14
Width = 71
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1402.291666666667000000
37.041666666666670000
187.854166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_dep'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText7: TQRDBText
Left = 625
Top = 14
Width = 71
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1653.645833333333000000
37.041666666666670000
187.854166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_tel'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText8: TQRDBText
Left = 714
Top = 14
Width = 85
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1889.125000000000000000
37.041666666666670000
224.895833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_email'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText9: TQRDBText
Left = 267
Top = 14
Width = 92
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
706.437500000000000000
37.041666666666670000
243.416666666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_amount'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText10: TQRDBText
Left = 915
Top = 14
Width = 113
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
2420.937500000000000000
37.041666666666670000
298.979166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery3
DataField = 'reader_checkdate'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 134
Width = 1047
Height = 32
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 = (
84.666666666666670000
2770.187500000000000000)
BandType = rbPageFooter
end
object TitleBand1: TQRBand
Left = 38
Top = 38
Width = 1047
Height = 32
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clActiveBorder
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
84.666666666666670000
2770.187500000000000000)
BandType = rbTitle
object QRLabel1: TQRLabel
Left = 307
Top = 0
Width = 181
Height = 30
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375000000000000000
812.270833333333300000
0.000000000000000000
478.895833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #35835#32773#20449#29992#20998#26512
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 22
end
end
end
object DataSource1: TDataSource
DataSet = ADOQuery3
Left = 120
Top = 8
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=library'
Parameters = <>
Left = 72
Top = 8
end
object ADOQuery2: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=library'
Parameters = <>
Left = 96
Top = 8
end
object ADOQuery3: TADOQuery
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=library'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from Readers')
Left = 152
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -