1.用窗口设计器中的菜单编辑器设计了窗口的菜单,如果是用户分组为管理员的用户登录,则显示“用户管理”功能组;如果是其他用户登录,则隐藏该功能组。此主题相关图片如下:qq截图20180318101127.jpg
2.另外,如何将登录用户的信息显示在窗口的状态栏中?
我现在窗口的afterload中设置了这样的代码:
Dim dr As DataRow = DataTables("users").Find("Name = '" & _UserName & "'")
If dr IsNot Nothing Then
Dim Str1 As String = "授权用户: " & dr("Group") & " 当前登录用户: " & _UserName & " 日期:" & Date.Today & ", 星期" & "日一二三四五六".Chars(Today.DayOfWeek)
StatusBar.Message2 = Str1
End If
但显示在foxtable主菜单的状态栏中,想让它显示在我设计的主窗口的状态栏中。
多次麻烦老师,每次老师都耐心解答,真的非常感谢!