Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Number kích hoạt file mdb
#1
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.
Chữ ký của ngocanhwin Xin chào, mình là ngocanhwin, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -14.
Reply
Những người đã cảm ơn
#2
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!
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
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
Chữ ký của ngocanhwin Xin chào, mình là ngocanhwin, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -14.
Reply
Những người đã cảm ơn
#4
Có ai đó giúp em không? Trình non và học đòi.
Chữ ký của ngocanhwin Xin chào, mình là ngocanhwin, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -14.
Reply
Những người đã cảm ơn
#5
Bạn xem file demo này nhé.
http://www.megafileupload.com/en/file/50...2-mdb.html
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ngocanhwin
#6
(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.021021021
Chữ ký của ngocanhwin Xin chào, mình là ngocanhwin, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -14.
Reply
Những người đã cảm ơn
#7
(08-03-14, 02:16 PM)ngocanhwin Đã viết: [quote='trunghieu' pid='21866' dateline='1394030414']
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.021021021
lemolca68@gmail.com
Chữ ký của trunghieu <<---Trên bước đường thành công, không có dấu chân của kẻ lười biếng --->>
ღღღღღTài sản của trunghieu (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng dẫn tạo Menu cho file Access bằng Macro Noname 44 31,788 10-11-16, 04:48 PM
Bài mới nhất: ongke0711
  [Hỏi] Macro Setvalue bị tắt sau khi chuyển thành file MDB toancvp 6 338 25-07-16, 07:28 PM
Bài mới nhất: toancvp
  [Hỏi] nén file data accdb bằng DAO trungn077 1 641 25-08-14, 03:35 PM
Bài mới nhất: MatTroiNguQuen
Sad [Help] Tạo menu bằng Macro để mở các file trong HDD mà sử dụng thường xuyên nghesysay 0 505 10-06-14, 11:14 AM
Bài mới nhất: nghesysay
  Tạo macro để mở file Excel ! DoquangLam 5 3,692 15-12-11, 05:09 PM
Bài mới nhất: Doanhtq

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ