الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعامل مع مستخدمين الاكسس من داخل vb6.0 ?

مغلق
بدأه human2x في 23 أبريل 2007 · 13 رد · 1,619 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أنا الآن أصمم برنامج عن طريق الفيجول بيسك 6 ، مربوط مع قاعدة بيانات اكسس باستخدام الـadodc والربط يكون في الرن تايم ، يعني بالطريقة التالية:

Private Sub Form_Load()

Dim i As Integer

adcClients.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb"

السؤال هو كيف ممكن اشئ مستخدمين في قاعدة بيانات اكسس وكيف ممكن اتعامل معهم ، يعني كيف ممكن اضيف مستخدم جديد أو أحذف مستخدم ، أو أغير كلمة السر لأي مستخدم.

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

أطلت عليكم

الله يعطيكم العافية

#2

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

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

هذا والله أعلم

أعوذ بالله من الشيطان الرجيم

قل إنّ صلاتي و نسكي و محيّاي و مماتي لله رب العالمين

صدق الله العظيم

#3

الاخ علاء الدين !

أشكرك على الرد وهو حل منطقي جداً ومقنع ولكن هناك سؤال:

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

هل تقصد أن اتبع هذه الطريقة أم انك تقصد طريقه أخرى؟.

#4

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

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

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

هذا والله أعلم.

أعوذ بالله من الشيطان الرجيم

قل إنّ صلاتي و نسكي و محيّاي و مماتي لله رب العالمين

صدق الله العظيم

#5

الاخ علاء الدين

جواب شافي ولكن ما هي الطريقة لإنشاء ملف Binary . هل ممكن ان تشرح لي طريقتك؟

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

بأغلبك معي،، ولكنك طمعتني في كرمك.

#6

up

#7

المثال مرفق

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

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

وفي حالة ضغط علي Binary سيمكنكك فتحها بـ

اكسس ولا يمكن تشغيلها داخل المشروع ارجو رؤية المثال للتوضيح اكثر

EX.rar

تم تعديل هذه المشاركة بواسطة kindy_ibrahim في 24 أبريل 2007 في 04:06

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

#8

تسلم يمينك

حملت المثال وجاري دراسته

#9

الاخ kindy-ibrahim

جربت المثال المرفق وكل شي تمام.

لدي بعض الاستفسارات عن بعض الاكواد المكتوبة في المثال:

ماذا تعني :

dim a as string * 10

Open "works.mdb" For Binary As #1

Get #1, 1, a

Get #1, 11, b

Put #1, 1, b

Put #1, 11, a

Close

ياريت لو تعطينا بعض الشرح عن معنى الاكواد المكتوبه أعلاه ، ما هي وظيفة (* 10) ، get , put , #1, وغيرها.

أو هل لديك كتاب الكتروني فيه شرح عن التعامل مع الملفات الثنائية ، بحيث يغطي المثال المرفق؟

تم تعديل هذه المشاركة بواسطة human2x في 24 أبريل 2007 في 12:04

#10

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

أخي الكريم عذراً لتأخري في الرد ولكن أن تصل متأخراً خير من أن لا تصل أبداً :rolleyes:

أما بعد ...

بالنسبة إلى فكرتي وفق الخوارزمية التالية :

الإدخال إلى الملف:

تشفير إسم المستخدم بواسطة التابع Enc ----> كتابة اسم المستخدم المشفر في الملف

تشفير كلمة السر بواسطة التابع Enc ----> كتابة كلمة السر المشفرة في الملف

الإخراج من الملف :

جلب اسم المستخدم المشفر من الملف ----> فك تشفير اسم المستخدم بواسطة التابع Dec

جلب كلمة السر المشفرة من الملف -----> فك تشفير كلمة السر بواسطة التابع Dec

أما بالنسبة إلى آلية عمل التابعين Enc و Dec فهي بالشكل التالي:

التابع Enc :

يجلب أول حرف من السلسة المحرفية ---> يأخد ترميز الأسكي له ---> يضيف له واحد إذا لم يكن 255 ---> أما إذا كان 255 فيصبح الترميز 0 ---> يحول ترميز الأسكي الجديد إلى محرف ---> يضيف المحرف إلى السلسة الجديد ويردها و يفعل هكذا مع بقية المحارف

التابع Dec:

يجلب أول حرف من السلسة المحرفية ---> يأخد ترميز الأسكي له ---> ينقص منه واحد إذا لم يكن 0 ---> أما إذا كان 0 فيصبح الترميز 255---> يحول ترميز الأسكي الجديد إلى محرف ---> يضيف المحرف إلى السلسة الجديد ويردها و يفعل هكذا مع بقية المحارف

أرجوا أن تكون الفكرة قد وصلت وتجد في المرفقات مثال عن الكتابة و القراءة من ملف Binary مع التشفير

تقبل تحياتي

ملاحظة : خوارزمية التشفير المستخدمة في البرنامج هي من أبسط أنوع خوارزميات التشفير لذا أنا أنصحك باستخدم خوارزمية أعقد منها ليصعب إختراق البرنامج

هذا والله أعلم

Binary.rar

أعوذ بالله من الشيطان الرجيم

قل إنّ صلاتي و نسكي و محيّاي و مماتي لله رب العالمين

صدق الله العظيم

#11

الاخ علاء الدين

تم تنزيل الملف وجاري دراسته

لا تروحوا عني بعيد . لا زلت محتاجكم.

الواحد من غيركم كان ضايع ، قربتوا المسافات ووفرتوا علي الجهد الكثير.

#12
human2x كتب:
الاخ علاء الدين

تم تنزيل الملف وجاري دراسته

لا تروحوا عني بعيد . لا زلت محتاجكم.

الواحد من غيركم كان ضايع ، قربتوا المسافات ووفرتوا علي الجهد الكثير.

#13

انا الأن شغال في المشروع واكيد سوف تكون هناك استفسارات اضافية.

ولن استغني عنكم .

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

تم تعديل هذه المشاركة بواسطة human2x في 26 أبريل 2007 في 11:09

#14
اقتباس
الاخ kindy-ibrahim

جربت المثال المرفق وكل شي تمام.

لدي بعض الاستفسارات عن بعض الاكواد المكتوبة في المثال:

ماذا تعني :

dim a as string * 10

Open "works.mdb" For Binary As #1

Get #1, 1, a

Get #1, 11, b

Put #1, 1, b

Put #1, 11, a

Close

ياريت لو تعطينا بعض الشرح عن معنى الاكواد المكتوبه أعلاه ، ما هي وظيفة (* 10) ، get , put , #1, وغيرها.

أو هل لديك كتاب الكتروني فيه شرح عن التعامل مع الملفات الثنائية ، بحيث يغطي المثال المرفق؟

انا آسف علي التأخير ولكني في القريب العاجل سأحاول شرح العمليات علي الملفات وخاصة اللملفات الثنائية لأهميتها

سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته

هذا الموضوع مغلق.

مواضيع مشابهة