📄 tteditunit.dfm
字号:
BorderColor = 6842472
TabOrder = 6
Text = 'suiEdit1'
OnKeyPress = suiEdit8KeyPress
end
object suiComboBox3: TsuiComboBox
Left = 336
Top = 24
Width = 155
Height = 21
UIStyle = WinXP
BorderColor = 6842472
ArrowColor = clBlack
ButtonColor = 14609391
ItemHeight = 13
TabOrder = 7
Text = 'suiComboBox1'
OnKeyPress = suiComboBox3KeyPress
Items.Strings = (
#30007
#22899)
end
object suiButton3: TsuiButton
Left = 584
Top = 68
Width = 60
Height = 25
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
Caption = #32534#36753
AutoSize = False
ParentFont = False
UIStyle = WinXP
TabOrder = 8
Transparent = False
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = suiButton3Click
ResHandle = 0
end
object dbgrd1: TDBGrid
Left = 3
Top = 104
Width = 747
Height = 86
Align = alBottom
DataSource = ds1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
PopupMenu = pm1
TabOrder = 9
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clBlack
TitleFont.Height = -13
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
OnDrawColumnCell = dbgrd1DrawColumnCell
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'room'
Title.Alignment = taCenter
Title.Caption = #25151#38388#21495
Width = 50
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'name'
Title.Alignment = taCenter
Title.Caption = #22995#21517
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'sex'
Title.Alignment = taCenter
Title.Caption = #24615#21035
Width = 40
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'phone'
Title.Alignment = taCenter
Title.Caption = #32852#31995#30005#35805
Width = 120
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cardtype'
Title.Alignment = taCenter
Title.Caption = #35777#20214#31867#22411
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'cardnum'
Title.Alignment = taCenter
Title.Caption = #35777#20214#21495#30721
Width = 150
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'address'
Title.Alignment = taCenter
Title.Caption = #23478#24237#20303#22336
Width = 210
Visible = True
end>
end
end
object suiListBox2: TsuiListBox
Left = 8
Top = 208
Width = 145
Height = 113
UIStyle = MacOS
BorderColor = 8355711
Style = lbOwnerDrawFixed
ItemHeight = 16
Items.Strings = (
#26631#20934#21333#20154#38388':BD201')
MultiSelect = True
TabOrder = 12
end
object suiGroupBox2: TsuiGroupBox
Left = 8
Top = 152
Width = 753
Height = 49
UIStyle = DeepBlue
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = True
ParentFont = False
TabOrder = 13
BorderColor = clBlack
object Label22: TLabel
Left = 520
Top = 20
Width = 70
Height = 13
Caption = #20184#27454#26041#24335#65306
end
object Label21: TLabel
Left = 352
Top = 20
Width = 70
Height = 13
Caption = #23454#25910#25276#37329#65306
end
object Label20: TLabel
Left = 184
Top = 20
Width = 70
Height = 13
Caption = #39044#20303#22825#25968#65306
end
object Label14: TLabel
Left = 16
Top = 20
Width = 64
Height = 13
Caption = #25171#25240#27604#20363':'
end
object suiComboBox8: TsuiComboBox
Left = 592
Top = 20
Width = 153
Height = 21
UIStyle = WinXP
BorderColor = 6842472
ArrowColor = clBlack
ButtonColor = 14609391
Enabled = False
ItemHeight = 13
TabOrder = 0
Text = 'suiComboBox1'
end
object suiEdit15: TsuiEdit
Left = 424
Top = 20
Width = 81
Height = 20
UIStyle = WinXP
BorderColor = 6842472
TabOrder = 1
Text = 'suiEdit10'
OnKeyPress = suiEdit15KeyPress
end
object suiEdit14: TsuiEdit
Left = 256
Top = 20
Width = 81
Height = 20
UIStyle = WinXP
BorderColor = 6842472
Enabled = False
TabOrder = 2
Text = 'suiEdit10'
end
object suiEdit12: TsuiEdit
Left = 88
Top = 20
Width = 81
Height = 20
UIStyle = WinXP
BorderColor = 6842472
Enabled = False
TabOrder = 3
Text = 'suiEdit10'
end
object suiCheckBox1: TsuiCheckBox
Left = 16
Top = -2
Width = 63
Height = 19
UIStyle = WinXP
AutoSize = True
Checked = False
Caption = #38047#28857#25151
Enabled = False
TabOrder = 4
TabStop = True
State = cbUnchecked
Transparent = False
end
end
object btn3: TsuiButton
Left = 161
Top = 248
Width = 25
Height = 17
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = '>>'
AutoSize = False
ParentFont = False
UIStyle = DeepBlue
TabOrder = 14
Transparent = False
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = btn3Click
ResHandle = 0
end
object btn4: TsuiButton
Left = 161
Top = 280
Width = 25
Height = 17
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Caption = '<<'
AutoSize = False
ParentFont = False
UIStyle = DeepBlue
TabOrder = 15
Transparent = False
ModalResult = 0
FocusedRectMargin = 2
Layout = blGlyphLeft
Spacing = 4
MouseContinuouslyDownInterval = 100
OnClick = btn4Click
ResHandle = 0
end
object DBGrid1: TDBGrid
Left = 192
Top = 208
Width = 569
Height = 113
Ctl3D = False
DataSource = ds2
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ParentCtl3D = False
TabOrder = 16
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
OnDrawColumnCell = DBGrid1DrawColumnCell
Columns = <
item
Alignment = taCenter
Expanded = False
FieldName = 'id'
Title.Alignment = taCenter
Title.Caption = #24207#21495
Width = 45
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'roomtype'
Title.Alignment = taCenter
Title.Caption = #25151#38388#31867#22411
Width = 85
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'roomnum'
Title.Alignment = taCenter
Title.Caption = #25151#38388#21495
Width = 60
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'price'
Title.Alignment = taCenter
Title.Caption = #39044#35774#21333#20215
Width = 90
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'salce'
Title.Alignment = taCenter
Title.Caption = #25171#25240#27604#20363
Width = 70
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'factprice'
Title.Alignment = taCenter
Title.Caption = #25240#21518#20215#26684
Width = 90
Visible = True
end
item
Alignment = taCenter
Expanded = False
FieldName = 'yajin'
Title.Alignment = taCenter
Title.Caption = #39044#35774#25276#37329
Width = 90
Visible = True
end>
end
end
object ds1: TDataSource
DataSet = ds3
Left = 48
Top = 472
end
object ds2: TDataSource
DataSet = ClientDataSet1
Left = 240
Top = 256
end
object ds3: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspRoomRoomPeople'
RemoteServer = LoginForm.SocketConnection1
AfterScroll = ds3AfterScroll
Left = 16
Top = 472
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspRoomRoomSelect'
RemoteServer = LoginForm.SocketConnection1
AfterScroll = ClientDataSet1AfterScroll
Left = 208
Top = 256
end
object pm1: TPopupMenu
Left = 80
Top = 472
object N1: TMenuItem
Caption = #26174#31034#24403#21069#25151#38388#23458#20154#20449#24687
OnClick = N1Click
end
object N2: TMenuItem
Caption = #26174#31034#25152#26377#23458#20154#20449#24687
OnClick = N2Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -