📄 sellinfoadd.dfm
字号:
object SellInfoAddForm: TSellInfoAddForm
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = #38144#21806#20449#24687#28155#21152
ClientHeight = 307
ClientWidth = 450
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 = 16
Top = 24
Width = 52
Height = 13
Caption = #21830#21697#31867#21035':'
end
object Label2: TLabel
Left = 238
Top = 24
Width = 52
Height = 13
Caption = #21830#21697#21517#31216':'
end
object Label3: TLabel
Left = 16
Top = 64
Width = 52
Height = 13
Caption = #38144#21806#26041#24335':'
end
object Label4: TLabel
Left = 238
Top = 64
Width = 52
Height = 13
Caption = #38144#21806#25910#20837':'
end
object Label5: TLabel
Left = 391
Top = 64
Width = 12
Height = 13
Caption = #20803
end
object Label6: TLabel
Left = 16
Top = 96
Width = 52
Height = 13
Caption = #38144#21806#26102#38388':'
end
object Label7: TLabel
Left = 135
Top = 96
Width = 12
Height = 13
Caption = #24180
end
object Label8: TLabel
Left = 195
Top = 96
Width = 12
Height = 13
Caption = #26376
end
object Label9: TLabel
Left = 259
Top = 96
Width = 15
Height = 13
Caption = #26085' '
end
object Label10: TLabel
Left = 16
Top = 128
Width = 52
Height = 13
Caption = #23458#25143#22995#21517':'
end
object Label11: TLabel
Left = 238
Top = 128
Width = 40
Height = 13
Caption = #23458#25143'qq:'
end
object Label12: TLabel
Left = 16
Top = 155
Width = 52
Height = 13
Caption = #23458#25143#30005#35805':'
end
object Label13: TLabel
Left = 16
Top = 184
Width = 52
Height = 13
Caption = #23458#25143#22320#22336':'
end
object Label14: TLabel
Left = 238
Top = 155
Width = 52
Height = 13
Caption = #23458#25143'Email:'
end
object Label15: TLabel
Left = 16
Top = 206
Width = 28
Height = 13
Caption = #22791#27880':'
end
object CB_GoodClassName: TComboBox
Left = 74
Top = 21
Width = 91
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'CB_GoodClassName'
OnChange = CB_GoodClassNameChange
end
object CB_GoodName: TComboBox
Left = 296
Top = 21
Width = 147
Height = 21
ItemHeight = 13
TabOrder = 1
Text = 'CB_GoodName'
end
object CB_SellWay: TComboBox
Left = 74
Top = 61
Width = 91
Height = 21
ItemHeight = 13
ItemIndex = 0
TabOrder = 2
Text = #28120#23453#32593#24215
Items.Strings = (
#28120#23453#32593#24215
#25293#25293#32593#24215
#26131#36259#32593#24215
#38134#34892#27719#27454
#25163#26426#20805#20540
#20854#20182#26041#24335)
end
object Edt_SellMoney: TEdit
Left = 296
Top = 61
Width = 81
Height = 21
TabOrder = 3
Text = '0'
end
object CB_Year: TComboBox
Left = 74
Top = 93
Width = 55
Height = 21
ItemHeight = 13
TabOrder = 4
Text = 'CB_Year'
end
object CB_Day: TComboBox
Left = 213
Top = 93
Width = 44
Height = 21
ItemHeight = 13
TabOrder = 5
Text = 'ComboBox1'
end
object CB_Month: TComboBox
Left = 153
Top = 93
Width = 40
Height = 21
ItemHeight = 13
TabOrder = 6
Text = 'ComboBox1'
end
object Edt_customerName: TEdit
Left = 74
Top = 125
Width = 121
Height = 21
TabOrder = 7
end
object Edt_customerQQ: TEdit
Left = 296
Top = 125
Width = 121
Height = 21
TabOrder = 8
end
object Edt_customerTelephone: TEdit
Left = 74
Top = 152
Width = 121
Height = 21
TabOrder = 9
end
object Edt_customerEmail: TEdit
Left = 296
Top = 152
Width = 121
Height = 21
TabOrder = 10
end
object Edt_customerAddress: TEdit
Left = 74
Top = 179
Width = 343
Height = 21
TabOrder = 11
end
object Memo: TMemo
Left = 72
Top = 206
Width = 345
Height = 51
TabOrder = 12
end
object Btn_AddInfo: TButton
Left = 118
Top = 274
Width = 75
Height = 25
Caption = #28155#21152#20449#24687
TabOrder = 13
OnClick = Btn_AddInfoClick
end
object Btn_Cancle: TButton
Left = 215
Top = 274
Width = 75
Height = 25
Caption = #21462#28040
TabOrder = 14
OnClick = Btn_CancleClick
end
object SellInfoADOQuery: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\SellManage.mdb' +
';Persist Security Info=False'
Parameters = <>
Left = 304
Top = 272
end
object GoodClassADOQuery: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\SellManage.mdb' +
';Persist Security Info=False'
Parameters = <>
Left = 344
Top = 272
end
object GoodNameADOQuery: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\SellManage.mdb' +
';Persist Security Info=False'
Parameters = <>
Left = 384
Top = 272
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -