Đánh giá chủ đề:
  • 6 Votes - 3.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Phân quyền truy cập menu trong Access
#1

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:

Mã:
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
Thủ tục trên cho ta hiện 1 menu với
Mã:
User
: user muốn cho phép xem
Mã:
CurrUser
: 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ã:
mnBar
: tên thanh menu do bạn tự tạo
Mã:
mnItem
: tên menu (caption) do bạn tạo và gắn trên thanh Menu

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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dau tay buon , dtv197 , nhunguyet0103 , maidinhdan
#2
Trích dẫn:ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False
trong code access không cho viết tiếng việt bạn àh, chữ "Cập nhật" làm sao mà viết? nếu cứ gõ tiếng Việt theo chuẩn Unicode ra thì có chạy được không bạn?
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn
#3
(20-12-10, 02:29 PM)khanhduycsgt Đã viết:
Trích dẫn:ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False
trong code access không cho viết tiếng việt bạn àh, chữ "Cập nhật" làm sao mà viết? nếu cứ gõ tiếng Việt theo chuẩn Unicode ra thì có chạy được không bạn?

Để dùng được tiếng Việt, bạn có thể có nhiều cách. Cơ bản nhất là vào COntrol pannel đăng ký thêm phần nhận font của các nước thuộc khối Đông Nam á!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nhunguyet0103
#4
Trích dẫn:Để dùng được tiếng Việt, bạn có thể có nhiều cách. Cơ bản nhất là vào COntrol pannel đăng ký thêm phần nhận font của các nước thuộc khối Đông Nam á!

Cảm ơn bạn đã trả lời, bạn có thể hướng dẫn cụ thể hơn về cách nhận font ở trên được không?
mình đang làm một phần mềm quản lý Đoàn viên cho trường, mình làm Menu xong hết rồi, mình đã nhúng module phân quyền truy cập menu nhưng mình gọi lệnh ViewMenu trong form đăng nhập không được, bạn có thể xem giúp mình không?

.zip   QLDVTNCD.zip (Kích cỡ: 180.72 KB / Tải về: 459)
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn
#5
(20-12-10, 04:07 PM)khanhduycsgt Đã viết: mình đang làm một phần mềm quản lý Đoàn viên cho trường, mình làm Menu xong hết rồi, mình đã nhúng module phân quyền truy cập menu nhưng mình gọi lệnh ViewMenu trong form đăng nhập không được, bạn có thể xem giúp mình không?

Bạn xem file DEMO nhé. Mình chỉnh sửa một chút:
- cbotendangnhap: trong frmLogin
- Thêm module1 vào csdl
- thêm sự kiện onopen của frmFlash

Mình ko có pass đăng nhập của bạn, mình đã thay toàn bộ pass đăng nhập là: 123
Khi bạn vào với user có mota là "BCH" thì "Xem thông tin" ----> "Thông tin chi đoàn" sẽ bị mờ đi


File đính kèm
.zip   QLDVTN&CD.zip (Kích cỡ: 179.29 KB / Tải về: 773)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
#6
Trích dẫn:Bạn xem file DEMO nhé. Mình chỉnh sửa một chút:
- cbotendangnhap: trong frmLogin
- Thêm module1 vào csdl
- thêm sự kiện onopen của frmFlash

Mình ko có pass đăng nhập của bạn, mình đã thay toàn bộ pass đăng nhập là: 123
Khi bạn vào với user có mota là "BCH" thì "Xem thông tin" ----> "Thông tin chi đoàn" sẽ bị mờ đi

Cảm ơn bạn rất nhiều! ^^ Mình đã hiểu rồi! Vướng cái này cả tuần nay!
Bạn ở đâu? Nếu ở Sài Gòn thì mình mời bạn đi càphê phát! ^^
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn HOA LAN
#7
(20-12-10, 07:50 PM)khanhduycsgt Đã viết: Cảm ơn bạn rất nhiều! ^^ Mình đã hiểu rồi! Vướng cái này cả tuần nay!
Bạn ở đâu? Nếu ở Sài Gòn thì mình mời bạn đi càphê phát! ^^

Mình ở miền Bắc.
Nếu có nhã ý, mời Noname và Cafe Via He và gửi cho mình.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn khanhduycsgt
#8
ai ở SG có dịp xuống Thủ Đức hú mình 1 tiếng nha! ^^
Y!: khanhduycsgt
fb: http://www.facebook.com/khanhduycsgt

cám ơn bạn haquocquan phát nữa! big green
Chữ ký của khanhduycsgt Chào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Reply
Những người đã cảm ơn dau tay buon
#9
Trang web nay that hay, cac ban that nhiet tinh, nam ngoai minh cung lam phan mem quan ly cap phat the an ninh hang khong co nhieu luc bí khong biet hoi ai.
Chữ ký của httlucky Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#10
Minh đã tham khao, thiệt là hay, đặc biệt là dùng cho form đăng nhập, nếu không được thì bi bi bạn khách không mời!
nhưng: nếu bạn đó làm quá 5 lần thì ngay cả ông chủ cũng khó vào được phải hông!
Chữ ký của sonngo chào mấy bạn, rất mong nhận được nhiều sự hỗ trợ Star
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Hiểu đúng về phân quyền - MDE - SQL Backend ckno1no 6 664 28-07-16, 05:16 PM
Bài mới nhất: maidinhdan
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,296 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 490 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,737 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,701 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ