الله يخليكم اللى يعرف للفجوال بيسك6 ينقدني

[روح العطا]

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

اتمنى احد يساعدني

[wtsahafi]

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

إذا كان لديك قاعدة بيانات وفيها table يحتوي على الخانتين

1. user name
2. Password

تعبي هذه الtable بأسماء المستخدمين وأرقامهم السريه
وتجعل من خصائص هذه الtable أن الرقم السري لايتكرر وهي خاصية البرايمري كي

ومن ثم إذا أدخل المستخدم إسمه ورقمه السري
وضغط على زر دخول مثلا
يتم البحث في قاعدة البيانات عن الرقم السري لهذا المستخدم فإذا كان صحيحاً أظهرنا Messagebox ترحيبيه بإسمه

التفاصيل:
ننشىء sqldataadapter ونعبيه بأمر "select password from table where username=@parameter1"

حيث أن table هي إسم الجدول الذي فيه أسماء المستخدمين وأرقامهم السريه
و @parameter1 هو البراميتر الذي نضع فيه إسم المستخدم من الخانه الذي يضع المستخدم فيها اسمه ولتكن مثلا Textbox1
نذهب بعد ذلك إلى الزر الذي يضغطه المستخدم للدخول ونكتب في الكود الخاص به مايلي
sqldataadapter1.selectcommand.parameters
(parameter1@).value=Textbox1.text
ملاحظه: يجب أن تكون البراميتر بين قوسين
وبذلك نكون قد أخذنا إسم المستخدم من الTextbox ووضعناها في البراميتر
وتكون وضيفه الsqldataadapter البحث عن الباسوورد لهذا المستخدم
لأخذ نتيجه البحث وهي الباسوورد نجعل الsqldataadapter يعبي ناتجه في Dataset
ونضع combobox ونذهب إلى خصائصه ونعين قيمة الخاصيه Datasource بالDataset التي جعلنا الsqldataadapter يضع قيمته فيها
بذلك تكون الcombobox قد أتت لنا بالباسوورد الخاص بالمستخدم
بعد ذلك نقارن بين قيمة الcombobox والTextbox الخاصه بالباسوور والتي يعبيها المستخدم فإذا كانتا متساويتين أظهرنا
Messagebox.show("مرحـباً بك يا "&Textbox)
حيث أن Textbox هي الخانه التي يضع المستخدم فيها اسمه

لنفرض أن textbox1 هي خانة المستخدم و
textbox2 هي خانه ال Passwor
ويكون الكود في الزر مايلي:
sqldataadapter1.selectcommand.parameters
(parameter1@).value=Textbox1.text
ملاحظه: يجب أن تكون البراميتر بين قوسين

sqldataadapter1.fill(dataset1.table)
if combobox1.text=textbox2.text then
Messagebox.show("مرحباً بك يا"&Textbox1.text)
End if

أسأل الله أن يوفقنا وإياك لكل خير والسلام عليكم ورحمة الله وبركاته

[روح العطا]

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

ننشىء sqldataadapter ونعبيه بأمر "select password from table where username=@parameter1"

يعني ايش sqldataadapter من وين ننشئه وكيف

اعذرني لو ثقلت عليك

[wtsahafi]

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

في أعلى البرنامج يوجد زر إسمه Toolbox نضغط عليه فتظهر قائمته فيها ثلاث قوائم

1. Data
2. component
3. windows Forms

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

ملاحظه :أخشى أن Visual Basic 6 ليس به هذه الخصائص .
إن كان كذلك فأنا أعتذر عن عدم سؤالي عن هذا ولكن
ركب برنامج Visual Studio.Net الذي فيه هذه الخصائص

وأبشر من عيوني ولاتُحرج من كثرة الأسئله أبداً
فنحن أخوانٌ في الله
عفواً خارج الموضوع قال الشافعي رحمه الله تعالى:
(لاخــيـر بالدنــيــا إن لـــم يـــكــن بــهــا

صديقٌ صــدوقٌ صــادِقُ الــوعـــد مــنــصـفا)

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

[روح العطا]

wtashafi
يعطيك العافيه اخوي وماقصرت .... بس للاسف لازم استخدم فجوال بيسك 6 ومااقدر استخدم فجوال دوت نت
على العموم مشكور على الاهتمام بالموضوع