📄 login.dfm
字号:
object LoginForm: TLoginForm
Left = 288
Top = 247
ActiveControl = edtPassword
BorderStyle = bsDialog
Caption = #30331#24405
ClientHeight = 166
ClientWidth = 312
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 27
Top = 33
Width = 54
Height = 12
Caption = #24080' '#21495'(&U):'
end
object Label2: TLabel
Left = 27
Top = 74
Width = 54
Height = 12
Caption = #23494' '#30721'(&P):'
end
object bbtnOk: TBitBtn
Left = 128
Top = 115
Width = 69
Height = 25
Caption = #30830#23450
Default = True
TabOrder = 0
OnClick = bbtnOkClick
NumGlyphs = 2
end
object bbtnCancel: TBitBtn
Left = 214
Top = 115
Width = 69
Height = 25
Cancel = True
Caption = #21462#28040
ModalResult = 2
TabOrder = 1
OnClick = bbtnCancelClick
NumGlyphs = 2
end
object edtPassword: TEdit
Left = 88
Top = 70
Width = 193
Height = 20
ImeName = #33258#28982#30721#30721#34920#36755#20837#27861
MaxLength = 8
PasswordChar = '*'
TabOrder = 3
end
object cbUserName: TComboBox
Left = 88
Top = 29
Width = 193
Height = 20
ImeName = #33258#28982#30721#30721#34920#36755#20837#27861
ItemHeight = 12
TabOrder = 2
OnExit = cbUserNameExit
Items.Strings = (
'Guess')
end
object adoq: TADOQuery
Connection = adocLogin
Parameters = <>
Left = 184
end
object adocLogin: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\'#23398#20064#25991 +
#26723'\Books\Delphi'#36890#29992#27169#22359#21450#20856#22411#31995#32479#24320#21457#23454#20363#23548#33322'\'#20195#30721#31034#20363'\'#31532'6'#31456'\Data\RSGL.mdb;Persist Sec' +
'urity Info=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -