unitroomstatusrequery.dfm
来自「自己做过的工程」· DFM 代码 · 共 295 行
DFM
295 行
object formroomstatusrequery: Tformroomstatusrequery
Left = 269
Top = 84
BorderStyle = bsDialog
Caption = #25151#38388#29366#24577#26597#35810
ClientHeight = 453
ClientWidth = 536
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 536
Height = 453
Caption = 'Panel1'
TabOrder = 0
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 537
Height = 457
ActivePage = TabSheet1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #25151#38388#29366#24577#26597#35810
OnShow = TabSheet1Show
object PageControl2: TPageControl
Left = -35
Top = -3
Width = 330
Height = 435
TabOrder = 0
end
object Panel2: TPanel
Left = 296
Top = -2
Width = 233
Height = 431
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object ed_onuse: TEdit
Left = 112
Top = 81
Width = 81
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'ed_onuse'
end
object ed_leasure: TEdit
Left = 112
Top = 32
Width = 81
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
Text = 'ed_leasure'
end
object ed_book: TEdit
Left = 112
Top = 130
Width = 81
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
Text = 'ed_book'
end
object ed_forbid: TEdit
Left = 112
Top = 179
Width = 81
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'Edit1'
end
object StaticText1: TStaticText
Left = 16
Top = 35
Width = 74
Height = 18
Caption = #31354#38386#25151#38388#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
end
object StaticText2: TStaticText
Left = 16
Top = 84
Width = 74
Height = 18
Caption = #20351#29992#25151#38388#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
object StaticText3: TStaticText
Left = 18
Top = 133
Width = 74
Height = 18
Caption = #39044#23450#25151#38388#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
end
object StaticText4: TStaticText
Left = 18
Top = 182
Width = 74
Height = 18
Caption = #20572#29992#25151#38388#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
end
object but_roomquery: TButton
Left = 64
Top = 376
Width = 81
Height = 33
Caption = ' '#26597' '#35810
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnClick = but_roomqueryClick
end
object GroupBox1: TGroupBox
Left = 32
Top = 272
Width = 161
Height = 97
Caption = #26597#35810#26465#20214
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
object cbBox_roomstatus: TComboBox
Left = 16
Top = 56
Width = 105
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 14
ParentFont = False
TabOrder = 0
Text = #31354#38386
Items.Strings = (
#31354#38386
#20351#29992
#39044#23450
#20572#29992)
end
object StaticText5: TStaticText
Left = 13
Top = 32
Width = 60
Height = 18
Caption = #25151#38388#29366#24577
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object StaticText6: TStaticText
Left = 29
Top = 250
Width = 144
Height = 18
Caption = #27880#65306#26681#25454#25151#38388#29366#24577#26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 289
Height = 425
DataSource = DataSource1
ReadOnly = True
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'roomid'
Title.Caption = #25151#38388#26631#21495
Width = 77
Visible = True
end
item
Expanded = False
FieldName = 'roomstatus'
Title.Caption = #25151#38388#29366#24577
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'roomtype'
Title.Caption = #25151#38388#31867#22411
Visible = True
end>
end
end
end
end
object DataSource1: TDataSource
DataSet = DMHotel.ADODataSet_roomstatus_requery
Left = 352
Top = 24
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?