شرح برامج


عنوان الدرس: الدرس الثامن انشأ برنامجك بالفيجوال بيسك . اضيف بواسطة : LaSer_26 . بتاريخ: 6-12-1426هـ.


الحلقة الثامنة

العمليات الأساسية على السجلات
إضافة سجل جديد

لإضافة سجل جديد إلي قاعدة البيانات نكتب الكود التالي

CODE

If Txt1.Text ="" And Txt2.Text = "" And Txt3.Text = "" And Txt4.Text = "" Then
MsgBox ("يجب إدخال القيم في مربعات النص")
Exit Sub
End if
rs.AddNew جملة إضافة سجل جديد
rs![st_no] = Val(Txt1)
rs![st_name] = Txt2
rs![address] = Txt3
rs![b_date] = Txt4
rs![phone] = Txt5
rs.Update تنفيذ الإضافة فعليا إلى الجدول في قاعدة البيانات وهي ضرورية cmdclear_Click



تعديل السجلات

لتعديل سجل معين نستخدم الكود التالي ونلاحظ هنا لأن الكائن ADO لا يستخدم الطريقة Edit كما هو موجود في الكائن DAO ولكن يقوم بالتعديل ثم حفظ التعديل بالطريقة Update

CODE

rs![st_no] = Val(Txt1)
rs![st_name] = Txt2
rs![address] = Txt3
rs![b_date] = Txt4
rs![phone] = Txt5
rs.Update
End If



حذف سجل محدد باستخدام DELETE
لحذف سجل محدد يكتب الكود التالي

CODE

Dim x As Integer
x = MsgBox"سيتم حذف البيانات", vbYesNo, "الحذف")
If x = vbYes Then
Do While Not rs.EOF
If rs![st_no] = Val(text1) Then
rs.Delete
rs![st_no] = Val(Txt1)
rs![st_name] = Txt2
rs![address] = Txt3
rs![b_date] = Txt4
rs![phone] = Txt5
Exit Sub
End If
rs.MoveNext
Loop
Else
Txt1.SetFocus
Exit Sub
End If



حذف سجل محدد باستخدام DELETE مع جملة SQL
لحذف سجل باستخدام جملة SQL نكتب الكود التالي

CODE

Dim b As Integer
b = MsgBoxو "هل تريد بالتأكيد حذف السجل الحالي") vbMsgBoxRight + vbYesNo( "حذف" و
If b = vbYes Then
db.Execute "delete from st_inf_info where st_no = " & Val(txt1)
rs.MoveFirst
rs.Fields.Refresh
Txt1 = rs![st_no]
Txt2 = rs![st_name]
Txt3 = rs![address]
Txt4 = rs![b_date]
Txt5 = rs![phone]
Else
Txt1.SetFocus
End If



البحث عن سجل معين باستخدام جملة FIND
للبحث عن سجل باستخدام جملة FIND يتم كتابة الكود التالي :
يتم تعريف متغير نصي في أعلى النموذج منطقة تعريف المتغيرات كالتالي
ثم يتم كتابة الكود التالي

CODE

Dim nam, s, y As String
y = InputBox("ادخل الاسم المراد البحث عنه", "بحث”)
If Len(y) = 0 Then
Exit Sub
Else
s = "st_name=' " + y + " ' "
rs.Find s, 1, adSearchForward
If rs.EOF Then
MsgBox "الاسم غير موجود”
Else
Txt1 = rs![st_no]
Txt2 = rs![st_name]
Txt3 = rs![address]
Txt4 = rs![b_date]
Txt5 = rs![phone]
End If
End If




البحث باستخدام جملة DO WHILE
للبحث عن سجل باستخدام جملة DO WHILE نكتب الكود التالي :

CODE

Dim a As String
a = InputBox("ادخل اسم الطالب", "بحث")
rs.MoveFirst
Do While Not rs.EOF 'كرر لنهاية الجدول
If rs![emp_name] = a Then
Text1 = rs![St_no]
Text2 = rs![st_name]
Text3 = rs![ address]
Text4 = rs![b_date]
Text5 = rs![phone]
Exit Sub
End If
rs.MoveNext
Loop




وبقية العمليات مثل التحرك للسجل الأول والأخير والسابق والتالي نفس كود الكائن DAO بدون إختلاف
الدرس القادم سيكون برنامج عملي يشمل جميع العمليات باستخدام الكائن ADO وكذلك استخدام الأدوات DataList وأداة DataCombo وأداة DataGride وأداة MsflixGride
فأنتظرونا في الحلقة القادمة


Powered by SaphpLesson 4.0