[VB.NET]登陆窗口登陆成功后的ID值如何取出来....

大佬教程收集整理的这篇文章主要介绍了[VB.NET]登陆窗口登陆成功后的ID值如何取出来....，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

登陆窗口登陆成功后的ID值如何取出来.... Public UserName As String = Public UserId As String = Public Shared Sub Main() 显示登陆对话框 Dim loginFrm As frmLogin = New frmLogin loginFrm.ShowDialog() 合法用户进入系统 If loginFrm.bResult = True Then Dim frm As frmMain = New frmMain frm.UserName = loginFrm.UserName frm.UserId = loginFrm.UserId Application.Run(frm) End If Application.Run(New frmMain) End Sub Private Sub Setright(ByVal sUserId As String) If sUserId = 1 Then MenuItemGoodsInfo.Enabled = True MenuItemSupplyInfo.Enabled = True MenuItemClienTinfo.Enabled = True MenuItemOrderList.Enabled = True MenuItemSellList.Enabled = True MenuItemDepotSearch.Enabled = True MenuItemManageRight.Enabled = True End if Dim db As DataBase = New DataBase 根据当前登陆用户从数据库查询他的权限 Dim strSQL As String = SELECT 用户编号,权限名称 strSQL += FROM 权限清单 where 用户编号= + sUserId + Dim dvRight As DataView = db.RunSELEctSQL(strSQL) Dim i As Integer Dim sRight As String 根据当前登陆用户权限设置菜单项是否可用 For i = 0 To dvRight.Count - 1 sRight = dvRight(i)( 权限名称 ) sRight = sRight.Trim() If sRight = MenuItemGoodsInfo.Text.Trim() Then MenuItemGoodsInfo.Enabled = True ElseIf sRight = MenuItemSupplyInfo.Text.Trim() Then MenuItemSupplyInfo.Enabled = True ElseIf sRight = MenuItemClienTinfo.Text.Trim() Then MenuItemClienTinfo.Enabled = True ElseIf sRight = MenuItemOrderList.Text.Trim() Then MenuItemOrderList.Enabled = True ElseIf sRight = MenuItemSellList.Text.Trim() Then MenuItemSellList.Enabled = True ElseIf sRight = MenuItemDepotSearch.Text.Trim() Then MenuItemDepotSearch.Enabled = True ElseIf sRight = MenuItemManageRight.Text.Trim() Then MenuItemManageRight.Enabled = True End If Next db.Dispose() End Sub Private Sub frmMain_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load 根据登陆用户的ID设置菜单 Me.Setright(Me.UserId) End Sub __________________________________________________________________________ 好象没取出来,因为除了 1 以外的ID都是灰色菜单.... __________________________________________________________________________ 我也觉得奇怪，登陆时设个全局变量很困难一样。 __________________________________________________________________________ 你也这个问题? __________________________________________________________________________ 我顶~~~ __________________________________________________________________________ 我也在弄权限设定，不会写代码，帮楼上的顶，楼上的解决了话发我一份参考下 __________________________________________________________________________ 取个值咋就这么难..... __________________________________________________________________________ 我继续顶 __________________________________________________________________________ 还顶,帮忙啊~~~~~ __________________________________________________________________________ 帮你顶 __________________________________________________________________________ 你试一下在frmMain中写个窗体重载，然后通过这个重载过程来传递ID值等参数。 __________________________________________________________________________ 调整下思路，新增个模块文件，在里面申明个全局变量UserId，里面创建过程 Public Sub Main() 在过程里写登录代码，在登录窗口中记录登录的用户ID,并用变量记录客户是选择确定，还是取消操作。 判断客户选择的操作，如果是取消操作，则退出系统，如果是确定操作，则根据用户ID设置权限。 最后修改工程的启动对象为Sub Main __________________________________________________________________________

大佬总结

以上是大佬教程为你收集整理的[VB.NET]登陆窗口登陆成功后的ID值如何取出来....全部内容，希望文章能够帮你解决[VB.NET]登陆窗口登陆成功后的ID值如何取出来....所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。