📄 frmregister.~dfm
字号:
object RegisterRoom: TRegisterRoom
Left = 215
Top = 177
Width = 696
Height = 480
Caption = #20303#23487#30331#35760
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 13
object TabControl1: TTabControl
Left = 0
Top = 24
Width = 1025
Height = 697
TabOrder = 0
Tabs.Strings = (
#25955#23458#30331#35760
#22242#38431#30331#35760)
TabIndex = 0
object StatusBar1: TStatusBar
Left = 4
Top = 674
Width = 1017
Height = 19
Panels = <>
SimplePanel = False
end
object ToolBar2: TToolBar
Left = 4
Top = 24
Width = 1017
Height = 29
ButtonHeight = 21
ButtonWidth = 55
Caption = 'ToolBar2'
Color = clBtnShadow
ParentColor = False
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 1
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
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
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
end
end
object DBGrid1: TDBGrid
Left = 8
Top = 56
Width = 1017
Height = 617
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1025
Height = 25
Caption = 'ToolBar1'
Color = clGradientActiveCaption
ParentColor = False
TabOrder = 1
end
object DataSource1: TDataSource
DataSet = Table1
Left = 304
Top = 8
end
object Table1: TTable
AutoRefresh = True
DatabaseName = 'rooms'
TableName = 'RoomInfo.DB'
Left = 344
Top = 8
end
object Query1: TQuery
DatabaseName = 'rooms'
SQL.Strings = (
'select * from RoomInfo')
Left = 384
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -