📄 unit_delete.dfm
字号:
object Form_delete: TForm_delete
Left = 532
Top = 420
Width = 372
Height = 238
Caption = #21024#38500#29992#25143
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 15
object Panel1: TPanel
Left = 0
Top = 0
Width = 364
Height = 57
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 53
Height = 15
Caption = #29992#25143#21517':'
end
object Edit1: TEdit
Left = 80
Top = 12
Width = 121
Height = 23
TabOrder = 0
end
object Button1: TButton
Left = 256
Top = 10
Width = 76
Height = 31
Caption = #26597#35810
TabOrder = 1
OnClick = Button1Click
end
end
object Panel2: TPanel
Left = 0
Top = 57
Width = 364
Height = 111
Align = alClient
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 362
Height = 109
Align = alClient
DataSource = DataSource_delete
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -15
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #29992#25143#32534#21495
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #29992#25143#21517#31216
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #23494#30721
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #25805#20316#21592
Width = 61
Visible = True
end
item
Expanded = False
FieldName = #29992#25143#26435#38480
Width = 61
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 168
Width = 364
Height = 41
Align = alBottom
TabOrder = 2
object Button2: TButton
Left = 64
Top = 8
Width = 75
Height = 25
Caption = #21024#38500
TabOrder = 0
OnClick = Button2Click
end
object Button3: TButton
Left = 200
Top = 8
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 1
OnClick = Button3Click
end
end
object ADOQuery_delete: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#25805#20316#35760#24405#65288#29992#25143#65289#34920)
Left = 216
Top = 25
object ADOQuery_deleteDSDesigner: TAutoIncField
FieldName = #29992#25143#32534#21495
ReadOnly = True
end
object ADOQuery_deleteDSDesigner2: TWideStringField
FieldName = #29992#25143#21517#31216
Size = 10
end
object ADOQuery_deleteDSDesigner3: TWideStringField
FieldName = #23494#30721
Size = 10
end
object ADOQuery_deleteDSDesigner4: TWideStringField
FieldName = #25805#20316#21592
Size = 50
end
object ADOQuery_deleteDSDesigner5: TWideStringField
FieldName = #29992#25143#26435#38480
Size = 50
end
end
object DataSource_delete: TDataSource
DataSet = ADOQuery_delete
Left = 216
Top = 65
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -