frmcustomerupdate.frm

来自「很好！ 很实用！ 免费！」· FRM 代码 · 共 706 行 · 第 1/2 页

         TabIndex        =   52
         Top             =   5520
         Width           =   540
      End
      Begin VB.Label Label23 
         AutoSize        =   -1  'True
         Caption         =   "信用等级"
         Height          =   195
         Left            =   180
         TabIndex        =   51
         Top             =   4440
         Width           =   720
      End
      Begin VB.Label Label22 
         AutoSize        =   -1  'True
         Caption         =   "主页"
         Height          =   195
         Left            =   3990
         TabIndex        =   50
         Top             =   5040
         Width           =   360
      End
      Begin VB.Label Label21 
         AutoSize        =   -1  'True
         Caption         =   "邮件"
         Height          =   195
         Left            =   540
         TabIndex        =   49
         Top             =   3960
         Width           =   360
      End
      Begin VB.Label Label20 
         AutoSize        =   -1  'True
         Caption         =   "传真"
         Height          =   195
         Left            =   8040
         TabIndex        =   48
         Top             =   4680
         Width           =   360
      End
      Begin VB.Label Label19 
         AutoSize        =   -1  'True
         Caption         =   "公司电话"
         Height          =   195
         Left            =   3630
         TabIndex        =   47
         Top             =   4560
         Width           =   720
      End
      Begin VB.Label Label18 
         AutoSize        =   -1  'True
         Caption         =   "邮编"
         Height          =   195
         Left            =   540
         TabIndex        =   46
         Top             =   3480
         Width           =   360
      End
      Begin VB.Label Label17 
         AutoSize        =   -1  'True
         Caption         =   "地址"
         Height          =   195
         Left            =   3990
         TabIndex        =   45
         Top             =   3960
         Width           =   360
      End
      Begin VB.Label Label16 
         AutoSize        =   -1  'True
         Caption         =   "所在区域"
         Height          =   195
         Left            =   180
         TabIndex        =   44
         Top             =   3000
         Width           =   720
      End
      Begin VB.Label Label15 
         AutoSize        =   -1  'True
         Caption         =   "财务负责人"
         Height          =   195
         Left            =   7500
         TabIndex        =   43
         Top             =   3480
         Width           =   900
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "销售负责人"
         Height          =   195
         Left            =   3450
         TabIndex        =   42
         Top             =   3360
         Width           =   900
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         Caption         =   "采购负责人"
         Height          =   195
         Left            =   7470
         TabIndex        =   41
         Top             =   2820
         Width           =   900
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "法人代表"
         Height          =   195
         Left            =   3630
         TabIndex        =   40
         Top             =   2880
         Width           =   720
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "产品服务"
         Height          =   195
         Left            =   3630
         TabIndex        =   39
         Top             =   1200
         Width           =   720
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         Caption         =   "营业收入"
         Height          =   195
         Left            =   7650
         TabIndex        =   38
         Top             =   2190
         Width           =   720
      End
      Begin VB.Label Label9 
         AutoSize        =   -1  'True
         Caption         =   "注册资金"
         Height          =   195
         Left            =   3630
         TabIndex        =   37
         Top             =   2280
         Width           =   720
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "企业人数"
         Height          =   195
         Left            =   7800
         TabIndex        =   36
         Top             =   5640
         Width           =   720
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         Caption         =   "经营领域"
         Height          =   195
         Left            =   180
         TabIndex        =   35
         Top             =   1200
         Width           =   720
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "公司简介"
         Height          =   195
         Left            =   7650
         TabIndex        =   34
         Top             =   1230
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "体制类型"
         Height          =   195
         Left            =   3630
         TabIndex        =   33
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "客户状态"
         Height          =   195
         Left            =   180
         TabIndex        =   32
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "上级公司"
         Height          =   195
         Left            =   7680
         TabIndex        =   31
         Top             =   240
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "客户名称"
         Height          =   195
         Left            =   3630
         TabIndex        =   30
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "客户编号"
         Height          =   195
         Left            =   180
         TabIndex        =   29
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label28 
         Caption         =   "客户类型"
         Height          =   285
         Left            =   7680
         TabIndex        =   28
         Top             =   720
         Width           =   735
      End
   End
End
Attribute VB_Name = "frmCustomerUpdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit



Private Sub cmdCancel_Click()
    Unload Me
    frmCustomer.RefreshData
End Sub

Private Sub cmdOK_Click()
'新加仓库
Dim objCustomer As New clsCustomer

    With objCustomer
        .m_ID = frmCustomer.ExcelGrid1.DataRecordset.Fields("ID").value
        .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 .Update 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
    
    Me.txtName.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Name").value
    Me.txtNo.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("NO").value
    If IsNull(frmCustomer.ExcelGrid1.DataRecordset.Fields("PatentID").value) Then
        Me.gcbPatentID.Text = "没有公司"
    Else
        Me.gcbPatentID.SelectItem "ID", frmCustomer.ExcelGrid1.DataRecordset.Fields("PatentID").value
    End If
    
    Me.txtAddress.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Address").value
    Me.txtAreaID.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("AreaID").value
    Me.txtBack.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Back").value
    Me.txtBackProfile.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("BackProfile").value
    Me.intBackRate.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("BackRate").value
    Me.intCapital.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Capital").value
    Me.intContributeRate.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("ContributeRate").value
    Me.gcbCredit.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Credit").value
    Me.txtEmail.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Email").value
    Me.txtFax.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Fax").value
    Me.txtFictitiousMan.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("FictitiousMan").value
    Me.txtFinanceMan.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("FinanceMan").value
    Me.txtHttp.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Http").value
    Me.txtManagement.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Management").value
    Me.intManNumber.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("ManNumber").value
    Me.gcbOwnerShip.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("OwnerShip").value
    Me.txtPostCode.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("PostCode").value
    Me.txtPurchaseMan.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("PurchaseMan").value
    Me.txtSaleMan.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("SaleMan").value
    Me.txtService.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Service").value
    Me.gcbStatus.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Status").value
    Me.txtSynopsis.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Synopsis").value
    Me.intTaking.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Taking").value
    Me.txtTelephone.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Telephone").value
    Me.gcbType.Text = frmCustomer.ExcelGrid1.DataRecordset.Fields("Type").value
     
End Sub