frmcustomcodelist.frm

金算盘软件代码

        End If
        '恢复“全部显示”复选框
        mblnCheckNoChange = True
        chkShowAll.Value = IIf(mclsList(.Tab).ShowAll, 1, 0)
        mblnCheckNoChange = False
        '改变钩子对象的作用窗体
        mclsSubClass.hWnd = mclsList(.Tab).FlexGrid.hWnd
        mclsList(.Tab).FlexNoChange = False
        mclsList(.Tab).FindNoChange = False
    End With
End Sub


'
'查找内容 TextBox 控件
'
Private Sub txtFind_Change()
    mclsList(sstCustomer.Tab).txtFindChange
End Sub

'应主控对象事件
'

'编辑卡片
Private Sub mclsMainControl_EditEdit()
    Select Case sstCustomer.Tab
        Case 0
            frmCustomerEdit.Show
            'ListID(sstDepEmp.Tab)
        Case 1
            frmCustomerTypeEdit.Show
            'ListID(sstDepEmp.Tab)
    End Select
End Sub

'新增卡片
Private Sub mclsMainControl_EditNew()
    Select Case sstCustomer.Tab
        Case 0
            frmCustomerNew.Show
        Case 1
            frmCustomerTypeEdit.Show
    End Select
End Sub

'删除记录
Private Sub mclsMainControl_EditDel()
    Dim lngID As Long
    Dim recRecordset As Recordset
    
    lngID = ListID(sstCustomer.Tab)
'    If mIsShowCard Then
'        If lngID = frmCustomerCard.CustomerID Then
'            MsgBox "不能删除当前编辑的付款方式！", vbExclamation
'            frmCustomerCard.SetFocus
'            Exit Sub
'        End If
'    End If
    
    Set recRecordset = GetByListID(sstCustomer.Tab, lngID)
    If recRecordset.RecordCount = 0 Then    '当前往来单位已被其他用户删除
        mclsMainControl_ToolRefresh
    Else
        If IsUseCustomerID(lngID, sstCustomer.Tab) Then
            Select Case sstCustomer.Tab
                Case 0:
                    MessageBox Me.hWnd, "当前选定的单位类型正在使用，不能删除！", "单位类型删除提示", &H40&
                Case 1:
                    MessageBox Me.hWnd, "当前选定的往来单位正在使用，不能删除！", "往来单位删除提示", &H40&
            End Select
        Else
            If DelByCustomerID(lngID, sstCustomer.Tab) Then
                mclsMainControl_ToolRefresh
            End If
        End If
    End If
    recRecordset.Close
End Sub

'停用/启用记录
Private Sub mclsMainControl_EditInActive()
    Dim recRecordset As Recordset
    
    '按照当前往来单位ID提取记录
    With sstCustomer
'        Set recRecordset = GetByListID(.Tab, ListID(.Tab))
'        If recRecordset.RecordCount = 0 Then
'            MsgBox "当前往来单位已被其它用户删除！请刷新列表", vbExclamation
'        Else
            If UpdateListInActive(.Tab, ListID(.Tab), Not ListIsInActive(.Tab)) Then
                With mclsList(.Tab).FlexGrid
                    If .TextMatrix(.Row, 1) = "" Then
                        .TextMatrix(.Row, 1) = "√"
                    Else
                        .TextMatrix(.Row, 1) = ""
                    End If
                End With
                'mclsMainControl_ToolRefresh
            End If
'        End If
    End With
'    recRecordset.Close
End Sub

'全部显示/显示未停用记录
Private Sub mclsMainControl_EditShowAll()
    frmMain.mnuEditShowAll.Checked = Not frmMain.mnuEditShowAll.Checked
    If chkShowAll.Value = 0 Then
        chkShowAll.Value = 1
    Else
        chkShowAll.Value = 0
    End If
End Sub

'引用编码
Private Sub mclsMainControl_EditUse()
    
End Sub

'搜索
Private Sub mclsMainControl_EditSearch()
    
End Sub

'刷新
Private Sub mclsMainControl_ToolRefresh()
    Dim i As Integer
    Dim strOldText As String
    Dim strOldSort As String
    
    Me.MousePointer = vbHourglass
    With sstCustomer
        '保存当前排序列
        mclsList(.Tab).GetOldSort strOldSort, strOldText
        '刷新列表记录
        mclsList(.Tab).FlexGrid.cols = 0
        datCustomer(.Tab).Recordset.Requery
        mclsList(.Tab).FlexGrid.Redraw = False
        If datCustomer(.Tab).Recordset.RecordCount = 0 Then
            'mclsList(.tab).IsSelected = False
        End If
        '设置FlexGrid列表
        mclsList(.Tab).SetFlexGrid
        
        '恢复以前排序列
        cboFindKind.Text = strOldSort
        If mclsList(.Tab).FlexGrid.Row > 1 Then
            mclsList(.Tab).Find.Text = strOldText
        End If
        mclsList(.Tab).FlexGrid.Redraw = True
    End With
    '更新菜单状态
    UpdateMenuStatus
    
    '发出付款方式消息
'    gclsSys.SendMessage CStr(Me.hwnd), Message.mclsList(.Tab).FlexGrid
    Me.MousePointer = vbDefault
End Sub

Private Sub mclsMainControl_FilePrint()
    MsgBox "Print"
End Sub

Private Sub mclsMainControl_ListEditMenu(ByVal intIndex As Integer)
    Select Case intIndex
    Case 0:
        mclsMainControl_EditEdit
    Case 1:
        mclsMainControl_EditNew
    Case 2:
        mclsMainControl_EditDel
    Case 4:
        mclsMainControl_EditInActive
    Case 5:
        mclsMainControl_EditShowAll
    Case 7:
        mclsMainControl_EditUse
    Case 9:
        mclsMainControl_EditNotepad
    Case 11:
        mclsMainControl_EditFilter
    Case 13:
        mclsMainControl_EditSearch
    Case 15
        mnuUpdate '调整折扣率
    Case 17
        mnuComStart '往来期初
    Case 19
        mclsMainControl_EditColumn
    Case 21:
         mclsMainControl_ToolRefresh
    Case 23:
        mclsMainControl_FilePrint
    
    End Select
End Sub

'
' 编辑菜单
'
Private Sub MakeListEditMenu()
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListEditMenu.Count - 1 To 1 Step -1
            Unload .mnuListEditMenu(intCnt)
        Next
        
        Utility.CloneMenu .mnuEditEdit, .mnuListEditMenu(0)
        
        Load .mnuListEditMenu(1)
        Utility.CloneMenu .mnuEditNew, .mnuListEditMenu(1)
        
        Load .mnuListEditMenu(2)
        Utility.CloneMenu .mnuEditDel, .mnuListEditMenu(2)
        
        Load .mnuListEditMenu(3)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(3)
        
        Load .mnuListEditMenu(4)
        Utility.CloneMenu .mnuEditInActive, .mnuListEditMenu(4)
        
        Load .mnuListEditMenu(5)
        Utility.CloneMenu .mnuEditShowAll, .mnuListEditMenu(5)
        
        Load .mnuListEditMenu(6)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(6)
        
        Load .mnuListEditMenu(7)
        Utility.CloneMenu .mnuEditUse, .mnuListEditMenu(7)
        
        Load .mnuListEditMenu(8)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(8)
        
        Load .mnuListEditMenu(9)
        Utility.CloneMenu .mnuEditNotepad, .mnuListEditMenu(9)
       
        
        Load .mnuListEditMenu(10)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(10)
        
        Load .mnuListEditMenu(11)
        Utility.CloneMenu .mnuEditFilter, .mnuListEditMenu(11)
        
        Load .mnuListEditMenu(12)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(12)
        
        Load .mnuListEditMenu(13)
        Utility.CloneMenu .mnuEditSearch, .mnuListEditMenu(13)
        
        Load .mnuListEditMenu(14)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(14)
                   
        Load .mnuListEditMenu(15)
        .mnuListEditMenu(15).Caption = "调整折扣率(&Z)"
        .mnuListEditMenu(15).Enabled = True
        .mnuListEditMenu(15).Visible = True
                      
        Load .mnuListEditMenu(16)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(16)
        
        Load .mnuListEditMenu(17)
        .mnuListEditMenu(17).Caption = "往来期初(&G)"
        .mnuListEditMenu(17).Enabled = True
        .mnuListEditMenu(17).Visible = True
        
        Load .mnuListEditMenu(18)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(18)
                    
        Load .mnuListEditMenu(19)
        Utility.CloneMenu .mnuEditColumn, .mnuListEditMenu(19)
        
        Load .mnuListEditMenu(20)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(20)
              
        Load .mnuListEditMenu(21)
        Utility.CloneMenu .mnuToolRefresh, .mnuListEditMenu(21)
        
        Load .mnuListEditMenu(22)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(22)
        
        Load .mnuListEditMenu(23)
        Utility.CloneMenu .mnuFilePrint, .mnuListEditMenu(23)
    End With
End Sub



'
' 业务菜单
'
Private Sub MakeListActivityMenu()
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListActivityMenu.Count - 1 To 1 Step -1
            Unload .mnuListActivityMenu(intCnt)
        Next
        
        Utility.CloneMenu .mnuAccountReceive, .mnuListActivityMenu(0)
        
        Load .mnuListActivityMenu(1)
        Utility.CloneMenu .mnuAccountPayment, .mnuListActivityMenu(1)
         
        Load .mnuListActivityMenu(2)
        Utility.CloneMenu .mnuAccountAR, .mnuListActivityMenu(2)
        
        Load .mnuListActivityMenu(3)
        Utility.CloneMenu .mnuAccountAP, .mnuListActivityMenu(3)
        
    End With
End Sub


'
' 报表菜单
'
Private Sub MakeListReportMenu(Optional ByVal strReportName As String = "")
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListReportMenu.Count - 1 To 1 Step -1
            Unload .mnuListReportMenu(intCnt)
        Next
        
        .mnuListReportMenu(0).Caption = "应收帐款明细帐:" & strReportName & "(&R)"
        .mnuListReportMenu(0).Enabled = True
        .mnuListReportMenu(0).Visible = True
        
        Load .mnuListReportMenu(1)
        .mnuListReportMenu(1).Caption = "应付帐款明细帐:" & strReportName & "(&P)"
        .mnuListReportMenu(1).Enabled = True
        .mnuListReportMenu(1).Visible = True
        
        
        Load .mnuListReportMenu(2)
        .mnuListReportMenu(2).Caption = "-"
        
        Load .mnuListReportMenu(3)
        .mnuListReportMenu(3).Caption = "往来单位一览表(&T)"
        .mnuListReportMenu(3).Enabled = True
        .mnuListReportMenu(3).Visible = True
        
        Load .mnuListReportMenu(4)
        .mnuListReportMenu(4).Caption = "应收总帐(&G)"
        .mnuListReportMenu(4).Enabled = True
        .mnuListReportMenu(4).Visible = True
        
        Load .mnuListReportMenu(5)
        .mnuListReportMenu(5).Caption = "应付总帐(&Z)"
        .mnuListReportMenu(5).Enabled = True
        .mnuListReportMenu(5).Visible = True
        
        Load .mnuListReportMenu(6)
        .mnuListReportMenu(6).Caption = "应付款帐龄分析报表(&Y)"
        .mnuListReportMenu(6).Enabled = True
        .mnuListReportMenu(6).Visible = True
        
        Load .mnuListReportMenu(7)
        .mnuListReportMenu(7).Caption = "应收款帐龄分析报表(&F)"
        .mnuListReportMenu(7).Enabled = True
        .mnuListReportMenu(7).Visible = True
        
    End With
End Sub



'
'  菜单事件
'
'
'调整折扣率
Private Sub mnuUpdate()
    frmCustromerChang.Show
End Sub

''往来期初
Private Sub mnuComStart()
    'dfgfg
End Sub

'记事簿
Private Sub mclsMainControl_EditNotepad()
    
End Sub

'收款单
Private Sub AccountReceive()

End Sub

'付款单
Private Sub Accountpayment()

End Sub

'应收单
Private Sub AccountAR()

End Sub

'应付单
Private Sub AccountAP()

End Sub

'应收明细
Private Sub AccountAR_Detail()

End Sub

'应付明细
Private Sub AccountAP_Detail()

End Sub

'往来单位一览表
Private Sub Customer_Detail()

End Sub

'应收总帐
Private Sub AccountAR_Total()

End Sub

'应付总帐
Private Sub AccountAP_Total()

End Sub

'应付帐龄分析表
Private Sub AccountAP_Analyse()

End Sub

'应收帐龄分析表
Private Sub AccountAR_Analyse()

End Sub

'查找单位名称和单位类型
Private Sub pop()
  Dim i As Integer
  
  With mclsList(1).FlexGrid
        .Redraw = False
        For i = 1 To .cols - 1
            If .TextMatrix(0, i) = fieldName Then
                strfieldName = .TextMatrix(.Row, i)
                Exit For
            End If
       Next
       For i = 1 To .cols - 1
           If .TextMatrix(0, i) = fieldType Then
                strfieldType = .TextMatrix(.Row, i)
                Exit For
            End If
       Next
      .Redraw = True
End With

End Sub