modfunction.bas

企业ERP系统 采用VB+SQL2000实现。 有客户合约

            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceLoanRepay").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceLoanRepay").Enabled = False
        End If
        If rs.Fields!Chk56 = 1 Then '应付账款
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceDeal").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceDeal").Enabled = False
        End If
        If rs.Fields!Chk57 = 1 Then '应收账款明细
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceGathering").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceGathering").Enabled = False
        End If
        If rs.Fields!Chk58 = 1 Then '应收账款汇总
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceGatheringList").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceGatheringList").Enabled = False
        End If
        If rs.Fields!Chk59 = 1 Then '支票管理
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceCheque").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceCheque").Enabled = False
        End If
        If rs.Fields!Chk60 = 1 Then '出纳收支
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinance").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuFinance").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinance").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuFinance").Enabled = False
        End If
        If rs.Fields!Chk61 = 1 Then '银行流水管理
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceBank").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceBank").Enabled = False
        End If
        If rs.Fields!Chk62 = 1 Then '出纳费用核算
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceBS").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceBS").Enabled = False
        End If
        If rs.Fields!Chk63 = 1 Then '发票管理
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceInvoice").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceInvoice").Enabled = False
        End If
        If rs.Fields!Chk64 = 1 Then '会计收支
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceTax").Enabled = True
            'frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuFinanceTax").Enabled = True
        Else
            'frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuFinanceTax").Enabled = False
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceTax").Enabled = False
            
        End If
        If rs.Fields!Chk65 = 1 Then '会计费用核算
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceAccountant").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuFinance").Tools.item("menuFinanceAccountant").Enabled = False
        End If
        
        If rs.Fields!Chk70 = 1 Then '客户分布统计
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomer").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomer").Enabled = False
        End If
        If rs.Fields!Chk71 = 1 Then '月度和年度新增客户走势
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearMonth").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearMonth").Enabled = False
        End If
        If rs.Fields!Chk72 = 1 Then '月度销售额走势
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonth").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonth").Enabled = False
        End If
        If rs.Fields!Chk73 = 1 Then '月度销售利润走势
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthSell").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthSell").Enabled = False
        End If
        If rs.Fields!Chk74 = 1 Then '月度销售回款对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthGathering").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthGathering").Enabled = False
        End If
        If rs.Fields!Chk75 = 1 Then '产品销售额对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionProduct").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionProduct").Enabled = False
        End If
        If rs.Fields!Chk76 = 1 Then '往年同期产品对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearProduct").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearProduct").Enabled = False
        End If
        If rs.Fields!Chk77 = 1 Then '客户销售回款对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerGathering").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerGathering").Enabled = False
        End If
        If rs.Fields!Chk78 = 1 Then '客户产品销售额分析
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerProduct").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerProduct").Enabled = False
        End If
        If rs.Fields!Chk79 = 1 Then '客户开发成本对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerEmpolder").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionCustomerEmpolder").Enabled = False
        End If
        If rs.Fields!Chk80 = 1 Then '月度客户开发成本对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthEmpolder").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionMonthEmpolder").Enabled = False
        End If
        If rs.Fields!Chk81 = 1 Then '往年同期开发成本对比
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearEmpolder").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuDecision").Tools.item("menuDecisionYearEmpolder").Enabled = False
        End If
    End If
    rs.Close
    Set rs = Nothing
    Exit Sub
errHandle:
    Set rs = Nothing
    objDatabase.DatabaseError
End Sub



Public Function GetRate(rateName As String) As Currency
    If Trim$(rateName) = "" Then Exit Function
        Dim rs As ADODB.Recordset
    'On Error GoTo errlabel
    Set rs = New ADODB.Recordset
    With rs
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      Set .ActiveConnection = cn
    End With
    rs.Open "select rate from trateset where ratename=" & objDatabase.FormatSQL(rateName)
    If Not rs.EOF Then
        GetRate = NullValue(rs.Fields!Rate)
    Else
        GetRate = 1
    End If
    rs.Close

remClear:
    Set rs = Nothing
    Exit Function
errLabel:
    objDatabase.DatabaseError
    GoTo remClear
End Function


'显示货品信息
Public Sub ViewProduct(productNo As String, lngRow As Long)
             If productNo = "" Then
                MsgBox "请选择一条要修改查看的货品信息！", vbCritical, "提示"
                Exit Sub
            End If
'            frmProductInfo.newProduct = False
'            frmProductInfo.productNo = productNo
'            frmProductInfo.lngRow = lngRow
'            frmProductInfo.Show vbModal
End Sub