以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用户登陆有几个问题，麻烦版主解答一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103965)
--  作者：初心不改再说未来
--  发布时间：2017/7/20 13:44:00
--  用户登陆有几个问题，麻烦版主解答一下
1、怎么设置系统登陆时有默认用户的情况下直接登陆（默认用户已设置好）
2、怎么设置如果登陆的不是指定的用户组，点击某些按钮提示“请登陆后进行下一步操作”？例如默认用户登陆后就不能点击此按钮。
3、怎么设置除开发者之外的用户登陆时，隐藏部分按钮？例如管理按钮。
--  作者：初心不改再说未来
--  发布时间：2017/7/20 13:45:00
--  
然后如何在功能区显示用户当前登陆状态及相关提示？
--  作者：有点甜
--  发布时间：2017/7/20 14:45:00
--  

1、查找默认用户设置的那一列，如果有数据，就直接登陆。

 

2、按钮那里写代码判断，判读登陆的用户组。

 

3、窗口AfterLoad事件写代码判断用户，对应设置控件隐藏。

 

请上传具体例子说明问题。
--  作者：初心不改再说未来
--  发布时间：2017/7/20 15:07:00
--  
以下是引用有点甜在2017/7/20 14:45:00的发言：

1、查找默认用户设置的那一列，如果有数据，就直接登陆。

 

2、按钮那里写代码判断，判读登陆的用户组。

 

3、窗口AfterLoad事件写代码判断用户，对应设置控件隐藏。

 


版主这个代码应该怎么写？其他的都写出来了，这3个实在不会
--  作者：有点甜
--  发布时间：2017/7/20 15:11:00
--  

1、

 

Dim fdr As DataRow = DataTables("表A").find("默认 = true")

If fdr isNot Nothing Then

    _UserName=fdr("用户名")

End If

 

2、

 

If _UserGroup <> "经理" then

    msgbox("请先登录")

    return

End If

 

3、

 

If _UserName <> "开发者" then

    e.form.controls("button1").Visible = False

    e.form.controls("button2").Visible = False

End If

 

 
--  作者：初心不改再说未来
--  发布时间：2017/7/20 15:30:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170720152841.jpg
图片点击可在新窗口打开查看

如图，如果想在这个位置显示出来这些红字，代码应该怎么写？
--  作者：有点甜
--  发布时间：2017/7/20 15:50:00
--  

放一个按钮控件，然后afterOpenProject写代码

 

Dim bmp As new bitmap(500， 80)
Dim g = graphics.fromimage(bmp)
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable" & vbcrlf & "通知 xxxx"
g.DrawString(msg,fnt,Brushes.black,10,10)
RibbonTabs("功能区1").Groups("功能组1").Items("标准按钮3").LargeImage = bmp