dannynguyen1980 > 28-05-12, 09:24 AM
(26-08-10, 08:35 PM)Noname Đã viết: Mình đã giới thiệu với các bạn chương trình phân quyền
thiet-ke-ctrinh-phan-quyen
Mình cũng giới thiệu các bạn cách bạn cách tạo 1 thanh menu
huong-dan-tao-menu-trong-access.html
Hôm nay mình xin giới thiệu cách để hiển thị 1 menu với user này và ẩn với user khác.
Ta hãy mở 1 module và soạn thủ tục sau:
Thủ tục trên cho ta hiện 1 menu vớiMã:Sub ViewMenu(User as String, mnBar as string, mnItem as String, IsView as Boolean)
If currUser= User Then
CommandBars(mnBar).Controls(mnItem).Visible = isView
End If
End Sub
: user muốn cho phép xemMã:User
: User hiện tại đăng nhập vào hệ thống. ( bạn có thể gán 1 biến toàn cục, mỗi khi có người đăng nhập thành công, thì gán : CurrUser bằng UserName)Mã:CurrUser
: tên thanh menu do bạn tự tạoMã:mnBar
: tên menu (caption) do bạn tạo và gắn trên thanh MenuMã:mnItem
Ví dụ:
Trong bài đăng về tạo menu http://thuthuataccess.blogspot.com/2009/...ccess.html
Bạn tạo 1 thanh menu "QuanLyCongVan" với 2 Item là : "Cập Nhật", và "Thoát".Bây giờ bạn muốn chỉ hiện menu "Cập Nhật" cho User, và Admin. ( nhóm guest không được thấy) ta gọi sau khi người dùng đăng nhập thành công:
Mã:ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False