我想为每个表单创建基于角色的权限。如何简单的方法可以应用？请指引我。
如果以所有者身份登录，则他可以访问所有表单，而如果以管理员身份登录，则无法使用更新按钮的主表单，并且存在用户没有访问权限的消息框，并且管理员可以显示表单2，但无法使用按钮1，并且存在用户没有访问权限的消息框。
这只是一个示例，因为原始项目有许多形式。
谢谢
表单1中的代码（登录）

Public Class Form1
    Private uService As New UserService()

    Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        'add dapper logics here 
        Dim users = uService.GetDTOUsersByUsername(txtUsername.Text)
        If users.Password = txtPassword.Text AndAlso users.Username = txtUsername.Text Then
            MessageBox.Show("Successfull, Welcome " & users.RoleName)
            Me.ShowInTaskbar = False
            Me.Hide()
            Call (New FrmMain()).ShowDialog()
            Environment.Exit(0)
        Else
            MessageBox.Show("Invalid Login details")
        End If
    End Sub
End Class
Public Class UserService
    Public Function GetOledbConnectionString() As String
        Return "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\dapperdemo.accdb;Persist Security Info=False;"
    End Function
    Private ReadOnly _conn As OleDbConnection
    Private _connectionString As String = GetOledbConnectionString()
    Public Sub New()
        _conn = New OleDbConnection(_connectionString)
    End Sub
    Public Function GetUserByUsername(ByVal Username As String) As Users
        Dim sql = $"SELECT  * FROM Users WHERE Username = '{Username}'"
            Using _conn = New OleDbConnection(GetOledbConnectionString())
            Return _conn.Query(Of Users)(sql).FirstOrDefault()
        End Using
    End Function
    Public Function GetUserByRolename(ByVal Rolename As String) As Role
        Dim sql = $"SELECT  RoleName FROM Users WHERE Username = '{Rolename}'"
        Using _conn = New OleDbConnection(GetOledbConnectionString())
            Return _conn.Query(Of Role)(sql).FirstOrDefault()
        End Using
    End Function
    Public Function GetDTOUsersByUsername(ByVal Username As String) As DTOUsers
        Dim sql = $"SELECT * FROM Users INNER JOIN Role ON Users.Roleid = Role.Roleid"
        Using _conn = New OleDbConnection(GetOledbConnectionString())
            Return _conn.Query(Of DTOUsers)(sql).FirstOrDefault()
        End Using
    End Function
End Class
Public Class Users
    Public Property Username() As String
    Public Property Password() As String
    Public Property RoleID() As Integer

End Class
Public Class Role
    Public Property RoleID() As Integer
    Public Property RoleName() As String
End Class
Public Class DTOUsers
    Public Property Username() As String
    Public Property Password() As String
    Public Property RoleName() As String

End Class

FormMain中的代码

Public Class FrmMain
    Private Sub Button2BtnShowform2_Click(sender As Object, e As EventArgs) Handles BtnShowform2.Click
        Dim frm As New Form2
        frm.ShowDialog()
    End Sub
End Class

表：用户
| 用户名|密码|RoleID|
| --|--|--|
| TEST1|测试@123| 1 |
| TEST2|测试@1234| 2 |
表：角色
| Roleid| roleName|
| --|--|
| 1 |所有者|
| 2 |Admin|
表格1（登录）

FrmMain

Form2