tranthanhan1962 > 12-06-15, 11:37 PM
honglv157 > 07-09-15, 02:27 PM
maidinhdan > 07-09-15, 04:34 PM
(12-06-15, 11:37 PM)tranthanhan1962 Đã viết: Mạn phép chia sẽ các bạn một phương pháp phân quyền cho cơ sở dữ liệu cực kỳ gọn nhẹ
1/ Đối chiếu chính xác password cho từng đối tượng user.
2/ Kiểm tra các quyền user và thông báo nội dung quyền của từng user bằng tiếng Việt Unicode.
3/ Thông báo lỗi khi nhập sai mật khẩu.
4/ Chỉ cho phép nhập sai mật khẩu theo số lần cho phép nếu tiếp tục sai chương trình sẽ tự thoát.
5/ Quản lý Menu cho từng quyền cụ thể. Tránh các trường hợp bị chồng chéo, lẫn lộn.
Demo
honglv157 > 07-09-15, 10:16 PM
tranthanhan1962 > 07-09-15, 10:29 PM
(07-09-15, 10:16 PM)honglv157 Đã viết: alo.anh ân ơi;e không vào được database của a.a chỉ em cách vào xem bảng;form a với nhé
honglv157 > 07-09-15, 10:41 PM
tranthanhan1962 > 08-09-15, 12:38 AM
quocdung9999 > 08-09-15, 03:45 PM
tranthanhan1962 > 08-09-15, 05:12 PM
(08-09-15, 03:45 PM)quocdung9999 Đã viết: Chẳng có gì hay cả, mình tưởng bạn phân quyền khi vào chỉ cho người đó sử dụng được dữ liệu nào chứ?
maidinhdan > 08-09-15, 11:29 PM
(08-09-15, 03:45 PM)quocdung9999 Đã viết: Chẳng có gì hay cả, mình tưởng bạn phân quyền khi vào chỉ cho người đó sử dụng được dữ liệu nào chứ?
Private Sub Form_Load()
Select Case HamlayCapdo
Case 9
Me.Command1.Enabled = True
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
Me.Command6.Enabled = True
Me.Command7.Enabled = True
Me.Command8.Enabled = True
Me.Command9.Enabled = True
Case 8
Me.Command1.Enabled = True
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
Me.Command6.Enabled = True
Me.Command7.Enabled = True
Me.Command8.Enabled = True
Case 7
Me.Command1.Enabled = True
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
Me.Command6.Enabled = True
Me.Command7.Enabled = True
Case 6
Me.Command1.Enabled = True
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
Me.Command6.Enabled = True
Case Is <= 5
Me.Command1.Enabled = True
Me.Command2.Enabled = True
Me.Command3.Enabled = True
Me.Command4.Enabled = True
Me.Command5.Enabled = True
End Select
End Sub