كيفية التعديل على قاعدة البيانات الموجودة لدى المستخدم ؟؟؟؟؟

[man_20011]

السلام عليكم جميعا

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

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

[Bluemind]

اخوي

هل قمت بعمل زر او ملصق عند الضغط عليه يسألك عن كلمه مرور لاعاده مفتاح 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]

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

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

[Bluemind]

اخوي

الطريقه هذي لتعطيل/تمكين مفتاح shift وهي متزامنه مع بعض اي انها تعمل مع بعض كل واحده مكمله للاخرى.

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

سؤالي الان هل عندك مشكله موجوده او انك تبغى تعمل الطريقه السابقه?

اذا المشكله فعلا موجوده وليست مثال

ارسلي ايميل على

ghost22666@hotmail.com

تم تعديل أبريل 13, 2008 بواسطه Knight22666

[man_20011]

عزيزي انا عملت اللي قلته لي بالضبط ولكن فيه مشكلة بسيطه وهي

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

هل هذي الطريقة التي كنت تقصدها لان مكان تدخيل كلمة المرور حتى لو كان فاضي دون كتابة اي شي فإن مفتاح شفت shift يتعطل عن العمل

[Bluemind]

اخوي

الكود الاول يعمل على تعطيل مفاتح Shift و لا يسمح للمستخدم باستخدام مفتاح Shift

حاول تطبيق ذالك بدون الكود الثاني.

النتيجه لا يستطيع المستخدم استخدام Shift وهذا الي نبغاه حتى لا يستطيع احد الدخول و العبث بالقاعده.

الى هنا الامور تمام.

انت كا مبرمج او مصمم لهذه القاعده تحتاج تعديل شي على قاعده البيانات هذي، وشلون ترجع مفتاح شفت للعمل مره ثانيه ومفاتح شفت معطل!!!

الكود الثاني الموجود في الزر او الملصق الذي عندما تضغط عليه يطلبك كلمه مرور لاعاده مفتاح Shift للعمل ، يعمل على اعاده تشغيل مفتاح Shift مره ثانيه، و النتيجه : تقدار تفتح قاعده البيانات و تعدل عليها.

بعد ذالك تريد ان تعطل مفتاح Shift من جديد !!

الحل انك تغلق قاعده البيانات ثم تعيد فتحها مره ثانيه ثم تضغط على الزر او الملصق وعند ظهور مربع الحوار الي يطلبك كلمه المرور، تقوم بادخال كلمه مرور خاطئه اكثر من 3 مرات حتى يتم الخروج من قاعده البيانات تلقائيا لعدم صحه كلمه المرور.

حاول فتح قاعده البيانات من جديد عن طريق مفتاح Shift ، هل يشتغل معاك او لا ؟؟؟!!!

انتظر الاجابه منك!!!

و اذا فيه اي استفسار انا حاضر

[man_20011]

كل الامور طيبة وماشية معاي بس استفساري ليش في حال اني لم ادخل كلمة المرور وتراجعت بالضغط على اغلاق فإنه يتم تنفيذ الامر وهو تعطيل مفتاح شفت وكما تفضلت انه دخول كلمة مرور خاطئة لمدة 3 مرات ويتم الخروج من البرنامج تلقائيا

[Bluemind]

اخوي

هو اصلا معطل واذا تبي تشغله تكتب كلمه المرور لتفعيله

و في حاله الضغط على اغلاق ، فان المفتاح في الاساس مو شغال فا طبيعه الحال ماريح يشتغل معاك الا اذا ادخلت كلمه المرور الصحيحه

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

انسى الكود الثاني

اعمل لك قاعده بيانات للاختبار وفيها نموذج رئيسي يشتغل عند فتح قاعده البيانات (اعمل نسختين في مجلدين مختلفين)

بعدين انسخ الكود الاول و خليه في الوحدات النمطيه زي ما شرحت لك

بعدين قفل قاعده البيانات

وارجع افتحها من جديد مع الضغط على مفتاح shift وقولي النتيجه هل يشتغل معاك مفتاح shift او لا

طبعا لا تنسخ الكود الثاني ولا تضيفه في قاعده البيانات هذي ، بس الكود الاول

انتظر الاجابه!!!

[Bluemind]

اخوي انا توي قريت ايميلك

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

مثل

Private Sub Command8_Click()

طبعا يضيفه لك عن طريق التالي

من خصائص الزر اذهب الى الحدث

عند النقر ضع المؤشر

بعدين رايح تشوف في اليمين زر مثل الشكل هذا "..." ثلاث نقاط

اضغط عليه ورايح ياسالك عن العمليه الكود طبعا اختر الثالث"Code"

اما بالنسبه وين تنشاء الزر، الصراحه فكرتك حلوه

سويه في نموذج معلومات عن البرنامج للاسباب الي ذكرتها

[man_20011]

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

[Bluemind]

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

[Bluemind]

اخوي هذا شي طبيعي انه مايشتغل

انا مثل ماقلتلك اول

الكوديين الي فوق متزامنين مع بعض

يعني يشتغلو مع بعض

[man_20011]

اخوي مشكور

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

اذا لا يمكن لا يهم لان ما ارغب فيه ينفذ بشكل سليم وهو تعطيل مفتاح shift واعادته يعمل مره ثانية

الف شكر لك عزيزي والله لا يحرمنا منك انشالله

[man_20011]

عزيزي kingth22666 شكلي طمعت وايد لكن انت خبير وانا ابي استفيد منك بصراحه

عندي سؤالين انشالله يكونون خفيفين :

1- كيف اجعل البرنامج تجريبي لمدة معينة وبعدها لا يستطيع المستخدم العمل فيه ؟

2- كيف امنع البرنامج من ان يتم نسخه من قبل المستخدم وتوزيعه مثلا او اي شي ؟

شكرا مره ثانية

[Bluemind]

1- كيف اجعل البرنامج تجريبي لمدة معينة وبعدها لا يستطيع المستخدم العمل فيه ؟

اخوي

هل تقصد نسخه تجريبيه Trial version؟؟!!!

اذا نعم، يوجد كود(moduls) و نماذج لعمل ذالك ، مثال عليها : بعد ثلاثين يوم كمثال تنتهي صلاحيات المستخدم ولا يستطيع عمل اي شي الى بتسجيل المنتج(مفتاح تشغيل او كراك). ولكن لا استطيع ارفاقها في المنتدى لاسباب شخصيه.

راسلني على الايميل.

2- كيف امنع البرنامج من ان يتم نسخه من قبل المستخدم وتوزيعه مثلا او اي شي ؟

هذا امر ما تقدر تتحكم فيه

بامكانك عمل نموذج ابتدائي(مؤقت) عند مجرد فتح القاعده وتذكر فيه اسم مبرمج القاعده او مصممها وكذالك اي معلومات اخرى عنك وتضع حقوق النسخ لك، مثل مو صاير في نظام الويندوز

بعدين تقفل قاعده البيانات وتعطل مفتاح Shift مثل ما شرحت لك سابقا.

اذا تبغى مثال عليها ارفق قاعده بيانات لتطبيق ذالك

[man_20011]

دزيت لك مسج على الايميل ما وصل ؟