Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:可以在导航设置用户权限吗?

1楼
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只能打开客户信息表,如打开产品目录表会提示没有权限
(在导航窗口中的表都是副本的)

2楼
czy 发表于:2009/12/14 19:40:00
if User.Name = "A" Then
    if e.Sender.SelectedIndex = 1 Then
        MessageBox.Show("你没有权限!")
    End If
End If
3楼
huaneng 发表于:2009/12/14 23:23:00
谢谢,,,,基本可以解决问题了,

共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.