已关闭，此问题需要更focused。它目前不接受回答。
**想改善这个问题吗？**更新问题，使其只关注editing this post的一个问题。

10天前关闭。
Improve this question
如何在vb.net?中的每个表单中设置用户访问权限
下面我为每个表单USERACCESS创建了过程代码
有没有一种方法不创建每一个形式，使我可以安排在一个模块或类或如果有一些错误，在我的代码，请指导我
谢谢
CODE IN模块程序

Friend Module Program
    Public Userinformation As DTOUsers 'stores current rolename when they login.
    ''' <summary>
    ''' The main entry point for the application.
    ''' </summary>
    <STAThread>
    Public Sub Main()
        Application.EnableVisualStyles()
        Application.SetCompatibleTextRenderingDefault(False)
        Application.Run(New frmLoginRegister())
    End Sub
End Module

密码登录

Public Class frmLoginRegister
    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)
        Dim verified As Boolean = BCrypt.Net.BCrypt.Verify(txtPassword.Text, users.Password)
        If users.Username = txtUsername.Text AndAlso verified Then
            Program.Userinformation = users
            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

CODE IN模块用户信息

Public Module UserInformation
    Public UserName As String
    Public Password As String
    Public RoleId As Integer
    Public RoleName As String
End Module

表格主代码

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
    Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ToolUsername.Text = Program.Userinformation.RoleName
    End Sub
    Private Sub BtnShowform3_Click(sender As Object, e As EventArgs) Handles BtnShowform3.Click
        Dim frm As New Form3()
        frm.ShowDialog()
    End Sub
End Class

表格2中的代码

Public Class Form2
    Private Sub USERACCESS()
        Dim username = Program.Userinformation.RoleName
        If username = "Admin" Then
            DataGridView1.Columns("colDel").Visible = False
        End If
    End Sub

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        USERACCESS()
    End Sub
End Class

表格3中的代码

Public Class Form3
    Private Sub USERACCESS()
        Dim username = Program.Userinformation.RoleName
        If username = "Admin" Then
            DataGridView1.Columns("colDel").Visible = False
        End If
    End Sub
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        USERACCESS()
    End Sub
End Class

更新代码信息类模型

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

更新代码信息方法服务

Public Class UserService
    Public Function GetDTOUsersByUsername(ByVal Username As String) As DTOUsers
        Dim sql = $"SELECT * FROM Users INNER JOIN Role ON Users.Roleid = Role.Roleid where Username ='{Username}'"
        Using _conn = New OleDbConnection(GetOledbConnectionString())
            Return _conn.Query(Of DTOUsers)(sql).FirstOrDefault()
        End Using
    End Function
End Class

单主