سؤال كيف نعمل برناج ماينزل الاعلى جهاز واحد فقط

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

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

checktextfile.zip

اخي الفاضل مبتدىء جدا

هل لك ان تحول المثال على اكسس 2000

مع الشكر مقدما

تفضل

checktextfile2000_1.zip

الف شكر اخي مبتدىء جدا

جزاك الله الف خير

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

وممكن ان ينكشف امره وبتالي تكون مشكله

نرجو من عباقرة الاكسس ان يجدوا لنا طريقه اكثر ضمان يصعب

الوصول لها وهذا ليس غريب عليهم حيث تعلمنا منكم الكثير الكثر

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

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

الف شكر اخي مبتدىء جدا على التجاوب والاهتمام الله يعطيك العافيه

ولايحرمنا منك يامبدع

الأخوة الكرام

أسأل إذا كان بالإمكان أن نرفق كود معين بقاعدة البيانات بحيث ننشأ ملف

نصي يحتوي مثلاً على سريال الهارد ديسك ولا يملك حق تشغيل هذا الكود

إلا الشخص الذي سيقوم بتحميل هذه القاعدة على الجهاز

ويتم حفظ هذا الملف بإسم قريب من أسماء ملفات النظام بحيث لا ينتبه

إليه أحد

هذه فكرتي والله إعلم

الفكرة الثانية

أن تكون عندك معلومات عن الشخص الذي سيحمل قاعدة البيانات هذه

مثلاً إسم الجهاز ، إسم المستخدم

ويكون هناك كود يعمل رقم أو نص عشوائي حسب هذه المعلومات

وسيكون هذا الكود معك أيضاً بحيث ترسل له ملف نصي يحتوي على المعلومات

التي سيقوم هذا الكود بإنشائها من جهاز المستخدم وتقول له إلصق الملف

في القرص الصلب C

وعندما تشتغل قاعدة البيانات ستطلب المعلومات من هذا الملف والذي سيكون

متغيراً كلما تغير الجهاز والمستخدم

والسلام

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

Sub ShowDriveInfo()



Set fs = CreateObject("Scripting.FileSystemObject")

Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("d:")))

      

      Forms!serial_2!t1.Value = h.SerialNumber



End Sub

وها هو مثال على ذلك مع المرفقات

testserial_2.zip

الله يعطيك العافيه اخي المبدع مبتدىء جدا

طريقه ممتازه جدا واعتقد انه هو المطلوب بس ماهو

مسار الملف او القرص الذي يوجدبه السيريال نمبر للبارتشن

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

بحيث لما اكتب الرقم يحصل البرنامج عليه انا كتبت رقم وحددت :c بس

المشكله يقولي الملف غير موجود في الدليل

اعرف اني اتعبتك بكثرة اسالتي ولكن اطلب من الله ان يجزاك كل خير

ويرحم والديك

إخواني الأحبة

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

أخي مبتدأ جداً ((( فماذا أكون أنا )))

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

أي

1- يحصل المبرمج على السيريال من النموذج الذي طرحته مشكوراً

2- يقوم المبرمج بكتابة السيريال في مربع معين داخل النموذج أثناء تركيبه البرنامج للعميل .

3- عند الفتح يقارن البرنامج بين السريال الذي يحصل عليه وبين السريال الذي كتبه المبرمج .

عفواً فأنا ما زلت لا أكيد الأكواد

أخوك المحب

رضا عقيل

اخي ams ,,

لو سمحت التوضيح اكثر

----------------------------

رضا عقيل ,,

اقتباس

1- يحصل المبرمج على السيريال من النموذج الذي طرحته مشكوراً  

2- يقوم المبرمج بكتابة السيريال في مربع معين داخل النموذج أثناء تركيبه البرنامج للعميل .

3- عند الفتح يقارن البرنامج بين السريال الذي يحصل عليه وبين السريال الذي كتبه المبرمج .

كلامك سليم .. وهذا ما قمت بعمله بالفعل :P

أخي

هل تقصد أن المثال السابق به الطريقة والكود كاملاً

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

ولكن إذا تم استنتاجه في الكود ومقارنته مباشرة بمربع الإدخال أظن أفضل

هذا رأيي

وكما تعلم أنا مبتدأ وربما يكون رأي به خطأ أو جانب الصواب تماماً

مع تحياتي

أخوك رضا

اولاً اخي رضا اذا كنت انت مبتدأ فأنا مبتديء جداً :D :P

المثال السابق ليس به الطريقه ولكن ما بالمثال هو بمثابة فكرة السيريال نمبر

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

أخي اشكرك لتجاوبك

ومن ناحية الألقاب من مبتدأ ومبتدأ جداً (( وما أراه من تناقض )) معناه أنني في غاية الاحتراف :(

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

وأخيراً

لك الشكر على التجاوب ثانياً

أخوك المحب (f)(f)(f) رضا

اخي المبدع مبتدىء جدا

ماقصده هو اين اضع الرقم الذي الذي احصل عليه من خلال مربع

النص الموجود في المثل السابق نكتب ملف بسم MM.TXT

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

عنه

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

انا ماعرفت هذه الطريقه واعتقد انها تعتمد على الكود ولكن اين يوضع الكود

وماهو الكود اذا كان تعتمد هذه الطريقه على الكود

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

مثل المثل السابق الذي يعتمد على اسم الملف MM.TXT

ياليت اخي ترفق مثل يبين كيف نخلي البرنامج يعتمد على السيريال نمبر

طولنا عليك وتعبناك معنا جزاك الله عنا كل خير

والف الف شكر على كل ماقدمته لنا ياغالي

أخي مبتدأ جداً

النموذج المرفق هو ما كنت أحاول الوصل إليه والفضل يعود إلى الله ثم إليك وأشكرك جداً على سعة صدرك .. جزاك الله خيراً ..

وأتوقع أن يكون مفيد لسؤال أخي ams.

سامحنى نسيت إرفاق الملف ...

:o:o:o:o

reda.rar

الف شكر اخي رضا على الفائده ...

لي سؤال لو سمحت من اين حصلت على ال ProgressBar2 الموجود في القاعده السابقه ,,

------------------------

اخي ams :

بالنسبه للجزء الخاص بالسيريال نمبر :

اولاً : قم بوضع الكود السابق في وحده نمطيه في القاعده ثم احفظ هذه الوحده النمطيه,,

ثانياً:يعتمد الكود السابق على اجراء او داله تم تسميتها بـ ShowDriveInfo .. اذن يمكنك من اي مكان في القاعده استدعاء هذا الاجراء عن طريق كتابة

Call ShowDriveInfo

على سبيل المثال : نريد مثلاً عند فتح نموذج العملاء ان يكشف على السيريال نمبر , حيث اذا وجد السيريال المطلوب يفتح نموذج العملاء ويتم العمل عليه واذا لم يجد السيريال المطلوب يتم غلق النموذج ,, فكل ما عليك هو الذهاب الى نموذج العملاء وتضع في حدث عند الفتح Call ShowDriveInfo

وهذا معناه ان يقوم باستدعاء الاجراء ShowDriveInfo الذي قمنا بوضعه في الوحده النمطيه فيختبر السيريال نمبر للجهاز ويتم وضعه في اي مكان تحدده انت فمثلاً في الكود السابق تم وضعه في مربع نص اسمه t1 الذي يوجد في النموذج serial_2 ويمكنك ان تغير ذلك ليناسب القاعده الذي تعمل عليها (يمكنك تغيير ذلك عن طريق رابع سطر في الكود السابق)

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

للعلم يمكنك تغيير البارتشن الذي تريد معرفة السيريال له من خلال اخر جزء في السطر الثالث في الكود السابق حيث يمكنك تغيير البارتشن d الى c او e او كما تريد وهو مكتوب في الكود العلوي البارتشن "d"

يمكنك الاستفاده اكثر اذا تمعنت مثال اخينا العزيز رضا جيداً فسوف تجد به ما تريد ان شاء الله

أخي مبتدأ جداً ((عضو محترف )) (gift)(gift)(gift)

بالنسبة لشريط التقدم إذا كنت تقصد من أين يدرج فيكون من إدراج أدوات تحكم activex بعد فتح النموذج في عرض التصميم (( وأظن هذا لا يخفى عليك )):mad:

أما غذا كنت تقصد نوعية هذا الشريط بالتحديد أو إصداره فقد نسخته من بعض الأمثله من أعضا ءالمنتدى الأفاضل ..

وغليك مالين على هذا الشريط

ولا أتذكر من أعدهما (( ليس أنا طبعاً :( )

bars.rar

اخواني مبتدىء جدا و رضا عقيل جزاكم الله الف خير على

كل هذه المعلومات التي تقدمونها لنا الطريقه ناجحه 100%

صحيح ان هناك محترفين في الاكسس ويمكنهم ان يخترقوا اي حمايه

على برامج الاكسس ولكن هؤلاء يقدرون ويراعون حقوق الاخرين

الف الف شكر اخواني على التعاون جزاكم الله خير ولاتحرمونا من خبرتكم

أخي asm لا شكر على واجب ..

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

الأخوان الكرام تحية طيبة وبعد

هل جرب المثال مع وندوز أكس بي في الحقيقة لم يعمل مع هذا المثال ومثال سابق مع وندوز أكس بي ولكن يمكن الاستفاده منه فقط على وندوز me و win98 .

تحياتي

أخوكم / الخيال

أخي الكريم رضا

السلام عليكم

أشكرك على كلماتك وتقديرك "اللهم اجعلني خيراً مما يظنون واغفر لي ما لا يعلمون"

الأخ الخيال

المثال يعمل على ويندوز إكس بي وقد جربته قبل قليل

تحياتي

والله يا ابو هاجر انا من اول ما شفت المثال من شكله عرفت انك انت من قام بعمله بدون ما احد يقولي ;)

وجزاك الله كل خير على ما تقدمه لهذا المنتدى من اثراء

:mad::'(:'(:'(