• Trang chủ click to expand contents 

  • [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Linh lê > 12-05-21, 11:15 AM

    Đúng cái em đang tìm. Cho e xin pass với ạ. Em cảm ơn.
    Email: mailquanly142@gmail.com

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Huy Nguyễn > 14-05-21, 11:48 AM

    Hay quá anh ơi, Anh cho em tham khảo code VBA với ạ!
    Mail: nguyen.audit@gmail.com.vn
    Em cảm ơn ạ!

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Thiện > 20-05-21, 10:04 PM

    (18-09-15, 06:52 PM)maidinhdan Đã viết: Sau nhiều ngày miệt mài, mình cũng đã hoàn thiệt tất cả các hàm để xây dựng một Demo Phân quyền chi tiết và để dễ cho mọi người chỉ cần import thẩy vào cái ứng dụng của mình viết là đã sử dụng được ( code ngắn gọi ngắn gọn xúc tích, dể hiểu).

    Minh họa 1 đoạn Code:

    * Để mở 1 form ta thường dùng lệnh docmd.OpenForm sau sự kiện Click, Nhưng khi bạn sử dụng hàm trong Demo của mình thì không cần gọi dài đến thế, cũng không cần đánh docmd.close ...:

    Mã PHP:
    Private Sub cmdmoform1_Click()
    TestQuyenXem ("frm1")  
    End Sub 


    * Ý nghĩa, Khi Click, Mở form frm1, kiểm tra 4 quyền: Xem ( tức là mở form), Thêm, Xóa, Sửa
    + Nếu: Tài khoản có quyền Xem thì mở form frm1....tiếp...kiểm tra quyền Thêm, Xóa, Sửa
    + Nếu: Tài khoản Không có quyền Xem chẳng làm gì cả, rồi thông báo Tại sao không mở được.

    * MỘt số hinh ành và code sử dụng,
    [Hình: DemoPQCT_MDD1.jpg]


    [Hình: DemoPQCT_MDD3.jpg]

    [Hình: DemoPQCT_MDD5.jpg]

    [Hình: DemoPQCT_MDD2.jpg]





    * Quan sát kỹ hình này, tất cả các code có trong 1 form chỉ có vài dòng


    [Hình: DemoPQCT_MDD4.jpg]

    Có lẽ mình lám Video tách riêng bài cho các bạn dể sử dụng hơn nửa, chỉ cần chèn vào ứng dụng là sử dụng hoặc phối hợp để viết .

    * Các hàm được sử dụng trong Demo
    - Hàm chính
    + Quyền xem form
    + Hàm xóa 1 record
    + Hàm thêm mới
    + Hàm khai báo biến toàn cục

    - Hàm phụ:
    + Hàm kiểm tra có quyền Thêm, Xóa, Sửa
    + Hàm đóng mở form

    Link và Demo: Phía dưới, Pass VBA, xin để lại lời nhắn ở bài này, Pass sẽ chuyển vào Hộp thư của các bạn

    Demo tải về tại bài thứ 5,

    Thân mến!

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Thiện > 20-05-21, 10:09 PM

    Đúng cái em đang tìm. Cho e xin pass với ạ. Em cảm ơn.
    gmail:ngothien1995vl@gmail.com

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Thiện > 22-05-21, 11:02 AM

    (18-09-15, 06:52 PM)maidinhdan Đã viết: Sau nhiều ngày miệt mài, mình cũng đã hoàn thiệt tất cả các hàm để xây dựng một Demo Phân quyền chi tiết và để dễ cho mọi người chỉ cần import thẩy vào cái ứng dụng của mình viết là đã sử dụng được ( code ngắn gọi ngắn gọn xúc tích, dể hiểu).

    Minh họa 1 đoạn Code:

    * Để mở 1 form ta thường dùng lệnh docmd.OpenForm sau sự kiện Click, Nhưng khi bạn sử dụng hàm trong Demo của mình thì không cần gọi dài đến thế, cũng không cần đánh docmd.close ...:

    Mã PHP:
    Private Sub cmdmoform1_Click()
    TestQuyenXem ("frm1")  
    End Sub 


    * Ý nghĩa, Khi Click, Mở form frm1, kiểm tra 4 quyền: Xem ( tức là mở form), Thêm, Xóa, Sửa
    + Nếu: Tài khoản có quyền Xem thì mở form frm1....tiếp...kiểm tra quyền Thêm, Xóa, Sửa
    + Nếu: Tài khoản Không có quyền Xem chẳng làm gì cả, rồi thông báo Tại sao không mở được.

    * MỘt số hinh ành và code sử dụng,
    [Hình: DemoPQCT_MDD1.jpg]


    [Hình: DemoPQCT_MDD3.jpg]

    [Hình: DemoPQCT_MDD5.jpg]

    [Hình: DemoPQCT_MDD2.jpg]





    * Quan sát kỹ hình này, tất cả các code có trong 1 form chỉ có vài dòng


    [Hình: DemoPQCT_MDD4.jpg]

    Có lẽ mình lám Video tách riêng bài cho các bạn dể sử dụng hơn nửa, chỉ cần chèn vào ứng dụng là sử dụng hoặc phối hợp để viết .

    * Các hàm được sử dụng trong Demo
    - Hàm chính
    + Quyền xem form
    + Hàm xóa 1 record
    + Hàm thêm mới
    + Hàm khai báo biến toàn cục

    - Hàm phụ:
    + Hàm kiểm tra có quyền Thêm, Xóa, Sửa
    + Hàm đóng mở form

    Link và Demo: Phía dưới, Pass VBA, xin để lại lời nhắn ở bài này, Pass sẽ chuyển vào Hộp thư của các bạn

    Demo tải về tại bài thứ 5,

    Thân mến!
    Cho e xin pass

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    Đình Phán > 14-06-21, 06:03 PM

    [align=left]Chào các anh,

    Em đọc thủ thuật Phân quyền của anh Maidinhdan thì quá hoành tráng, nhưng thú thật là để làm theo em không làm được.
    Em có đọc bài của chú Tranthanhan1962 thì sử dụng 1 yếu tố cấp độ để điều khiền quyền.
    Tại form đăng nhập em có viết như sau:


    Mã:
    Private Sub btLogin_Click()[/align]
    'Login de mo ra FormControl
        Dim DB As DAO.Database
        Dim Rst As DAO.Recordset
        Dim UserName As String
        Dim UserPassword As String
       
        Set DB = CurrentDb
        Set Rst = DB.OpenRecordset("SELECT * FROM tblUserLogin WHERE UserName ='" & txtUsername & "'")
            If Rst.RecordCount <= 0 Then
                MsgBox "Incorrect Username!", vbOKOnly, "Notification"
                txtUsername.SetFocus
            Else
                If Rst("Password") <> txtPassword Then
                    MsgBox "Incorrect Password!", vbOKOnly, "Notification"
                    txtPassword.SetFocus
                Else
                    DoCmd.Close
                    DoCmd.OpenForm "FormControl"
                    'DoCmd.ShowToolbar "ribbon", acToolbarNo
                End If
            End If
            Select Case DLookup("[Role]", "[tblUserLogin]", "[UserName] =" & [txtUsername].Value)
                    Case 1
                        'De tat ca cac chuc nang va hien button de hien Ribbon "DoCmd.ShowToolbar "ribbon", acToolbarNo"
                    Case 2
                        'De che do chi xem, chi cho chuyen qua lai cac Tab cua Tab Control trong MainForm
                    Case 3
                        'Cho thao tac cac button dieu khien tai MainForm,
                        'nhung khong cho hien button de hien Ribbon
            End Select

    End Sub


    Xin hỏi các anh về code để thực hiện được các Case như 3 trường hợp trên ạ.
    Cảm ơn!

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    maidinhdan > 15-06-21, 09:14 PM

    Đã gửi: nguyen.audit@gmail.com.vn,
    Thiện Ngô <ngothien1995vl@gmail.com>
    ngày: 20:12, 15 thg 6, 2021

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    duynguyena > 08-07-21, 11:46 PM

    Bạn cho mình xin Pass với nhé. Đ/c mail của mình: ngdkhiem@gmail.com. Cảm ơn bạn rất nhiều.

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    lexuantruc > 07-08-21, 02:11 AM

    Bác cho xin cái pas email: lexuantrucvn@gmail.com

  • RE: [Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)

    vuhoangviet17 > 23-10-21, 10:31 AM

    (18-09-15, 06:52 PM)maidinhdan Đã viết: Sau nhiều ngày miệt mài, mình cũng đã hoàn thiệt tất cả các hàm để xây dựng một Demo Phân quyền chi tiết và để dễ cho mọi người chỉ cần import thẩy vào cái ứng dụng của mình viết là đã sử dụng được ( code ngắn gọi ngắn gọn xúc tích, dể hiểu).

    Minh họa 1 đoạn Code:

    * Để mở 1 form ta thường dùng lệnh docmd.OpenForm sau sự kiện Click, Nhưng khi bạn sử dụng hàm trong Demo của mình thì không cần gọi dài đến thế, cũng không cần đánh docmd.close ...:

    Mã PHP:
    Private Sub cmdmoform1_Click()
    TestQuyenXem ("frm1")  
    End Sub 


    * Ý nghĩa, Khi Click, Mở form frm1, kiểm tra 4 quyền: Xem ( tức là mở form), Thêm, Xóa, Sửa
    + Nếu: Tài khoản có quyền Xem thì mở form frm1....tiếp...kiểm tra quyền Thêm, Xóa, Sửa
    + Nếu: Tài khoản Không có quyền Xem chẳng làm gì cả, rồi thông báo Tại sao không mở được.

    * MỘt số hinh ành và code sử dụng,
    [Hình: DemoPQCT_MDD1.jpg]


    [Hình: DemoPQCT_MDD3.jpg]

    [Hình: DemoPQCT_MDD5.jpg]

    [Hình: DemoPQCT_MDD2.jpg]





    * Quan sát kỹ hình này, tất cả các code có trong 1 form chỉ có vài dòng


    [Hình: DemoPQCT_MDD4.jpg]

    Có lẽ mình lám Video tách riêng bài cho các bạn dể sử dụng hơn nửa, chỉ cần chèn vào ứng dụng là sử dụng hoặc phối hợp để viết .

    * Các hàm được sử dụng trong Demo
    - Hàm chính
    + Quyền xem form
    + Hàm xóa 1 record
    + Hàm thêm mới
    + Hàm khai báo biến toàn cục

    - Hàm phụ:
    + Hàm kiểm tra có quyền Thêm, Xóa, Sửa
    + Hàm đóng mở form

    Link và Demo: Phía dưới, Pass VBA, xin để lại lời nhắn ở bài này, Pass sẽ chuyển vào Hộp thư của các bạn

    Demo tải về tại bài thứ 5,

    Thân mến!
    034 034 034 034 034 034 034 034 034 Bác cho em xin code dc k ạ,   vuhoangviet713@gmail.com