📄 unit9.dfm
字号:
object Form9: TForm9
Left = 109
Top = 154
Width = 884
Height = 658
Caption = '开/退 房'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 876
Height = 257
ActivePage = TabSheet1
Align = alTop
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '开房'
object Label14: TLabel
Left = 0
Top = 216
Width = 68
Height = 15
Caption = '客房信息'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 456
Top = 216
Width = 68
Height = 15
Caption = '客户信息'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 232
Top = 176
Width = 36
Height = 12
Caption = '房间号'
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 465
Height = 166
Caption = '客户信息'
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 24
Height = 12
Caption = '姓名'
end
object Label2: TLabel
Left = 8
Top = 40
Width = 24
Height = 12
Caption = '性别'
end
object Label3: TLabel
Left = 8
Top = 64
Width = 36
Height = 12
Caption = '证件号'
end
object Label4: TLabel
Left = 136
Top = 40
Width = 24
Height = 12
Caption = '人数'
end
object Label5: TLabel
Left = 8
Top = 136
Width = 24
Height = 12
Caption = '日期'
end
object Label6: TLabel
Left = 8
Top = 112
Width = 24
Height = 12
Caption = '押金'
end
object Label7: TLabel
Left = 8
Top = 88
Width = 48
Height = 12
Caption = '证件类型'
end
object Label8: TLabel
Left = 240
Top = 16
Width = 24
Height = 12
Caption = '备注'
end
object Edit1: TEdit
Left = 64
Top = 16
Width = 97
Height = 20
TabOrder = 0
end
object ComboBox1: TComboBox
Left = 64
Top = 40
Width = 57
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 1
Items.Strings = (
'男'
'女')
end
object Edit2: TEdit
Left = 64
Top = 64
Width = 161
Height = 20
TabOrder = 2
end
object DateTimePicker1: TDateTimePicker
Left = 64
Top = 136
Width = 161
Height = 20
CalAlignment = dtaLeft
Date = 37367.603506956
Time = 37367.603506956
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 3
end
object ComboBox2: TComboBox
Left = 168
Top = 40
Width = 57
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 4
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
end
object Edit3: TEdit
Left = 64
Top = 112
Width = 161
Height = 20
TabOrder = 5
end
object ComboBox3: TComboBox
Left = 64
Top = 88
Width = 161
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 6
Items.Strings = (
'身份证'
'驾驶证'
'军人证'
'户口'
'其它')
end
object Memo1: TMemo
Left = 274
Top = 15
Width = 185
Height = 143
Lines.Strings = (
'')
TabOrder = 7
end
end
object GroupBox2: TGroupBox
Left = 465
Top = 0
Width = 235
Height = 166
Caption = '房间查询'
TabOrder = 1
object Label9: TLabel
Left = 13
Top = 41
Width = 36
Height = 12
Caption = '按房号'
end
object Label10: TLabel
Left = 13
Top = 65
Width = 36
Height = 12
Caption = '按类型'
end
object Label11: TLabel
Left = 13
Top = 89
Width = 36
Height = 12
Caption = '按人数'
end
object Label12: TLabel
Left = 13
Top = 113
Width = 36
Height = 12
Caption = '按楼层'
end
object Label13: TLabel
Left = 13
Top = 137
Width = 36
Height = 12
Caption = '按房态'
end
object ComboBox4: TComboBox
Left = 69
Top = 41
Width = 145
Height = 20
Style = csDropDownList
Enabled = False
ItemHeight = 12
TabOrder = 0
OnChange = ComboBox4Change
Items.Strings = (
'NO1001'
'NO1002'
'NO1003'
'NO1004'
'NO1005'
'NO1006'
'NO1006'
'NO1007'
'NO1008'
'NO1009'
'NO1010'
'NO2001'
'NO2002'
'NO2003'
'NO2004'
'NO2005'
'NO2006'
'NO2007'
'NO2008'
'NO2009'
'NO2010'
'NO3001'
'NO3002'
'NO3003'
'NO3004'
'NO3005'
'NO3006'
'NO3007'
'NO3008'
'NO3009'
'NO3010'
'NO4001'
'NO4002'
'NO4003'
'NO4004'
'NO4005'
'NO4006'
'NO4007'
'NO4008'
'NO4009'
'NO4010'
'NO5001'
'NO5002'
'NO5003'
'NO5004'
'NO5005'
'NO5006'
'NO5007'
'NO5008'
'NO5009'
'NO5010'
'NO6001'
'NO6002'
'NO6003'
'NO6004'
'NO6005'
'NO6006'
'NO6007'
'NO6008'
'NO6009'
'NO6010'
'NO7001'
'NO7002'
'NO7003'
'NO7004'
'NO7005'
'NO7006'
'NO7007'
'NO7008'
'NO7009'
'NO7010'
'NO8001'
'NO8002'
'NO8003'
'NO8004'
'NO8005'
'NO8006'
'NO8007'
'NO8008'
'NO8009'
'NO8010'
'NO9001'
'NO9002'
'NO9003'
'NO9004'
'NO9005'
'NO9006'
'NO9007'
'NO9008'
'NO9009'
'NO9010'
'NO1101'
'NO1102'
'NO1103'
'NO1104'
'NO1105'
'NO1106'
'NO1107'
'NO1108'
'NO1109'
'NO1110')
end
object ComboBox5: TComboBox
Left = 69
Top = 65
Width = 145
Height = 20
Style = csDropDownList
Enabled = False
ItemHeight = 12
TabOrder = 1
OnChange = ComboBox5Change
Items.Strings = (
'经济型'
'豪华型'
'总统套房')
end
object ComboBox6: TComboBox
Left = 69
Top = 89
Width = 145
Height = 20
Style = csDropDownList
Enabled = False
ItemHeight = 12
TabOrder = 2
OnChange = ComboBox6Change
Items.Strings = (
'1'
'2'
'3')
end
object ComboBox7: TComboBox
Left = 69
Top = 113
Width = 145
Height = 20
Style = csDropDownList
Enabled = False
ItemHeight = 12
TabOrder = 3
OnChange = ComboBox7Change
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10')
end
object ComboBox8: TComboBox
Left = 69
Top = 137
Width = 145
Height = 20
Style = csDropDownList
Enabled = False
ItemHeight = 12
TabOrder = 4
OnChange = ComboBox8Change
Items.Strings = (
'已住人'
'未住人')
end
object RadioButton1: TRadioButton
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -