roomyud.~dfm
来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 637 行 · 第 1/2 页
~DFM
637 行
end
item
Alignment = taCenter
Expanded = False
FieldName = 'phone'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #32852#31995#30005#35805
Width = 64
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'room_id'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #39044#23450#25151#38388#21495
Width = 64
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'state_time'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #24320#22987#26102#38388
Width = 64
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'end_time'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #32467#26463#26102#38388
Width = 64
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'memo'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
Title.Alignment = taCenter
Title.Caption = #22791#27880
Width = 150
Visible = True
end>
end
object Edit4: TEdit
Left = 65
Top = 25
Width = 105
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 1
end
object Button1: TButton
Left = 192
Top = 23
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 2
OnClick = Button1Click
end
object Button2: TButton
Left = 272
Top = 23
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 3
OnClick = Button2Click
end
object Edit5: TEdit
Left = 86
Top = 60
Width = 97
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 4
end
object Edit6: TEdit
Left = 208
Top = 60
Width = 97
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 5
end
end
object GroupBox4: TGroupBox
Left = 372
Top = -1
Width = 189
Height = 411
Caption = #23458#25151#20449#24687
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object Label6: TLabel
Left = 8
Top = 32
Width = 48
Height = 13
Caption = #26102#38388#65306#20174
end
object Label7: TLabel
Left = 42
Top = 64
Width = 12
Height = 13
Caption = #33267
end
object Label8: TLabel
Left = 8
Top = 257
Width = 48
Height = 13
Caption = #23458#25151#31561#32423
end
object Label9: TLabel
Left = 8
Top = 320
Width = 24
Height = 13
Caption = #22791#27880
end
object Label13: TLabel
Left = 8
Top = 229
Width = 48
Height = 13
Caption = #23458#25151#32534#21495
end
object Label14: TLabel
Left = 8
Top = 289
Width = 48
Height = 13
Caption = #23458#25151#29366#24577
end
object DBGrid1: TDBGrid
Left = 14
Top = 96
Width = 163
Height = 113
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -16
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'Room_id'
Title.Alignment = taCenter
Title.Caption = #25151#38388#32534#21495
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'Room_state'
Title.Alignment = taCenter
Title.Caption = #25151#38388#29366#24577
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -14
Title.Font.Name = #23435#20307
Title.Font.Style = []
Width = 80
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 68
Top = 257
Width = 97
Height = 21
DataField = 'Room_level'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 64
Top = 32
Width = 105
Height = 21
DataField = 'state_time'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 2
end
object DBEdit3: TDBEdit
Left = 64
Top = 64
Width = 105
Height = 21
DataField = 'end_time'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 3
end
object DBMemo1: TDBMemo
Left = 24
Top = 344
Width = 145
Height = 57
DataField = 'Room_memo'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 4
end
object DBEdit4: TDBEdit
Left = 68
Top = 226
Width = 97
Height = 21
DataField = 'Room_id'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 5
end
object DBEdit5: TDBEdit
Left = 68
Top = 289
Width = 97
Height = 21
DataField = 'Room_state'
DataSource = DBFrm.Room_DataSource
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 6
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?