📄 datafrm.dfm
字号:
object dataForm: TdataForm
Left = 266
Top = 140
Width = 745
Height = 459
BorderIcons = []
Caption = #12310#21151#33021#19982#25968#25454#12311
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 305
Top = 0
Width = 4
Height = 425
Cursor = crHSplit
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 305
Height = 425
Align = alLeft
Caption = #21151#33021#35774#23450
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 132
Width = 169
Height = 16
AutoSize = False
Caption = #35774#23450#20511#20070#25968#37327'/'#27599#20154#27425#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 82
Width = 169
Height = 16
AutoSize = False
Caption = #35774#23450#40664#35748#20511#20070#20511#26399'('#22825')'#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 183
Width = 177
Height = 16
AutoSize = False
Caption = #36807#26399#25187#28857#19968#33324#24773#20917'/'#22825#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 233
Width = 161
Height = 16
AutoSize = False
Caption = #36807#26399#25187#28857#29305#27530#24773#20917'/'#22825#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 283
Width = 150
Height = 16
AutoSize = False
Caption = #35774#23450#35835#32773#24320#22987#27969#27700#21495#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 16
Top = 334
Width = 138
Height = 16
AutoSize = False
Caption = #35774#23450#22791#20221#25552#31034#26102#38388#65306' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object BBOK: TBitBtn
Left = 30
Top = 380
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #30830#35748
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BBOKClick
end
object BBcancel: TBitBtn
Left = 114
Top = 380
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #21462#28040
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BBcancelClick
end
object Ed1: TEdit
Left = 180
Top = 127
Width = 97
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Text = 'Ed1'
OnKeyPress = Ed1KeyPress
end
object Ed2: TEdit
Left = 180
Top = 77
Width = 97
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Text = 'Ed2'
OnKeyPress = Ed1KeyPress
end
object Ed3: TEdit
Left = 180
Top = 177
Width = 97
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Text = 'Ed3'
OnKeyPress = Ed1KeyPress
end
object Ed4: TEdit
Left = 180
Top = 227
Width = 97
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Text = 'Ed4'
OnKeyPress = Ed1KeyPress
end
object Ed5: TEdit
Left = 180
Top = 277
Width = 97
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Text = 'Ed5'
OnKeyPress = Ed1KeyPress
end
object BBclose01: TBitBtn
Left = 198
Top = 380
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #36820#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = BBclose01Click
end
object MEd6: TMaskEdit
Left = 183
Top = 328
Width = 94
Height = 24
EditMask = '!90:00:00;1;'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
MaxLength = 8
ParentFont = False
TabOrder = 8
Text = '23:00:00'
end
object CBborrowday: TCheckBox
Left = 16
Top = 40
Width = 257
Height = 17
Caption = #20351#29992#40664#35748#35774#23450#30340#20511#20070#20511#26399' '
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 9
end
end
object GroupBox2: TGroupBox
Left = 309
Top = 0
Width = 428
Height = 425
Align = alClient
Caption = #25968#25454#35774#23450
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object BBclose02: TBitBtn
Left = 318
Top = 381
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #36820#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BBclose01Click
end
object BBdown: TBitBtn
Left = 224
Top = 381
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #19979#19968#27493
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BBdownClick
end
object BBup: TBitBtn
Left = 132
Top = 381
Width = 75
Height = 25
Cursor = crHandPoint
Caption = #19978#19968#27493
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BBupClick
end
object BBstart: TBitBtn
Left = 24
Top = 381
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -