Cách khóa phím và login bảo mật

Chia sẻ: Lê Hùng Quốc | Ngày: | Loại File: DOC | Số trang:6

Thêm vào BST

Báo xấu

122
lượt xem 38
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

7. Cách khóa fím Shift Bấm "modules" tab New. (Bạn có thể mở 1 module khác nếu có sẵn) * Lưu ý: Phải chắc chắn là thư viện DAO 3.6 được chọn: Chọn Tools References , tìm và chọn Microsoft DAO 3.6 Object Library Chép function sau đây vào module và lưu với tên bất kỳ (khác DisableShiftKeyBypass).

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Cách khóa phím và login bảo mật

7. Cách khóa fím Shift Bấm "modules" tab > New. (Bạn có thể mở 1 module khác nếu có sẵn) * Lưu ý: Phải chắc chắn là thư viện DAO 3.6 được chọn: Chọn Tools > References , tìm và chọn Microsoft DAO 3.6 Object Library Chép function sau đây vào module và lưu với tên bất kỳ (khác DisableShiftKeyBypass). '---------Bắt đầu---------- Function DisableShiftKeyBypass() As Boolean On Error GoTo errDisableShift Dim db As Database Dim prop As DAO.Property Set db = CurrentDb() On Error Resume Next db.Properties.Delete "AllowByPassKey" On Error GoTo errDisableShift Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False, True) db.Properties.Append prop DisableShiftKeyBypass = True exitDisableShift: Set prop = Nothing Set db = Nothing Exit Function errDisableShift: MsgBox "Function DisableShiftKeyBypass did not complete successfully." DisableShiftKeyBypass = False Resume exitDisableShift End Function '----------------Kết thúc--------------------- Vào Debug, Compile, và đóng module lại để lưu. Tại database window, Gõ Ctrl-G để mở debug window. Gõ: DisableShiftKeyBypass và bấm Enter. Lần sau khi mở lại, phím Shift sẽ bị vô hiệu hóa. (Bạn chỉ cần chạy 1 lần duy nhất - Trong trường hợp cần phục hồi lại phím Shift, bạn sẽ cần đến file đã sao lưu, hoặc phục hồi từ một database khác).
8. Bảo mật không cho chỉnh sửa form và report trong file *.mdb TOI GUI CHO BAN 1 MACRO de bao mat ACCESS tuyet voi Nhung nho sao luu du phong truoc khi quay khong biet thi hoi toi hhnguyen@picotrack.com ***************************************** 'Hàm ChangeProperty thay doi các thuoc tính cua CSDL Function ChangeProperty(strPropName, varPropType, varPropValue) Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_XuLyLoi dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_KetThuc: Exit Function Change_XuLyLoi: 'Thuoc tinh khong thay If Err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else 'Không biet loi gì ChangeProperty = False Resume Change_KetThuc
End If End Function 'Xu lý tình huong chon nút [Khóa database] Private Sub cmdLock_Click() 'Bieu mau này duoc nap truoc If txtPassword = "nguyenhuuhoang361983" Then ChangeProperty "StartupForm", dbText, "Form1" ChangeProperty "StartupShowDBWindow", dbBoolean, False ChangeProperty "StartupShowStatusBar", dbBoolean, False ChangeProperty "AllowBuiltinToolbars", dbBoolean, False ChangeProperty "AllowFullMenus", dbBoolean, False ChangeProperty "AllowBreakIntoCode", dbBoolean, False ChangeProperty "AllowSpecialKeys", dbBoolean, False 'Không cho xài phím Shift de bo qua bieu mau frmKhoiDong ChangeProperty "AllowBypassKey", dbBoolean, False MsgBox "Co so du lieu dã duoc khóa! Ðe nghi dóng CSDL lai.", vbOKOnly, "Thong bao" cmdExit.SetFocus cmdUnLock.Visible = True cmdLock.Visible = False txtPassword.Visible = True Else MsgBox "Ten nguoi su dung khong dung ! ", vbOKOnly, "Thong bao" End If
txtPassword = "" End Sub 'Xu lý tình huong chon nút [Mo database] Private Sub cmdUnLock_Click() 'Không can bieu mau khoi dong nua If txtPassword = "nguyenhuuhoang361983" Then ChangeProperty "StartupForm", dbText, "" ChangeProperty "StartupShowDBWindow", dbBoolean, True ChangeProperty "StartupShowStatusBar", dbBoolean, True ChangeProperty "AllowBuiltinToolbars", dbBoolean, True ChangeProperty "AllowFullMenus", dbBoolean, True ChangeProperty "AllowBreakIntoCode", dbBoolean, True ChangeProperty "AllowSpecialKeys", dbBoolean, True ChangeProperty "AllowBypassKey", dbBoolean, True MsgBox "Co so du lieu dã duoc mo khóa ! Ðe nghi dóng CSDL lai.", vbOKOnly, "Thong bao" cmdExit.SetFocus cmdLock.Visible = True cmdUnLock.Visible = False txtPassword.Visible = True Else MsgBox "Ten nguoi su dung khong dung !", vbOKOnly, "Thong bao" End If txtPassword = "" End Sub
'Xu lý tình huong khi mo bieu mau Private Sub Form_Open(Cancel As Integer) Dim dbs As Database Set dbs = CurrentDb On Error GoTo KhongCoThuocTinh_Err If dbs.Properties("AllowBypassKey") Then cmdLock.Visible = True cmdUnLock.Visible = False txtPassword.Visible = True Else cmdLock.Visible = False cmdUnLock.Visible = True txtPassword.Visible = True End If Exit Sub KhongCoThuocTinh_Err: cmdLock.Visible = True cmdUnLock.Visible = True txtPassword.Visible = True txtPassword = "" End Sub 'Khi nguoi ta go mat khau va an phím Enter
Private Sub txtPassword_LostFocus() If txtPassword = "nguyenhuuhoang361983" Then cmdUnLock.Visible = True End If End Sub Private Sub cmdExit_Click() On Error GoTo Err_cmdExit_Click DoCmd.Close Exit_cmdExit_Click: Exit Sub Err_cmdExit_Click: MsgBox Err.Description Resume Exit_cmdExit_Click End Sub ************************************************ code nay do nguoi khac viet , toi chi tham khao thoi