求，权限管理的例子或者代码

Question

  根据用户权限（普通用户、超级用户等），限制菜单的显示。

Answer 1

可以试试click事件中写：
with flexgrid '你的控件名字
    .row=.mouserow
    .col=.mousecol
    msgbox .text    '这个text就是你要的cell值
end with

Answer 2

根据权限
把菜单的ENABLE属性设一下

Answer 3

Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\qxsz.mdb")       '打开数据库
  Set myrs1 = mydb1.OpenRecordset("qxsz", dbOpenSnapshot)             '打开数据表
  If myrs1.BOF = False Then myrs1.MoveFirst
  myrs1.FindFirst "操作员 = '" & mystr & "'" '选择管理员
  If myrs1.NoMatch Then
     mystr = 0
    Else '设置各项权限
     菜单(0).enable = IIf(myrs1.Fields("客房预定") = -1, 1, 0)
     菜单(1).enable  = IIf(myrs1.Fields("住宿登记") = -1, 1, 0)
     菜单(2).enable = IIf(myrs1.Fields("续住登记") = -1, 1, 0)
end if

Answer 4

http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=3131
利用INI文件给程序创建动态菜单 你可以设置ini文件
 

Answer 5

用一个表来放各种管理员的对应权限，用户进入时打开数据库，读出相应用户的权限。
设置菜单的enable属性。

Answer 6

先设计一个登陆窗口,每次运行程序时候都要求用户登陆,然后建立菜单数组,然后用Select case来判断当前登陆用户的权限,根据用户权限来判断哪些应该Enable=true,哪些应该Enable=false

Answer 7

基本上就是先确定出有几种权限用户，然后根据每种权限用户产生出一个程序中菜单的权限表，放在数据库中或配置文件或xml文档中，如那些visable 可见性为真那些为假，在运行程序时逐个读取，逐个设置即可.

Answer 8

哪位老兄有完整的代例子？
[email protected]
在此谢了！