📄 frmcustomerinsert.frm
字号:
Caption = "公司简介"
Height = 195
Left = 7650
TabIndex = 51
Top = 1230
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "经营领域"
Height = 195
Left = 180
TabIndex = 50
Top = 1200
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "企业人数"
Height = 195
Left = 7800
TabIndex = 49
Top = 5640
Width = 720
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "注册资金"
Height = 195
Left = 3630
TabIndex = 48
Top = 2280
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "营业收入"
Height = 195
Left = 7650
TabIndex = 47
Top = 2190
Width = 720
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "产品服务"
Height = 195
Left = 3630
TabIndex = 46
Top = 1200
Width = 720
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "法人代表"
Height = 195
Left = 3630
TabIndex = 45
Top = 2880
Width = 720
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "采购负责人"
Height = 195
Left = 7470
TabIndex = 44
Top = 2820
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "销售负责人"
Height = 195
Left = 3450
TabIndex = 43
Top = 3360
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "财务负责人"
Height = 195
Left = 7500
TabIndex = 42
Top = 3480
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "所在区域"
Height = 195
Left = 180
TabIndex = 41
Top = 3000
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "地址"
Height = 195
Left = 3990
TabIndex = 40
Top = 3960
Width = 360
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "邮编"
Height = 195
Left = 540
TabIndex = 39
Top = 3480
Width = 360
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "公司电话"
Height = 195
Left = 3630
TabIndex = 38
Top = 4560
Width = 720
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "传真"
Height = 195
Left = 8040
TabIndex = 37
Top = 4680
Width = 360
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "邮件"
Height = 195
Left = 540
TabIndex = 36
Top = 3960
Width = 360
End
Begin VB.Label Label22
AutoSize = -1 'True
Caption = "主页"
Height = 195
Left = 3990
TabIndex = 35
Top = 5040
Width = 360
End
Begin VB.Label Label23
AutoSize = -1 'True
Caption = "信用等级"
Height = 195
Left = 180
TabIndex = 34
Top = 4440
Width = 720
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "贡献率"
Height = 195
Left = 360
TabIndex = 33
Top = 5520
Width = 540
End
Begin VB.Label Label25
AutoSize = -1 'True
Caption = "退货率"
Height = 195
Left = 3810
TabIndex = 32
Top = 5640
Width = 540
End
Begin VB.Label Label26
AutoSize = -1 'True
Caption = "开户行"
Height = 195
Left = 360
TabIndex = 31
Top = 5040
Width = 540
End
Begin VB.Label Label27
AutoSize = -1 'True
Caption = "银行帐号"
Height = 195
Left = 180
TabIndex = 30
Top = 2370
Width = 720
End
End
Begin VB.CommandButton cmdApply
Caption = "应用"
Height = 495
Left = 9630
TabIndex = 2
Top = 7080
Width = 1455
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 495
Left = 8070
TabIndex = 1
Top = 7080
Width = 1335
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 495
Left = 6300
TabIndex = 0
Top = 7080
Width = 1575
End
End
Attribute VB_Name = "frmCustomerInsert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdApply_Click()
'新加仓库
Dim objCustomer As New clsCustomer
With objCustomer
.m_ID = newGUID()
.m_Name = Me.txtName.Text
.m_No = Me.txtNo.Text
.m_PatentID = Me.gcbPatentID.Item("ID")
.m_Address = Me.txtAddress.Text
.m_AreaID = Me.txtAreaID.Text
.m_Back = Me.txtBack.Text
.m_BackProfile = Me.txtBackProfile.Text
.m_BackRate = Me.IntBackRate.Text
.m_Capital = Me.intCapital.Text
.m_ContributeRate = Me.intContributeRate.Text
.m_Credit = Me.gcbCredit.Text
.m_Email = Me.txtEmail.Text
.m_Fax = Me.txtFax.Text
.m_FictitiousMan = Me.txtFictitiousMan.Text
.m_FinanceMan = Me.txtFinanceMan.Text
.m_Http = Me.txtHttp.Text
.m_Management = Me.txtManagement.Text
.m_ManNumber = Me.intManNumber.Text
.m_OwnerShip = Me.gcbOwnerShip.Text
.m_PostCode = Me.txtPostCode.Text
.m_PurchaseMan = Me.txtPurchaseMan.Text
.m_SaleMan = Me.txtSaleMan.Text
.m_Service = Me.txtService.Text
.m_Status = Me.gcbStatus.Text
.m_Synopsis = Me.txtSynopsis.Text
.m_Taking = Me.intTaking.Text
.m_Telephone = Me.txtTelephone.Text
.m_Type = Me.gcbType.Text
If Not .Insert() Then
MsgBox "插入失败,请检查数据合法性!", vbInformation, "新增客户"
Else
frmCustomer.RefreshData
End If
End With
End Sub
Private Sub cmdCancel_Click()
Unload Me
frmCustomer.RefreshData
End Sub
Private Sub cmdOK_Click()
'新加仓库
Dim objCustomer As New clsCustomer
With objCustomer
.m_ID = newGUID()
.m_Name = Me.txtName.Text
.m_No = Me.txtNo.Text
.m_PatentID = Me.gcbPatentID.Item("ID")
.m_Address = Me.txtAddress.Text
.m_AreaID = Me.txtAreaID.Text
.m_Back = Me.txtBack.Text
.m_BackProfile = Me.txtBackProfile.Text
.m_BackRate = Me.IntBackRate.Text
.m_Capital = Me.intCapital.Text
.m_ContributeRate = Me.intContributeRate.Text
.m_Credit = Me.gcbCredit.Text
.m_Email = Me.txtEmail.Text
.m_Fax = Me.txtFax.Text
.m_FictitiousMan = Me.txtFictitiousMan.Text
.m_FinanceMan = Me.txtFinanceMan.Text
.m_Http = Me.txtHttp.Text
.m_Management = Me.txtManagement.Text
.m_ManNumber = Me.intManNumber.Text
.m_OwnerShip = Me.gcbOwnerShip.Text
.m_PostCode = Me.txtPostCode.Text
.m_PurchaseMan = Me.txtPurchaseMan.Text
.m_SaleMan = Me.txtSaleMan.Text
.m_Service = Me.txtService.Text
.m_Status = Me.gcbStatus.Text
.m_Synopsis = Me.txtSynopsis.Text
.m_Taking = Me.intTaking.Text
.m_Telephone = Me.txtTelephone.Text
.m_Type = Me.gcbType.Text
If Not .Insert() Then
MsgBox "插入失败,请检查数据合法性!", vbInformation, "新增客户"
Else
Unload Me
frmCustomer.RefreshData
End If
End With
End Sub
Private Sub Form_Load()
Dim Customer As New clsCustomer
'center the form
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Me.gcbCredit.AddItem "A"
Me.gcbCredit.AddItem "AA"
Me.gcbCredit.AddItem "AAA"
Me.gcbCredit.AddItem "AAAA"
Me.gcbCredit.AddItem "AAAAA"
Me.gcbCredit.ListIndex = 2
Me.gcbOwnerShip.AddItem "国有"
Me.gcbOwnerShip.AddItem "私人"
Me.gcbOwnerShip.AddItem "集体"
Me.gcbOwnerShip.AddItem "合资"
Me.gcbOwnerShip.ListIndex = 0
Me.gcbStatus.AddItem "潜在"
Me.gcbStatus.AddItem "正式"
Me.gcbStatus.AddItem "不用"
Me.gcbStatus.ListIndex = 1
Me.gcbType.AddItem "供应商"
Me.gcbType.AddItem "分销商"
Me.gcbType.AddItem "批发商"
Me.gcbType.AddItem "加盟商"
Me.gcbType.AddItem "消费者"
Me.gcbType.AddItem " 物流公司"
Me.gcbType.ListIndex = 0
Me.gcbPatentID.RelativeList Customer.GetList("ID,Name", , "Name"), "Name"
Me.gcbPatentID.AddItem "没有公司"
Me.gcbPatentID.ListIndex = Me.gcbPatentID.NewIndex
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -