vb.net2017+sql2019如何在登录的时候根据在登录后根据用户权限显示不同的窗体

Question

主界面代码
Public Class fm_main
Public quanxian As String
Public myConn As SqlConnection
Public myAdpt As SqlDataAdapter
Public cmdData As SqlCommand
Public myBuilder As SqlCommandBuilder
Public dbSet As DataSet
Public strAllSql As String
Public sqlCmdBuilder As SqlCommandBuilder
Public connStr As String = "Data Source=" + Dlg_fuwuqi.tb_ip.Text +"\MSSQLSERVER2019;Initial Catalog=行动项管理;Integrated Security=false;User ID=sa;Password=123456"

   Sub OperateDGV(ByVal str As String)
    myConn = New SqlConnection(connStr)
    cmdData = New SqlCommand(str, myConn)
    myAdpt = New SqlDataAdapter(cmdData)
    myBuilder = New SqlCommandBuilder(myAdpt)
    dbSet = New DataSet
    myConn.Open()
End Sub

登录确定按钮代码：
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
fm_main.strAllSql = "select * from 用户表 where 姓名='" & Usernametb.Text.Trim & "' and 登录密码='" & Passwordtb.Text.Trim & "'"
fm_main.OperateDGV(fm_main.strAllSql)
fm_main.myAdpt.Fill(fm_main.dbSet, "用户表")
Dim tj As Integer = fm_main.dbSet.Tables("用户表").Rows.Count

    If tj = 0 Then
        MsgBox("用户名和密码错误，请重新输入！")
    Else
        MsgBox("登陆成功！……")
            Me.Hide()
            fm_main.Show()
        End If
    fm_main.myConn.Close()
End Sub

vb.net2017+sql2019如何在登录的时候根据在登录后根据用户权限显示不同的窗体

Answer 1

如果 fm_main 是登录窗体，你可以设计另外两个窗体 form1 和form2, 用户登录时查询其对应的角色，如果是'下发者'，则让form1.show()，如果是普通用户，则让 form2.show()