VB权限设置问题
我想设置用户权限设置,代码如下:权限的字段为:表底管理=不允许;收费管理=不允许 含有分割符。IF判断应该怎样写呢?各位达人!
Private Sub 设置菜单权限()
Dim Mnu(7) As Menu
Set Mnu(0) = mnu表底管理
Set Mnu(1) = mnu收费管理
Set Mnu(2) = mnu票据管理
Set Mnu(3) = mnu月终处理
Set Mnu(4) = mnu历史水费
Set Mnu(5) = mnu用户档案
Set Mnu(6) = mnu用户稽查
Set Mnu(7) = mnu报表查询
For I = 0 To UBound(Mnu)
If 当前系统用户.权限 Like "'%" & Mnu(I).Caption & "=不允许%'" Then
Mnu(I).Enabled = False
End If
Next
End Sub
Private Sub setMenuEnable(ByVal tmpstr As String)
Dim Mnu(3) As Menu
Set Mnu(0) = mnu表底管理
Set Mnu(1) = mnu收费管理
Set Mnu(2) = mnu票据管理
Set Mnu(3) = mnu月终处理
Set Mnu(4) = mnu历史水费
Set Mnu(5) = mnu用户档案
Set Mnu(6) = mnu用户稽查
Set Mnu(7) = mnu报表查询
Dim tmparr
Dim i, j
tmparr = Split(tmpstr, ";")
For i = 0 To UBound(Mnu)
For j = 0 To UBound(tmparr)
If InStr(1, Mnu(i)。
Name, Left(tmparr(j), InStr(1, tmparr(j), "=") - 1)) > 0 Then
Mnu(i)。
Enabled = IIf(Right(tmparr(j), Len(tmparr(j)) - InStr(tmparr(j), "=")) = "不允许", False, True)
End If
Next j
Next i
End Sub
Private Sub Form_Load()
call setMenuEnable("表底管理=不允许;收费管理=不允许")
End Sub。
答:楼上的方法将会导致你的博客不能被别人访问 除非你把密码告诉每个要访问你的博客的人; 建议把不想给别人看的文章放到草稿箱里 这样不影响你博客的访问量; 你也可以选...详情>>
答:If Len(Inet1.OpenURL(" ")) <> 0 Or_ Len(Inet1.OpenURL(" ")) <> 0 Then MsgBox "成功...详情>>
答:最基本的是Winsock控件。 余下可能有的包括:DHTML Edit Control for IE5,Microsoft HTML Object Librar...详情>>