userright.bas

金算盘软件代码

                    .mnuAccountFixedAssetVoucher.Enabled = False
                    #If conWan <> 1 Then
                        .mnuAccount2FixVoucher.Enabled = False
                    #End If
                End If
                'oracle: G4,Acess :G2
                If Not RightInDog("GD") Or (Trim(gcolDogInfo.Item("GD")) = "G4") Then
                    '计提折旧(&D)
                    .mnuAccountDepreciation.Enabled = False
                    #If conWan <> 1 Then
                        .mnuAccount2FixOld.Enabled = False
                    #End If
                End If
                If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF")) Then
                    '自动凭证(&O)
                    .mnuAccountARAPVoucher.Enabled = False
                End If
            #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
                #If conHos <> 1 Then
                    #If conVersionType = 16 Then
                        #If conWan <> 1 Then
                            .mnuEndTrans.Enabled = False
                        #End If
                    #End If
                    #If conWan <> 1 Then
                        .mnuAccount2Trans.Enabled = False
                    #End If
                #End If
            End If
            If Not RightInDog("ZW") Then
                '期末调汇(&C)
                .mnuAccountCalcExchange.Enabled = False
                #If conHos <> 1 Then
                    #If conVersionType = 16 Then
                        .mnuEndExchange.Enabled = False
                    #End If
                #End If
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2End.Enabled = False
                    #End If
                #End If
            End If
            If Not RightInDog("ZW") Then
                '损益结转(&T)
                .mnuAccountProfitLoss.Enabled = False
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2TurnTo.Enabled = False
                    #End If
                    #If conVersionType = 16 Then
                        .mnuEndProfitLoss.Enabled = False
                    #End If
                #End If
            End If
            'oracle : ACNT4,Acess: ACNT2
            If Not (RightInDog("ZW") Or RightInDog("GZ") Or RightInDog("GD")) _
                Or (Trim(gcolDogInfo.Item("ZW")) = "ACNT4") Then
                '期末结帐(&N)
                .mnuAccountFinish.Enabled = False
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2Over.Enabled = False
                    #End If
                    #If conVersionType = 16 Then
                        .muEndFinish.Enabled = False
                    #End If
                #End If
            End If
            If Not (RightInDog("ZW") Or RightInDog("GZ") Or RightInDog("GD")) _
                Or (Trim(gcolDogInfo.Item("ZW")) = "ACNT4") Then
                '取消结帐(&I)
                .mnuAccountUnFinish.Enabled = False
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2CancelOver.Enabled = False
                    #End If
                    #If conVersionType = 16 Then
                        .muEndUnFinish.Enabled = False
                    #End If
                #End If
            End If
            
            '帐表(&R)
            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 conHos <> 1 Then
                If Not RightInDog("GZ") Then .mnuReportSalary.Enabled = False '工资(&R)
                If Not RightInDog("GD") Then .mnuReportFixed.Enabled = False  '固定资产(&D)
            #End If
            If Not RightInDog("CX") Then .mnuReportHead.Enabled = False       '领导查询(&H)
            If Not RightInDog("FX") Then .mnuReporAnalysis.Enabled = False    '财务分析(&Y)
            
            '工具(&T)
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) Then
                '财务分工(&P)
                .mnuToolRight.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) Then
                '操作日志(&L)
                .mnuToolLog.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF")) Then
                '单据格式(&Y)
                .mnuToolReceipt.Enabled = False
            End If
        End With
    #Else '标准版
        With frmMain
            '文件
'            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
'                .mnuFileNew.Enabled = False
'            Else
'                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("CG")) = "C2" Or Trim(gcolDogInfo.Item("XS")) = "X2" Or Trim(gcolDogInfo.Item("KC")) = "K2" Or Trim(gcolDogInfo.Item("WT")) = "W2" Then
'                    .mnuFileNew.Enabled = False
'                End If
'            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
                '帐套属性(&I)...
                .mnuFileProperty.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
'                .mnuFileBackup.Enabled = False
'            Else
'                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("CG")) = "C2" Or Trim(gcolDogInfo.Item("XS")) = "X2" Or Trim(gcolDogInfo.Item("KC")) = "K2" Or Trim(gcolDogInfo.Item("WT")) = "W2" Then
'                    .mnuFileBackup.Enabled = False
'                End If
'            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
'                .mnuFileRestore.Enabled = False
'            Else
'                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("CG")) = "C2" Or Trim(gcolDogInfo.Item("XS")) = "X2" Or Trim(gcolDogInfo.Item("KC")) = "K2" Or Trim(gcolDogInfo.Item("WT")) = "W2" Then
'                    .mnuFileRestore.Enabled = False
'                End If
'            End If
            'If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) Then .mnuFileImport.Enabled = False
            'If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) Then .mnuFileExport.Enabled = False
'            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
'                .mnuFileCondense.Enabled = False
'            Else
'                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("CG")) = "C2" Or Trim(gcolDogInfo.Item("XS")) = "X2" Or Trim(gcolDogInfo.Item("KC")) = "K2" Or Trim(gcolDogInfo.Item("WT")) = "W2" Then
'                    .mnuFileCondense.Enabled = False
'                End If
'            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GD") _
                Or RightInDog("CG") Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '打印单据(&T)...
                .mnuFilePrintReceipt.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")) Then
                '会计科目(&A)
                .mnuListAccount.Enabled = False
            End If
            If Not RightInDog("ZW") Then
                '科目期初(&B)
                .mnuListAccountInit.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GD") _
                Or RightInDog("CG") Or RightInDog("XS") Or RightInDog("WT")) Then
                '币种汇率(&F)
                .mnuListCurrency.Enabled = False
            End If
            If Not RightInDog("ZW") Then .mnuListVoucherType.Enabled = False  '凭证类型(&T)
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("CG") _
                Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '往来单位(&C)
                .mnuListCustomer.Enabled = False
                '往来期初(&G)
                .mnuListCustomerInit.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
                '部门职员(&E)
                .mnuListDepartment.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
                '统计项目(&L)
                .mnuListClass1.Enabled = False
            End If
            If Not (RightInDog("YS") Or RightInDog("YF") Or RightInDog("CG") Or RightInDog("XS") _
                Or RightInDog("KC") Or RightInDog("WT")) Then
                '商品劳务(&I)
                .mnuListItem.Enabled = False
                '商品期初(&K)
                .mnuListItemInit.Enabled = False
            End If
            If Not (RightInDog("CG") Or RightInDog("XS") Or RightInDog("KC") Or RightInDog("WT")) Then
                '自定项目(&U)
                .mnuListCustom.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("CG") Or RightInDog("KC") Or RightInDog("YH")) Then
                '付款方式(&P)
                .mnuListPaymentMethod.Enabled = False
            End If
            If Not (RightInDog("YS") Or RightInDog("YF") Or RightInDog("CG") Or RightInDog("XS") _
                Or RightInDog("KC") Or RightInDog("WT")) Then
                '付款条件(&R)
                .mnuListTerm.Enabled = False
            End If
            If Not RightInDog("GD") Then
                '固定资产(&D)
                .mnuListFixedAsset.Enabled = False
                '固资期初(&J)
                .mnuListFixedInit.Enabled = False
            End If
             
            '购销