如何动态设置菜单?麻烦大哥们指点一二。
时间:2011-10-21
来源:互联网
我想让我的程序有权限分配功能。
如:在数据库里建一个表:QXFP
表字段:ID '主键,自动编号
QX'权限,可在此权限所能打开的菜单名称,与程序菜单名称一致
登录程序,分配到权限,读取QX字段内的所有菜单名称,
现在是如何动态设置所读取的 菜单名称.Enabled = True
我主要是不知道代码怎么写,下面这个代码一定是错的,我只想让大家知道我的意思,还有让大家帮我改改。
Dim vCD As Variant
Rs.Open "select * from QXFP where username='" & txtUserName & "'", Conn, 1
If Not Rs.EOF Then
vCD = Split(Rs!QX, "|")
End If
Rs.Close
Dim I As Integer
For I = 0 To UBound(vCD)
vCD(I).Enabled = True
Next I
如:在数据库里建一个表:QXFP
表字段:ID '主键,自动编号
QX'权限,可在此权限所能打开的菜单名称,与程序菜单名称一致
登录程序,分配到权限,读取QX字段内的所有菜单名称,
现在是如何动态设置所读取的 菜单名称.Enabled = True
我主要是不知道代码怎么写,下面这个代码一定是错的,我只想让大家知道我的意思,还有让大家帮我改改。
Dim vCD As Variant
Rs.Open "select * from QXFP where username='" & txtUserName & "'", Conn, 1
If Not Rs.EOF Then
vCD = Split(Rs!QX, "|")
End If
Rs.Close
Dim I As Integer
For I = 0 To UBound(vCD)
vCD(I).Enabled = True
Next I
作者: kellyicu 发布时间: 2011-10-21
窗体上有一个菜单File,子菜单File1,File2,File3
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.
VB code
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.
VB code
Private Sub Command1_Click() Dim a As Object For Each a In Form1.Controls Debug.Print a.Name, TypeName(a) Next Dim x As Menu Set x = Form1.Controls("File1") x.Enabled = False End Sub
作者: spt_petrolor 发布时间: 2011-10-21
我还是有些糊涂。。
作者: Veron_04 发布时间: 2011-10-21
引用 1 楼 spt_petrolor 的回复:
窗体上有一个菜单File,子菜单File1,File2,File3
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.
VB code
Private Sub Command1_Click()
Dim a As Object
For Each a In Form1.Controls
Debug.Print a.Name, TypeNa……
窗体上有一个菜单File,子菜单File1,File2,File3
其实菜单和子菜单都是窗体的控件,其他控件已经不能命名为File,或者File2了.
VB code
Private Sub Command1_Click()
Dim a As Object
For Each a In Form1.Controls
Debug.Print a.Name, TypeNa……
谢谢兄弟了!
作者: kellyicu 发布时间: 2011-10-21
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28