عمل فتره تجربيه للبرنامج

[عمر احمد000]

الساده الأعضاء المحترمين 

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

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

وشكرا لحضراتكم 

 

[عبد الله قدور]

السلام عليكم

اهلا بك أخي عمر احمد بيننا

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

1- نسخة تعتمد على التاريخ بحيث تقوم بوضع كود عند تحميل النموذج الرئيسي مثلا كود يقوم بمقارنة تاريخ اليوم مع تاريخ نهاية المدة التجريبية فإذا كان نفس اليوم او اكبر منه تظهر رسالة تحذير ثم اغلاق 

2- نسخة تعتمد على عدد السجلات المسجلة في جدول ما في القاعدة بحيث اذا تجاوز عدد السجلات 100 سجل مثلا يقوم البرنامج بمنع اضافة سجلات جديدة الى كل الجداول الموجودة , طبعا هذه الطريقة يجب ان تكون مصاحبة لحماية برقم الهارد او دارة الحماية أو رقم اللوحة الام أو ...أو ...

3- نسخة تعتد على اخفاء ميزات معينة من البرنامج لا يمكن استخدامها حتى يتم تفعيل النسخة بشكل كامل , طبعا هذه الطريقة ايضا يجب ان تكون مصاحبة لحماية برقم الهارد أو دارة حماية أو ..أو ..

اليك مرفق بسيط جدا للطريقتين الاولى والثانية 

 

 

db2.rar

[عمر احمد000]

السلام عليكم ورحمه الله وبركاته استاذ عبدالله 

شكرا لحضرتك علي الرد علي استفساري 

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

اتمني يكون استفساري واضح لحضرتك 

وشكرا ليك

[عمر احمد000]

  في 12‏/9‏/2016 at 06:57, عبد الله قدور said:

السلام عليكم

اهلا بك أخي عمر احمد بيننا

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

1- نسخة تعتمد على التاريخ بحيث تقوم بوضع كود عند تحميل النموذج الرئيسي مثلا كود يقوم بمقارنة تاريخ اليوم مع تاريخ نهاية المدة التجريبية فإذا كان نفس اليوم او اكبر منه تظهر رسالة تحذير ثم اغلاق 

2- نسخة تعتمد على عدد السجلات المسجلة في جدول ما في القاعدة بحيث اذا تجاوز عدد السجلات 100 سجل مثلا يقوم البرنامج بمنع اضافة سجلات جديدة الى كل الجداول الموجودة , طبعا هذه الطريقة يجب ان تكون مصاحبة لحماية برقم الهارد او دارة الحماية أو رقم اللوحة الام أو ...أو ...

3- نسخة تعتد على اخفاء ميزات معينة من البرنامج لا يمكن استخدامها حتى يتم تفعيل النسخة بشكل كامل , طبعا هذه الطريقة ايضا يجب ان تكون مصاحبة لحماية برقم الهارد أو دارة حماية أو ..أو ..

اليك مرفق بسيط جدا للطريقتين الاولى والثانية 

 

 

db2.rarFetching info...

Expand  

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

[ابو جودي]

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

اعمل مربعين نص فى نموذج وليكن اسمه   frm_splash فتح القاعدة وليكن   txt_crunt_year           والثانى باسم      txt_confirm_year

txt_crunt_year    اجعل القيمة الافتراضية له التاريخ date()  ومن التنسق اجعله يستخلص العام   "yyyy"
قم بانشاء جدول وليكن باسم   tbl_txt_confirm_year     وفى بداية كل عام ممكن حضرتك تغير قيمة السنة بايدك فيه باى طريقة وخزن فيه قيمة السنة الحالية  مثلا  2016
مربع النص txt_confirm_year مصدر بياناتة

=DLookUp("[txt_confirm_year ]","tbl_txt_confirm_year ")

 

وفى حدث عند التحميل

if[txt_crunt_year]=[txt_confirm_year ]then

docmd.close acForm, "frm_splash "
docmd.openForm"اسم النموذج اللى انت عاوز تفتحه"

else

msgbox "انتهت فترة صلاحية استخدام البرنامج برجاء مراجعة المبرمج ... لكم خالص الشكر"

end if

 

 

 

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

[عبد الله قدور]

If Year(Date) <> 2016 Then
MsgBox "áÞÏ ÇäÊåÊ ÕáÇÍíÉ ÇáÈÑäÇãÌ"
DoCmd.Quit
End If

هذا كود للتأكد ان التاريخ ضمن سنة 2016 حصرا 

[عمر احمد000]

  في 18‏/9‏/2016 at 15:12, ابا جودى said:

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

اعمل مربعين نص فى نموذج وليكن اسمه   frm_splash فتح القاعدة وليكن   txt_crunt_year           والثانى باسم      txt_confirm_year

txt_crunt_year    اجعل القيمة الافتراضية له التاريخ date()  ومن التنسق اجعله يستخلص العام   "yyyy"
قم بانشاء جدول وليكن باسم   tbl_txt_confirm_year     وفى بداية كل عام ممكن حضرتك تغير قيمة السنة بايدك فيه باى طريقة وخزن فيه قيمة السنة الحالية  مثلا  2016
مربع النص txt_confirm_year مصدر بياناتة

=DLookUp("[txt_confirm_year ]","tbl_txt_confirm_year ")

 

وفى حدث عند التحميل

if[txt_crunt_year]=[txt_confirm_year ]then

docmd.close acForm, "frm_splash "
docmd.openForm"اسم النموذج اللى انت عاوز تفتحه"

else

msgbox "انتهت فترة صلاحية استخدام البرنامج برجاء مراجعة المبرمج ... لكم خالص الشكر"

end if

 

 

 

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

Expand  

 

شكرا لحضرتك استاذه جودي بس بعد اذنك ممكم ترفقي ملف تلوضيح الفكره اكتر ولكي جزير الشكر والتقدير

  في 18‏/9‏/2016 at 15:55, عبد الله قدور said:

If Year(Date) <> 2016 Then
MsgBox "áÞÏ ÇäÊåÊ ÕáÇÍíÉ ÇáÈÑäÇãÌ"
DoCmd.Quit
End If

هذا كود للتأكد ان التاريخ ضمن سنة 2016 حصرا 

Expand  

استاذ عبدالله طيب فين حين لو عملنا تحديث مع بدايه 2017 كدا الكود مش هيشتغل في 2017 علشان حنا معرفين الكود 2016 وكدا البرنامج هيكون مفتوح علي طول

[عبد الله قدور]

السلام عليكم

اخي الكريم احمد عمر سامحني على ضيق وقتي

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

ثم تكون المقارنة 

sss.rar

[عمر احمد000]

اولا اشكرك علي اهتمامك وردك استاذنا عبدالله 

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

ثانيا هل في طريقه فتح نموذج يوم الاحد كل اسبوع 

[عبد الله قدور]

  في 22‏/9‏/2016 at 07:06, عمر احمد000 said:

كود اقفال البرنامج اخر كل سنه

Expand  

السلام عليكم

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

أما بشأن الطريقة التي ارسلتها لك فيجب عليك وضع هذا الكود في نموذج الترحيب بحيث لما يفتح البرنامج يفتح هذا النموذج تلقائيا ويقوم الكود بالتأكد من ان السنة الحالية هي نفس السنة الموجودة في الجدول فاذا تم التطابق انتقل الى النموذج الرئيسي واذا لم يتم اظهر رسالة ان البرنامج مقفل ثم اغلاق 

 

[عمر احمد000]

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

استاذنا عبدالله لو في حاله استخدمنا هذا الكود واعتبرنا اخر البرنامج 2016 في حاله بقي قدوم العام الجديد 2017 كدا البرنامج مش هيفتح في هذه الحاله عاوز البرنامج يتم اعاده تفعيله لمده سنه اي بعد انتهائ 2017 يتم قفل البرنامج وهكذا

ثانيا انا كنت طلبت منك كود فتح النموذج يوم الاحد من كل اسبوع

[عمر احمد000]

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

جمعه مبركه علي الجميع الاعضاء

استاذ عبدالله تجدون في المرفق ملف "test " موجود نموذج دخول المستخدمين ونموذج تفعيل البرنامج عاوز من حضرتك طريقه في حاله تفعيل التاريخ من نموذج شاشه تفعيل البرنامج يتم عمل تحديث للتاريخ في نموذج دخول المستخدمين 

ملاحظه : بس انا عاوز احدد مستخدم واحد بس هوا الي يفعل البرنامج وبعد التفعيل يتم تحديث البرنامج لجميع المستخدمين 

وشكرا

test.rar

[ابو جودي]

  في 18‏/9‏/2016 at 18:59, عمر احمد000 said:

 

شكرا لحضرتك استاذه جودي بس بعد اذنك ممكم ترفقي ملف تلوضيح الفكره اكتر ولكي جزير الشكر والتقدير

استاذ عبدالله طيب فين حين لو عملنا تحديث مع بدايه 2017 كدا الكود مش هيشتغل في 2017 علشان حنا معرفين الكود 2016 وكدا البرنامج هيكون مفتوح علي طول

Expand  

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

ابا جودى

محمد عصام

ما علينا اتفضل يا قمر ادى طلب حضرتك نفس اللى انا قلته لكن انا قمت بتنقيح المثال قليلا وحطيت التاتش بتاعى ☺ 
للعلم انا اشتغلت على طلبك لمدة سنه

وطبعا لو اليوزر رجع تاريخ الجها او قدمه لن يتأثر البرنامج ولن يفتح قبل  2016 او بعد  2016

فى شاشة اتفاقية الترخيص

عند الضغط على الرز  (F6)  سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة   2016
سوف يعمل البرنامج بنجاح
 

وممكن كل سنه تغير القيمة دى لتجديد البرنامج

 

demo.rarFetching info...

تم تعديل سبتمبر 24, 2016 بواسطه ابا جودى

[عمر احمد000]

  في 24‏/9‏/2016 at 17:41, ابا جودى said:

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

ابا جودى

محمد عصام

ما علينا اتفضل يا قمر ادى طلب حضرتك نفس اللى انا قلته لكن انا قمت بتنقيح المثال قليلا وحطيت التاتش بتاعى ☺ 
للعلم انا اشتغلت على طلبك لمدة سنه

وطبعا لو اليوزر رجع تاريخ الجها او قدمه لن يتأثر البرنامج ولن يفتح قبل  2016 او بعد  2016

فى شاشة اتفاقية الترخيص

عند الضغط على الرز  (F6)  سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة   2016
سوف يعمل البرنامج بنجاح
 

وممكن كل سنه تغير القيمة دى لتجديد البرنامج

 

demo.rarFetching info...

Expand  

 

انا اسف لحضرتك استاذ محمد عصام بس انا والله مااخدت بالي من الصوره غير الحين انا بصيت للرساله تبعلك علي طول ورحت رديت عليك 

معلش ياريت تقبل اسفي 

طيب في حضرتم انا كنت عملت فكره بس ماظبتت معي ممكن تشيك عليها وتظبتها 

اسم المستخدم admin

كلمه السر 123

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

اما باقي المستخدمين ميقدروش يعملوا بتحديث للتاريخ البرنامج بس البرنامج معاهم يفتح علي طول 

اسف علي الاطاله

 

test.rar

[عمر احمد000]

  في 24‏/9‏/2016 at 17:41, ابا جودى said:

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

ابا جودى

محمد عصام

ما علينا اتفضل يا قمر ادى طلب حضرتك نفس اللى انا قلته لكن انا قمت بتنقيح المثال قليلا وحطيت التاتش بتاعى ☺ 
للعلم انا اشتغلت على طلبك لمدة سنه

وطبعا لو اليوزر رجع تاريخ الجها او قدمه لن يتأثر البرنامج ولن يفتح قبل  2016 او بعد  2016

فى شاشة اتفاقية الترخيص

عند الضغط على الرز  (F6)  سوف تتم فتح نافذة لو تم تغيير التاريخ الى الى سنة   2016
سوف يعمل البرنامج بنجاح
 

وممكن كل سنه تغير القيمة دى لتجديد البرنامج

 

demo.rarFetching info...

Expand  

استاذ محمد ممكن حضرتك توضح هذا الملف المرفق اي بعد انتهاء السنه تظهر شاشه الترخيص ثم شاشه تفيعل الترخيص  ثم شاشه تفعيل البرنامج وعند الانتهاء من التجديد وقفل البرنامج وفتحه مره اخري لاتظهر هذه النماذج غير انتهاء الانتهاء فتره البرنامجارجوا تكون المعلومه وصلت لحضرتك وشكرا لك