📄 login.dfm
字号:
object Form2: TForm2
Left = 279
Top = 161
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = #31995#32479#30331#24405
ClientHeight = 250
ClientWidth = 369
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 369
Height = 250
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 56
Top = 72
Width = 48
Height = 16
Caption = #22995#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 56
Top = 104
Width = 48
Height = 16
Caption = #23494#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 32
Top = 8
Width = 315
Height = 35
Caption = #27426#36814#20351#29992#26412#31649#29702#31995#32479
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -35
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Button1: TButton
Left = 88
Top = 200
Width = 75
Height = 25
Caption = #25552#20132
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 208
Top = 200
Width = 75
Height = 25
Cancel = True
Caption = #36864#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Edit1: TEdit
Left = 112
Top = 64
Width = 89
Height = 21
TabOrder = 2
OnKeyPress = Edit1KeyPress
end
object Edit2: TEdit
Left = 112
Top = 96
Width = 137
Height = 21
PasswordChar = '*'
TabOrder = 3
OnKeyPress = Edit2KeyPress
end
object RadioGroup1: TRadioGroup
Left = 32
Top = 136
Width = 297
Height = 41
Caption = #36873#25321#30331#24405#26041#24335#65306
Columns = 2
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemIndex = 0
Items.Strings = (
#26222#36890#29992#25143
#31995#32479#31649#29702#21592)
ParentFont = False
TabOrder = 4
end
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'userpassword'
Left = 8
Top = 56
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ganbu' +
'system.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
'5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
'P=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 24
Top = 32
end
object ADOTable2: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'adminpassword'
Left = 264
Top = 144
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -