Tùy chọn
[Demo P1] Login + Phân quyền chi tiết tới từng cm(Gửi Ongke0711)
- [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]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/DemoPQCT_MDD1.jpg)
![[Hình: DemoPQCT_MDD3.jpg]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/DemoPQCT_MDD3.jpg)
![[Hình: DemoPQCT_MDD5.jpg]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/DemoPQCT_MDD5.jpg)
![[Hình: DemoPQCT_MDD2.jpg]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/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]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/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).
Cho e xin pass
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,
* Quan sát kỹ hình này, tất cả các code có trong 1 form chỉ có vài dòng
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)
Đì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,
* Quan sát kỹ hình này, tất cả các code có trong 1 form chỉ có vài dòng
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!
Bác cho em xin code dc k ạ, vuhoangviet713@gmail.com