userright.bas

金算盘软件代码

            If Not RightInDog("CG") Then .mnuTaskPurchaseOrder.Enabled = False    '采购订单(&U)
            If Not RightInDog("XS") Then .mnuTaskSaleOrder.Enabled = False        '销售订单(&O)
            If Not RightInDog("CG") Then .mnuTaskPurchase.Enabled = False         '商品采购(&P)
            If Not RightInDog("CG") Then .mnuTaskPurchaseExpense.Enabled = False  '采购分摊(&X)
            If Not RightInDog("CG") Then .mnuTaskSale.Enabled = False             '商品销售(&S)
            If Not RightInDog("CG") Then .mnuTaskDirectPurchase.Enabled = False   '直运采购(&D)
            If Not RightInDog("XS") Then .mnuTaskDirectSale.Enabled = False       '直运销售(&I)
            If Not RightInDog("CG") Then .mnuTaskBorrowIn.Enabled = False         '受托入库(&B)
            If Not RightInDog("CG") Then .mnuTaskBorrowPurchase.Enabled = False   '受托结算(&R)
            If Not RightInDog("XS") Then .mnuTaskStageOut.Enabled = False         '分期出库(&T)
            If Not RightInDog("XS") Then .mnuTaskStageSale.Enabled = False        '分期结算(&G)
            If Not RightInDog("XS") Then .mnuTaskLendOut.Enabled = False          '委托出库(&L)
            If Not RightInDog("XS") Then .mnuTaskLendSale.Enabled = False         '委托结算(&E)
            If Not RightInDog("XS") Then .mnuTaskLendPosition.Enabled = False     '委托调拨(&N)
            If Not RightInDog("CG") Then .mnuTaskPurchaseInvoice.Enabled = False  '采购发票(&C)
            If Not RightInDog("XS") Then .mnuTaskSaleInvoice.Enabled = False      '销售发票(&A)
            #If conWan = 1 Then
                If Not RightInDog("CG") Then
                    .mnuTaskItemPurchaseVoucher.Enabled = False         '采购凭证(&V)
                End If
                If Not RightInDog("XS") Then
                    .mnuTaskItemSaleVoucher.Enabled = False         '销售凭证(&O)
                End If
            #Else
                If Not (RightInDog("CG") Or RightInDog("XS")) Then
                    .mnuTaskItemVoucher.Enabled = False         '购销凭证(&V)
                End If
            #End If
            
            '库存
            If Not RightInDog("WT") Then .mnuInventoryEntrustOut.Enabled = False       '加工出库(&N)
            If Not RightInDog("WT") Then .mnuInventoryEntrustIn.Enabled = False        '加工入库(&E)
            If Not RightInDog("WT") Then .mnuInventoryEntrustExpense.Enabled = False   '加工费用(&P)
            If Not RightInDog("WT") Then .mnuInventoryEntrustApportion.Enabled = False '加工分摊(&A)
            #If conWan = 1 Then
                If Not RightInDog("WT") Then .mnuInventoryEntrustVoucher.Enabled = False '加工凭证(&I)
            #End If
'            If Not RightInDog("KC") Then .mnuInventoryCheckIn.Enabled = False          '验收入库(&F)
'            If Not RightInDog("KC") Then .mnuInventoryCheckOut.Enabled = False         '出库发货(&G)
            If Not RightInDog("KC") Then .mnuInventoryIn.Enabled = False               '自制入库(&I)
            If Not RightInDog("KC") Then .mnuInventoryOut.Enabled = False              '领用出库(&O)
            If Not RightInDog("KC") Then .mnuInventoryOtherIn.Enabled = False          '其它入库(&T)
            If Not RightInDog("KC") Then .mnuInventoryOtherOut.Enabled = False         '其它出库(&H)
            If Not RightInDog("KC") Then .mnuInventoryStockTaking.Enabled = False      '商品盘点(&K)
            If Not RightInDog("KC") Then .mnuInventoryCheckUp.Enabled = False          '盘盈入库(&U)
            If Not RightInDog("KC") Then .mnuInventoryCheckDown.Enabled = False        '盘亏出库(&D)
            If Not RightInDog("KC") Then .mnuInventoryItemPosition.Enabled = False     '商品调拨(&S)
            If Not RightInDog("KC") Then .mnuInventoryAdjustItem.Enabled = False       '拆卸组装(&X)
            If Not RightInDog("KC") Then .mnuInventoryItemPrice.Enabled = False        '商品调价(&R)
            If Not RightInDog("KC") Then .mnuInventoryCostPrice.Enabled = False        '入库成本(&Y)
            If Not RightInDog("KC") Then .mnuInventoryCostAdjust.Enabled = False       '成本调整(&B)
            'oracle : K4,Acess K2
            If Not RightInDog("KC") Or (Trim(gcolDogInfo.Item("KC")) = "K4") Then
                .mnuInventoryInventoryCost.Enabled = False        '成本计算(&C)
            End If
            #If conWan = 1 Then
                If Not RightInDog("KC") Then .mnuInventoryVoucher.Enabled = False '库存凭证(&V)
            #End If
            '财务
            If Not RightInDog("ZW") Then
                #If conWan <> 1 Then
                    '记帐凭证(&V)
                    .mnuAccountVoucher.Enabled = False
                #End If
            End If
            #If conWan <> 1 Then
                If Not RightInDog("YS") Then .mnuAccountAR.Enabled = False   '应收款项(&R)
            #Else
                If Not RightInDog("YS") Then .mnuAccountARDebit.Enabled = False  '应收借项(&R)
                If Not RightInDog("YS") Then .mnuAccountARCrebit.Enabled = False  '应收贷项(&Q)
            #End If
            If Not RightInDog("YS") Then .mnuAccountFinanceCharge.Enabled = False    '应收计息(&J)
            #If conWan <> 1 Then
                If Not RightInDog("YF") Then .mnuAccountAP.Enabled = False   '应付款项(&F)
            #Else
                If Not RightInDog("YF") Then .mnuAccountAPDebit.Enabled = False    '应付借项(&D)
                If Not RightInDog("YF") Then .mnuAccountAPCrebit.Enabled = False    '应付贷项(&F)
            #End If
            #If conWan = 1 Then
                If Not (RightInDog("YF") Or RightInDog("YS")) Then
                    .mnuAccountARAPVoucher.Enabled = False         ''往来凭证(&F)
                End If
            #End If
            'If Not RightInDog("ZW") Then .mnuAccountReceive.Enabled = False
            'If Not RightInDog("ZW") Then .mnuAccountPayment.Enabled = False
            'zj(2000-02-18)
            If Not RightInDog("YH") Then .mnuAccountReceive.Enabled = False    '其他收款(&E)
            If Not RightInDog("YH") Then .mnuAccountPayment.Enabled = False    '其他付款(&A)
            If Not RightInDog("ZW") Then
                '银行对帐(&B)
                .mnuAccountReconcile.Enabled = False
            End If
            #If conWan = 1 Then
                If Not RightInDog("YH") Then
                    .mnuAccountRPVoucher.Enabled = False         '收支凭证(&V)
                End If
            #End If
            If Not RightInDog("GZ") Then
                '工资发放(&Y)
                .mnuAccountSalary.Enabled = False
                #If conWan = 1 Then
                    .mnuAccountCreatSalary.Enabled = False '建工资表(&C)
                #End If
            End If
            If Not RightInDog("GZ") Then
                '工资凭证(&L)
                .mnuAccountSalaryVoucher.Enabled = False
            End If
            If Not RightInDog("GD") Then
                #If conWan <> 1 Then
                    '固资变动(&X)
                    .mnuAccountFixedAsset.Enabled = False
                #Else
                    .mnuAccountFixedAdd.Enabled = False    '固资增加(&A)
                    .mnuAccountFixedOther.Enabled = False  '固资减少(&J)
                    .mnuAccountFixedSub.Enabled = False    '其它变动(&X)
                #End If
            End If
            If Not RightInDog("GD") Then
                '固资凭证(&P)
                .mnuAccountFixedAssetVoucher.Enabled = False
            End If
            'oracle :G4 Access: G2
            If Not RightInDog("GD") Or (Trim(gcolDogInfo.Item("GD")) = "G4") Then
                '计提折旧(&D)
                .mnuAccountDepreciation.Enabled = False
            End If
            
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("CG") _
                Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '自动凭证(&O)
                .mnuAccountARAPVoucher.Enabled = False
            End If
            'zj (2000-02-18)
            If Not RightInDog("ZW") Then
                #If conHos <> 1 And conWan <> 1 Then
                    #If conVersionType = 16 Then
                        If (Not gclsBase.ControlAccount And gclsBase.BaseNoControl) Then
                            .mnuAccount2MoneyRate.Enabled = False
                        Else
                            '科目计息(&K)
                            .mnuEndMoneyRate.Enabled = False
                        End If
                    #Else
                        .mnuAccountMoneyRate.Enabled = False
                    #End If
                #End If
            End If
            If Not RightInDog("ZW") Then
                '通用转帐(&M)
                .mnuAccountTemplate.Enabled = False
            End If
            If Not RightInDog("ZW") Then
                '期末调汇(&C)
                .mnuAccountCalcExchange.Enabled = False
            End If
            If Not RightInDog("ZW") Then
                '损益结转(&T)
                .mnuAccountProfitLoss.Enabled = False
            End If
            'oracle: ACNT4,Aceess: ACNT2
            If Not (RightInDog("ZW") Or RightInDog("GZ") Or RightInDog("GD") Or RightInDog("CG") _
                Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Or (Trim(gcolDogInfo.Item("ZW")) = "ACNT4") Then
                '期末结帐(&N)
                .mnuAccountFinish.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("GZ") Or RightInDog("GD") Or RightInDog("CG") _
                Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Or (Trim(gcolDogInfo.Item("ZW")) = "ACNT4") Then
                '取消结帐(&I)
                .mnuAccountUnFinish.Enabled = False
            End If
            
            '帐表
            If Not RightInDog("ZW") Then .mnuReportAccount.Enabled = False   '帐务(&A)
            If Not RightInDog("YS") Then .mnuReportAR.Enabled = False        '应收(&V)
            If Not RightInDog("YF") Then .mnuReportAP.Enabled = False        '应付(&F)
            'If Not RightInDog("ZW") Then .mnuReportCash.Enabled = False      '现金银行(&C)
            'zj(2000-02-18)
            If Not RightInDog("YH") Then .mnuReportCash.Enabled = False      '现金银行(&C)
            If Not RightInDog("GZ") Then .mnuReportSalary.Enabled = False    '工资(&R)
            If Not RightInDog("GD") Then .mnuReportFixed.Enabled = False     '固定资产(&D)
            If Not RightInDog("CG") Then .mnuReportPurchase.Enabled = False  '采购(&P)
            If Not RightInDog("XS") Then .mnuReportSale.Enabled = False      '销售(&S)
            If Not RightInDog("KC") Then .mnuReportStorage.Enabled = False   '库存(&G)
            #If conVersionType <> 16 Then
                If Not RightInDog("JY") Then .mnuReporFareAnalysis.Enabled = False   '经营分析(&J)
                If Not RightInDog("WT") Then .mnuReportWt.Enabled = False    '委托加工(&W)
            #End If
            If Not RightInDog("CX") Then .mnuReportHead.Enabled = False      '领导查询(&H)
            If Not RightInDog("FX") Then .mnuReporAnalysis.Enabled = False   '财务分析(&Y)
           
            '工具
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") _
                Or RightInDog("GD") Or RightInDog("CG") Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '财务分工(&P)
                .mnuToolRight.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") _
                Or RightInDog("GD") Or RightInDog("CG") Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '操作日志(&L)
                .mnuToolLog.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("CG") _
                Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '单据格式(&Y)
                .mnuToolReceipt.Enabled = False
            End If
        End With
    #End If
End Function
'根据加密狗判定权限可用性
Private Function IsUseRightByDog(ByVal lngRightID As Long) As Boolean
    IsUseRightByDog = False
    #If conVersionType = 16 Then
        Select Case lngRightID
            ''''*文件
            Case 1 '新建帐套
                If RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD") Then IsUseRightByDog = True
                If Trim(gcolDogInfo.Item("ZW")) = "ACNT2" Or Trim(gcolDogInfo.Item("YS")) = "Y2" Or Trim(gcolDogInfo.Item("YF")) = "Y2" Or Trim(gcolDogInfo.Item("GZ")) = "G2" _
                 Or Trim(gcolDogInfo.Item("GD")) = "G2" _
                 Or Trim(gcolDogInfo.Item("YS")) = "Y4" Or Trim(gcolDogInfo.Item("YF")) = "Y4" _
                 Or Trim(gcolDogInfo.Item("ZW")) = "ACNT4" Or Trim(gcolDogInfo.Item("GD")) = "G4" Then IsUseRightByDog = False
            Case 2 '帐套属性
                If RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD") Then IsUseRightByDog = True
                
            Case 3 '数据备份
                If RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD") Then IsUseRightByDog = True
                If Trim(gcolDogInfo.Item("ZW")) = "ACNT2" Or Trim(gcolDogInfo.Item("YS")) = "Y2" Or Trim(gcolDogInfo.Item("YF")) = "Y2" Or Trim(gcolDogInfo.Item("GZ")) = "G2" _
                 Or Trim(gcolDogInfo.Item("GD")) = "G2" _
                 Or Trim(gcolDogInfo.Item("YS")) = "Y4" Or Trim(gcolDogInfo.Item("YF")) = "Y4" _
                 Or Trim(gcolDogInfo.Item("ZW")) = "ACNT4" Or Trim(gcolDogInfo.Item("GD")) = "G4" Then IsUseRightByDog = False
            Case 4 '数据恢复
                If RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD") Then IsUseRightByDog = True
                If Trim(gcolDogInfo.Item("ZW")) = "ACNT2" Or Trim(gcolDogInfo.Item("YS")) = "Y2" Or Trim(gcolDogInfo.Item("YF")) = "Y2" Or Trim(gcolDogInfo.Item("GZ")) = "G2" _