📄 frmregroom.~dfm
字号:
object RegUserRoom: TRegUserRoom
Left = -22
Top = 65
Width = 939
Height = 633
Caption = #26053#23458#20303#25151#30331#35760
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
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 16
Width = 890
Height = 641
ActivePage = TabSheet2
TabIndex = 1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #25955#23458#20303#23487#30331#35760
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 882
Height = 29
ButtonHeight = 21
ButtonWidth = 55
Caption = 'ToolBar2'
Color = clBackground
ParentColor = False
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
object btnRegister: TToolButton
Left = 0
Top = 2
Caption = #20303#23487#30331#35760
ImageIndex = 0
OnClick = btnRegisterClick
end
object ToolButton2: TToolButton
Left = 55
Top = 2
Width = 8
Caption = 'ToolButton2'
ImageIndex = 2
Style = tbsSeparator
end
object btnModify: TToolButton
Left = 63
Top = 2
Caption = #20462#25913
ImageIndex = 2
OnClick = btnModifyClick
end
object ToolButton4: TToolButton
Left = 118
Top = 2
Width = 8
Caption = 'ToolButton4'
ImageIndex = 3
Style = tbsSeparator
end
object btnChangeRoom: TToolButton
Left = 126
Top = 2
Caption = #26356#25442#25151#38388
ImageIndex = 3
OnClick = btnChangeRoomClick
end
object ToolButton5: TToolButton
Left = 181
Top = 2
Width = 8
Caption = 'ToolButton5'
ImageIndex = 4
Style = tbsSeparator
end
object btnClose: TToolButton
Left = 189
Top = 2
Caption = #20851#38381#31383#21475
ImageIndex = 4
OnClick = btnCloseClick
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 32
Width = 1017
Height = 625
Color = clBackground
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object TabSheet2: TTabSheet
Caption = #22242#38431#20303#23487#30331#35760
ImageIndex = 1
object ToolBar3: TToolBar
Left = 0
Top = 0
Width = 882
Height = 26
ButtonHeight = 21
ButtonWidth = 79
Caption = 'ToolBar3'
Color = clBackground
ParentColor = False
ShowCaptions = True
TabOrder = 0
object btnAddObj: TToolButton
Left = 0
Top = 2
Caption = #28155#21152#25509#24453#23545#35937
ImageIndex = 0
OnClick = btnAddObjClick
end
object ToolButton3: TToolButton
Left = 79
Top = 2
Width = 8
Caption = 'ToolButton3'
ImageIndex = 1
Style = tbsSeparator
end
object btnDelObj: TToolButton
Left = 87
Top = 2
Caption = #21024#38500#25509#24453#23545#35937
ImageIndex = 1
OnClick = btnDelObjClick
end
object ToolButton7: TToolButton
Left = 166
Top = 2
Width = 8
Caption = 'ToolButton7'
ImageIndex = 2
Style = tbsSeparator
end
object btnAddRoom: TToolButton
Left = 174
Top = 2
Caption = #28155#21152#25151#38388
ImageIndex = 2
OnClick = btnAddRoomClick
end
object ToolButton1: TToolButton
Left = 253
Top = 2
Width = 8
Caption = 'ToolButton1'
ImageIndex = 3
Style = tbsSeparator
end
object btnDelRoom: TToolButton
Left = 261
Top = 2
Caption = #20943#23569#25151#38388
ImageIndex = 3
OnClick = btnDelRoomClick
end
object ToolButton6: TToolButton
Left = 340
Top = 2
Width = 8
Caption = 'ToolButton6'
ImageIndex = 4
Style = tbsSeparator
end
object btnModifyObj: TToolButton
Left = 348
Top = 2
Caption = #20462#25913
ImageIndex = 4
OnClick = btnModifyObjClick
end
object ToolButton9: TToolButton
Left = 427
Top = 2
Width = 8
Caption = 'ToolButton9'
ImageIndex = 5
Style = tbsSeparator
end
object btnteamclose: TToolButton
Left = 435
Top = 2
Caption = #36864#20986
ImageIndex = 5
OnClick = btnteamcloseClick
end
end
object DBGrid2: TDBGrid
Left = 184
Top = 208
Width = 825
Height = 417
Color = clBackground
DataSource = DataSource2
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Panel2: TPanel
Left = 184
Top = 32
Width = 825
Height = 177
Color = clBackground
TabOrder = 2
object Label8: TLabel
Left = 16
Top = 8
Width = 54
Height = 13
Caption = #25509#24453#23545#35937' '
end
object Label9: TLabel
Left = 272
Top = 8
Width = 54
Height = 13
Caption = #32852#31995#26102#38388' '
end
object Label10: TLabel
Left = 88
Top = 8
Width = 32
Height = 13
Caption = 'Label3'
end
object Label11: TLabel
Left = 336
Top = 8
Width = 32
Height = 13
Caption = 'Label3'
end
object Label12: TLabel
Left = 16
Top = 32
Width = 54
Height = 13
Caption = #32852#31995#21333#20301' '
end
object Label13: TLabel
Left = 272
Top = 32
Width = 54
Height = 13
Caption = #32852' '#31995' '#20154' '
end
object Label14: TLabel
Left = 464
Top = 32
Width = 54
Height = 13
Caption = #32852#31995#30005#35805' '
end
object Label1: TLabel
Left = 16
Top = 56
Width = 54
Height = 13
Caption = #20303#23487#26102#38388' '
end
object Label2: TLabel
Left = 232
Top = 56
Width = 61
Height = 13
Caption = '---------------'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 464
Top = 56
Width = 57
Height = 13
Caption = #20154' '#25968' '
end
object Label4: TLabel
Left = 16
Top = 80
Width = 54
Height = 13
Caption = #20303#23487#26631#20934' '
end
object Label5: TLabel
Left = 272
Top = 80
Width = 54
Height = 13
Caption = #22791' '#27880' '
end
object Label6: TLabel
Left = 16
Top = 112
Width = 57
Height = 13
Caption = #26469' '#33258' '
end
object Label7: TLabel
Left = 272
Top = 112
Width = 54
Height = 13
Caption = #21435' '#24448' '
end
object Label15: TLabel
Left = 264
Top = 144
Width = 54
Height = 13
Caption = #32467#36134#21333#20301' '
end
object Label16: TLabel
Left = 16
Top = 139
Width = 54
Height = 12
Caption = #25151' '#38388' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 80
Top = 24
Width = 177
Height = 21
TabOrder = 0
end
object Edit2: TEdit
Left = 328
Top = 24
Width = 121
Height = 21
TabOrder = 1
end
object Edit3: TEdit
Left = 528
Top = 24
Width = 121
Height = 21
TabOrder = 2
end
object Edit4: TEdit
Left = 528
Top = 48
Width = 121
Height = 21
TabOrder = 3
end
object ComboBox1: TComboBox
Left = 80
Top = 75
Width = 177
Height = 21
ItemHeight = 13
TabOrder = 4
Items.Strings = (
#35946#21326#22871#25151
#26222#36890#22871#25151
#35946#21326#23458#25151
#26222#36890#23458#25151
#32463#27982#23458#25151)
end
object Edit5: TEdit
Left = 328
Top = 75
Width = 321
Height = 21
TabOrder = 5
end
object Edit6: TEdit
Left = 328
Top = 104
Width = 321
Height = 21
TabOrder = 6
end
object Edit7: TEdit
Left = 80
Top = 104
Width = 177
Height = 21
TabOrder = 7
end
object Edit8: TEdit
Left = 328
Top = 136
Width = 321
Height = 21
TabOrder = 8
end
object Button1: TButton
Left = 688
Top = 24
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 9
OnClick = Button1Click
end
object Button2: TButton
Left = 688
Top = 72
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 10
OnClick = Button2Click
end
object Edit9: TEdit
Left = 80
Top = 136
Width = 177
Height = 21
TabOrder = 11
end
object DateTimePicker1: TDateTimePicker
Left = 79
Top = 49
Width = 138
Height = 21
CalAlignment = dtaLeft
Date = 37727.9878660532
Time = 37727.9878660532
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 12
end
object DateTimePicker2: TDateTimePicker
Left = 304
Top = 50
Width = 145
Height = 21
CalAlignment = dtaLeft
Date = 37727.9881630093
Time = 37727.9881630093
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 13
end
end
object ValueListEditor1: TValueListEditor
Left = 0
Top = 32
Width = 185
Height = 593
Color = clBackground
Enabled = False
TabOrder = 3
TitleCaptions.Strings = (
#25509#24453#23545#35937
#32852#31995#26102#38388)
ColWidths = (
96
83)
end
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 915
Height = 17
Caption = 'ToolBar1'
Color = clBackground
ParentColor = False
TabOrder = 1
end
object Query1: TQuery
Active = True
AutoRefresh = True
DatabaseName = 'rooms'
SQL.Strings = (
'select * from RoomInfo')
Left = 720
Top = 384
end
object Table1: TTable
Active = True
AutoRefresh = True
DatabaseName = 'rooms'
TableName = 'RoomInfo.DB'
Left = 680
Top = 384
end
object DataSource1: TDataSource
DataSet = Table1
Left = 640
Top = 384
end
object DataSource2: TDataSource
DataSet = Table2
Left = 640
Top = 216
end
object Table2: TTable
Active = True
AutoRefresh = True
DatabaseName = 'rooms'
TableName = 'GroupTouristInfo.DB'
Left = 680
Top = 216
end
object Query2: TQuery
AutoRefresh = True
DatabaseName = 'rooms'
SQL.Strings = (
'select '#25509#24453#23545#35937','#32852#31995#26102#38388' from GroupTouristInfo')
Left = 720
Top = 216
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -