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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة بناء برنامج لإدارة السوبر ماركت من الألف إلى الياء (http://vb4arb.com/vb/forumdisplay.php?fid=128)
+---- الموضوع : الدرس الثامن عشر - تغيير معلومات المحل وكلمة المرور (/showthread.php?tid=5706)

الدرس الثامن عشر - تغيير معلومات المحل وكلمة المرور - RaggiTech - 15-10-12

كاتب الموضوع : أحمد جمال

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


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


قائمة أدوات .
تغيير معلومات المحل :


في هذه الشاشة سنصمم شاشة صغيرة تحتوي على اسم المحل ، رقم الهاتف ، وأخرى .
ونسميه Frm_User .
والآن ، سنبدأ في أوامر استدعاء هذه الشاشة .


كود :
Select Case Index
Case 0
Frm_User.Text1.Text = Info(2)
Frm_User.Text2.Text = Info(3)
Frm_User.Text3.Text = Info(4)
Frm_NewUser.Show 1
End Select

وأمر Unload Me في زر اغلاق هذا الفورم .
والآن سنقوم بالآتي :
* اضافة حدث التأكد من الأرقام فقط في
Key_Press لمربع رقم الهاتف . وذلك كما تعلمنا في الدروس السابقة .
* وضع قيم افتراضية للمعلومات في حالة عدم وجودها في بداية زر ( تعديل ) .


كود :
If Text1.Text = "" Then
Text1.Text = "برنامج البائع الذكي"
End If

If Text2.Text = "" Then
Text2.Text = "0"
End If

If Text3.Text = "" Then
Text3.Text = "البرنامج من تصميم منتدى فيجوال بيسك للعرب"
Text3.Text = Text3.Text & vbNewLine & "بامكانك زيارة الموقع على هذا الرابط www.vb4arab.com/vb"
Text3.Text = Text3.Text & vbNewLine & "أو مراسلة صاحب البرنامج على هذه البريد الإلكتروني Hammada2091@Hotmail.com"
End If
* استخدام الأمر
Edit لتعديل محتويات السجل .


كود :
Set T4 = D1.OpenRecordset("Tb_User", dbOpenTable)

T4.Edit
T4!Name = Text1.Text
T4!Telephone = Text2.Text
T4!More = Text3.Text
T4.Update


* تحديث معلومات المصفوفة
Info واغلاق قاعدة البيانات .


كود :
T4.MoveFirst
Info(2) = T4!Name
Info(3) = T4!Telephone
Info(4) = T4!More

T4.Close


* اخفاء الشاشة واستدعاء الحدث
Start .


كود :
Unload Me
Call Start


تغيير كلمة السر :

في هذا الدرس السريع سوف نتعلم كيفية تغيير كلمة السر ، وسنقوم بذلك من خلال InputBox دون تصميم فورم ، وذلك بالشكل التالي .
* نضيف ثلاث متغيرات لتخزين كلمات المرور وتأكيد تغيير كلمة المرور :

كود :
Dim A1, A2, sure
* طلب كلمة المرور القديمة ، ومقارنتها بالكلمة الموجودة للاستمرار :

كود :
A1 = InputBox("فضلاً ادخل كلمة المرور القديمة", "تغيير كلمة المرور")
If A1 = "" Then Exit Sub

If A1 <> Info(1) Then
MsgBox "كلمة مرور خاطئة !", vbCritical + arabic, "تغيير كلمة المرور"
Exit Sub
End If


* طلب ادخال كلمة المرور الجديدة ونخزنها في
A1 :


كود :
A1 = InputBox("ادخل كلمة المرور الجديدة", "تغيير كلمة المرور")
If A1 = "" Then Exit Sub
If Len(A1) < 3 Or Len(A1) > 12 Then
MsgBox "لا بد أن تكون كلمة المرور بين 3 و 12 حرف", vbExclamation + arabic, "تسجيل مستخدم جديد"
Exit Sub
End If
* طلب ادخال تأكيد كلمة المرور في
A2 ، ومقارنتها بالكلمة الأولى في A1 :


كود :
A2 = InputBox("ادخل تأكيد كلمة المرور الجديدة", "تغيير كلمة المرور")
If A2 = "" Then Exit Sub
If A1 <> A2 Then
MsgBox "كلمتا مرور غير متطابقتين !", vbCritical + arabic, "تغيير كلمة المرور"
Exit Sub
End If
* اظهار رسالة تأكيد تغيير كلمة المرور :

كود :
sure = MsgBox("هل تريد بالتأكيد تغيير كلمة المرور", vbYesNo + vbExclamation + arabic, "تغيير كلمة المرور")
If sure = vbNo Then Exit Sub
* فتح قاعدة البيانات وتعديلها بالكلمة الجديدة :

كود :
Set T4 = D1.OpenRecordset("Tb_User", dbOpenTable)

T4.Edit
T4!PassWord = A1
T4.Update


* وأخيراً وضع الكلمة الجديدة في
Info(1) واظهار رسالة تذكير بالكلمة القديمة :


كود :
T4.MoveFirst
Info(1) = T4!PassWord
T4.Close

MsgBox "لا تنس أن كلمة المرور هي : " & Info(1), vbInformation + arabic, "تذكير بكلمة المرور"
والملف مرفق .


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