كيفية صنع مذكرات شخصيه بالاظافة إلى ربطها بقاعدة بيانات

بسم الله الرحمن الرحيم
كيفية صنع مذكرات شخصيه بالاظافة إلى ربطها بقاعدة بيانات من نوع أكسيس
الخطوة الأولى
1-صنع قاعدة البيانات :أن صنع قاعدة البيانات هي بعيده كل البعد عن فيجول بيسك فالخطوة الأولى للصنع القاعدة تكمن في برنامج اكسيس فافتح برنامج اكسيس بالنقر على
start,Allprograme,Microsoft office,Microsof Access
بعد فتح برنامج اكسيس كما في المثال السابق إذا كنت من مستخدمي اكسيس او2003\97 فأول ما تفتح البرنامج سوف يظهر لك مربع حوار يظهر فيه إنشاء قاعدة بيانات جديدة باستخدام
1-قاعدة بيانات فارغة
2-معالج قاعدة البيانات
3-فتح قاعدة بيانات موجودة
اختر من مربع الحوار قاعدة بيانات فارغة
ملاحظه إذا لم يظهر مربع الحوار فور تشغيل البرنامج فلا تنزعج فيمكنك إظهاره بالنقر على ملف-جديد من أعلى النافذة
ثم اختر أمر إنشاء قاعدة بيانات جديدة عند اختيارك هذا الأمر
سوف يطلب منك تعين اسم للقاعدة البيانات وليكن db1 ثم اختر حفظ كما في الصورة بعد ذلك يظهر مربع حوار أخر كما في الصورة اختر منه إنشاء جدول في طريقة عرض التصميم سوف يظهر لك كما في الصورة ثلاث جداول
الأول اسم الحقل
الثاني نوع الحقل
الثالث وصف الحقل
وبعد ذلك ندخل الأتي كما في الصورة
بعد ذلك نغلق الجدول سوف يطلب منك اسم للجدول وليكن re وهكذا نكون قد صنعنا قاعدة بيانات
ولكن يجب إن لا ننسا الخطوة الأهم فإذا كنت من مستخدمي فيجول بيسك الإصدار السادس فيجب عليك تحويل قاعدة البيانات إلى تنسيق ملف اكسيس 97 وذلك عن طريق فتح قائمة أدوات أدوات مساعدة للقاعدة البيانات تحويل قاعدة البيانات كما في الصورة سوف يطلب تحديد اسمها فاسمه db1
وهنالك عدة برامج للصنع قاعدة البيانات لكننا استعملنا اكسيس لأنه يعطينا قاعدة بيانات ممتازة

--------------------------------------------------------
وبعد ذلك سوف ننتقل الى فيجول بيسك للربط قاعدة البيانات
فافتح برنامج فيجول بيسك سوف يظهر لك مربع حوار اختر منه stander.exe ثم اضغط ok
الأدوات ألازمة
1-انشاء frame واسمه المعلومات وضع في داخله 7label
اسمي الاول الاسم الثلاثي
اسمي الثاني العمر
اسمي الثالث مكان الولادة
اسمي الرابع الجنس
اسمي الخامس الموضوع
اسمي السادس الوقت
اسمي السابع التاريخ
وضعهم داخل frame1
انشاء 6textbox \ 1combo
وضع في list لcombo ذكر انثى
ورتب الادوات كما في الصورة ثم قم بانشاء richtextbox
وضعها على يسار الشاشة ملاحظة يمكنك اضافة الاداة السابقة عن طريق ضغط الزر الايمن على خانة الادوات واختيار الامر components بعد ذلك اختار Microsoft richtextbox control16.0
--------------------------------------------------------
ثم بعد ذلك قم بانشاء 6command button
اسمي الاول حفظ السجل
اسمي الثاني تعديل السجل
اسمي الثالث اظهار السجل
اسمي الرابع مسح السجل
اسمي الخامس عدد السجلات
اسمي السادس خروج
اخيرا قم بانشاء data1 , DBGrid1
وايضا يمكن اضافة DBGrid1 كما في المثال السابق
واسمها هو Microsoft data bound grid
بعد انشاء كل الادوات وترتيبها سوف تظهر بهذا الشكل
الان ننتقل الى كتابة الكود
سوف نبدء بالdata1
يجب ربط dataبقاعدة البيانات وذلك عن طريق
Data pase name
من properties لdata1 واختيار قاعدة البيانات
وrecord source باسم الجدول
وربط dbgrid بالdata1 وذلك عن طريق data source
واختيار data
وهكذا نكون قد ربطنا قاعدة البيانات ببرنامجنا
الان نبدء بكتابة كود الحفظ وهو كالاتي
Private Sub Command1_Click()
On Error Resume Next
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Fields!Trio_name = Text1.Text
Data1.Recordset.Fields!Age = Text2.Text
Data1.Recordset.Fields!porn_place = Text3.Text
Data1.Recordset.Fields!Sex = Combo1.Text
Data1.Recordset.Fields!Subject = Text4.Text
Data1.Recordset.Fields!The_time = Text5.Text
Data1.Recordset.Fields!The_date = Text6.Text
Data1.Recordset.Fields!Subject_minutiae = RichTextBox1.Text
Data1.UpdateRecord
Data1.Refresh
End Sub
--------------------------------------------------------
اني الان اريد ان انبه ان عبارة تفادي الخطاء مهمة جدا وذلك
لان المستخدم اذا لم يدخل على سبيل الثال اسمه فسوف يتوقف البرنامج عن العمل وتظهر رسالة الخطاء
--------------------------------------------------------
شرح الكود السابق
في السطر الثاني قمنا باخبار فيجول بيسك باننا سوف نحفظ سجل
في السطر الثالث قمنا بحفظ البيانات للكائن (text1) في الحقل (trio_name)
من السطر الثالث الى Data1.UpdateRecord
قمنا نسخ كل البيانات الموجدة في الكائنات في الحقل المناظر له في قاعدة البيانات ----------اما Data1.UpdateRecord
قمنا بتحديث البيانات الموجودة لان فيجول بيسك لن يظهرها الا اذا اعدنا تثغيل البرنامج
---------------------------------------------------------------
كتابة كود التعديل
Private Sub Command2_Click()
On Error Resume Next
Data1.Refresh
Data1.Recordset.Edit
Data1.Recordset.Fields!Trio_name = Text1.Text
Data1.Recordset.Fields!Age = Text2.Text
Data1.Recordset.Fields!porn_place = Text3.Text
Data1.Recordset.Fields!Sex = Combo1.Text
Data1.Recordset.Fields!Subject = Text4.Text
Data1.Recordset.Fields!The_time = Text5.Text
Data1.Recordset.Fields!The_date = Text6.Text
Data1.Recordset.Fields!Subject_minutiae = RichTextBox1.Text
Data1.UpdateRecord
Data1.Refresh
End Sub
وهكذا اخي العزيز لاحظنا ان ليس هناك فرق كبير بين كود الحفظ وكود التعديل فالاختلاف الوحيد هو بدل كتابة في كود الحفظ Data1.Recordset.Addnewِ
هو كتابة
Data1.Recordset.Edit
وهكذا اخي اتصور انك لن تحتاج الى شرح للكود التعديل
واريد ان انبه ان عبارة On Error Resume Next
لا تقل اهميه عن الكود السابق
كتابة كود اظهار السجل
Private Sub Command3_Click()
On Error Resume Next
If Data1.Recordset.RecordCount = 0 Then
Exit Sub
Else
Text1.Text = Data1.Recordset.Fields!Trio_name
Text2.Text = Data1.Recordset.Fields!Age
Text3.Text = Data1.Recordset.Fields!porn_place
Combo1.Text = Data1.Recordset.Fields!Sex
Text4.Text = Data1.Recordset.Fields!Subject
Text5.Text = Data1.Recordset.Fields!The_time
Text6.Text = Data1.Recordset.Fields!The_date
RichTextBox1 = Data1.Recordset.Fields!Subject_minutiae
End Sub
شرح الكود في السطر الاول قمنا بكتابة عبارة تفادي الاخطاء
في السطر الثاني اخبرنا فيجول بيسك بانه اذا لم يكن هنالك سجلات في قاعدة البيانات فيخرج من الاجراء اما اذا كان هنالك سجلات فيتابع الاجراء
من السطر الثالث الى نهاية الاسطر قمنا بجلب المعلومات من السجل المحدد يتم وضع القيمة الموجودة في الحقول في صناديق النص
على اساس كتابتنا للكود
فمثلا
Text1.Text = Data1.Recordset.Fields!Trio_name
هنا حددنا بان text1 ياخذ قيمة الحقلtrio name
كتابة كود المسح
Private Sub Command4_Click()
On Error Resume Next
Dim x as control
If Data1.Recordset.RecordCount = 0 Then
MsgBox "There is no register to delete"
Exit Sub
Else
If Data1.Recordset.RecordCount Then
Z = MsgBox(" Do you want delete", vbYesNo)
If Z = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
End If
End If
End Sub
-------------------------------------------------------- شرح الكود في السطر الاول كتبنا عبارة تفادي الاخاء
في السطر الثاني كتبنا كود لتحقق من وجود سجل للمسح فاذا لم يوجد فا فيجول بيسك يعطينا msgbox يعلمنا انه ليس هناك سجل للمسح ويخرج من الجراء اما اذا كان هناك سجل فسوف يمسحه من خلال الكود
واكملنا اذا اعطى المستخدم yes فسوف يمسح اما اذا اعطى no فسوف
يلغي العملية ----------------------------------------------------

كتابة كود عدد السجلات
Private Sub Command5_Click()
On Error Resume Next
MsgBox ("Register number = " & Data1.Recordset.RecordCount)
End Sub
شرح الكود
هنا وضعنا msgbox تبين لنا عدد السجلات
--------------------------------------------------------------------بقي لنا كتاية كود الخروج وهو
Private Sub Command6_Click()
end
End Sub
اتصور ان كزد الخروج لا يحتاج الى شرح
ارجو ان اكون قد ساعدتكم على الفهم تقبلو تحياتي بقلم احمد فراس نبيل