如何控制菜单显示以供不同用户使用，以限制功能？（在线等待）

Question

做的程序需要在不同部门用，其中二个部门具有对数据的修改编辑权利，其余部门只是查询，不能修改记录。我想用VB做界面，做一个登录程序，一个部门一个用户名，一个密码；不同的用户登录后菜单，界面不同，以限制功能。但在设计界面的时侯不考虑用户，菜单功能全，只是在登录时用程序来控制它。不知道VB中对菜单控制的语句有没有？希望高手加入，解决？

Answer 1

Select Case 部门
 Case "1"
   mnu1.Visible=True
   ...
 Case "2"
   mnu2.Visible=True
   ...
 ...
End Select

Answer 2

同意uvmusic(帮你帮我)的方法你也可以在用户表设计的时候加一个权限的字段

Answer 3

我用SQL　SERVER设计数据库，用不用建立用户表？用SQL的安全机制能解决吗？

Answer 4

我昨天也做了同样的一件事情，我在数据库里设置了一张权限表。
menuid,menuName,menuDescribe,menupopedom,在系统里能设置menupopedom字段,1为能，0为否
，根据menupopedom 的内容得到menuName,再根据上面那位兄弟的说法
select case
case 
   menuName.Enabled=false
end select你也可以用Control这个对象，进行控制

Answer 5

'**********************************'
                                '以下根据级别确定要显示的菜单及按钮'
                                '**********************************'
                                
                                With Rs_C_Levelcode
                                    If .State = adStateOpen Then
                                        .Close
                                    End If
                                    .ActiveConnection = adoCN
                                    .CursorLocation = adUseClient
                                    .CursorType = adOpenDynamic
                                    .LockType = adLockBatchOptimistic
                                    .Source = "SELECT * FROM C_levelmenu WHERE levelcode='" & cLevelCode & "'"
                                    .Open
                                    If .RecordCount > 0 Then
                                        .MoveFirst
                                        Do While Not .EOF()
                                            F_Main.Controls(Trim(.Fields("code").Value)).Visible = .Fields("visible").Value
                                            DoEvents
                                            .MoveNext
                                        Loop
                                        .Close
                                    End If
                                End With

Answer 6

F_Main.Controls(Trim(.Fields("code").Value)).Visible = .Fields("visible").ValueTrim(.Fields("code").Value)) 这个是数据库中存放的菜单名称.Fields("visible").Value 这个是数据库中存放的是否可见