اساسيات

[قناص الموت]

نشرح في هذا الدرس خلفية ضرورية تشمل أساسيات نظم قواعد البيانات وهي مفاهيم عامة يجب أن تتفهمها قبل أن تشرع في بناء نظم لإدارة قواعد البيانات وتستخدمها في برامجك

أثناء تصميم قواعد البيانات يجب أن نهتم بعمل تصميم قوي يساعد على الوصول إلى المعلومة في أقل وقت ممكن ويحافظ على الاحتفاظ بحجم البيانات نفسها داخل قواعد البيانات بصورة منطقية توفر السهولة اللازمة لأعمال التعديل والتطوير المستقبلية كما يوفر الكفاءة والمرونة اللازمة للتعامل مع البيانات

مقدمة عن قواعد البيانات

قاعدة البيانات هي طريقة لتجميع البيانات والمعلومات بصورة منظمة وترتيب معين ومن الأمثلة المعروفة لقواعد البيانات دليل التليفونات الذي يحتوي على أسماء المواطنين وعناوينهم وأرقام تليفوناتهم

عناصر قواعد البيانات

كل قاعدة بيانات تحتوي على العناصر التالية
الوصف العنصر
هي مجموعة من جداول البيانات تحتوي على معلومات لها علاقة ببعضها قاعدة البيانات
ويمكن أن تحتوي قاعدة البيانات على جدول بيانات واحد او اكثر Database

هي مجموعة من السجلات وكل سجل يعتبر سطر داخل جدول ، تحتوي هذه السجلات على معلومات جدول
من نفس النوع، يمكن اعتبار دليل التليفونات جدول بيانات Table

السجل عبارة عن سطر واحد في الجدول ويحتوي على مجموعة من الحقول سجل
يمكن اعتبار أي سطر من أي صفحة من دليل التليفونات سجلا Record

هو عنصر محدد داخل السجل ممكن أن يكون في دليل الهاتف مثلا اسم المواطن أو عنوانة أو رقم حقل
تليفونه ويتم تحديده من حيث النوع والحجم بواسطة مصمم البرنامج Field

هو نوع خاص من الجداول يسمى جدول الفهرسة ويحتوي على قيم لحقل أو أكثر ، وتشير هذه القيم فهرس
للأماكن الحقيقية لهذه الحقول وترتب هذه الأرقام طبقاً للترتيب الذي يحدده مصمم البرامج تنازلي Index

[قناص الموت]

اداة قاعدة البيانات

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

لاتحتاج إلى اكثر من وضع النقط على الحروف فمثلا

لربط قاعدة بيانات معينة ماعليك إلا اختيار القاعدة المطلوبة

مثلا



http://www.absoft2000.com/images/data.jpg
وبعد اختار قاعدة البيانات المطلوبة يجب اختيار بنفس الطريقة مجموعة السجلات وهي هنا الجداول

recordsource عن طريق خاصية

سوف تظهر لك الجداول الموجودة في قاعدة البيانات اختار الجدول الذي تريده

وبكل بساطه إنتهت عملية الربط
بإمكان الان الاشارة إلى خانة نص ووضع الحقول المطلوبة لعرضها
في حقل الاسم بالجدول text1 فمثلا نريد بإن نربط خانة نص
DataField نختار خصائص نص الحقل وعن طريق خاصية

http://www.absoft2000.com/images/properties.jpg

وهذا المثال يوضح جميع الامور المهمة المتعلقة باداة قاعدة البيانات

Dim qry As String
Dim book As String

Private Sub cmd_add_Click()
'If Txtname.Text <> "" And txtaddress.Text <> "" Then
'Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.AddNew


End Sub
Private Sub cmd_update_Click()
Dim title As String
Dim prompt As String
On Error GoTo 10001
If txtname <> "" And txtaddress <> "" Then

Data1.Recordset.Update

Else
title = "من فضلك استكمل باقي البيانات"
prompt = "تعديل لم يكتمل"
MsgBox title, 16, prompt
End If
10001:
End Sub

Private Sub cmd_del_Click()
Dim response As Integer, message_code As Integer
Dim megsage As String, title As String
title = "رسالة تحذيرية"
message = "سيتم مسح بيانات هذا السجل"
message_code = 1 + 16 + 256
response = MsgBox(message, message_code, title)
If response = 1 Then
On Error GoTo 11
Data1.Recordset.Delete
Data1.Refresh
11:
MsgBox "احتمال عدم وجود بيانات للحذف ، الرجاء التأكد"
End If
End Sub


Private Sub Command1_Click()
'الانتقال إلى السجل الاول
Data1.Recordset.MoveFirst

End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If

End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveNext
'اذا وصل إلى نهاية الجدول
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If

End Sub

Private Sub Command5_Click()
'الذهاب إلى اخر سجل

Data1.Recordset.MoveLast

End Sub

Private Sub Command6_Click()
Dim prompt As String
Dim title As String
Dim d_entery As String

prompt = "ادخل اسم العميل"
title = "البحث عن العميل"
d_entry = InputBox$(prompt, title)
qry = "cust_name = '" & d_entry & "'"

Data1.Recordset.FindFirst qry


If Data1.Recordset.NoMatch Then
MsgBox "لا يوجد عميل بهذا الأسم"
End If




End Sub

Private Sub Command7_Click()

'هنا نقوم بمعرفة اذا كان يوجد اسم ثاني
If Len(qry) > 0 Then
Data1.Recordset.FindNext qry

End If

End Sub

Private Sub Command8_Click()
book = Data1.Recordset.Bookmark
Print book

End Sub

Private Sub Command9_Click()
Data1.Recordset.Bookmark = book

End Sub

Private Sub Form_Load()
'Dim dbdao As Database
'هنا نقوم بفتح القاعدة
Data1.DatabaseName = App.Path & "\market.mdb"

Data1.RecordSource = "customers"

End Sub
التحميل (http--www.absoft2000.com-codes-database-data.zip)

[فارس فلسطين]

يسلموا قناص الموت على هالشرح

[elgarhe]

على فكره صورتك اجمل من رات عيونى انتى اجحمل من النور