📄 roomtypeut.~dfm
字号:
object RoomTypeFm: TRoomTypeFm
Left = 381
Top = 215
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #23458#25151#31867#22411#35774#32622
ClientHeight = 377
ClientWidth = 650
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 650
Height = 377
ActivePage = RoomSheet
Align = alClient
TabOrder = 0
object fFloodSheet: TTabSheet
Caption = #27004#23618#35774#32622
object Panel3: TPanel
Left = 0
Top = 0
Width = 642
Height = 200
Align = alClient
TabOrder = 0
object DBGrid2: TDBGrid
Left = 1
Top = 1
Width = 640
Height = 198
Align = alClient
DataSource = DataSource2
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid2CellClick
end
end
object Panel4: TPanel
Left = 0
Top = 200
Width = 642
Height = 149
Align = alBottom
TabOrder = 1
object GroupBox2: TGroupBox
Left = 8
Top = 8
Width = 625
Height = 97
Caption = #22522#26412#20449#24687
TabOrder = 0
object Label6: TLabel
Left = 16
Top = 40
Width = 65
Height = 25
AutoSize = False
Caption = #27004#23618#32534#21495#65306
Layout = tlCenter
end
object Label7: TLabel
Left = 312
Top = 40
Width = 65
Height = 25
AutoSize = False
Caption = #27004#23618#21517#31216#65306
Layout = tlCenter
end
object FloodCodeEdit: TEdit
Left = 104
Top = 40
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ReadOnly = True
TabOrder = 0
end
object FloodNameEdit: TEdit
Left = 400
Top = 40
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
OnKeyDown = FloodNameEditKeyDown
end
end
object faddbt: TBitBtn
Left = 98
Top = 112
Width = 60
Height = 25
Caption = #22686#21152
TabOrder = 1
OnClick = faddbtClick
end
object feditbt: TBitBtn
Left = 194
Top = 112
Width = 60
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = feditbtClick
end
object fdelbt: TBitBtn
Left = 298
Top = 112
Width = 60
Height = 25
Caption = #21024#38500
TabOrder = 3
OnClick = fdelbtClick
end
object fclearbt: TBitBtn
Left = 390
Top = 112
Width = 60
Height = 25
Caption = #21047#26032
TabOrder = 4
OnClick = fclearbtClick
end
object fclose: TBitBtn
Left = 486
Top = 112
Width = 60
Height = 25
Caption = #36864#20986
TabOrder = 5
OnClick = fcloseClick
end
end
end
object RoomSheet: TTabSheet
Caption = #23458#25151#31867#22411#35774#32622
ImageIndex = 1
object Panel1: TPanel
Left = 0
Top = 214
Width = 642
Height = 135
Align = alBottom
TabOrder = 0
object GroupBox1: TGroupBox
Left = 5
Top = 2
Width = 628
Height = 81
Caption = #22522#26412#20449#24687
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 65
Height = 25
AutoSize = False
Caption = #31867#22411#32534#21495#65306
Layout = tlCenter
end
object Label2: TLabel
Left = 200
Top = 16
Width = 65
Height = 25
AutoSize = False
Caption = #31867#22411#21517#31216#65306
Layout = tlCenter
end
object Label3: TLabel
Left = 8
Top = 48
Width = 65
Height = 25
AutoSize = False
Caption = #20215#26684#65306
Layout = tlCenter
end
object Label4: TLabel
Left = 392
Top = 48
Width = 65
Height = 25
AutoSize = False
Caption = #25340#25151#20215#26684#65306
Layout = tlCenter
end
object Label5: TLabel
Left = 392
Top = 16
Width = 113
Height = 25
AutoSize = False
Caption = #21487#36229#39044#23450#25968#65306
Layout = tlCenter
end
object TypeCodeEdit: TEdit
Left = 72
Top = 16
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ReadOnly = True
TabOrder = 0
end
object TypeNameEdit: TEdit
Left = 264
Top = 16
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 1
OnKeyDown = TypeNameEditKeyDown
end
object PriceEdit: TEdit
Left = 72
Top = 48
Width = 105
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 3
Text = '0'
OnKeyDown = PriceEditKeyDown
end
object PPriceEdit: TEdit
Left = 472
Top = 48
Width = 89
Height = 21
Enabled = False
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 4
Text = '0'
OnKeyDown = PPriceEditKeyDown
end
object OrderNumEdit: TEdit
Left = 472
Top = 16
Width = 89
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 2
Text = '0'
OnKeyDown = OrderNumEditKeyDown
end
object PF: TCheckBox
Left = 264
Top = 48
Width = 105
Height = 17
Caption = #26159#21542#21487#20197#25340#25151
TabOrder = 5
OnClick = PFClick
OnKeyDown = PFKeyDown
end
object UpDown: TUpDown
Left = 561
Top = 16
Width = 16
Height = 21
Associate = OrderNumEdit
TabOrder = 6
OnClick = UpDownClick
end
object tj: TCheckBox
Left = 200
Top = 48
Width = 57
Height = 17
Caption = #24182#19988
TabOrder = 7
end
object UpDown1: TUpDown
Left = 177
Top = 48
Width = 16
Height = 21
Associate = PriceEdit
Max = 10000
TabOrder = 8
end
object UpDown2: TUpDown
Left = 561
Top = 48
Width = 16
Height = 21
Associate = PPriceEdit
Max = 10000
TabOrder = 9
end
end
object AddBt: TBitBtn
Left = 2
Top = 96
Width = 60
Height = 25
Caption = #22686#21152
TabOrder = 1
OnClick = AddBtClick
end
object EditBt: TBitBtn
Left = 66
Top = 96
Width = 60
Height = 25
Caption = #20462#25913
TabOrder = 2
OnClick = EditBtClick
end
object DelBt: TBitBtn
Left = 130
Top = 96
Width = 60
Height = 25
Caption = #21024#38500
TabOrder = 3
OnClick = DelBtClick
end
object FirstBt: TBitBtn
Left = 254
Top = 96
Width = 60
Height = 25
Caption = #39318#35760#24405
TabOrder = 4
OnClick = FirstBtClick
end
object ProBt: TBitBtn
Left = 318
Top = 96
Width = 60
Height = 25
Caption = #19978#19968#26465
TabOrder = 5
OnClick = ProBtClick
end
object NextBt: TBitBtn
Left = 382
Top = 96
Width = 60
Height = 25
Caption = #19979#19968#26465
TabOrder = 6
OnClick = NextBtClick
end
object LastBt: TBitBtn
Left = 446
Top = 96
Width = 60
Height = 25
Caption = #23614#35760#24405
TabOrder = 7
OnClick = LastBtClick
end
object ClearBt: TBitBtn
Left = 510
Top = 96
Width = 60
Height = 25
Caption = #21047#26032
TabOrder = 8
OnClick = ClearBtClick
end
object CloseBt: TBitBtn
Left = 574
Top = 96
Width = 60
Height = 25
Caption = #36864#20986
TabOrder = 9
OnClick = CloseBtClick
end
object FindBt: TBitBtn
Left = 192
Top = 96
Width = 60
Height = 25
Caption = #26597#35810
TabOrder = 10
OnClick = FindBtClick
end
end
object Panel2: TPanel
Left = 0
Top = 41
Width = 642
Height = 173
Align = alClient
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 640
Height = 171
Align = alClient
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
end
object totlepl: TPanel
Left = 0
Top = 0
Width = 642
Height = 41
Align = alTop
Caption = #35760#24405#25968#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
end
end
object RoomTypeAdo: TADOQuery
Connection = DataFm.datacon
Parameters = <>
Left = 208
Top = 80
end
object DataSource1: TDataSource
DataSet = RoomTypeAdo
Left = 224
Top = 112
end
object DataSource2: TDataSource
DataSet = FloodAdo
Left = 348
Top = 128
end
object FloodAdo: TADOQuery
Connection = DataFm.datacon
Parameters = <>
Left = 188
Top = 184
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -