Phần quyền với Access

1. Thiết kế tbUser
tbUser
UserName Pass Group

tbUser_PhanQuyen
ID Group TenFrm TenDoiTuong ChoPhep HienThi

2. Tạo frmLogin

PhanQuyen.UserName = Text0.Value
PhanQuyen.Pass = Text2.Value
If PhanQuyen.CheckUser = 1 Then

MsgBox PhanQuyen.Group

End If

3. Tạo module PhanQuyen

Option Compare Database
Public UserName As String
Public Pass As String
Public Group As String

Public Function CheckUser() As Integer



    ' Check ten dang nhap co bi rong
    If UserName = "" Then
        MsgBox "Chua nhap user ?"
        CheckUser = 0
        Return
    End If

    ' Ket noi lay du lieu tu table tbUser

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String

On Error GoTo ErrorHandler

   Set db = CurrentDb
   strSQL = "Select * From tbUser Where UserName='" & UserName & "'"
   Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)

   If rst.RecordCount = 0 Then
    CheckUser = 0
    Exit Function
   End If

   rst.MoveFirst

    If rst!Pass = Pass Then
         CheckUser = 1
    End If

Group = rst!Group

   rst.Close
   db.Close


     Exit Function

ErrorHandler:
   MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description

End Function

Public Function PhanQuyenDoiTuong(frm As Form)
Dim rst As Recordset
Set rst = md_DATA.getRecs("Select * From tbUser_PhanQuyen Where (Group='" + Group + "' AND TenFrm='" + frm.Name + "')")

If Group = "" Then
    MsgBox "Group= rong"
End If

Dim Ctrl As Control
    tongct = frm.Controls.Count
    For Each Ctrl In frm.Controls
         tenControl = Ctrl.Properties("Name")

        With rst
              'Debug.Print tenControl
              .FindFirst "TenDoiTuong='" + tenControl + "'"
              Ctrl.Enabled = .Fields("ChoPhep").Value
              Ctrl.Visible = .Fields("HienThi").Value
               'Ctrl.Enabled = .

        End With
    Next Ctrl

End Function

Mục liên quan:

0935999617