Tùy chọn
Number kích hoạt file mdb
- Number kích hoạt file mdb
-
Number kích hoạt file mdb
ngocanhwin > 28-02-14, 12:27 PM
Chào các bác, em mới tập tành access.
Em đang có file "quanly.mdb" và em đang muốn tạo một mã số kích hoạt
cho file "quanly.mdb" qua một mã kích hoạt không cố định.
Ý là:
File "quanly.mdb" được sử dụng trên nhiều máy tính khác nhau, nhưng
mỗi máy tính đều có ổ cứng, main khác nhau, mình muốn file
"quanly.mdb" đó check mã ổ cứng sau đó đưa ra một mã số A (mã này không giống nhau).
Dùng mã số A nhập vào một file "laynumber.mdb" để tạo ra một mã số B (mã này cũng không giống nhau).
Mã số B này nhập vào "quanly.mdb" thì tiếp tục được vào chương trình,
nếu sai thì không cho vào.
Em mới nghiên cứu món này nên kinh nghiệm ít quá, các bác ai biết chỉ
tương tận cho mình. Nếu bác nào ở Hà Nội để lại thông tin em sẽ đến
gặp và học hỏi. Email: ngocanhwin@gmail.com
Cảm ơn các bác trước. -
RE: Number kích hoạt file mdb
trunghieu > 28-02-14, 05:00 PM
Có phải bạn muốn làm giống như bản quyền sản phẩm. Nếu vậy bạn nghiên cứu xem hướng dẫn sau có thể giúp ích cho bạn không nhé.
-------------------------------
Dim fs, d
Dim S, SR As Double
'lấy về serial của Driver
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
S = d.SerialNumber
'Kiểm tra serial của Driver đã lưu so với Driver đang sử dụng phần mềm
SR = DLookup("SOSERI", "tablecheckfile", "ms=1")
If S = SR Then
'Nếu giống thì cho mở form đăng nhập vào chương trình
DoCmd.close
DoCmd.OpenForm "frdangnhap"
Else
'Nếu khác thì mở form frdangky bắt buộc nhập mật mã để được vào chương trình
DoCmd.close
DoCmd.OpenForm "frdangky"
End If
----------------------------
Bạn nghiên cứu đoạn mã trên đưa vào thủ tục nào mà bạn muốn. Ở đây tôi đưa vào thủ tục OnLoad của form startup.
Lưu ý: khi thiết kế form frdangky, bạn phải có thủ tục để lưu số serial của Driver vào table tablecheckfile để sau này khi mở lên chương trình kiểm tra lại sẽ có dữ liệu để đối chiếu. Trước khi thi hành lệnh này bạn phải nhập trước record cho tablecheckfile các trường SOSERI dạng số ngẫu nhiên,trường ms la 1.
Chúc bạn thành công! -
RE: Number kích hoạt file mdb
ngocanhwin > 02-03-14, 11:04 PM
Cảm ơn bác đã tra lời, em mới tập tành kinh nghiệm chưa có, bác coa thể hướng đẫn cụ thể hơn, hoặc bác cho em xin file ví dụ. Em thử vài lần nhưng không đc.
Cảm ơn bác nhiều -
RE: Number kích hoạt file mdb
ngocanhwin > 05-03-14, 02:10 PM
Có ai đó giúp em không? Trình non và học đòi. -
RE: Number kích hoạt file mdb
trunghieu > 05-03-14, 10:40 PM
Bạn xem file demo này nhé.
http://www.megafileupload.com/en/file/50...2-mdb.html -
RE: Number kích hoạt file mdb
ngocanhwin > 08-03-14, 02:16 PM
(05-03-14, 10:40 PM)trunghieu Đã viết: Bạn xem file demo này nhé.
http://www.megafileupload.com/en/file/50...2-mdb.html
Cảm ơn bác đã hướng dẫn, em đang có một phần mềm tương tự, em nhờ người làm vấn đề check bản quyền cho file, em vốn không rành về access nên hơi bế tắc. Bác có thể giúp em giải quyết vấn đề không ? Nếu được bác cho em xin email để tiện trao đổi.
Cảm ơn bác. Email của em: ngocanhwin@gmail.com
Mong sớm nhận đc tin của bác.
-
RE: Number kích hoạt file mdb
trunghieu > 08-03-14, 05:23 PM
(08-03-14, 02:16 PM)ngocanhwin Đã viết: [quote='trunghieu' pid='21866' dateline='1394030414']
lemolca68@gmail.com
Cảm ơn bác đã hướng dẫn, em đang có một phần mềm tương tự, em nhờ người làm vấn đề check bản quyền cho file, em vốn không rành về access nên hơi bế tắc. Bác có thể giúp em giải quyết vấn đề không ? Nếu được bác cho em xin email để tiện trao đổi.
Cảm ơn bác. Email của em: ngocanhwin@gmail.com
Mong sớm nhận đc tin của bác.