*حماية* كيف اتغلب على مفتاح الشفت

السؤال غير واضح

استخدمي هذا الكود ويجب استدعاؤه بواسطة ال autoexec في runcode

Public Function Applnit()

If CurrentUser = "AAAAA" Then

changeproperty "AllowBypassKey", dbBoolean, True

Else

changeproperty "AllowBypassKey", dbBoolean, False

End If

End Function

Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)

Dim dbs As Database, prp As Property

Const conPropNotFoundError = 3270

Set dbs = CurrentDb

On Error GoTo Change_err

dbs.Properties(strPropName) = varPropValue

changeproperty = True

Change_Bye:

Exit Function

Change_err:

If Err = conPropNotFoundError Then

Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

dbs.Properties.Append prp

Resume Next

Else

changeproperty = False

Resume Change_Bye

End If

End Function

أظن أن الأخت شيرين تقصد أن تكون القاعدة غير قابله للفتح بواسطة مفتاح الشفت عند تشغيل ماكرو ( Autoexec ) عند بدء التشغيل .. هذا ما فهمته ..

وفي هذه الحالة يجب عليك أستخدام برنامج خاص يجعل من البرنامج على صيغة EXE. ويعمل له setup ..

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

الأخ / مفرج .. السلام عليكم ورحمة الله وبركاته وبعد

ما هو المخرج من هذا الكود .. فرج علينا .. طبقته حرفياً وما عرفت كيف ألغيه وأعود إلى تصميم القاعدة ...

شكراً

فتى الوادي الله يعينك

قم بعمل مستخدم اسمهAAAAA

وادخل على قاعدة البيانات

تستطيع تغيير بعض خصائص قاعدة البيانات من خيار بدء التشغيل من القائمة أدوات ولكن هناك بعض الخصائص التي لا يمكن تغييرها الا بالكود مثل الغاء عمل الزر Shift الذي يتجاوز افتراضات بدء التشغيل لعمل ذلك يكفي أن تفتح نافذة Immedeate وتكتب :

set db=currentDB

db.Properties!AllowBypassKey=False

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

اخي العزيز ابو لمى /

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

ذكرت في في احد الردودعلى مثل هذ الموضوع انه تفتح نافذة Immedeate وتكتب :

set db=currentDB

db.Properties!AllowBypassKey=False

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

ولك مني كل الشكر والتقدير،،،

افتح أي وحدة نمطية ثم اضغط Ctrl+G وستظهر في أسفل الوحدة .

ولك تحياتي

للإستزادة من خيارات بدء التشغيل انظر الرابط التالي :

http://arabteam.nicmatic.com/vb/showthread...3?threadid=3655

وللجميع تحياتي

أحدهم أرسل لي هذه الرسالة عن طريق البريد :

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

أخي أبو حمود بارك الله فيك ومن أمثالك

أرجو ان توضح لي عن هذا

كيف عمل ذلك وأين أدخل هذا الحدث

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

الغاء مفاتح الشفت عند التشغيل وياريت في أقرب وقت للأهمية لا أمرا

والله لا يحرمنا منك ...

والجواب بالخطوات :

1- أنشئ نموذج جديد ثم أنشئ عليه زر أمر .

2- في حدث عند النقر لزر الأمر ضع الأسطر التالية (أنسخ وألصق):

ChangeProperty "AllowBypassKey", DB_Boolean, False

3- ضع الدالة التالية في آخر الوحدة النمطية الخاصة بالنموذج هذا الجديد :

Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)

Dim dbs As Database, prp As Property

Const conPropNotFoundError = 3270

Set dbs = CurrentDb

On Error GoTo Change_err

dbs.Properties(strPropName) = varPropValue

changeproperty = True

Change_Bye:

Exit Function

Change_err:

If Err = conPropNotFoundError Then

Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

dbs.Properties.Append prp

Resume Next

Else

changeproperty = False

Resume Change_Bye

End If

End Function

4- افتح النموذج في العرض العادي ثم اضغط زر الأمر الموجود عليه .

بس انتهينا .

وللجميع التحية

أخي أبو حمود

جربت تطبيق هذا الكود لكن لم يعمل معي .

ثم هل النموذج هذا يكون فى قاعدة غير التي لا تفتح عن طريق زر shift أما أين يكون بالضبط هذا النموذج ؟

أشرف

الأخ أشرف

لقد نسيت هذا السطر وهو يوضع في أول الوحدة النمطية :

Const DB_Boolean As Long = 1

فعذرا .

والنموذج صممه في القاعدة التي ترغب في التحكم بـ Shift فيها ثم لا قيمة لها إذا شئت احذفه حتى لا يستخدمه المستخدم .

ولك تحياتي

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

الأخ محسن

كل عام وأنت بخير

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

هذا المثال :

http://mypage.ayna.com/h_h123/Shift.zip

ولك تحياتي

أخي الحبيب أبو حمود الله يخليلك حمود وصل المثال جزاك الله خيرا

الأخ الفاضل أبوحمود

سؤالي الله يصبرك علينا عن وضع دالة الشفت في أعلى الوحدة النمطية حيث أنه برجوعي لمثال موجود في هذا المنتدى وجدت الوحدة النمطية الطويلة كتابتها ولم أجد الوحدة النمطية المكونه من سطر واحد أرجو الإفادة عن مكان وضع الوحدة النمطية ( سطر واحد )

والله يعطيك العافيه

الأخ أبوعلامه

مافهمت سؤالك ياليت توضح أكثر وتدلني على المثال اللي تتكلم عليه عشان أفهم .

ولك تحياتي

الاخ أبو حمود

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

الأخ ابو علامه

مثال الشفت موجود في الرابط التالي :

http://arabteam.nicmatic.com/vb/showthread...16&pagenumber=1

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

ولك تحياتي

أخي أبو حمود

هل الرابطه صحيحه ؟

شكرا لك اخي ابو حمود ... وجزاك الله كل خير

هذه اول مشاركة لي ... مع العلم بانه سبق لي ان نزلت المثال الخاص بتعطيل الشفت .. و استفدت منه ... وقد طبقته فورا في احد البرامج الصغيرة الخاصة بي ....

وقد اشتركت في هذا الموقع لا شكرك اولا على هذا الطرح ...

.

وللمشاركة معكم في الايام القادمة إن شاء الله

تحياتي لكم

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

الأخ km99

حياك الله في هذا المنتدى وأهلا وسهلا بك .

ونحن في انتظار مشاركاتك ومساهماتك النافعة .

ولك تحياتي

الآخ أبو حمود يعطيك العافيه

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

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

أخي أبو علامه

لقد رجعت للمثال فإن كنت تقصد الدالة ChangeProperty فلايضر إن كانت بالأعلى أم بالأسفل في الوحدة النمطية ، الإعلان عن المتغيرات العامة ودوال API والثوابت تكون بالأعلى ، وجرب وسترى النتيجة .

آمل أن أكون فهمت سؤالك .

وكل عام وأنت بخير .

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

ولك تحياتي