📄 u_login.~dfm
字号:
object F_login: TF_login
Left = 360
Top = 287
Width = 281
Height = 171
Caption = '登录'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 48
Top = 48
Width = 48
Height = 13
Caption = '用户名:'
end
object Label2: TLabel
Left = 48
Top = 80
Width = 48
Height = 13
Caption = '密 码:'
end
object Label3: TLabel
Left = 33
Top = 8
Width = 209
Height = 20
Alignment = taCenter
Anchors = [akTop]
AutoSize = False
Caption = '教师课程管理系统登录'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object i_user: TEdit
Left = 104
Top = 44
Width = 121
Height = 21
Hint = '请输入员工号'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object i_passwd: TEdit
Left = 104
Top = 76
Width = 121
Height = 21
PasswordChar = '*'
TabOrder = 1
end
object B_login: TButton
Left = 48
Top = 112
Width = 75
Height = 25
Caption = '登录'
Default = True
TabOrder = 2
OnClick = B_loginClick
end
object B_cancel: TButton
Left = 144
Top = 112
Width = 75
Height = 25
Cancel = True
Caption = '取消'
TabOrder = 3
OnClick = B_cancelClick
end
object T_user: TTable
DatabaseName = 'MyDatabase'
TableName = 'USER_PASS'
Left = 8
Top = 72
end
object Database1: TDatabase
AliasName = 'MyDB'
DatabaseName = 'MyDatabase'
LoginPrompt = False
Params.Strings = (
'SERVER NAME=red:MyDatabase'
'USER NAME=CHENYL'
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'LANGDRIVER='
'SQLQRYMODE='
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'SCHEMA CACHE TIME=-1'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'ENABLE BCD=FALSE'
'BLOBS TO CACHE=64'
'BLOB SIZE=32'
'PASSWORD=npprdsdba103')
SessionName = 'Default'
Left = 8
Top = 40
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -