man_20011 قام بنشر أبريل 12, 2008 قام بنشر أبريل 12, 2008 السلام عليكم جميعا حبيت اعرف منكم كيفية التعديل على نسخة البرنامج الموجودة لدى المستخدم الذي يعمل عليها مثلا لمدة ستة شهور او اكثر ولديه كمية كبيرة من المعلومات في البرنامج وخلال هذه الفترة طلب مني حذف بعض المعلومات او التعديل او الإضافة على البرنامج ومثل ما تعرفون يمكنني التعديل على النسخة الموجودة لدي فقط ومن ثم عمل نسخة بعد التعديل واعطائها للمستخدم ولكن المشكلة ان النسخة الموجودة عندي لا توجد بها اي شي اي انها لن تفيده . وما اريده هو بالتحديد هل يمكنني ان اذهب الى مقر عمل هذا المستخدم والدخول على قاعدة البيانات والتعديل عليها مع العلم ان مفتاح شفت لا يعمل .
Bluemind قام بنشر أبريل 12, 2008 قام بنشر أبريل 12, 2008 (معدل) اخوي هل قمت بعمل زر او ملصق عند الضغط عليه يسألك عن كلمه مرور لاعاده مفتاح Shift للعمل مره ثانيه!! اذا لا راسلني على الخاص بارسال ايميلك. هذه داله تقوم بتعطيل مفتاح Shift من العمل لكي لا يستطيع المستخدم من الدخول الى قاعده البيانات و جداولها وكل اجزئها المتبقيه لدوافع الامنيه. سوف اقوم بشرحها كالتالي: اولأ: اذهب الى الوحدات النمطيه وقم بانشاء جديد. ثم من ادوات اذهب الى References ثم ابحث عن Microsoft DAO 3.6 وضع عليه علامه صح ثم انسخ الكود التالي وضعه في هذه الوحده النمطية: Option Compare Database Option Explicit Public Function SetProperties(strPropName As String, _ varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim db As DAO.Database, prp As DAO.Property Set db = CurrentDb db.Properties(strPropName) = varPropValue SetProperties = True Set db = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = db.CreateProperty(strPropName, varPropType, varPropValue) db.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function بعد ذالك قم بنشاء زر في الواجه الرئيسيه لبرنامجك او قاعده بياناتك و اختر احد الملصقات او الكائنات الموجوده في هذا النموذج واذهب الى حدث عن النقر او النقر المزدوج و اكتب الكود التالي Dim strInput As String Dim strMsg As String Beep strMsg = "هل تريد اعاده تشغيل مفتاح Shift" & vbCrLf & vbLf & _ "الرجاء كتابه كلمه المرور لتشغيل مفتاح Shift." strInput = InputBox(Prompt:=strMsg, Title:="تعطيل مفتاح Shift") If strInput = "اكتب هنا كلمه المرور" Then SetProperties "AllowBypassKey", dbBoolean, True Beep MsgBox "لقد تم تشغيل مفتاح Shift" & vbCrLf & vbLf & "مفتاح التشغيل سوف يسمح للمستخدم للدخول الى كائنات قاعدة البيانات" & "في المره القادمه عند الدخول الى قاعده البيانات", _ vbInformation, "Set Startup Properties" Else Beep SetProperties "AllowBypassKey", dbBoolean, False MsgBox "كلمه مرور خاطئة" & vbCrLf & vbLf & _ "مفتاح Shift تم تعطيله." & vbCrLf & vbLf & _ "مفتاح Shift لن يمكن المستخدم من الدخول الى قاعده البيانات في المره المقبلة", _ vbCritical, "كلمه مرور غير صحيحة!!" Exit Sub End If * طبعا هذا الزر عند الضغط عليه مره واحده سوف يسالك عن كلمه مرور لتفعيل مفتاح shift وعند قبول كلمه السر و الخروج من البرنامج و فتح البرنامج مره اخرى مع الضغط على مفتاح Shift سوف يعمل. ملاحظة: * الكود الثاني هو لتجنب اقفال قاعده البيانات وعدم المقدره للدخول عليها مره اخرى عن طريق مفتاح Shift. تم تعديل أبريل 12, 2008 بواسطه Knight22666
man_20011 قام بنشر أبريل 12, 2008 الكاتب قام بنشر أبريل 12, 2008 مشكور عزيزي وايييد بس حبيت اراسلك على الخاص تظهر لي مسج اني لا امتلك الصلاحية وهذي المسئلة من بعد ما تم تحديث الموقع اما قبل فعادي لا اعلم هل اسجل عضوية جديدة ام ماذا على العموم انا لم اعمل اي شي بخصوص shift نهائيا والطريقة التي تفضلت بها هي مثالية جدا ولكن لم استوعبها بشكل كبير ياريت تشرحها لي اكثر الله يخليك لان هذا ما كنت اتمنى الوصول اليه ومشكور على تعاونك
Bluemind قام بنشر أبريل 13, 2008 قام بنشر أبريل 13, 2008 (معدل) اخوي الطريقه هذي لتعطيل/تمكين مفتاح shift وهي متزامنه مع بعض اي انها تعمل مع بعض كل واحده مكمله للاخرى. اما في طلبك الي فهمته انك تريد ارجاع مفتاح shift للعمل مره اخرى لانك عطلت عمله ولا تستطيع اعاده تشغيله لتمكينك من فتح قاعده البيانات ، هذي حلها موجود. سؤالي الان هل عندك مشكله موجوده او انك تبغى تعمل الطريقه السابقه? اذا المشكله فعلا موجوده وليست مثال ارسلي ايميل على ghost22666@hotmail.com تم تعديل أبريل 13, 2008 بواسطه Knight22666
man_20011 قام بنشر أبريل 14, 2008 الكاتب قام بنشر أبريل 14, 2008 عزيزي انا عملت اللي قلته لي بالضبط ولكن فيه مشكلة بسيطه وهي في حال اني دخلت كلمة المرور اللي وضعتها في الكود مفتاح shfit يعمل ولكن في حال اني لم اكتب اي شي او اردت الخروج فأن مفتاح shift لا يعمل وتظهر مسج بان المستخدم لا يستطيع الدخول الى قاعدة البيانات هل هذي الطريقة التي كنت تقصدها لان مكان تدخيل كلمة المرور حتى لو كان فاضي دون كتابة اي شي فإن مفتاح شفت shift يتعطل عن العمل
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 اخوي الكود الاول يعمل على تعطيل مفاتح Shift و لا يسمح للمستخدم باستخدام مفتاح Shift حاول تطبيق ذالك بدون الكود الثاني. النتيجه لا يستطيع المستخدم استخدام Shift وهذا الي نبغاه حتى لا يستطيع احد الدخول و العبث بالقاعده. الى هنا الامور تمام. انت كا مبرمج او مصمم لهذه القاعده تحتاج تعديل شي على قاعده البيانات هذي، وشلون ترجع مفتاح شفت للعمل مره ثانيه ومفاتح شفت معطل!!! الكود الثاني الموجود في الزر او الملصق الذي عندما تضغط عليه يطلبك كلمه مرور لاعاده مفتاح Shift للعمل ، يعمل على اعاده تشغيل مفتاح Shift مره ثانيه، و النتيجه : تقدار تفتح قاعده البيانات و تعدل عليها. بعد ذالك تريد ان تعطل مفتاح Shift من جديد !! الحل انك تغلق قاعده البيانات ثم تعيد فتحها مره ثانيه ثم تضغط على الزر او الملصق وعند ظهور مربع الحوار الي يطلبك كلمه المرور، تقوم بادخال كلمه مرور خاطئه اكثر من 3 مرات حتى يتم الخروج من قاعده البيانات تلقائيا لعدم صحه كلمه المرور. حاول فتح قاعده البيانات من جديد عن طريق مفتاح Shift ، هل يشتغل معاك او لا ؟؟؟!!! انتظر الاجابه منك!!! و اذا فيه اي استفسار انا حاضر
man_20011 قام بنشر أبريل 14, 2008 الكاتب قام بنشر أبريل 14, 2008 كل الامور طيبة وماشية معاي بس استفساري ليش في حال اني لم ادخل كلمة المرور وتراجعت بالضغط على اغلاق فإنه يتم تنفيذ الامر وهو تعطيل مفتاح شفت وكما تفضلت انه دخول كلمة مرور خاطئة لمدة 3 مرات ويتم الخروج من البرنامج تلقائيا
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 اخوي هو اصلا معطل واذا تبي تشغله تكتب كلمه المرور لتفعيله و في حاله الضغط على اغلاق ، فان المفتاح في الاساس مو شغال فا طبيعه الحال ماريح يشتغل معاك الا اذا ادخلت كلمه المرور الصحيحه انا رايح اقترح عليك حل يساعدك في فهم الموضوع انسى الكود الثاني اعمل لك قاعده بيانات للاختبار وفيها نموذج رئيسي يشتغل عند فتح قاعده البيانات (اعمل نسختين في مجلدين مختلفين) بعدين انسخ الكود الاول و خليه في الوحدات النمطيه زي ما شرحت لك بعدين قفل قاعده البيانات وارجع افتحها من جديد مع الضغط على مفتاح shift وقولي النتيجه هل يشتغل معاك مفتاح shift او لا طبعا لا تنسخ الكود الثاني ولا تضيفه في قاعده البيانات هذي ، بس الكود الاول انتظر الاجابه!!!
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 اخوي انا توي قريت ايميلك انت بمجرد اضافه حدث للزر البرنامج يعطيه نفس اسمه الموجود في النموذج مثل Private Sub Command8_Click() طبعا يضيفه لك عن طريق التالي من خصائص الزر اذهب الى الحدث عند النقر ضع المؤشر بعدين رايح تشوف في اليمين زر مثل الشكل هذا "..." ثلاث نقاط اضغط عليه ورايح ياسالك عن العمليه الكود طبعا اختر الثالث"Code" اما بالنسبه وين تنشاء الزر، الصراحه فكرتك حلوه سويه في نموذج معلومات عن البرنامج للاسباب الي ذكرتها
man_20011 قام بنشر أبريل 14, 2008 الكاتب قام بنشر أبريل 14, 2008 انا عملت نسخة ثانية من البرنامج نفسة مع حذف الكود الثاني واعدت تشغيل البرنامج فتمكنت من الدخول الى قاعدت البيانات
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 ارفق قاعده البيانات على مركز تحميل وضع الرابط هنا
Bluemind قام بنشر أبريل 14, 2008 قام بنشر أبريل 14, 2008 اخوي هذا شي طبيعي انه مايشتغل انا مثل ماقلتلك اول الكوديين الي فوق متزامنين مع بعض يعني يشتغلو مع بعض
man_20011 قام بنشر أبريل 14, 2008 الكاتب قام بنشر أبريل 14, 2008 اخوي مشكور انا فهمت قصدك بالكامل وما قصرت بصراحه تعبتك معاي لكن استفساري الاخير هل يمكن ان في حال ظهرت رسالة ادخال كلمة المرور ليتم تفعيل مفتاح shift لا استطيع ان اتركه فاضي بل يجب ادخال اي كلمة مرور او الخروج دون ظهور الرسالة التي تفيد بأن مفتاح shift قد تم تعطيله اذا لا يمكن لا يهم لان ما ارغب فيه ينفذ بشكل سليم وهو تعطيل مفتاح shift واعادته يعمل مره ثانية الف شكر لك عزيزي والله لا يحرمنا منك انشالله
man_20011 قام بنشر أبريل 14, 2008 الكاتب قام بنشر أبريل 14, 2008 عزيزي kingth22666 شكلي طمعت وايد لكن انت خبير وانا ابي استفيد منك بصراحه عندي سؤالين انشالله يكونون خفيفين : 1- كيف اجعل البرنامج تجريبي لمدة معينة وبعدها لا يستطيع المستخدم العمل فيه ؟ 2- كيف امنع البرنامج من ان يتم نسخه من قبل المستخدم وتوزيعه مثلا او اي شي ؟ شكرا مره ثانية
Bluemind قام بنشر أبريل 15, 2008 قام بنشر أبريل 15, 2008 1- كيف اجعل البرنامج تجريبي لمدة معينة وبعدها لا يستطيع المستخدم العمل فيه ؟ اخوي هل تقصد نسخه تجريبيه Trial version؟؟!!! اذا نعم، يوجد كود(moduls) و نماذج لعمل ذالك ، مثال عليها : بعد ثلاثين يوم كمثال تنتهي صلاحيات المستخدم ولا يستطيع عمل اي شي الى بتسجيل المنتج(مفتاح تشغيل او كراك). ولكن لا استطيع ارفاقها في المنتدى لاسباب شخصيه. راسلني على الايميل. 2- كيف امنع البرنامج من ان يتم نسخه من قبل المستخدم وتوزيعه مثلا او اي شي ؟ هذا امر ما تقدر تتحكم فيه بامكانك عمل نموذج ابتدائي(مؤقت) عند مجرد فتح القاعده وتذكر فيه اسم مبرمج القاعده او مصممها وكذالك اي معلومات اخرى عنك وتضع حقوق النسخ لك، مثل مو صاير في نظام الويندوز بعدين تقفل قاعده البيانات وتعطل مفتاح Shift مثل ما شرحت لك سابقا. اذا تبغى مثال عليها ارفق قاعده بيانات لتطبيق ذالك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.