منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - الدرس الثامن عشر

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

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

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

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

في هذه الشاشة سنصمم شاشة صغيرة تحتوي على اسم المحل ، رقم الهاتف ، وأخرى .
ونسميه 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, "تذكير بكلمة المرور"

والملف مرفق .

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech