📄 login.~dfm
字号:
object loginForm: TloginForm
Left = 368
Top = 245
Width = 356
Height = 231
Caption = #31995#32479#30331#24405
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 32
Top = 8
Width = 273
Height = 129
Caption = #30331#24405#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 24
Width = 48
Height = 13
Caption = #29992#25143#21517#65306
end
object Label2: TLabel
Left = 24
Top = 56
Width = 36
Height = 13
Caption = #23494#30721#65306
end
object Label3: TLabel
Left = 24
Top = 88
Width = 60
Height = 13
Caption = #30331#24405#31867#22411#65306
end
object namebox: TEdit
Left = 88
Top = 24
Width = 150
Height = 21
TabOrder = 0
end
object pwdbox: TEdit
Left = 88
Top = 56
Width = 150
Height = 21
MaxLength = 10
PasswordChar = '*'
TabOrder = 1
end
object leixingbox: TComboBox
Left = 88
Top = 88
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 2
Text = #26222#36890#29992#25143
Items.Strings = (
#26222#36890#29992#25143
#31649#29702#21592)
end
end
object BitBtn1: TBitBtn
Left = 64
Top = 152
Width = 80
Height = 25
Caption = #30331#24405
Default = True
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 208
Top = 152
Width = 80
Height = 25
Caption = #21462#28040
TabOrder = 2
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 160
Top = 152
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=J:\de' +
'lphi'#35838#31243#35774#35745'\'#22270#20070#31649#29702#31995#32479'\database\BookManage.mdb;Mode=Share Deny None;Ext' +
'ended Properties="";Persist Security Info=False;Jet OLEDB:System' +
' database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Passw' +
'ord="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1' +
';Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Trans' +
'actions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create Sy' +
'stem Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:D' +
'on'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Without Repl' +
'ica Repair=False;Jet OLEDB:SFP=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 8
Top = 152
end
object ADOTable1: TADOTable
Connection = ADOConnection1
TableName = 'yonghu'
Left = 304
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -