بالفجوال : التعامل برمجياً مع قواعد البيانات

الكاتب : alhammady   المشاهدات : 624   الردود : 3    ‏2004-04-21
      مشاركة رقم : 1    ‏2004-04-21
  1. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    السلام عليكم ورحمة الله وبركاتة
    سوف نقوم بجولة عن التعامل مع قواعد البيانات برمجياً وليس عن
    طريق الادوات ado أو dao لان هذة الطريقة هي اسرع بكثير من استخدام الادوات
    لذلك افضل كثيرا استخدام الطرق البرمجية.

    ليكن مثالنا هو بيانات الطلاب وليكن في البداية بسيطاً مثل (الرقم – الأسم – الدرجة )
    بعد ذللك وقبل الشروع في البرمجة سنبدأ ببناء قاعدة البيانات (استخدم اكسس) وبناء الجدول الخاص بنا
    اسم قاعدة البيانات (moh.mdb)
    اسم الجدول (student)
    الحقول (snum,sname,sdegree)

    بعد ذلك سنقوم بربط القاعدة (وليكن المسار هو القرص دي d:\moh.mdb)
    سنقوم بتوضيع ثلاث خانات (text) وكذللك أزرار (الاول – التالي – الاخير – السابق – حفظ
    اضافة – حذف – تعديل – بحث بالرقم - بحث بالاسم - خروج )

    والان سنقوم بكتابة الشفرات
    أولاُ سنعرف في قسم التصريحات عن المتغيرات التالية

    [align=left]Dim db As Database
    Dim rs As Recordset

    حدث تحميل الفورم

    [align=left]Private Sub Form_Load()
    Set db = OpenDatabase("d:moh.mdb")
    Set rs = db.OpenRecordset("student", 2)
    End Sub

    حدث الغط على الزر (الأول)

    [align=left]Private Sub Command1_Click()
    rs.MoveFirst
    showdata
    End Sub

    حدث الضغط على الزر (التالي)

    [align=left]Private Sub Command2_Click()
    rs.MoveNext
    If rs.EOF Then rs.MoveLast
    showdata
    End Sub
    حدث الضغط على الزر (الاخير)

    [align=left]Private Sub Command3_Click()
    rs.MoveLast
    showdata
    End Sub
    حدث الضغط على الزر (السابق)

    [align=left]Private Sub Command4_Click()
    rs.MovePrevious
    If rs.BOF Then rs.MoveFirst
    showdata
    End Sub
    حدث الضغط على الزر (اضافة)

    [align=left]Private Sub Command5_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text1.SetFocus
    End Sub
    جدث الضغط على الزر حغظ

    [align=left]Private Sub Command6_Click()
    s = Trim(Text1)
    s = "snum=" + s
    rs.FindFirst s
    If Not (rs.NoMatch) Then
    MsgBox "هناك طالب بهذا الرقم ", vbOKOnly, "البيانات غير صالحة للحفظ"
    Else
    rs.AddNew
    rs!snum = Text1
    rs!sname = Text2
    rs!sdegree = Text3
    rs.Update
    MsgBox "تمت عملية الحفظ بنجاح", vbOKOnly + vbInformation, "عملية الحفظ"
    Text1 = ""
    Text2 = ""
    Text3 = ""
    End If

    End Sub
    حدث الضغط على الزر بحث بالأسم

    [align=left]Private Sub Command7_Click()
    s = InputBox("ادخل اسم الطالب للبحث", "بحث بالرقم")
    s = "sname='" + s + "'"
    rs.FindFirst s
    If Not (rs.NoMatch) Then
    showdata
    Else
    MsgBox "لا يوجد طالب بهذا الأسم", vbOKOnly, "نتائج البحث"
    End If
    End Sub

    حدث الضغط على الزر بحث بالرقم

    [align=left]Private Sub Command8_Click()
    s = InputBox("ادخل رقم الطالب للبحث", "بحث بارقم")
    If s = "" Then Exit Sub
    s = "snum=" + s
    rs.FindFirst s
    If Not (rs.NoMatch) Then
    showdata
    Else
    MsgBox "لا يوجد بهذا الرقم", vbOKOnly, "نتائج البحث"
    End If
    End Sub

    حدث الضغط على الزر( حذف)

    [align=left]Private Sub Command9_Click()
    rs.Delete
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    MsgBox "تمت عملية الحذف", vbOKOnly + vbCritical, "عملية الحذف"
    End Sub

    حدث الضغط على الزر تعديل

    [align=left]Private Sub Command10_Click()
    rs.Edit
    rs!snum = Text1
    rs!sname = Text2
    rs!sdegree = Text3
    rs.Update
    MsgBox "تم التعديل بنجاح", vbOKOnly, "تعديل البيانات"
    End Sub
    حدث الضغط على الزر خروج

    [align=left]Private Sub Command11_Click()
    End
    End Sub

    ارجوا تطبيق هذا المثال واي استفسار او ملاحظات او الاخطاء تسجيل ذلك

    السلام عليكم
    اخوكم : الحمادي
     
  2.   مشاركة رقم : 2    ‏2004-04-21
  3. العمراوي

    العمراوي مشرف سابق

    التسجيل :
    ‏2002-11-24
    المشاركات:
    7,510
    الإعجاب :
    4
    جزاك الله خيرا على هذه الشفرات المفيده وخاصة للمبرمجين المبتدئين .,.,.,.,


    وبالفعل أحسن طريقة للتعامل مع قواعد البيانات هي باستخدام الشفرة بدون ( Data Control ) .,.,.,.,
     
  4.   مشاركة رقم : 3    ‏2004-04-22
  5. صدى الحرمان

    صدى الحرمان عضو متميّز

    التسجيل :
    ‏2004-01-15
    المشاركات:
    1,519
    الإعجاب :
    0
    جزاك الله خيرا على هذه الشفرات المفيده وخاصة للمبرمجين المبتدئين .,.,.,.,


    وبالفعل أحسن طريقة للتعامل مع قواعد البيانات هي باستخدام الشفرة بدون ( Data Control ) .,.,.,.,
     
  6.   مشاركة رقم : 4    ‏2004-04-22
  7. alhammady

    alhammady عضو

    التسجيل :
    ‏2003-07-09
    المشاركات:
    119
    الإعجاب :
    0
    مشكورين اخواني
    سلاااااام
     

مشاركة هذه الصفحة