customerlistform.frm

即时通讯

  Call sxjl
End Sub

Private Sub Form_Resize()
    MSHFlexGrid1.Height = Me.Height - 1400
    MSHFlexGrid1.Width = Me.Width - 350
    
    If (MSHFlexGrid1.Height > MSHFlexGrid1.Height - 300) Or (MSHFlexGrid1.Width > MSHFlexGrid1.Width - 200) Then
        MSHFlexGrid1.Height = MSHFlexGrid1.Height + 400
        MSHFlexGrid1.Width = MSHFlexGrid1.Width + 200
    End If
End Sub

Private Sub MSHFlexGrid1_DblClick()
    Dim ret As Boolean
    
    ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CUSTOMER_MODIFY)))       ' 权限判断
            
    If Not ret Then
        MainForm.g_msgText = "该功能您无权操作！"
        HMsgBox MainForm.g_msgText, 0, 1
        Exit Sub
    End If
    
    
    Dim irow As Integer
    CustomerSingleForm.customer_type = 0                                            ' 传递参数--表示修改客户的一条记录
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
        customer_id = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))            ' 选取MSHFlexGrid1的某一行的客户编号
        CustomerSingleForm.show 1
        If q = 1 Then
           RefreshQueryList
        Else
           sxjl
        End If
    Else                                                                            ' 判断有没有选中MSHFlexgrid1的某一行
        MainForm.g_msgText = "对不起您的操作有误，请重试！!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
End Sub

Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim ret As Boolean
    Select Case Button.Key
        Case "xg"                                                                   ' 修 改
            ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CUSTOMER_MODIFY)))       ' 权限判断
            
            If Not ret Then
                MainForm.g_msgText = "该功能您无权操作！"
                HMsgBox MainForm.g_msgText, 0, 1
                Exit Sub
            End If
            CustomerSingleForm.customer_type = 0                                    ' 参数传递--表示修改一条记录
            If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) <> "" Then
                 customer_id = Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
                 CustomerSingleForm.show 1
                 If q = 1 Then
                    RefreshQueryList
                 Else
                    sxjl
                 End If
            Else                                                                    ' 判 断
                 MainForm.g_msgText = "对不起您的操作有误，请重试！!"
                 Call HMsgBox(MainForm.g_msgText, 0, 1)
                 Exit Sub
            End If
        Case "sc"                                                                   ' 删 除
            ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CUSTOMER_MODIFY)))       ' 权限判断
            
            If Not ret Then
                MainForm.g_msgText = "该功能您无权操作！"
                HMsgBox MainForm.g_msgText, 0, 1
                Exit Sub
            End If
            Call delete                                                             ' 调用delete函数
            Call sxjl                                                               ' 调用sxjl函数
        Case "xz"                                                                   ' 新 增
               ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CUSTOMER_NEW)))       ' 权限判断
            
            If Not ret Then
                MainForm.g_msgText = "该功能您无权操作！"
                HMsgBox MainForm.g_msgText, 0, 1
                Exit Sub
            End If
             CustomerSingleForm.customer_type = 1                                   ' 参数传递--表示增加一条记录
             CustomerSingleForm.show 1
             sxjl
        Case "sx"                                                                   ' 刷 新
            q = 0
             Call sxjl
        Case "tc"                                                                   ' 退 出
             Unload Me
        Case "cx"
            ret = yhqxpd(MainForm.g_application.m_userId, Trim(str(CUSTOMER_CX)))       ' 权限判断
            
            If Not ret Then
                MainForm.g_msgText = "该功能您无权操作！"
                HMsgBox MainForm.g_msgText, 0, 1
                Exit Sub
            End If
            Call cxjl
        Case "wx"
            CooperateFinishlist.show 1
    End Select
End Sub
'**************************************
'*    功 能 描 述 :显示客户档案的所有记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub sxjl()
    Dim ret As Boolean
    ret = m_customerDAO.C_Refresh(m_recordset)
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
    Call showform
    GetRecordToList m_recordset
    m_recordset.Close
End Sub
'**************************************
'*    功 能 描 述 :删除一条记录
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub delete()
    If Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0)) = "" Then             ' 删除选中的记录
        MainForm.g_msgText = "请选择一条记录!!"
        Call HMsgBox(MainForm.g_msgText, 0, 1)
        Exit Sub
    End If
    MainForm.g_msgText = "确定删除这条记录吗？"
    Dim f As String
    f = HMsgBox(MainForm.g_msgText, 2, 1)
    If f = 1 Then
        m_customerDAO.DeletecustomerId m_recordset, Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.row, 0))
    End If
End Sub

Private Sub showform()

    MSHFlexGrid1.TextMatrix(0, 0) = "客户编号"           '初始化MSHFLexGrid1的各列的名称
    MSHFlexGrid1.TextMatrix(0, 1) = "客户名称"
    MSHFlexGrid1.TextMatrix(0, 2) = "建档日期"
    MSHFlexGrid1.TextMatrix(0, 3) = "信用额度"
    MSHFlexGrid1.TextMatrix(0, 4) = "联系地址"
    MSHFlexGrid1.TextMatrix(0, 5) = "联系人"
    MSHFlexGrid1.TextMatrix(0, 6) = "税号"
    MSHFlexGrid1.TextMatrix(0, 7) = "开户银行"
    MSHFlexGrid1.TextMatrix(0, 8) = "银行帐号"
    MSHFlexGrid1.TextMatrix(0, 9) = "联系电话"
    MSHFlexGrid1.TextMatrix(0, 10) = "备用电话"
    MSHFlexGrid1.TextMatrix(0, 11) = "联系手机"
    MSHFlexGrid1.TextMatrix(0, 12) = "传真"
    MSHFlexGrid1.TextMatrix(0, 13) = "电子邮件"
    MSHFlexGrid1.TextMatrix(0, 14) = "网络地址"
    MSHFlexGrid1.TextMatrix(0, 15) = "帐号"
    MSHFlexGrid1.TextMatrix(0, 16) = "付款期限"
    MSHFlexGrid1.TextMatrix(0, 17) = "收款期限"
    MSHFlexGrid1.TextMatrix(0, 18) = "公司名称"
    MSHFlexGrid1.TextMatrix(0, 19) = "法人代表"
    MSHFlexGrid1.TextMatrix(0, 20) = "记帐地址"
    MSHFlexGrid1.TextMatrix(0, 21) = "城市"
    MSHFlexGrid1.TextMatrix(0, 22) = "省份"
    MSHFlexGrid1.TextMatrix(0, 23) = "邮政编码"
    MSHFlexGrid1.TextMatrix(0, 24) = "国家"
    MSHFlexGrid1.TextMatrix(0, 25) = "业务来源"
    MSHFlexGrid1.TextMatrix(0, 26) = "税票"
    MSHFlexGrid1.TextMatrix(0, 27) = "记录时间"
    MSHFlexGrid1.TextMatrix(0, 28) = "业务员"
    MSHFlexGrid1.TextMatrix(0, 29) = "隶属"
    MSHFlexGrid1.TextMatrix(0, 30) = "备注"
    
    
    
                                                                    '设置列对齐方式  7-右对齐 5-居中对齐 2-左对齐
    MSHFlexGrid1.ColAlignment(0) = 2
    MSHFlexGrid1.ColAlignment(1) = 2
    MSHFlexGrid1.ColAlignment(2) = 2
    MSHFlexGrid1.ColAlignment(3) = 8
    MSHFlexGrid1.ColAlignment(4) = 2
    MSHFlexGrid1.ColAlignment(5) = 2
    MSHFlexGrid1.ColAlignment(6) = 2
    MSHFlexGrid1.ColAlignment(7) = 2
    MSHFlexGrid1.ColAlignment(8) = 2
    MSHFlexGrid1.ColAlignment(9) = 2
    MSHFlexGrid1.ColAlignment(10) = 2
    MSHFlexGrid1.ColAlignment(11) = 2
    MSHFlexGrid1.ColAlignment(12) = 2
    MSHFlexGrid1.ColAlignment(13) = 2
    MSHFlexGrid1.ColAlignment(14) = 2
    MSHFlexGrid1.ColAlignment(15) = 2
    MSHFlexGrid1.ColAlignment(16) = 2
    MSHFlexGrid1.ColAlignment(17) = 2
    MSHFlexGrid1.ColAlignment(18) = 2
    MSHFlexGrid1.ColAlignment(19) = 2
    MSHFlexGrid1.ColAlignment(20) = 2
    MSHFlexGrid1.ColAlignment(21) = 2
    MSHFlexGrid1.ColAlignment(22) = 2
    MSHFlexGrid1.ColAlignment(23) = 2
    MSHFlexGrid1.ColAlignment(24) = 2
    MSHFlexGrid1.ColAlignment(25) = 2
    MSHFlexGrid1.ColAlignment(26) = 2
    MSHFlexGrid1.ColAlignment(27) = 2
    MSHFlexGrid1.ColAlignment(28) = 2
    MSHFlexGrid1.ColAlignment(29) = 2
    MSHFlexGrid1.ColAlignment(30) = 2
  
    
    MSHFlexGrid1.ColWidth(0) = 5
End Sub


Private Sub cxjl()
    q = 1
    QueryFom.m_currentQuery = QUERY_CUSTOMER
    QueryFom.m_operateType = 1
    QueryFom.show vbModal
    m_idList = MainForm.g_application.m_queryResultId
    
    RefreshQueryList       ' 显示查询到的结果
End Sub
Private Sub RefreshQueryList()
    Dim ret As Boolean
    
    ' 显示查询到的结果
    On Error GoTo EXITFUN
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    InsertQueryIdList m_idList                             ' 把要显示的记录ID列表插入临时表
    ret = m_customerDAO.Customer_showinfoList(m_recordset)    ' 查找记录
    
    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 提交事务
    
    MSHFlexGrid1.clear
    MSHFlexGrid1.Rows = 2         ' 清空该控件的内容
    Call showform
    If ret Then
        GetRecordToList m_recordset
    End If
    Text1.text = Trim(m_recordset.RecordCount)
    m_recordset.Close
    Exit Sub
    
EXITFUN:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans  ' 回滚事务
End Sub
'**************************************
'*    功 能 描 述 :从数据集中取出记录在列表中显示
'*    输 入 参 数 :无
'*    输 出 能 数 :无
'**************************************
Private Sub GetRecordToList(recSet As ADODB.Recordset)
    Dim currentrow As Integer
    With m_recordset
        currentrow = 1                                                         ' 赋初值
        Do While Not .EOF
           If currentrow > MSHFlexGrid1.Rows - 1 Then
               MSHFlexGrid1.AddItem ""
           End If
           '[>>自定义填充内容
           MSHFlexGrid1.TextMatrix(currentrow, 0) = Trim(.Fields("customerid"))
           MSHFlexGrid1.TextMatrix(currentrow, 1) = Trim(.Fields("customer"))
           MSHFlexGrid1.TextMatrix(currentrow, 2) = Trim(.Fields("founddate"))
           MSHFlexGrid1.TextMatrix(currentrow, 3) = Trim(.Fields("creditbrow"))
           MSHFlexGrid1.TextMatrix(currentrow, 4) = Trim(.Fields("address"))
           MSHFlexGrid1.TextMatrix(currentrow, 5) = Trim(.Fields("superinrtendent"))
           MSHFlexGrid1.TextMatrix(currentrow, 6) = Trim(.Fields("taxnum"))
           MSHFlexGrid1.TextMatrix(currentrow, 7) = Trim(.Fields("bank"))
           MSHFlexGrid1.TextMatrix(currentrow, 8) = Trim(.Fields("banknum"))
           MSHFlexGrid1.TextMatrix(currentrow, 9) = Trim(.Fields("phone"))
           MSHFlexGrid1.TextMatrix(currentrow, 10) = Trim(.Fields("backphone"))
           MSHFlexGrid1.TextMatrix(currentrow, 11) = Trim(.Fields("mobile"))
           MSHFlexGrid1.TextMatrix(currentrow, 12) = Trim(.Fields("fax"))
           MSHFlexGrid1.TextMatrix(currentrow, 13) = Trim(.Fields("email"))
           MSHFlexGrid1.TextMatrix(currentrow, 14) = Trim(.Fields("http"))
           MSHFlexGrid1.TextMatrix(currentrow, 15) = Trim(.Fields("accounts"))
           MSHFlexGrid1.TextMatrix(currentrow, 16) = Trim(.Fields("paymentdate"))
           MSHFlexGrid1.TextMatrix(currentrow, 17) = Trim(.Fields("gatherdate"))
           MSHFlexGrid1.TextMatrix(currentrow, 18) = Trim(.Fields("company"))
           MSHFlexGrid1.TextMatrix(currentrow, 19) = Trim(.Fields("corporation"))
           MSHFlexGrid1.TextMatrix(currentrow, 20) = Trim(.Fields("accountsaddress"))
           MSHFlexGrid1.TextMatrix(currentrow, 21) = Trim(.Fields("city"))
           MSHFlexGrid1.TextMatrix(currentrow, 22) = Trim(.Fields("province"))
           MSHFlexGrid1.TextMatrix(currentrow, 23) = Trim(.Fields("postcode"))
           MSHFlexGrid1.TextMatrix(currentrow, 24) = Trim(.Fields("state"))
           MSHFlexGrid1.TextMatrix(currentrow, 25) = Trim(.Fields("operation"))
           MSHFlexGrid1.TextMatrix(currentrow, 26) = Trim(.Fields("taxreceipt"))
           MSHFlexGrid1.TextMatrix(currentrow, 27) = Trim(.Fields("notedate"))
           MSHFlexGrid1.TextMatrix(currentrow, 28) = Trim(.Fields("counterman"))
           MSHFlexGrid1.TextMatrix(currentrow, 29) = Trim(.Fields("subjection"))
           MSHFlexGrid1.TextMatrix(currentrow, 30) = Trim(.Fields("memo"))
           '<<]
    
           '动态集指针加1,同时将计数器加1(Fixed)
           .MoveNext
           currentrow = currentrow + 1
       Loop
    End With
    Text1.text = Trim(m_recordset.RecordCount)
End Sub