تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
الدرس الثامن عشر - تغيير معلومات المحل وكلمة المرور
#1
كاتب الموضوع : أحمد جمال

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


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


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


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


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


الملفات المرفقة
.zip   prog14.zip (الحجم : 186.81 ك ب / التحميلات : 117)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الدرس الرابع والثلاثون والأخير - نبذة عن العملية العكسية + تجهيز البرنامج على Cd RaggiTech 0 1,438 15-10-12, 09:10 AM
آخر رد: RaggiTech
  الدرس الثالث والثلاثون - كيفية عمل اعداد Setup للبرنامج RaggiTech 0 1,234 15-10-12, 09:08 AM
آخر رد: RaggiTech
  الدرس الثاني والثلاثون - التحويل إلى exe RaggiTech 0 1,164 15-10-12, 09:07 AM
آخر رد: RaggiTech
  الدرس الحادي والثلاثون - تعددية المستخدمين - البحث وطباعة الفواتير - التعليمات ... RaggiTech 2 1,760 15-10-12, 09:05 AM
آخر رد: RaggiTech
  الدرس الثلاثون - التعامل مع شريط الأدوات ToolBar RaggiTech 0 995 15-10-12, 08:59 AM
آخر رد: RaggiTech
  الدرس التاسع والعشرون - التعامل مع أشرطة الحالة Statues Bar RaggiTech 0 841 15-10-12, 08:57 AM
آخر رد: RaggiTech
  الدرس الثامن والعشرون -الطباعة في البرنامج . RaggiTech 4 1,561 15-10-12, 08:56 AM
آخر رد: RaggiTech
  الدرس السابع والعشرون - مقدمة إلى التعامل مع التقارير من خلال DataReport RaggiTech 2 1,715 15-10-12, 08:45 AM
آخر رد: RaggiTech
  الدرس السادس والعشرون - التقارير اليومية ، والتقارير بين تاريخين RaggiTech 1 1,225 15-10-12, 08:39 AM
آخر رد: RaggiTech
  الدرس الخامس والعشرون - الإحصائيات والرسوم البيانية RaggiTech 0 1,103 15-10-12, 08:37 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم