📄 unit7.~dfm
字号:
object roomfind: Troomfind
Left = 169
Top = 116
Width = 731
Height = 451
Caption = #23458#25151#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 512
Top = 51
Width = 76
Height = 19
Caption = #23458#25151#31561#32423
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
Visible = False
end
object Label2: TLabel
Left = 48
Top = 144
Width = 147
Height = 22
Caption = #23458#25151#22522#26412#20449#24687#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 48
Top = 8
Width = 457
Height = 129
Caption = #26597#35810#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 0
Visible = False
object RadioButton2: TRadioButton
Left = 22
Top = 26
Width = 144
Height = 25
Caption = #26410#20351#29992#38047#28857#25151
TabOrder = 0
end
object RadioButton3: TRadioButton
Left = 170
Top = 61
Width = 144
Height = 25
Caption = #24050#39044#35746#38047#28857#25151
TabOrder = 1
end
object RadioButton4: TRadioButton
Left = 169
Top = 26
Width = 144
Height = 25
Caption = #24050#20351#29992#38047#28857#25151
TabOrder = 2
end
object RadioButton6: TRadioButton
Left = 22
Top = 64
Width = 144
Height = 25
Caption = #26410#39044#35746#38047#28857#25151
TabOrder = 3
end
object RadioButton5: TRadioButton
Left = 327
Top = 26
Width = 121
Height = 25
Caption = #20840#37096#38047#28857#25151
TabOrder = 4
end
object RadioButton14: TRadioButton
Left = 328
Top = 58
Width = 113
Height = 25
Caption = #20840#37096#23458#25151
TabOrder = 5
end
object BitBtn4: TBitBtn
Left = 143
Top = 96
Width = 171
Height = 25
Caption = #36873#25321#23458#25151#31867#22411
TabOrder = 6
OnClick = BitBtn4Click
end
end
object ComboBox1: TComboBox
Left = 512
Top = 80
Width = 81
Height = 27
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = []
ItemHeight = 19
ParentFont = False
TabOrder = 3
Visible = False
end
object DBGrid1: TDBGrid
Left = 48
Top = 176
Width = 609
Height = 185
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object BitBtn1: TBitBtn
Left = 296
Top = 368
Width = 113
Height = 33
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 600
Top = 48
Width = 81
Height = 41
Hint = #24320#22987#26597#35810
ParentShowHint = False
ShowHint = True
TabOrder = 4
Visible = False
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object GroupBox2: TGroupBox
Left = 48
Top = 8
Width = 457
Height = 129
Caption = #26597#35810#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 5
Visible = False
object RadioButton7: TRadioButton
Left = 23
Top = 29
Width = 144
Height = 25
Caption = #26410#20351#29992#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 0
end
object RadioButton8: TRadioButton
Left = 160
Top = 28
Width = 144
Height = 25
Caption = #24050#20351#29992#23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 1
end
object RadioButton9: TRadioButton
Left = 23
Top = 69
Width = 144
Height = 25
Caption = #26410#39044#35746#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 2
end
object RadioButton10: TRadioButton
Left = 160
Top = 67
Width = 144
Height = 25
Caption = #24050#39044#35746#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 3
end
object RadioButton1: TRadioButton
Left = 301
Top = 66
Width = 144
Height = 25
Caption = #20840#37096#23458#25151
TabOrder = 4
end
object BitBtn3: TBitBtn
Left = 143
Top = 96
Width = 161
Height = 25
Caption = #36873#25321#23458#25151#31867#22411
TabOrder = 5
OnClick = BitBtn3Click
end
object RadioButton13: TRadioButton
Left = 300
Top = 26
Width = 144
Height = 25
Caption = #20840#37096#26222#36890#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -21
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
object GroupBox3: TGroupBox
Left = 48
Top = 8
Width = 289
Height = 129
Caption = #35831#36873#25321#26597#35810#23458#25151#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 6
object RadioButton11: TRadioButton
Left = 32
Top = 50
Width = 113
Height = 33
Caption = #38047#28857#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = RadioButton11Click
end
object RadioButton12: TRadioButton
Left = 144
Top = 48
Width = 113
Height = 33
Caption = #26222#36890#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = RadioButton12Click
end
end
object ADODataSet1: TADODataSet
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
'roject\mindyparadisehotel.mdb;Persist Security Info=False'
CursorType = ctStatic
CommandText = 'select* from '#23458#25151#31649#29702
Parameters = <>
end
object DataSource1: TDataSource
Top = 28
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
'roject\mindyparadisehotel.mdb;Persist Security Info=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -