:ح: كيف ألغي الشفت ؟

[mzaki]

بسم الله الرحمن الرحيم

الاخوة الأعزاء

هل ممكن المساعدة فى

الغاء مفتاح الشيفت عند بداية تشغيل البرنامج

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

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

اعذرونى فأنا مبتدئ

وشكراً

اخوكم mzaki

[الباشق1]

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

اخي الكريم جرب هذا المثال من الاخ أشرف خليل

الغاء الشفت و تفعيله

http://www.officena.net/ib/index.php?showtopic=2066&hl=

المثال الثاني

http://www.officena.net/ib/index.php?showtopic=111&hl=

الباشــــــــــــــــــــــــــــــــــــــــــــــــــــق1

تم تعديل ديسمبر 23, 2004 بواسطه الباشق1

[mzaki]

أخى الفاضل

يبدو ان سؤالى غير واضح

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

اى

ما هو الكود الذى يعمل على سبب تعطيل مفتاح الشيفت " أريد تعطيله"

وما هى الطريقة

وشكراً

اخوك mzaki

[الباشق1]

وعليكم السلام تفضل هذا الكود للغاء الشفت

في حدث عند النقر تضع هذا الكود

ChangeProperty "AllowBypassKey", DB_BOOLEAN, True

[الباشق1]

هذا مثال منقول

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

ولكني سأورد لك الإجابة بالتفصيل الممل

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ــــــ

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

وثانيا حفظ بعض الحقوق أثناء رفع البرامج على مواقع الشبكة العنكبوتية ..

لذلك يجب أن يكون هناك داله معرفه لأوامر الغاء ( الشفت ) سنوردها لاحقاً ..

ويجب أن يكون هناك أمر لتنفيذ هذه الداله ..

والأمر لتمكين الغاء زر ( الشفت ) هو :

ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

حيث تمثل كلمة ( False ) اخفاء أو عدم تمكين ولألغاء عمل زر ( شفت ) نضع الكود التالي

ChangeProperty "AllowBypassKey", DB_BOOLEAN, True

حيث تمثل كلمة ( True) تمكين أو اظهار ويمكنك وضع اكواد الأوامر في اي مكان توده مثلاً اثناء بداية عمل شاشة اللوجو أو البداية لديك .. أو دمجه مع أي زر من أزرار الأوامر كما في المثال المرفق . ولكن كثير من الاخوة الكرام يحدث له ارتباك عندما يفعل أمر الغاء ( الشفت ) حيث أنه لا يستطيع تعديل قاعدة بياناته أو الاضافه اليها ... ولكني اسديك حيله ضريفه أعتمد عليها في كل برامجي اللتي اقوم بتنفيذها على الأكسس وهي أن يكون زر تفعيل الشفت على الفورم مخفي ويكون في مكان معين لا يعلمه الا المبرمج فقط حيث أنه يستطيع تفعيل والغاء الشفت في أي وقت يشاء فمثلاً في الملف المرفق عند بداية البرنامج ستكتشف ان ( الشفت ) لا يعمل ولكن لو نظرت الى الصوره الموجوده في شاشة البداية ستجد في المنديل الأبيض الموجود في قميص الرجل زر مخفي هذا الزر هو اللذي يقوم يتفعيل عمل ( شفت ) ماعليك الا الضغط عليه ثم ضغط زر خروج والعوده للبرنامج بالضغط على ( شفت ) ستنفتح لك قاعدة البيانات ... يمكنك استخدام نفس الفورمه في برنامجك وتغير التصميم الذي تريد هذا سيختصر عليك كثير من الوقت والجهد بالنسبة للداله المطلوبة : ' &

szlig;áÇ ÒÑí ÇáÃãÑ íÓÊÏÚíÇä ÇáÏÇáÉ ÇáÊÇáíÉ
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

ـــــــــــــــــــــــــــ

متمني لك التوفيق

جميع الأكواد أخذت من هذا المنتى الرائع للعلم فقط

وهذا الملف مرفق

http://www.arabteam2000-forum.com/index.ph...t&id=260644

تم تعديل يوليو 19, 2006 بواسطه التقني

[mzaki]

بسم الله الرحمن الرحيم

الاخ الفاضل / الباشق1

حقيقى أنا عاجز عن الشكر

وأعتذر بشدة عن الازعاج

ولك ألف شكر وتحية ... واللهم زيدك من العلم والايمان

اخوك mzaki