modfunction.bas

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

Attribute VB_Name = "modFunction"
Option Explicit
'XP风格
Public Declare Function classXP Lib "ClassXP.dll" Alias "ClassXP" (ByVal hwnd As Long, ByVal dwFlags As Long) As Long

'本程序专用函数模块





'菜单权限设置
Public Sub MenuRole()
    Dim strSql As String
    Dim rs As ADODB.Recordset
    
    strSql = "select * from trole where operator=" & objDatabase.FormatSQL(userInf.userName)
    On Error GoTo errHandle
    Set rs = New ADODB.Recordset
    With rs
      .CursorLocation = adUseClient
      .CursorType = adOpenDynamic
      .LockType = adLockOptimistic
      Set .ActiveConnection = cn
    End With
    rs.Open strSql
    If Not rs.EOF Then
        If rs.Fields!Chk01 = 1 Then '数据库设置
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemDatabase").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemDatabase").Enabled = False
        End If
        If rs.Fields!Chk02 = 1 Then '系统设置
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemSet").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemSet").Enabled = False
        End If
        If rs.Fields!Chk03 = 1 Then '个性设置
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemIndividuality").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemIndividuality").Enabled = False
        End If
        If rs.Fields!Chk04 = 1 Then '操作员维护
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemOperator").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemOperator").Enabled = False
        End If
        If rs.Fields!Chk05 = 1 Then '操作员权限设置
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemRole").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemRole").Enabled = False
        End If
        If rs.Fields!Chk06 = 1 Then '登录日志
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemLog").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSystem").Tools.item("menuSystemLog").Enabled = False
        End If
        
        If rs.Fields!Chk10 = 1 Then '可维护客户信息
            userInf.customerUpdate = True
        Else
            userInf.customerUpdate = False
        End If
        
        userInf.customerRole = NullValue(rs.Fields!Chk11)
        If rs.Fields!Chk11 = 1 Then '客户信息1,本人,2部门,3全部
            frmMain.ActiveBar21.Bands("menuCustomer").Tools.item("menuCustomerInfo").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuCustomerInfo").Enabled = True
            strSqlCustomer = " and Operation=" & objDatabase.FormatSQL(userInf.userName) & " "
        ElseIf rs.Fields!Chk11 = 2 Then '客户信息1,本人,2部门,3全部
            frmMain.ActiveBar21.Bands("menuCustomer").Tools.item("menuCustomerInfo").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuCustomerInfo").Enabled = True
            strSqlCustomer = " and Operation  in (select Operator from tOperatorInfo where Dept= " & objDatabase.FormatSQL(userInf.userDept) & ") "
        ElseIf rs.Fields!Chk11 = 3 Then '客户信息1,本人,2部门,3全部
            frmMain.ActiveBar21.Bands("menuCustomer").Tools.item("menuCustomerInfo").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuCustomerInfo").Enabled = True
            strSqlCustomer = ""
        Else
            frmMain.ActiveBar21.Bands("menuCustomer").Tools.item("menuCustomerInfo").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuCustomerInfo").Enabled = False
        End If

        
       
        
        If rs.Fields!Chk22 = 1 Then '货品信息
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseProduct").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuStorehouseProduct").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseProduct").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuStorehouseProduct").Enabled = False
        End If
        If rs.Fields!Chk23 = 1 Then '货品调合
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseConcoction").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseConcoction").Enabled = False
        End If
        If rs.Fields!Chk24 = 1 Then '货品盘点
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseCheck").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseCheck").Enabled = False
        End If
        If rs.Fields!Chk25 = 1 Then '货品库存
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseStockpile").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuStorehouse").Tools.item("menuStorehouseStockpile").Enabled = False
        End If
        
        If rs.Fields!Chk30 = 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!Chk31 = 1 Then '利润表
            'frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuFinanceProfit").Enabled = True
        Else
           ' frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuFinanceProfit").Enabled = False
        End If
        
       
        If rs.Fields!Chk40 = 1 Then '业务员行程表
            frmMain.ActiveBar21.Bands("menuOperation").Tools.item("menuOperationHodometer").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuOperationHodometer").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuOperation").Tools.item("menuOperationHodometer").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuOperationHodometer").Enabled = False
        End If
        If rs.Fields!Chk41 = 1 Then '业务员评分
            frmMain.ActiveBar21.Bands("menuOperation").Tools.item("menuTel").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuTel").Enabled = True
        Else
            
            frmMain.ActiveBar21.Bands("menuOperation").Tools.item("menuTel").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuTel").Enabled = False
        End If

        
        If rs.Fields!Chk50 = 1 Then '报价
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellQuotedprice").Enabled = True

        Else
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellQuotedprice").Enabled = False

        End If
        If rs.Fields!Chk51 = 1 Then '提成支付
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellSample").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellSample").Enabled = False
        End If
        If rs.Fields!Chk52 = 1 Then '业务费管理
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellorder").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuStorehouseGodownentry").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellorder").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuStorehouseGodownentry").Enabled = False
        End If
        If rs.Fields!Chk53 = 1 Then '科目设置
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellFactory").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSell").Tools.item("menuSellFactory").Enabled = False
        End If
        If rs.Fields!Chk54 = 1 Then '资金管理
            frmMain.ActiveBar21.Bands("menuSellorder").Tools.item("menuSellorder").Enabled = True
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuSellorder").Enabled = True
        Else
            frmMain.ActiveBar21.Bands("menuSellorder").Tools.item("menuSellorder").Enabled = False
            frmMain.ActiveBar21.Bands("toolbal").Tools.item("menuSellorder").Enabled = False
        End If
        If rs.Fields!Chk55 = 1 Then '借款/还款