Tùy chọn
Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
- Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
-
Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
Noname > 09-08-10, 01:50 AM
(bài này là ý tưởng của bạn hungtano)
Hỏi:
Tôi đã xây dựng xong CT nhân sự (C:\QLNS.mdb). Tôi tạo 1 custom menu bar, giấu đi Main menu của Access, tạo form startup, disable phím Shift để không ai có thể mở được cửa sổ database. Sau một thời gian CT bị lỗi nhưng hỡi ơi tôi lại quên viết code enable phím Shift nên không tài nào mở của sổ database, mở cửa sổ viết code để sửa lại CT. Tôi phải làm sao đây ?
Đáp:
Rất đơn giản, bạn tạo 1 file .mdb mới , viết code để can thiệp vào file QLNS.mdb, enable phím Shift.
Cách làm:
Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :
Trích dẫn: Private Sub EnableSHIFTButton_Click()
On Error GoTo ErrHandler
Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
db.Properties("AllowBypassKey") = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub -
RE: Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
hmhieu > 18-12-10, 02:35 PM
(09-08-10, 01:50 AM)Noname Đã viết: (bài này là ý tưởng của bạn hungtano)
Hỏi:
Tôi đã xây dựng xong CT nhân sự (C:\QLNS.mdb). Tôi tạo 1 custom menu bar, giấu đi Main menu của Access, tạo form startup, disable phím Shift để không ai có thể mở được cửa sổ database. Sau một thời gian CT bị lỗi nhưng hỡi ơi tôi lại quên viết code enable phím Shift nên không tài nào mở của sổ database, mở cửa sổ viết code để sửa lại CT. Tôi phải làm sao đây ?
Đáp:
Rất đơn giản, bạn tạo 1 file .mdb mới , viết code để can thiệp vào file QLNS.mdb, enable phím Shift.
Cách làm:
Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :
Trích dẫn: Private Sub EnableSHIFTButton_Click()
On Error GoTo ErrHandler
Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
db.Properties("AllowBypassKey") = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub
Bác Noname ôi, co cách nào để làm ngược lại vấn đề này không? Nghĩa là khi minh thiết kế chương trình, mình Disable phím Shift rồi, không cho người khác mở bằng cách này đấy?
Mong bác có ý kiến giúp, vì không thể ngăn người khác mở bằng cách này thì chỉ có cách bên dịch sang .MDE, bất tiện lắm lắm!
-
RE: Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
haquocquan > 18-12-10, 02:53 PM
(18-12-10, 02:35 PM)hmhieu Đã viết: Bác Noname ôi, co cách nào để làm ngược lại vấn đề này không? Nghĩa là khi minh thiết kế chương trình, mình Disable phím Shift rồi, không cho người khác mở bằng cách này đấy?
Mong bác có ý kiến giúp, vì không thể ngăn người khác mở bằng cách này thì chỉ có cách bên dịch sang .MDE, bất tiện lắm lắm!
Chuyển sang MDE vẫn can thiệp được.
Theo mình, cách đơn giản nhất là bạn set password cho file data của bạn. Vì:
Bất cứ ai muốn Disable SHIFT file DATA của bạn, họ phải dùng lệnh mở file data của bạn từ một file khác ( lệnh: Opendatabase(.....)). Bạn đặt pass, người đó ko có pass, không thể mở được. -
RE: Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
hmhieu > 20-12-10, 04:47 PM
Hic, Phần mềm Passware Kit Forensic có thể mở bất kỳ pass nào của Access
Ý mình là không muốn cho người khác thay đổi chương trình mình đã thiết kế.
Hic, kiểu này chắc chỉ thiết kế cho những người chỉ biết ứng dụng thui, còn những người cao cao tay và có đọc qua thuthuataccess.co.cc thì pochân với họ.
-
RE: Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
itnamdinh > 13-03-11, 08:32 PM
Thanks bác nhiều em làm được rồi -
RE: Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa
gianglun > 30-04-11, 04:52 PM
sao minh lam nhu huong dan ma van khong duoc (Enable phím shift