📄 unit2.dfm
字号:
object Form2: TForm2
Left = 296
Top = 207
BorderStyle = bsSingle
Caption = '登录>>>'
ClientHeight = 193
ClientWidth = 286
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 77
Top = 6
Width = 144
Height = 16
Caption = '住院部财务汇总系统'
Font.Charset = GB2312_CHARSET
Font.Color = clGreen
Font.Height = -16
Font.Name = '宋体'
Font.Style = [fsUnderline]
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 104
Top = 165
Width = 113
Height = 24
Caption = '昕鑫工作室制作'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Panel1: TPanel
Left = 32
Top = 29
Width = 231
Height = 129
TabOrder = 0
object Label2: TLabel
Left = 24
Top = 16
Width = 130
Height = 13
Caption = '请输入用户名和密码:'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 28
Top = 39
Width = 52
Height = 13
Caption = '用户名:'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 28
Top = 70
Width = 53
Height = 13
Caption = '密 码:'
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 84
Top = 66
Width = 113
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 0
Text = 'Edit1'
OnKeyPress = Edit1KeyPress
end
object ComboBox1: TComboBox
Left = 84
Top = 35
Width = 113
Height = 21
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnKeyPress = ComboBox1KeyPress
Items.Strings = (
'黄鑫'
'李明'
'王新'
'吴华'
'熊明')
end
object Button1: TButton
Left = 44
Top = 96
Width = 59
Height = 25
Caption = '确定'
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 132
Top = 96
Width = 67
Height = 25
Caption = '取消'
TabOrder = 3
OnClick = Button2Click
end
end
object Table1: TTable
DatabaseName = 'E:\bysj'
IndexName = 'user'
TableName = 'userpass.db'
Left = 249
end
object Timer1: TTimer
Interval = 50
OnTimer = Timer1Timer
Top = 32
end
object Timer2: TTimer
Interval = 2000
OnTimer = Timer2Timer
Left = 8
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -