您的位置：程序门 -> vb -> 基础类

关于菜单及控件权限控制的问题??（急急)

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于菜单及控件权限控制的问题??（急急)

发表于：2007-04-30 13:37:51 楼主

public sub dismenu（classprint)
frmmain.mnurestoredb.visible = false
frmmain.mnuadduser.visible = false
frmmain.mnusetqu.visible = false
dqinfo.frame2.visible = false
frmmain.mnufdset.visible = false
frmfdinfo.frame2.visible = false

classprint.rsdk1 "select * from user_qx where user_name= ' " & frmlogin.currentuser & " 'and user_qx= ' " & "1 " & " 'and len（m)> 0 "
while classprint.rs1.eof = false
select case classprint.rs1!user_gn
case "还原数据库 "
frmmain.mnurestoredb.visible = true
case "用户信息管理 "
frmmain.mnuadduser.visible = true
case "地区信息查询 "
frmmain.mnusetqu.visible = true
case "地区信息编辑 "
frmmain.mnusetqu.visible = true
dqinfo.frame2.enabled = true
case "分店信息查询 "
frmmain.mnufdset.visible = true
case "分店信息编辑 "
frmmain.mnufdset.visible = true
frmfdinfo.frame2.enabled = true

end select
classprint.rs1.movenext
wend
end sub
我想做个权限控制的功能,这个代码我放到每个窗体的load 中但打开窗体时怎么样才能不打开其它的窗体（打开窗体时会自动打开其它窗体)

发表于：2007-04-30 16:31:341楼得分:0

public sub dismenu（classprint)
frmmain.mnurestoredb.visible = false
frmmain.mnuadduser.visible = false
frmmain.mnusetqu.visible = false
dqinfo.frame2.visible = false//像这样的不应在这儿写
frmmain.mnufdset.visible = false
frmfdinfo.frame2.visible = false

classprint.rsdk1 "select * from user_qx where user_name= ' " & frmlogin.currentuser & " 'and user_qx= ' " & "1 " & " 'and len（m)> 0 "
while classprint.rs1.eof = false
select case classprint.rs1!user_gn
case "还原数据库 "
frmmain.mnurestoredb.visible = true
case "用户信息管理 "
frmmain.mnuadduser.visible = true
case "地区信息查询 "
frmmain.mnusetqu.visible = true
case "地区信息编辑 "
frmmain.mnusetqu.visible = true
dqinfo.frame2.enabled = true//像这样的不应在这儿写

case "分店信息查询 "
frmmain.mnufdset.visible = true
case "分店信息编辑 "
frmmain.mnufdset.visible = true
frmfdinfo.frame2.enabled = true//像这样的不应在这儿写

end select
classprint.rs1.movenext
wend
end sub

//应在加载每个窗体时才写

其他资讯