主题：用户登陆有几个问题，麻烦版主解答一下

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

 

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

 

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

 

请上传具体例子说明问题。

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

 

 

放一个按钮控件，然后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