📄 kucun.dfm
字号:
object kucunform: Tkucunform
Left = 274
Top = 193
Width = 586
Height = 402
Caption = #25152#26377#24211#23384#36135#29289#35760#24405
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 DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 545
Height = 153
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object GroupBox1: TGroupBox
Left = 8
Top = 176
Width = 553
Height = 97
Caption = #24405#20837#36135#29289
TabOrder = 1
object Label1: TLabel
Left = 80
Top = 16
Width = 44
Height = 13
Caption = #36135#29289#32534#30721
end
object Label2: TLabel
Left = 320
Top = 16
Width = 44
Height = 13
Caption = #36135#29289#21517#31216
end
object Label3: TLabel
Left = 80
Top = 56
Width = 44
Height = 13
Caption = #35268#26684#22411#21495
end
object Label4: TLabel
Left = 328
Top = 56
Width = 44
Height = 13
Caption = #36135#29289#25968#37327
end
object DBEdit1: TDBEdit
Left = 128
Top = 16
Width = 121
Height = 21
DataField = #36135#29289#32534#30721
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 376
Top = 16
Width = 121
Height = 21
DataField = #36135#29289#21517#31216
DataSource = DataSource1
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 128
Top = 56
Width = 121
Height = 21
DataField = #35268#26684#22411#21495
DataSource = DataSource1
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 376
Top = 56
Width = 121
Height = 21
DataField = #36135#29289#25968#37327
DataSource = DataSource1
TabOrder = 3
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 280
Width = 553
Height = 81
Caption = #25511#21046
TabOrder = 2
object Button1: TButton
Left = 32
Top = 32
Width = 57
Height = 25
Action = DataSetFirst1
Caption = #31532#19968#20010
TabOrder = 0
end
object Button2: TButton
Left = 88
Top = 32
Width = 57
Height = 25
Action = DataSetPrior1
Caption = #21069#19968#20010
TabOrder = 1
end
object Button3: TButton
Left = 144
Top = 32
Width = 57
Height = 25
Action = DataSetNext1
Caption = #19979#19968#20010
TabOrder = 2
end
object Button4: TButton
Left = 200
Top = 32
Width = 57
Height = 25
Action = DataSetLast1
Caption = #26368#21518#19968#20010
TabOrder = 3
end
object Button5: TButton
Left = 256
Top = 32
Width = 57
Height = 25
Action = DataSetInsert1
Caption = #25554#20837#35760#24405
TabOrder = 4
end
object Button6: TButton
Left = 312
Top = 32
Width = 57
Height = 25
Action = DataSetEdit1
Caption = #20445#23384
TabOrder = 5
end
object Button7: TButton
Left = 368
Top = 32
Width = 57
Height = 25
Action = DataSetDelete1
Caption = #21024#38500
TabOrder = 6
end
object Button8: TButton
Left = 424
Top = 32
Width = 65
Height = 25
Action = DataSetCancel1
Caption = #21462#28040
TabOrder = 7
end
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='#20179#24211#31649#29702#34920'.mdb;Persist S' +
'ecurity Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 144
Top = 48
end
object ADOTable1: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = #36135#29289#23384#20648
Left = 192
Top = 48
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 248
Top = 48
end
object ActionList1: TActionList
Left = 416
Top = 56
object DataSetFirst1: TDataSetFirst
Category = 'Dataset'
Caption = 'DataSetFirst1'
end
object DataSetPrior1: TDataSetPrior
Category = 'Dataset'
Caption = 'DataSetPrior1'
end
object DataSetNext1: TDataSetNext
Category = 'Dataset'
Caption = 'DataSetNext1'
end
object DataSetLast1: TDataSetLast
Category = 'Dataset'
Caption = 'DataSetLast1'
end
object DataSetInsert1: TDataSetInsert
Category = 'Dataset'
Caption = 'DataSetInsert1'
end
object DataSetDelete1: TDataSetDelete
Category = 'Dataset'
Caption = 'DataSetDelete1'
end
object DataSetEdit1: TDataSetEdit
Category = 'Dataset'
Caption = 'DataSetEdit1'
end
object DataSetCancel1: TDataSetCancel
Category = 'Dataset'
Caption = 'DataSetCancel1'
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -