📄 unit1.dfm
字号:
object LoginForm: TLoginForm
Left = 138
Top = 65
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #36873#35838#31995#32479'--'#30331#38470
ClientHeight = 402
ClientWidth = 588
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object StatusBar1: TStatusBar
Left = 0
Top = 383
Width = 588
Height = 19
Panels = <
item
Alignment = taRightJustify
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Text = 'CopyRight (C) 2004 Vingo '#36873#35838#31995#32479' v1.0'
Width = 400
end>
SimplePanel = False
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 588
Height = 383
ActivePage = TabSheet1
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = #23398#29983#36873#35838
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
object Panel1: TPanel
Left = 0
Top = 0
Width = 580
Height = 354
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Label3: TLabel
Left = 201
Top = 25
Width = 192
Height = 48
Caption = #23398#29983#36873#35838
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 208
Top = 136
Width = 42
Height = 14
Caption = #29992#25143#21517
end
object Label2: TLabel
Left = 214
Top = 199
Width = 28
Height = 14
Caption = #23494#30721
end
object username: TEdit
Left = 256
Top = 131
Width = 121
Height = 22
TabOrder = 0
OnKeyDown = usernameKeyDown
end
object PassWord: TEdit
Left = 256
Top = 195
Width = 121
Height = 22
PasswordChar = '*'
TabOrder = 1
OnKeyDown = PassWordKeyDown
end
object login1: TButton
Left = 200
Top = 264
Width = 75
Height = 25
Caption = #30331#38470
TabOrder = 2
OnClick = login1Click
end
object exit1: TButton
Left = 320
Top = 264
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = exit1Click
end
end
end
object TabSheet2: TTabSheet
Caption = #35838#31243#35774#32622
ImageIndex = 1
object Panel2: TPanel
Left = 0
Top = 0
Width = 580
Height = 354
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Label4: TLabel
Left = 240
Top = 40
Width = 7
Height = 14
end
object Label5: TLabel
Left = 201
Top = 25
Width = 192
Height = 48
Caption = #35838#31243#35774#32622
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 208
Top = 136
Width = 42
Height = 14
Caption = #29992#25143#21517
end
object Label7: TLabel
Left = 214
Top = 199
Width = 28
Height = 14
Caption = #23494#30721
end
object username2: TEdit
Left = 256
Top = 131
Width = 121
Height = 22
TabOrder = 0
OnKeyDown = usernameKeyDown
end
object password2: TEdit
Left = 256
Top = 195
Width = 121
Height = 22
PasswordChar = '*'
TabOrder = 1
OnKeyDown = password2KeyDown
end
object login2: TButton
Left = 200
Top = 264
Width = 75
Height = 25
Caption = #30331#38470
TabOrder = 2
OnClick = login2Click
end
object exit2: TButton
Left = 320
Top = 264
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = exit1Click
end
end
end
object TabSheet3: TTabSheet
Caption = #23398#29983#20449#24687
ImageIndex = 2
object Label8: TLabel
Left = 201
Top = 25
Width = 192
Height = 48
Caption = #23398#29983#20449#24687
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 208
Top = 136
Width = 42
Height = 14
Caption = #29992#25143#21517
end
object Label10: TLabel
Left = 214
Top = 199
Width = 28
Height = 14
Caption = #23494#30721
end
object username3: TEdit
Left = 256
Top = 131
Width = 121
Height = 22
TabOrder = 0
OnKeyDown = usernameKeyDown
end
object password3: TEdit
Left = 256
Top = 195
Width = 121
Height = 22
PasswordChar = '*'
TabOrder = 1
OnKeyDown = password3KeyDown
end
object login3: TButton
Left = 200
Top = 264
Width = 75
Height = 25
Caption = #30331#38470
TabOrder = 2
OnClick = login3Click
end
object exit3: TButton
Left = 320
Top = 264
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = exit1Click
end
end
object TabSheet4: TTabSheet
Caption = #25104#32489#31649#29702
ImageIndex = 3
object Panel3: TPanel
Left = 0
Top = 0
Width = 580
Height = 354
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Label11: TLabel
Left = 201
Top = 25
Width = 192
Height = 48
Caption = #25104#32489#31649#29702
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 208
Top = 136
Width = 42
Height = 14
Caption = #29992#25143#21517
end
object Label13: TLabel
Left = 214
Top = 199
Width = 28
Height = 14
Caption = #23494#30721
end
object username4: TEdit
Left = 256
Top = 131
Width = 121
Height = 22
TabOrder = 0
OnKeyDown = username4KeyDown
end
object password4: TEdit
Left = 256
Top = 195
Width = 121
Height = 22
PasswordChar = '*'
TabOrder = 1
OnKeyDown = password4KeyDown
end
object login4: TButton
Left = 200
Top = 264
Width = 75
Height = 25
Caption = #30331#38470
TabOrder = 2
OnClick = login4Click
end
object eixt4: TButton
Left = 320
Top = 264
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 3
OnClick = eixt4Click
end
end
end
end
object ADOQuery0: TADOQuery
Connection = ADOConnection0
Parameters = <
item
Name = 'Psno'
DataType = ftString
Size = 13
Value = 'username.text'
end>
Left = 112
Top = 336
end
object DataSource0: TDataSource
DataSet = ADOQuery0
Left = 64
Top = 336
end
object ADOConnection0: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=info.mdb;Persist Se' +
'curity Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 16
Top = 336
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -