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
nhocnhim0009 > 03-02-15, 11:03 AM
(20-12-10, 07:59 PM)khanhduycsgt Đã viết: ai ở SG có dịp xuống Thủ Đức hú mình 1 tiếng nha! ^^Yêu cầu bạn Khanhduycsgt hảy tỏ ra mình là người lịch sự thì nên gở câu này bỏ trong phần chủ ký của bạn "để tỏ rõ mình là người lịch sự nào! ^^"
Y!: khanhduycsgt
fb: www.facebook.com/khanhduycsgt
cám ơn bạn haquocquan phát nữa!