mdlrights.bas

一个简单的快餐店收银软件

Attribute VB_Name = "mdlRights"
'**********************************************
'*    模 块 名 称 :权限模块
'*    功 能 描 述 :
'*    程序员姓名  : 罗胸怀
'*    最后修改人  : 罗胸怀
'*    最后修改时间:2005-05-18
'*    备        注:
'**********************************************

Public Function GetUserRights(sUserID As String, sRights As String) As Boolean
Dim rsRights As New ADODB.Recordset
    sSQL = "SELECT UserInfo.uCode, UserInfo.ucName, Rights.rCode, Rights.rName, Rights.rRightsName, Rights.rValue"
    sSQL = sSQL & " FROM UserInfo INNER JOIN Rights ON UserInfo.uRightCode = Rights.rCode"
    sSQL = sSQL & " where UserInfo.uCode='" & sUserID & "'"
    sSQL = sSQL & " and Rights.rRightsName='" & sRights & "'"
    If rsRights.State <> 0 Then rsRights.Close
    Set rsRights = Conn.Execute(sSQL)
    If Not rsRights.EOF Then
        If rsRights.Fields("rValue") = "是" Then
            GetUserRights = True
        ElseIf rsRights.Fields("rValue") = "否" Then
            GetUserRights = False
        End If
    Else
        'MsgBox "用户 [ " & sUserID & " ] 中关于 [" & sRights & "] 授权资料不存在，请联系管理员！", vbInformation, "提示窗口"
        GetUserRights = False
        Exit Function
    End If
    If rsRights.State <> 0 Then rsRights.Close
    Set rsRights = Nothing
End Function

Public Function GetRights(sRightssub As String, sRights As String) As Boolean
Dim rsRights As New ADODB.Recordset

    sSQL = "SELECT Rights.rCode, Rights.rName, Rights.rRightsName, Rights.rValue"
    sSQL = sSQL & " FROM Rights INNER JOIN RightsAll ON Rights.rRightsName = RightsAll.rRightsName"
    sSQL = sSQL & " Where (((Rights.rCode) = '" & Trim(sRightssub) & "') And ((Rights.rRightsName) = '" & Trim(sRights) & "'))"

    If rsRights.State <> 0 Then rsRights.Close
    Set rsRights = Conn.Execute(sSQL)
    If Not rsRights.EOF Then
        If rsRights.Fields("rValue") = "是" Then
            GetRights = True
        ElseIf rsRights.Fields("rValue") = "否" Then
            GetRights = False
        End If
    Else
        GetRights = False
        Exit Function
    End If
    If rsRights.State <> 0 Then rsRights.Close
    Set rsRights = Nothing
End Function