📄 unit14.dfm
字号:
object Form_infos_del: TForm_infos_del
Left = 302
Top = 131
Width = 517
Height = 438
Caption = #21024#38500#23398#29983#20449#24687
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 159
Top = 89
Width = 45
Height = 13
Caption = #23398#21495' '#65306
end
object Label2: TLabel
Left = 156
Top = 182
Width = 57
Height = 13
Caption = #23517#23460#21495' '#65306
Enabled = False
end
object Label3: TLabel
Left = 154
Top = 245
Width = 54
Height = 13
Caption = #24202#20301#21495' '#65306
Enabled = False
end
object RadioButton1: TRadioButton
Left = 66
Top = 58
Width = 113
Height = 19
Caption = #25353#23398#21495#21024#38500
Checked = True
TabOrder = 0
TabStop = True
OnClick = RadioButton1Click
end
object RadioButton3: TRadioButton
Left = 68
Top = 144
Width = 153
Height = 17
Caption = #25353#23517#23460#12289#24202#21495#21024#38500' '
TabOrder = 1
OnClick = RadioButton3Click
end
object Edit1: TEdit
Left = 232
Top = 86
Width = 121
Height = 21
TabOrder = 2
OnKeyPress = Edit1KeyPress
end
object Edit3: TEdit
Left = 234
Top = 237
Width = 121
Height = 21
Color = clBtnFace
Enabled = False
TabOrder = 3
end
object Edit2: TEdit
Left = 233
Top = 174
Width = 121
Height = 21
Color = clBtnFace
Enabled = False
TabOrder = 4
end
object Button1: TButton
Left = 395
Top = 85
Width = 57
Height = 25
Caption = '...........'
TabOrder = 5
OnClick = Button1Click
end
object Button2: TButton
Left = 395
Top = 172
Width = 57
Height = 25
Caption = '...........'
TabOrder = 6
OnClick = Button2Click
end
object Button3: TButton
Left = 179
Top = 336
Width = 64
Height = 25
Caption = #21024' '#38500
Enabled = False
TabOrder = 7
OnClick = Button3Click
end
object Button4: TButton
Left = 331
Top = 336
Width = 64
Height = 25
Caption = #21462' '#28040
TabOrder = 8
OnClick = Button4Click
end
object Query1: TQuery
DatabaseName = 'main'
Left = 160
Top = 8
end
object Query2: TQuery
DatabaseName = 'main'
SQL.Strings = (
'update room set sum_p=sum_p-1 where Num_room=:Num_room')
Left = 216
Top = 8
ParamData = <
item
DataType = ftUnknown
Name = 'Num_room'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -