الفترة التجربية

[بلال اليامين]

السلام عليكم

اريد وضع الفترة التجربية لهذا البرنامج 

اريد عندما نقوم  بتحديد الفترة التجرية مثل 30 وبعد الانتهاء هذه الفترة يغلق البرنامج وتظهر له رسالة تنبه بنهاية الفترة التجربية 

حتى نقوم  بارسال له  السريان  الخاص بتجديد الفترة التجريبة 

 

 

 

بلال - تعديل (3).rar

[العبيدي رعد]

انظر هذا البرنامج   الجدول  والموديول

إيقاف بالمدة.mdb

[بلال اليامين]

اخي بارك الله فيك

اخي وطريقة تمديد الفترة التجربية

[العبيدي رعد]

في 21‏/1‏/2023 at 09:32, العبيدي رعد said:

 

الف  شكر  استاذنا  العزيز   

 

في 21‏/1‏/2023 at 13:57, بلال اليامين said:

اخي بارك الله فيك

اخي وطريقة تمديد الفترة التجربية

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

[kkhalifa1960]

أخي الاستاذ بلال  اضفت لك دالة تسمى Nana بالفورم frm1_UserLogon واتسعيتها عند فتح الفورم وأضفت لك قاعدة تسمى ExpireDate.accdb وبها التاريخ الذي تحدده +30 يوم فترة اضافية أذا التاريخ أقدم عدى 30يوم لايفتح الفورم frm1_UserLogon وجرب وغير التاريخ ثم اغلق القاعدة ExpireDate.accdb وافتح برنامجك وطالع النتائج ووافني بالرد 

 

Khalifa1960.rar

تم تعديل يناير 27, 2023 بواسطه kkhalifa1960

[بلال اليامين]

السلام عليكم 

اخي فورم frm1_UserLogon لم يوجد في البرنامج

[kkhalifa1960]

استاذ بلال أعد تنزيل المرفق وفك الضغط وافتح ( بلال - تعديل.accdb ) مابيفتح معك فورم الدخول للبرنامج تاريخ الصلاحية +فترة التمديد 30 يوم خلصوا  اذهب لـ ExpireDate.accdb و عدل التاريخ مثلا 1/6/2023 ثم أغلق ExpireDate.accdb وافتح  ( بلال - تعديل.accdb ) سوف يفتح معك فورم الدحول للبرنامج 

بكده يبقى برنامجك عند الزبون لكن ExpireDate.accdb   لديك أنت   ( هذه احدى الطرق دون الدخول في تفاصيل مشروعك أو الربط بينك وبين الزبون لان عنوان الربط هنا على كمبيوتر واحد ......)

تم تعديل يناير 27, 2023 بواسطه kkhalifa1960

[TQTHAMI]

جرب هذا 

طبعا بعد اذن الاساتذه 

Private Sub Form_Load()
If Date <= #11/18/2023# Then
   MsgBox "  .......معذرة، لقد انتهت فترة صلاحية هذه النسخة التجريبية، من فضلك راجع  ", vbCritical + vbInformation
   DoCmd.Quit
End If
End Sub

 

تم تعديل يناير 28, 2023 بواسطه TQTHAMI

[بلال اليامين]

اخي اين اضع هذا الكود

[سامي سامي الجزائر]

الى الاستاذ TQTHAMI  بوضع الكود في البرنامج لقد حاولت ولم اسطيع 

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

 

Private Sub Form_Load()
If Date <= #11/18/2023# Then
   MsgBox "  .......معذرة، لقد انتهت فترة صلاحية هذه النسخة التجريبية، من فضلك راجع  ", vbCritical + vbInformation
   DoCmd.Quit
End If
End Sub

[سامي سامي الجزائر]

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

[ابو فتحى]

السلام عليكم 

المشكلة ان العميل ممكن تنصيب البرنامج كل شهر ( الفترة التجربيي ) بدون شراء البرنامج

[عمر ضاحى]

بعد اذن الجميع
اعمل جدول البرنامج اول ما يفتح يسجل تاريخ اليوم فيه

لكن قبل ان يفعل ذلك يتحقق من تاريخ اليوم هل هو اكبر او يساوي اليوم ام لا

اذا لا يظهر رساله تخبر المستخدم انه يجب ان يعيد ظبط التاريخ بالتاريخ الحقيقى لليوم (لانه تلاعب بالتاريخ فى الجهاز)

اذا نعم يسجل اليوم بالساعه 

وبكده انت ضمنت عدم التلاعب بالتاريخ

بعدها انت هتعمل الكود بتاعك للتحقق من انه لم يصل لتاريخ انتهاء الصلاحية

اذا وصل لتاريخ انتهاء الصلاحية يظهر له رساله ان صلاحية البرنامج انتهت ويجب مراسلتك

اذا لا يكمل عمل البرنامج

وللتمديد هتعمل لك كود تكوين سيريل خاص بيك بالطريقه الخاصه بك على شكل معادلة مثلا او اى شكل تحبه

وعند الضغط على التمديد اذا كان السيريل مطابق يقبل التمديد حسب ما انت ظبطه

وممكن تبحث فى النت (اليوتيوب) هتلاقي الكثير من الطرق اختر ما يناسبك وعدل عليه بالطريقه التى تخصك

[Hamtoooo]

في 28‏/1‏/2023 at 03:02, TQTHAMI said:

Private Sub Form_Load()
If Date <= #11/18/2023# Then
   MsgBox "  .......معذرة، لقد انتهت فترة صلاحية هذه النسخة التجريبية، من فضلك راجع  ", vbCritical + vbInformation
   DoCmd.Quit
End If
End Sub

 

انا استخدم هذه الطريقه وهي فعاله وخفيفه
لكن لا تنسى ان تغلق الاكواد برقم سري 

 

توضع عند حدث فتح النموذج الأول

[Moosak]

10 ساعات مضت, ابو فتحى said:

المشكلة ان العميل ممكن تنصيب البرنامج كل شهر ( الفترة التجربيي ) بدون شراء البرنامج

يمكنك التحايل على هذه المشكلة بزرع ملف نصي في الجهاز يكتب فيه تاريخ التنصيب مثلا .. وتكتب أكواد لقراءته والبحث عنه 🙂 

[ابو فتحى]

12 ساعات مضت, Moosak said:

يمكنك التحايل على هذه المشكلة بزرع ملف نصي في الجهاز يكتب فيه تاريخ التنصيب مثلا .. وتكتب أكواد لقراءته والبحث عنه 🙂 

ممكن مثل لهذا الملف

[سامي سامي الجزائر]

اخي ابو فتحى هل يوجد حل لهذه المشكلة بارك الله فيك

[د.كاف يار]

الطريقة سهلة 

انشئ موديول جديد و الصق فيه الشفرات التالية

Function AddDate(FilePath As String)
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile(FilePath, True, True)
    Fileout.Write CDate(Now)
    Fileout.Close
End Function
Function DateReading(FilePath As String) As Date

    Dim fieldname As String
    fieldname = FilePath
    Dim strLineInput As String
    Dim tekst As String
    Dim strLineArray As Variant
    Dim FileNum As Integer

    FileNum = FreeFile()

    Open fieldname For Input As #FileNum

    Do While Not EOF(FileNum)
        Line Input #FileNum, strLineInput

        DateReading = Right(strLineInput, Len(strLineInput) - 2)
    Loop
    Close #FileNum

End Function

 

الآن مرحلة تنفيذ الكود

الهدف : 

- انشاء ملف نصي يحتوي على التاريخ الحالي

- قراءة الملف النصي و استخراج التاريخ المسجل به

لإنشاء ملف نصي يتحوي على التاريخ الحالي استخدم الكود التالي

Call DateReading(تضع هنا اسم الملف و المسار الذي تريد حفظ الملف فيه)

مثال 
اهنا اختر ان يكون المسار بجوار قاعدة الباينات الحالية
Call DateReading(CurrentProject.Path & "\" & "vba.txt")

 

لقراءة الملف النصي استخدم الكود التالي

للحصول على التاريخ المسجل في الملف النصي المزروع بجوار الملف النصي
[TextBox1]=DateReading(CurrentProject.Path & "\" & "vba.txt")

 

الآن تستطيع توظيف الكود بالطريقة التي تناسبك 

قم بإنشاء جدول به تاريخ التسجيل و اجعله مخفياً و ضع شرطاً عند فتح شاشة تسجيل الدخول

و ضع استعلاماً عن تاريخ التسجيل فإن كان لا يوجد تاريخ يتم اضافة تاريخ و نفس هذا التاريخ سيتم تسجيله في الملف النصي

الآن تستطيع وضع شرط عند الفتح في حال ان تاريخ اليوم مساوي للتاريخ الموجود في الملف النصي ان يقوم النظام بإظهار رسالة و انهاء التطبيق

ابدء بالتطبيق و اذا واجهتك صعوبة تجدني في الخدمة 

 

[سامي سامي الجزائر]

اخي لقد حاولت وضع الكود ولم اسطيع 

اريد مساعدة

[د.كاف يار]

تفضل هذا مثال لتطبيق الكود

تم وضعه في النموذج الرئيسي عند الفتح

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

 

SetData.accdb

تم تعديل يوليو 10, 2023 بواسطه د.كاف يار

[سامي سامي الجزائر]

اخي بارك الله فيك 

اخي عند يظهر خطأ

Nouvelle image bitmap.rar

[د.كاف يار]

2 ساعات مضت, سامي سامي الجزائر said:

اخي عند يظهر خطأ

 

تفضل هذا التعديل

 

SetData.accdb

[سامي سامي الجزائر]

اخي مازال نفس الخطأ عند الفتح 

[د.كاف يار]

متى يظهر معك الخطأ ؟؟؟

[Eng.Qassim]

مرحبا د حسين @د.كاف يار

البرنامج يقوم بعمل ملف نصي عند فتحه اول مرة ..من الطبيعي ظهور خطأ عند السطر Open fieldname For Input As #FileNum عند محاولة مسح الملف النصي او تغيير مسار البرنامج دون الملف 

اذا حصلت مثل تلك الحالة عمل جدول جديد بمسى اخر