📄 unit3.~dfm
字号:
object main: Tmain
Left = 286
Top = 150
Width = 665
Height = 497
ActiveControl = PagesControl
Caption = 'main'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object PagesControl: TPageControl
Tag = 5
Left = 0
Top = 0
Width = 657
Height = 463
ActivePage = usermanage
Align = alClient
DragKind = dkDock
TabOrder = 0
object usermanage: TTabSheet
Caption = #29992#25143#36164#26009#31649#29702
object Searchuser: TButton
Left = 40
Top = 48
Width = 97
Height = 33
Caption = #26597#35810#29992#25143
TabOrder = 0
OnClick = SearchuserClick
end
object addusert: TButton
Left = 40
Top = 136
Width = 97
Height = 33
Caption = #22686#21152#29992#25143
TabOrder = 1
OnClick = addusertClick
end
object deluser: TButton
Left = 40
Top = 224
Width = 97
Height = 33
Caption = #21024#38500#29992#25143
TabOrder = 2
OnClick = deluserClick
end
object updateuser: TButton
Left = 40
Top = 312
Width = 97
Height = 33
Caption = #20462#25913#23494#30721
TabOrder = 3
OnClick = updateuserClick
end
object UserTree: TTreeView
Left = 176
Top = 48
Width = 377
Height = 297
Indent = 19
TabOrder = 4
end
end
object basemess: TTabSheet
Caption = #22522#26412#36164#26009#31649#29702
ImageIndex = 1
object GroupBox1: TGroupBox
Left = 8
Top = 32
Width = 593
Height = 89
Caption = #24037#20316#26102#38388
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 24
Width = 84
Height = 20
Caption = #19978#21320#19978#29677' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 224
Top = 24
Width = 84
Height = 20
Caption = #19978#21320#19979#29677' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 56
Width = 84
Height = 20
Caption = #19979#21320#19978#29677' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 224
Top = 56
Width = 84
Height = 20
Caption = #19979#21320#19979#29677' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object baseamstart: TEdit
Left = 104
Top = 24
Width = 113
Height = 21
ReadOnly = True
TabOrder = 0
end
object baseamend: TEdit
Left = 312
Top = 24
Width = 113
Height = 21
ReadOnly = True
TabOrder = 1
end
object basepmstart: TEdit
Left = 104
Top = 56
Width = 113
Height = 21
ReadOnly = True
TabOrder = 2
end
object basepmend: TEdit
Left = 312
Top = 56
Width = 113
Height = 21
ReadOnly = True
TabOrder = 3
end
object BitBtn1: TBitBtn
Left = 456
Top = 24
Width = 89
Height = 33
Caption = #35774' '#23450
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn1Click
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 200
Width = 593
Height = 65
Caption = #21152#29677#31867#22411' '
TabOrder = 1
object abnormal: TComboBox
Left = 24
Top = 24
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 0
end
object addabnormal: TBitBtn
Left = 232
Top = 16
Width = 89
Height = 33
Caption = #28155' '#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object delabnormal: TBitBtn
Left = 488
Top = 16
Width = 89
Height = 33
Caption = #21024' '#38500' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object BitBtn14: TBitBtn
Left = 360
Top = 16
Width = 89
Height = 33
Caption = #20462' '#25913' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = delleaveClick
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 128
Width = 593
Height = 65
Caption = #35831#20551#31867#22411' '
TabOrder = 2
object leave: TComboBox
Left = 24
Top = 24
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 0
end
object addleave: TBitBtn
Left = 232
Top = 16
Width = 89
Height = 33
Caption = #28155' '#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = addleaveClick
end
object delleave: TBitBtn
Left = 360
Top = 16
Width = 89
Height = 33
Caption = #20462' '#25913' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = delleaveClick
end
object BitBtn13: TBitBtn
Left = 488
Top = 16
Width = 89
Height = 33
Caption = #21024' '#38500' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = delleaveClick
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 272
Width = 593
Height = 65
Caption = #22806#20986#31867#22411' '
TabOrder = 3
object evection: TComboBox
Left = 24
Top = 24
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 0
end
object addevection: TBitBtn
Left = 232
Top = 16
Width = 89
Height = 33
Caption = #28155' '#21152' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object delevection: TBitBtn
Left = 488
Top = 16
Width = 89
Height = 33
Caption = #21024' '#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object BitBtn15: TBitBtn
Left = 360
Top = 16
Width = 89
Height = 33
Caption = #20462' '#25913' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = delleaveClick
end
end
object GroupBox8: TGroupBox
Left = 8
Top = 352
Width = 593
Height = 65
Caption = #38750#27491#24120#19978#29677#31867#22411
TabOrder = 4
object ComboBox1: TComboBox
Left = 24
Top = 24
Width = 169
Height = 21
ItemHeight = 13
TabOrder = 0
end
object BitBtn16: TBitBtn
Left = 232
Top = 16
Width = 89
Height = 33
Caption = #28155' '#21152' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object BitBtn17: TBitBtn
Left = 360
Top = 16
Width = 89
Height = 33
Caption = #20462' '#25913' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = delleaveClick
end
object BitBtn18: TBitBtn
Left = 488
Top = 16
Width = 89
Height = 33
Caption = #21024' '#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
end
end
object checkaction: TTabSheet
Caption = #32771#21220#25805#20316#31649#29702
ImageIndex = 2
object GroupBox5: TGroupBox
Left = 8
Top = 8
Width = 601
Height = 145
Caption = #32771#21220#36755#20837
TabOrder = 0
object Label8: TLabel
Left = 288
Top = 64
Width = 4
Height = 20
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 16
Top = 104
Width = 52
Height = 20
Caption = #24037' '#21495' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object inputcheck: TBitBtn
Left = 312
Top = 96
Width = 97
Height = 33
Caption = #36755' '#20837' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = inputcheckClick
end
object checkcode: TEdit
Left = 120
Top = 104
Width = 153
Height = 21
TabOrder = 1
end
object checkamstart: TDateTimePicker
Left = 120
Top = 32
Width = 153
Height = 21
Date = 37904.860134351850000000
Time = 37904.860134351850000000
Kind = dtkTime
TabOrder = 2
end
object checkamend: TDateTimePicker
Left = 400
Top = 32
Width = 153
Height = 21
Date = 37904.860134351850000000
Time = 37904.860134351850000000
Kind = dtkTime
TabOrder = 3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -