Menu Items Restrictions

Hi everybody,

I am keeping <user id> and the <user group code> in a table named users. There is another table named 'Res_menus' to keep the <user group code> and the restricted Menu items. I have created a menu in the first form of my application with all the related menu items in the system. Menu name is similar to the field <restricted menu items> in the 'Res_menus' table. When a user logs into the system i need to disable menu items that is defined in 'Res_menus' for that particular <user group code>. Reference must be taken from the 'Res_menus' table If a user logs in to the system i can find the group code he is belonging to and from the 'Res_menus' the menus that shoul disable to that particular user.
Can i do a this type of a thing with VB6. please help me to do this with some example codes.


Susith.

Hi Susith,

Like many things in VB, what you want is very easy to do ;)

The following code uses a Hard Coded list rather than a database, so just replace those elements of the code.

Option Explicit
Private sUserList(1 To 2, 1 To 3) As String

Private Sub Form_Load()
Dim oMenu As Menu
Dim iCounter As Integer, iUser As Integer

'User logged on (1 or 2)
iUser = 1

'Set up User1's list
sUserList(1, 1) = "mnu1"
sUserList(1, 2) = "mnu2"
sUserList(1, 3) = "mnu4"

'Set up User2's list
sUserList(2, 1) = "mnu2"
sUserList(2, 2) = "mnu3"
sUserList(2, 3) = "mnu4"

'Check each menu on this form
For Each oMenu In frmUserLogon
'Check all excluded menu's for the current user
For iCounter = 1 To 3
'Check if Menu Name and item on User's exclude list match
If sUserList(iUser, iCounter) = oMenu.Name Then
'If they do, disable the menu option
oMenu.Enabled = False
End If
Next 'iCounter
Next 'oMenu
End Sub

Hope this has been of some help to you. Good luck :)