📄 goodmanage.dfm
字号:
object GoodManageForm: TGoodManageForm
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = #21830#21697#20449#24687#31649#29702
ClientHeight = 283
ClientWidth = 437
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 232
Top = 24
Width = 52
Height = 13
Caption = #21830#21697#21517#31216':'
end
object Label2: TLabel
Left = 232
Top = 70
Width = 52
Height = 13
Caption = #21830#21697#31867#21035':'
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 209
Height = 283
Align = alLeft
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'goodName'
Title.Caption = #21830#21697#21517#31216
Visible = True
end
item
Expanded = False
FieldName = 'goodClassName'
Title.Caption = #21830#21697#31867#21035
Visible = True
end>
end
object Edt_goodName: TEdit
Left = 232
Top = 43
Width = 201
Height = 21
TabOrder = 1
end
object CB_goodClassName: TComboBox
Left = 232
Top = 89
Width = 105
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'CB_goodClassName'
end
object Btn_Submit: TButton
Left = 248
Top = 124
Width = 75
Height = 25
Caption = #25552#20132
Enabled = False
TabOrder = 3
OnClick = Btn_SubmitClick
end
object Btn_Cancle: TButton
Left = 329
Top = 124
Width = 75
Height = 25
Caption = #21462#28040
Enabled = False
TabOrder = 4
OnClick = Btn_CancleClick
end
object Btn_AddInfo: TButton
Left = 286
Top = 181
Width = 75
Height = 25
Caption = #28155#21152#21830#21697
TabOrder = 5
OnClick = Btn_AddInfoClick
end
object Btn_UpdateInfo: TButton
Left = 286
Top = 212
Width = 75
Height = 25
Caption = #26356#26032#21830#21697
TabOrder = 6
OnClick = Btn_UpdateInfoClick
end
object Btn_Delete: TButton
Left = 286
Top = 243
Width = 75
Height = 25
Caption = #21024#38500#21830#21697
TabOrder = 7
OnClick = Btn_DeleteClick
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 336
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\SellManage.mdb' +
';Persist Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from goodInfo')
Left = 296
end
object GoodClassADOQuery: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\SellManage.mdb' +
';Persist Security Info=False'
CursorType = ctStatic
Parameters = <>
Left = 376
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -