以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  可以在导航设置用户权限吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=5501)
--  作者：huaneng
--  发布时间：2009/12/14 19:35:00
--  可以在导航设置用户权限吗?

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
if Bar.SelectedIndex = 0 Then
Tables("导航_Table1").DataSource = DataTables("客户信息")
Tables("导航_Table1").OpenView("a")
Dim Lbl1 As WinForm.Label = Forms("导航").Controls("Label1") 
Lbl1.Text = "客户信息"
ElseIf Bar.SelectedIndex = 1 Then
Tables("导航_Table1").DataSource = DataTables("产品目录")
Tables("导航_Table1").OpenView("a")
Dim Lbl1 As WinForm.Label = Forms("导航").Controls("Label1") 
Lbl1.Text = "产品目录"

希望用户A只能打开客户信息表,如打开产品目录表会提示没有权限
(在导航窗口中的表都是副本的)
--  作者：czy
--  发布时间：2009/12/14 19:40:00
--  
if User.Name = "A" Then
    if e.Sender.SelectedIndex = 1 Then
        MessageBox.Show("你没有权限!")
    End If
End If
--  作者：huaneng
--  发布时间：2009/12/14 23:23:00
--  
谢谢,,,,基本可以解决问题了,