نسخة التجربة للعميل بعدد سجلات معينه مع امكانية تفعيل النسخه

[Hamtoooo]

السلام عليكم واسعد الله اوقاتكم بكل خير

المشكلة :
بعد الانتهاء من عمل قاعدة لعميل يطلب نسخة للتجربة, ارسل له نسخه تجريبية فيقوم بتسجيل البيانات مثلا قام بإدخال 20 سجلا 
بعد ذلك يطلب النسخه الكامله ويضطر إلى اعادة ادخال البيانات من جديد

الفكرة :
خطرت لي فكرة اولا استبعاد فكرتي القديمة وهي الاعتماد على تاريخ معين ثم بعد ذلك يتوقف البرنامج وكذلك يتم تفعيل النسخه دون الحاجه إلى ارسال نسخه جديده
واعتماد فكرة ان العميل يقوم بادخال عدد من السجلات ثم بعد ذلك يتوقف الادخال (تقييد السجلات بعدد معين) 
بعد الوصول لعدد السجلات المتاحه يظهر (INBUTBOX) تفيد بأن النسخه للتجربة للاستمرار يرجى ادخال رمز التفعيل 
عندما يتم ادخال الرمز الصحيح يستمر البرنامج بالعمل ..
مع ملاحظة ما يلي :
1- التفعيل يتم عن طريق ريجستري الجهاز
2- رمز التفعيل لا يتم حفظه في جدول وإنما داخل الكود لتأمينة

التطبيق :
1- اضافة هذا المديول في قاعدتك

' التحقق من التفعيل
Public Function IsActivated() As Boolean
    On Error Resume Next
    IsActivated = GetSetting("MyApp", "Activation", "Activated", "False") = "True"
End Function

' تفعيل البرنامج
Public Sub ActivateSoftware(pw As String)
    If pw = "1020" Then
        SaveSetting "MyApp", "Activation", "Activated", "True"
        MsgBox "تم تفعيل النسخة بنجاح يمكنك الاستمرار في ادخال السجلات!", vbInformation
    Else
        MsgBox "كلمة مرور خاطئة!", vbCritical
    End If
End Sub

2- في نموذج ادخال البيانات عند حدث قبل الادراج اضف :
 

    If IsActivated() Then Exit Sub
    
    Dim recordCount As Long
    recordCount = DCount("*", "t1")
    
    If recordCount >= 3 Then
        Dim pw As String
        pw = InputBox("هذه نسخة للتجربة. يرجى التواصل لطلب رمز التفعيل:", "تفعيل النسخة")
        Call ActivateSoftware(pw)
        
        If Not IsActivated() Then
            Cancel = True
        End If
    End If

 

مرفق لكم التجربه ونستقبل افكاركم الجميله لتحسين هذه الفكرة 
تقييد النسخه بعدد سجلات محدده.accdb

 

تم تعديل منذ 19 ساعات بواسطه Hamtoooo

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

فكرة جميلة ولا بأس بها ..

واسمح لي بمداخلات في نقاطي التالية :-

1. إذا كانت الفكرة تعتمد على عدد سجلات محدد ، فهذا يعني انك ستكرر إستدعاء الأكواد في جميع نماذج الإدخال ، صحيح ؟
2. إذا قام المستخدم ( العميل ) بشراء نسخة كاملة منك ، وتم عمل فورمات وتنزيل نسخة ويندوز جديدة ، فهل سيتأثر التفعيل بهذه الحالة ؟؟
3. هل رمز التفعيل الذي في مثالك أو غيره ثابت ، أم يختلف من نسخة الى نسخة أخرى ؟؟؟
4. هل يتم تشفير مفتاح وبيانات التفعيل في الريجستري ؟؟؟؟

هي فقط نقاط خطرت ببالي ، لأني اعتمد في مشاريعي على فكرة مشابهة ، وما زالت قي التطوير بجميع الصغرات التي أواجهها