📄 unit19.dfm
字号:
object Form19: TForm19
Left = 192
Top = 120
Width = 749
Height = 446
Caption = 'Form19'
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 = 16
Top = 16
Width = 36
Height = 13
Caption = #36710#20301#21495
end
object Label2: TLabel
Left = 200
Top = 16
Width = 36
Height = 13
Caption = #36710#29260#21495
end
object Label3: TLabel
Left = 384
Top = 16
Width = 36
Height = 13
Caption = #20351#29992#20154
end
object Label4: TLabel
Left = 16
Top = 56
Width = 48
Height = 13
Caption = #36710#20301#29366#24577
end
object Label5: TLabel
Left = 200
Top = 56
Width = 24
Height = 13
Caption = #30005#35805
end
object Label6: TLabel
Left = 384
Top = 56
Width = 48
Height = 13
Caption = #24320#22987#26102#38388
end
object Label7: TLabel
Left = 16
Top = 96
Width = 48
Height = 13
Caption = #32467#26463#26102#38388
end
object Label8: TLabel
Left = 200
Top = 96
Width = 24
Height = 13
Caption = #20215#26684
end
object DBGrid1: TDBGrid
Left = 8
Top = 120
Width = 657
Height = 201
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
Visible = True
end
item
Expanded = False
FieldName = #36710#20301#21495
Width = 47
Visible = True
end
item
Expanded = False
FieldName = #36710#29260#21495
Width = 68
Visible = True
end
item
Expanded = False
FieldName = #20351#29992#20154
Width = 63
Visible = True
end
item
Expanded = False
FieldName = #36710#20301#29366#24577
Width = 62
Visible = True
end
item
Expanded = False
FieldName = #30005#35805
Width = 80
Visible = True
end
item
Expanded = False
FieldName = #24320#22987#26102#38388
Width = 82
Visible = True
end
item
Expanded = False
FieldName = #32467#26463#26102#38388
Width = 81
Visible = True
end
item
Expanded = False
FieldName = #20215#26684
Width = 81
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 64
Top = 8
Width = 121
Height = 21
DataField = #36710#20301#21495
DataSource = DataSource1
TabOrder = 1
end
object DBEdit2: TDBEdit
Left = 248
Top = 8
Width = 121
Height = 21
DataField = #36710#29260#21495
DataSource = DataSource1
TabOrder = 2
end
object DBEdit3: TDBEdit
Left = 432
Top = 8
Width = 121
Height = 21
DataField = #20351#29992#20154
DataSource = DataSource1
TabOrder = 3
end
object DBEdit4: TDBEdit
Left = 64
Top = 48
Width = 121
Height = 21
DataField = #36710#20301#29366#24577
DataSource = DataSource1
TabOrder = 4
end
object DBEdit5: TDBEdit
Left = 248
Top = 48
Width = 121
Height = 21
DataField = #30005#35805
DataSource = DataSource1
TabOrder = 5
end
object DBEdit6: TDBEdit
Left = 432
Top = 48
Width = 121
Height = 21
DataField = #24320#22987#26102#38388
DataSource = DataSource1
TabOrder = 6
end
object DBEdit7: TDBEdit
Left = 64
Top = 88
Width = 121
Height = 21
DataField = #32467#26463#26102#38388
DataSource = DataSource1
TabOrder = 7
end
object DBEdit8: TDBEdit
Left = 248
Top = 88
Width = 121
Height = 21
DataField = #20215#26684
DataSource = DataSource1
TabOrder = 8
end
object Button1: TButton
Left = 56
Top = 360
Width = 75
Height = 25
Action = DataSetInsert1
Caption = #26032#24314
TabOrder = 9
end
object Button2: TButton
Left = 192
Top = 360
Width = 75
Height = 25
Action = DataSetPost1
Caption = #20445#23384
TabOrder = 10
end
object Button3: TButton
Left = 336
Top = 360
Width = 75
Height = 25
Action = DataSetDelete1
Caption = #21024#38500
TabOrder = 11
end
object Button4: TButton
Left = 488
Top = 360
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 12
OnClick = Button4Click
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Software\002\002' +
'.mdb;Persist Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#36710#20301#31649#29702)
Left = 672
Top = 120
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 672
Top = 168
end
object ActionList1: TActionList
Left = 680
Top = 216
object Action1: TAction
Caption = 'Action1'
end
object DataSetInsert1: TDataSetInsert
Category = 'Dataset'
Caption = 'DataSetInsert1'
end
object DataSetDelete1: TDataSetDelete
Category = 'Dataset'
Caption = 'DataSetDelete1'
end
object DataSetPost1: TDataSetPost
Category = 'Dataset'
Caption = 'DataSetPost1'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -