📄 main.dfm
字号:
Left = 38
Top = 38
Width = 612
Height = 131
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 = (
346.604166666666700000
1619.250000000000000000)
BandType = rbPageHeader
object QRLabel1: TQRLabel
Left = 256
Top = 48
Width = 177
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.916666666666660000
677.333333333333400000
127.000000000000000000
468.312500000000100000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31995#32479#30331#38470#29992#25143#26597#35810#19968#35272#34920
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 12
end
object QRLabel2: TQRLabel
Left = 8
Top = 112
Width = 66
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
21.166666666666670000
296.333333333333400000
174.625000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21333#20301#21517#31216#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 72
Top = 112
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
190.500000000000000000
296.333333333333400000
150.812500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel3'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 288
Top = 112
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
762.000000000000000000
296.333333333333400000
150.812500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel4'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 368
Top = 112
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
973.666666666666900000
296.333333333333400000
71.437500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26376#20221
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 488
Top = 112
Width = 53
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1291.166666666667000000
296.333333333333400000
140.229166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36164#26009#20449#24687
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 560
Top = 112
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1481.666666666667000000
296.333333333333400000
71.437500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #22791#27880
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object QRBand5: TQRBand
Left = 38
Top = 225
Width = 612
Height = 40
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 = (
105.833333333333300000
1619.250000000000000000)
BandType = rbSummary
object QRLabel31: TQRLabel
Left = 23
Top = 18
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.041666666666670000
60.854166666666680000
47.625000000000000000
71.437500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21512#35745
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 69
Top = 18
Width = 211
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.041666666666670000
182.562500000000000000
47.625000000000000000
558.270833333333400000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'FORMATNUMERIC('#39'###,##0'#39',count)'
FontSize = 10
end
object QRExpr5: TQRExpr
Left = 165
Top = 18
Width = 344
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.041666666666670000
436.562499999999900000
47.625000000000000000
910.166666666666600000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'FORMATNUMERIC('#39'###,##0.00'#39',sum(ADOQuery1.number))'
FontSize = 10
end
end
end
object GroupBox2: TGroupBox
Left = 16
Top = 8
Width = 393
Height = 105
Align = alCustom
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 9
Top = 32
Width = 84
Height = 12
Caption = #35831#36873#25321#26597#35810#26465#20214
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 9
Top = 72
Width = 84
Height = 12
Caption = #35831#36755#20837#26597#35810#32467#26524
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object BitBtn2: TBitBtn
Left = 311
Top = 26
Width = 75
Height = 25
Caption = #36864#20986
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn2Click
Glyph.Data = {
EE000000424DEE000000000000007600000028000000100000000F0000000100
0400000000007800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888880888888888888880080088888888880E088808888888000E00000000
888880EE07770888888880EE07770888888880EE07770888088880EE07770880
088880EE07770800000880EE07770880088880EE077708880888800077770888
888880077777088888888000000008888888}
end
object BitBtn1: TBitBtn
Left = 232
Top = 26
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
06030000424D06030000000000003600000028000000100000000F0000000100
180000000000D0020000C40E0000C40E00000000000000000000FFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFC7E1141400AA0F26FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD3FFD3009F00008F000B6800AE0B26FF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
80FF80007400008700008F000B6800AE0B26FFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF87FF870078000087000084000084000B
6800AE0B26FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
87FF8700780000840080AA5800FB000078000B6800AE0B26FFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF80FF80007000008700E67497E9FFF000
F0000078000B6800AA0F26FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
D3FFD300C500007000D46C80FFFFFFE1FFE100F000007C00372600FBD6E1FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF77FF777FFF7FBCE1C4FFFFFFFF
FFFFE1FFE100F000008400600000F8DAE1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE1FFE100F0000087006000
00F8DAE1FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFE1FFE100F000008700540000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE1FFE100F8
002A0600FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFD3FFD367E96FFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFF}
end
object ComboBox1: TComboBox
Left = 97
Top = 28
Width = 129
Height = 20
ItemHeight = 12
TabOrder = 2
OnSelect = ComboBox1Select
Items.Strings = (
''
#20840#37096
#29992#25143#21517#31216
#30331#38470#26085#26399
#30331#38470#26102#38388
#36864#20986#26102#38388)
end
object ComboBox2: TComboBox
Left = 97
Top = 68
Width = 129
Height = 21
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
Items.Strings = (
'')
end
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=data'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 270
Top = 70
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'userlogin'
Left = 302
Top = 70
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from userlogin')
Left = 334
Top = 70
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -