مساعدة بسيطة من ينقدنا ؟؟؟

[thesoul]

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

هل من منقذ يساعدني في شيئين أثنين .. وله دعاء مني في ظهر الغيب ؟؟
لقد بحثت في الانترنت ولم أجد إلا درس واحد . لاكن للأسف كان الدرس معقد جدأ .
علماً :
1) أنني أريد أسماء الفورم والأزرار والصناديق النصية text1,text2… كما هي . أي لا تقم بتغيير اسمها إلى Frm_login أو Frm_chang_passWord ....الخ
وإنما أريد أسماء الأزرار كما هي ..لا تمكن من فهم الشفرة
2) بأنني أستخدم تقنية الـ ADO
3) بأنني أريد شرح للشفرة كلمة كلمة ... لأتمكن من فهمها وحفظها
4) أن قاعدة البيانات من نوع أكسس "Access" واسمها db1 وهي محمية بكلمة سر "123456"

الشيء الأول :
أريد عمل مستخدمين في برنامجي بحيث يقوم المستخدم بإضافة بياناته ويتم بعد ذلك السماح له بدخول البرنامج من هذا الفورم:
www.awidan76.jeeran.com/1.jpg

الشيء الثاني أريد واجهة لتغيير كلمة المرور
بحيث يقوم المستخدم بكتابة اسمه وكلمة المرور القديمة ثم الجديدة ... وإذا كان اسمه وكلمة المرور القديمة صحيحتين يتم تغيير كلمة المرور .
وإذا كانتا غير ذلك تظهر رسالة بأن كلمة المرور القديمة أو اسم المستخدم خطأ .. حاول مرة أخرة ؟
www.awidan76.jeeran.com/2.jpg

هل من منقذ .........؟

[pal_pal]

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

[آسيهي]

اخي العزيز اما السؤال الاول او الشئ الاول فكالتالي:
1-يجب عمل قاعدة بيانات بــ Microsoft Access
2- عمل ريكوردين في الــــ Access باسم اسم المستخدم و الرقم السري وتفضل ان ان يكون بالانكليزي مثلا ( UserName, Password)
3- ادخال الاسماء الارقام السرية التي انت تريد ولا تنسى ان تكتب في قناع الادخال ل Password لتحويل الحروف الى شكل نجوم لعدم رؤية الباسوورد
4-حفظ البرنامج باسم الذي انت تريد في نفس ملف المشروع

و الان الى برنامج فيجوال بيسك
تقوم بعمل الواجهة كما في الشكل الذي انت ارسلته
اتبع الخطوات التالية :
1- وضع 2 Text box و 2 Command Buttons على الفورم
2- سمي الكوماند 1 "موافق" و الكوماند 2 "الغاء الامر"
و الان سنقوم بكتابة الاكواد
و لكن قبل كتابة الاكواد يجب تفعيل DAO كالتالي الذهاب الى Project و الى Refrences و اختيار Microsoft DAO Liberary 6.0

في كوماند 1 اكتب الكود التالي:
Dim db as DAO.Database
Dim rcd as DAO.Recordset
Dim a as Bolean
if Text1.Text ="" or Text2.Text="" then
msgbox"please enter username and password"s
else
set db=opendatabase(App.Path & "\ db1.mdb")s
set rcd=db.openrecordset("Table1")s
with rcd
Do while not.EOF
if Text1.Text=rcd!UserName and Text2.Text=rcd!Password then
a=true
exit do
else
a=false
end if
.Movenext
loop
end with
if a=true then
msgbox"UserName and Password are Corrcet"s
else
msgbox"UserName and Password are incorrect"s
end if
end sub

اما في الكوماند الثاني فاكتب هذا الكود
end

اي سؤال انا مستعد

اما الموضوع الثاني فايضا سهل جدا جدا ولكن غدا سترى الجوات و شكرا

[thesoul]

شكراً لك يا pal_ pal على المحاولة
وأشكر كذلك الأخ العزيز آسهي على وضع حل لسؤالي ... وانا ان شاء الله ساجرب تطبيقة وارد عليك انشاء الله
سلام يااخواني

[آسيهي]

شكراً لك يا pal_ pal على المحاولة
وأشكر كذلك الأخ العزيز آسهي على وضع حل لسؤالي ... وانا ان شاء الله ساجرب تطبيقة وارد عليك انشاء الله
سلام يااخواني

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

[thesoul]

أخي اسيهي لقد قمت بتجربة الشفرة وحصلت مشكلة انشاء الله تكون سهلة عليك ...
قمت بوضع شرح عن المشكلة التي حصلت لي وهي موجودة في ملف ورد هنا
www.awidan76.sitesled.com/prablum.doc
وهنا وضعت لك التطبيق لترى ان كان صحيح ام لا
http://awidan76.sitesled.com/vbwork.zip
وجزآكم الله خير وأدخلكم جنته من دون أي حسابات

[آسيهي]

أخي اسيهي لقد قمت بتجربة الشفرة وحصلت مشكلة انشاء الله تكون سهلة عليك ...
قمت بوضع شرح عن المشكلة التي حصلت لي وهي موجودة في ملف ورد هنا
www.awidan76.sitesled.com/prablum.doc
وهنا وضعت لك التطبيق لترى ان كان صحيح ام لا
http://awidan76.sitesled.com/vbwork.zip
وجزآكم الله خير وأدخلكم جنته من دون أي حسابات

اخي العزيز فتحت ملف الوورد و المشروع
اما بنسبة كلمة Boolean يجب كتابتها بهذا الشكل (Boolean) اما اظهار خطأ في end sub اخي العزيز هناك End If ناقص لان كل if ينتهي ب End if فاخي العزيز اضف End If قبل End Sub و ستحل مشكلتك

اما النقطة التي توضع قبل Move Next فهذا تعني الــ Move Next ل with اي عندما تكتب With Text1 اضف نقطة فستظر جميع خصائص الــ Text1 و في هذا المثال Move Next خاصية من خصائص الـــ rcd
شكـــــرا
مستعد عزيزي لكل الاسئلة
اذا كان لديك اي سؤال يمكنك ان تراسلني عن طريق
mahdiasihy@yahoo.com

[thesoul]

اخي آسيهي ابلغك ان الشفرات التي أعطيتني إياها اشتغلت 100% والدرس الذي وضعته لتغيير كلمة المرور كمان جربته وكان شغال 100% .
بارك الله فيك أخي
وشكراً لك .. والله ماقصرت .
عندي كمان اسئلة اريد ان أسألك إياها هذا بعد أن تأذن لي بطرحها عليك
وسأكون بإنتظار الإذن
لأني وبصراحة .. مستحي منك اشد الاستحياء لأني آخذ فقط ولا أعطي
انشاء الله سأقوم بوضع دروس في هذا المنتدى ... وخلي في معلوميتك أن الدروس التي سأضعها أهديها إليك .
أخي آسيهي شكراً لك لإنك تقوم بمساعدة الناس
لاحظت في مواضيعك ووردودك حين يقوم أي شخص بوضع مشكلته أو سؤاله تكون أنت أول شخص يريد المساعدة
بارك الله فيك
بإنتظار اذنك ..

[آسيهي]

اخي آسيهي ابلغك ان الشفرات التي أعطيتني إياها اشتغلت 100% والدرس الذي وضعته لتغيير كلمة المرور كمان جربته وكان شغال 100% .
بارك الله فيك أخي
وشكراً لك .. والله ماقصرت .
عندي كمان اسئلة اريد ان أسألك إياها هذا بعد أن تأذن لي بطرحها عليك
وسأكون بإنتظار الإذن
لأني وبصراحة .. مستحي منك اشد الاستحياء لأني آخذ فقط ولا أعطي
انشاء الله سأقوم بوضع دروس في هذا المنتدى ... وخلي في معلوميتك أن الدروس التي سأضعها أهديها إليك .
أخي آسيهي شكراً لك لإنك تقوم بمساعدة الناس
لاحظت في مواضيعك ووردودك حين يقوم أي شخص بوضع مشكلته أو سؤاله تكون أنت أول شخص يريد المساعدة
بارك الله فيك
بإنتظار اذنك ..

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

[thesoul]

السلام عليكم

عندي طلب...... وارجوا أن أجد عندك الحل مع الشرح الوافي

الطلب: تحميل صور من خلال الفيجوال

عندي قاعدة بيانات للموظفين employee وفي هذه القاعدة جدول لبيانات الموظفين وهو يحمل الأسم التالي empdata

طيب ..

قمت بتصميم واجهة في الفيجوال بايسيك 6 كالتالي :
http://awidan76.sitesled.com/ccccv.JPG

المطلوب:

وضع بيانات الموظف "رقمه- اسمه – وعنوانه – الدرجة العلمية – تاريخ التعيين – وصورته " ويتم عرضها عند الحاجة مع صورته.

ولك جزيل الشكر آسيهي