📄 u_room.dfm
字号:
object F_room: TF_room
Left = 158
Top = 147
Width = 700
Height = 500
Caption = '客房管理'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 512
Height = 473
ActivePage = TabSheet3
Align = alClient
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '预定'
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 504
Height = 145
Align = alTop
Caption = '客户'
TabOrder = 0
object Label4: TLabel
Left = 16
Top = 24
Width = 60
Height = 13
Caption = '证件编号：'
end
object Label5: TLabel
Left = 16
Top = 48
Width = 60
Height = 13
Caption = '证件类型：'
end
object Label6: TLabel
Left = 16
Top = 72
Width = 60
Height = 13
Caption = '姓 名：'
end
object Label8: TLabel
Left = 208
Top = 24
Width = 60
Height = 13
Caption = '联系方法：'
end
object Label9: TLabel
Left = 360
Top = 24
Width = 36
Height = 13
Caption = '备注：'
end
object o_name: TDBText
Left = 80
Top = 72
Width = 97
Height = 17
DataField = 'NAME'
DataSource = DM_main.DS_custom
end
object o_id_type: TDBText
Left = 80
Top = 48
Width = 97
Height = 17
DataField = 'DESCRIPT'
DataSource = DM_main.DS_custom
end
object i_custom_id: TEdit
Left = 80
Top = 20
Width = 97
Height = 21
TabOrder = 0
OnKeyDown = i_custom_idKeyDown
end
object o_addr: TDBMemo
Left = 200
Top = 40
Width = 137
Height = 89
DataField = 'ADDR'
DataSource = DM_main.DS_custom
TabOrder = 1
end
object o_remark: TDBMemo
Left = 352
Top = 40
Width = 137
Height = 89
DataField = 'REMARK'
DataSource = DM_main.DS_custom
TabOrder = 2
end
object o_sex: TDBRadioGroup
Left = 16
Top = 96
Width = 161
Height = 33
Caption = '性别'
Columns = 2
DataField = 'SEX'
DataSource = DM_main.DS_custom
Items.Strings = (
'男'
'女')
TabOrder = 3
Values.Strings = (
'M'
'F')
end
end
object GroupBox3: TGroupBox
Left = 0
Top = 145
Width = 504
Height = 300
Align = alClient
Caption = '订单'
TabOrder = 1
object Label10: TLabel
Left = 120
Top = 32
Width = 60
Height = 13
AutoSize = False
Caption = '订单编号：'
end
object o_sheet_id: TLabel
Left = 184
Top = 32
Width = 81
Height = 13
AutoSize = False
end
object Label11: TLabel
Left = 24
Top = 64
Width = 60
Height = 13
AutoSize = False
Caption = '订房列表：'
end
object B_new_book: TButton
Left = 16
Top = 24
Width = 75
Height = 25
Caption = '新建订单'
TabOrder = 0
OnClick = B_new_bookClick
end
object DBG_book_list: TDBGrid
Left = 16
Top = 80
Width = 473
Height = 209
DataSource = DM_main.DS_add_items
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'CUSTOM'
Title.Caption = '客户'
Width = 82
Visible = True
end
item
Expanded = False
FieldName = 'ROOM'
Title.Caption = '客房'
Width = 91
Visible = True
end
item
Expanded = False
FieldName = 'START_TIME'
Title.Caption = '开始时间'
Width = 108
Visible = True
end
item
Expanded = False
FieldName = 'END_TIME'
Title.Caption = '结束时间'
Width = 104
Visible = True
end>
end
object B_add_book: TButton
Left = 280
Top = 24
Width = 75
Height = 25
Caption = '添加'
TabOrder = 2
OnClick = B_add_bookClick
end
object B_del_book: TButton
Left = 368
Top = 24
Width = 75
Height = 25
Caption = '删除'
TabOrder = 3
OnClick = B_del_bookClick
end
end
end
object TabSheet2: TTabSheet
Caption = '入住'
ImageIndex = 1
object Label20: TLabel
Left = 8
Top = 152
Width = 60
Height = 13
AutoSize = False
Caption = '订单列表：'
end
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 504
Height = 145
Align = alTop
Caption = '客户'
TabOrder = 0
object Label7: TLabel
Left = 16
Top = 24
Width = 60
Height = 13
Caption = '证件编号：'
end
object Label12: TLabel
Left = 16
Top = 48
Width = 60
Height = 13
Caption = '证件类型：'
end
object Label13: TLabel
Left = 16
Top = 72
Width = 60
Height = 13
Caption = '姓 名：'
end
object Label14: TLabel
Left = 200
Top = 24
Width = 60
Height = 13
Caption = '联系方法：'
end
object Label15: TLabel
Left = 200
Top = 80
Width = 36
Height = 13
Caption = '备注：'
end
object o_name2: TDBText
Left = 80
Top = 72
Width = 97
Height = 17
DataField = 'NAME'
DataSource = DM_main.DS_custom2
end
object o_id_type2: TDBText
Left = 80
Top = 48
Width = 97
Height = 17
DataField = 'DESCRIPT'
DataSource = DM_main.DS_custom2
end
object Label16: TLabel
Left = 352
Top = 24
Width = 72
Height = 13
AutoSize = False
Caption = '证件复印件：'
end
object i_custom_id2: TEdit
Left = 80
Top = 20
Width = 97
Height = 21
TabOrder = 0
OnKeyDown = i_custom_id2KeyDown
end
object o_addr2: TDBMemo
Left = 192
Top = 40
Width = 137
Height = 33
DataField = 'ADDR'
DataSource = DM_main.DS_custom2
TabOrder = 1
end
object o_remark2: TDBMemo
Left = 192
Top = 96
Width = 137
Height = 33
DataField = 'REMARK'
DataSource = DM_main.DS_custom2
TabOrder = 2
end
object o_sex2: TDBRadioGroup
Left = 16
Top = 96
Width = 161
Height = 33
Caption = '性别'
Columns = 2
DataField = 'SEX'
DataSource = DM_main.DS_custom2
Items.Strings = (
'男'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -