userright.bas

金算盘软件代码

    Dim EndDate As Date
    
    gclsBase.DateOfPeriod gclsBase.AccountYear, gclsBase.Period, BeginDate, EndDate
    Select Case intFormType
        Case 1
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10015,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 2
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10038,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 3
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10061,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 4
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10084,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 5
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10107,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 6
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10130,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 7
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10153,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 8
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10176,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 9
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10222,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 11
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10245,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 12
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10268,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 13
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10291,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 14
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10314,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 15
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10337,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 16
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10360,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 17
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10383,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 18
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10406,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 19
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10429,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 20
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10452,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 21
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10475,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 22
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10498,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 79
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10622,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 80
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10944,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 81
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10634,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 82
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",11146,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 83
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10576,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        Case 142
            strSql = "INSERT INTO ListCond ( lngListID,lngViewFieldID,strPath,strDateOP,dtmDate1,dtmDate2) VALUES(" & lngListID & ",10557,'日期',4," & Format(BeginDate, "yyyy-mm-dd") & "," & Format(EndDate, "yyyy-mm-dd") & ")"
        End Select
    gclsBase.ExecSQL (strSql)
End Function
'根据加密狗设置菜单可用性
Private Function SetMenuByDog()
    #If conVersionType = 16 Then '财务版
        With frmMain
            '文件(&F)
'            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) 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" Then
'                   .mnuFileNew.Enabled = False
'                End If
'            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") _
                Or RightInDog("GD")) Then
                '帐套属性(&I)...
                .mnuFileProperty.Enabled = False
            End If
'            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) 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" Then
'                    .mnuFileBackup.Enabled = False
'                End If
'            End If
'            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GZ") Or RightInDog("GD")) 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" 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 (Trim(gcolDogInfo.Item("GZ")) = "G2") 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" Then
'                    .mnuFileCondense.Enabled = False
'                End If
'            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF") Or RightInDog("GD")) Then
                '打印单据(&T)...
                .mnuFilePrintReceipt.Enabled = False
            End If
            
            If Not (RightInDog("ZW") Or RightInDog("GZ") Or RightInDog("GD")) 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")) 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")) 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")) Then
                '部门职员(&E)
                .mnuListDepartment.Enabled = False
            End If
            If Not (RightInDog("ZW") Or RightInDog("YS") Or RightInDog("YF")) Then .mnuListClass1.Enabled = False
            #If conHos <> 1 Then
                If Not (RightInDog("YS") Or RightInDog("YF")) Then
                    '商品劳务(&I)
                    .mnuListItem.Enabled = False
                    '商品期初(&K)
                    .mnuListItemInit.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")) Then .mnuListTerm.Enabled = False '付款条件(&R)
                If Not RightInDog("GD") Then
                    '固定资产(&D)
                    .mnuListFixedAsset.Enabled = False
                    '固资期初(&J)
                    .mnuListFixedInit.Enabled = False
                End If
            #End If
            
            '财务(&A)
            If Not RightInDog("ZW") Then
                '记帐凭证(&V)
                .mnuAccountVoucher.Enabled = False
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2Voucher.Enabled = False
                    #End If
                #End If
            End If
            #If conHos <> 1 Then
                If Not RightInDog("YS") Then .mnuAccountSale.Enabled = False
                #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
            #End If
            #If conHos <> 1 Then
                If Not RightInDog("YS") Then .mnuAccountFinanceCharge.Enabled = False  '应收计息(&J)
                If Not RightInDog("YF") Then .mnuAccountPurchase.Enabled = False
                #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    '其他收款(&E)
                'If Not RightInDog("ZW") Then .mnuAccountPayment.Enabled = False    '其他付款(&A)
                'zj (2000-02-20)
                If Not RightInDog("YH") Then .mnuAccountReceive.Enabled = False    '其他收款((&E)
                If Not RightInDog("YH") Then .mnuAccountPayment.Enabled = False    '其他付款(&A)
            #End If
            'If Not RightInDog("ZW") Then
            'zj (2000-02-20)
            If Not RightInDog("YH") Then
                '银行对帐(&B)
                .mnuAccountReconcile.Enabled = False
                #If conHos <> 1 Then
                    #If conWan <> 1 Then
                        .mnuAccount2Bank.Enabled = False
                    #End If
                #End If
            End If
            #If conHos <> 1 Then
                #If conWan = 1 Then
                    If Not RightInDog("YH") Then .mnuAccountRPVoucher.Enabled = False    '收支凭证(&V)
                #End If
            #End If
            #If conHos <> 1 Then
                If Not RightInDog("GZ") Then
                    '工资发放(&Y)
                    .mnuAccountSalary.Enabled = False
                    #If conWan <> 1 Then
                        .mnuAccount2Salary.Enabled = False
                    #Else
                        .mnuAccountCreatSalary.Enabled = False '建工资表(&C)
                    #End If
                End If
                If Not RightInDog("GZ") Then
                    '工资凭证(&L)
                    .mnuAccountSalaryVoucher.Enabled = False
                    #If conWan <> 1 Then
                        .mnuAccount2SalVoucher.Enabled = False
                    #End If
                End If
                If Not RightInDog("GD") Then
                    #If conWan <> 1 Then
                        '固资变动(&X)
                        .mnuAccountFixedAsset.Enabled = False
                        .mnuAccount2FixChange.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)