اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

وشكراً

اخوكم mzaki

قام بنشر (معدل)

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

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

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

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

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

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

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

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

أخى الفاضل

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

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

اى

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

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

وشكراً

اخوك mzaki

قام بنشر (معدل)

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

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

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

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

ــــــ

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

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

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

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

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

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

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

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

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

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

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

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

اخوك mzaki

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information