• Trang chủ click to expand contents 

  • Phân quyền truy cập menu trong Access

  • Phân quyền truy cập menu trong Access

    Noname > 26-08-10, 08:35 PM


    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

  • RE: Phân quyền truy cập menu trong Access

    khanhduycsgt > 20-12-10, 02:29 PM

    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?

  • RE: Phân quyền truy cập menu trong Access

    Noname > 20-12-10, 03:03 PM

    (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 á!

  • RE: Phân quyền truy cập menu trong Access

    khanhduycsgt > 20-12-10, 04:07 PM

    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ề: 471)

  • RE: Phân quyền truy cập menu trong Access

    haquocquan > 20-12-10, 06:14 PM

    (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

  • RE: Phân quyền truy cập menu trong Access

    khanhduycsgt > 20-12-10, 07:50 PM

    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! ^^

  • RE: Phân quyền truy cập menu trong Access

    haquocquan > 20-12-10, 07:55 PM

    (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.

  • RE: Phân quyền truy cập menu trong Access

    khanhduycsgt > 20-12-10, 07:59 PM

    ai ở SG có dịp xuống Thủ Đức hú mình 1 tiếng nha! ^^
    Y!: khanhduycsgt
    fb: www.facebook.com/khanhduycsgt

    cám ơn bạn haquocquan phát nữa! big green

  • RE: Phân quyền truy cập menu trong Access

    httlucky > 05-01-11, 11:42 AM

    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.

  • RE: Phân quyền truy cập menu trong Access

    sonngo > 06-01-11, 12:24 AM

    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!