[khodor1985]

بسم الله الرحمن الرحيم
أولا سوف نتعامل مع الجدول الأول TBLchilddata ( الجدول يحتوي على 8 حقول)
جميل ....
- قم بإنشاء نموذج أو إضافة نموذج جديد بعنوان ChildData طبعا سيتم إضافته إلى المجلد Forms في Solution Explorer.
- قم بإضافة مربع نص عدد 5 ومربع تحرير وسرد combobox عدد 2 ، DatetimePicker عدد 1.
- قم بتسمية مربعات النصوص وأقصد هنا التسمية البرمجية
txtID / txtName / txtBlockID / txtDoorID / txtFamilyID
- قم بتسمية مربعات التحرير والسرد :
cboAddress / cboKind
- قم بتسمية DatetimePicker DatePK
ثم قم بإضافة 8 الأزرار التالية :
الأول جديد btnNew
الثاني تعديل btnModify
الثالث حفظ btnSave
الخامس السجل الأول btnFirst
السادس السجل السابق btnPevious
السابع السجل التالي btnNext
الثامن السجل الأخير btnLast
- الأكواد :
- قم بالإعلان عن المتغير التالي في أعلى صفحة الأكواد :

PHP كود :

Dim dt as dataTable = New DAL().SelectData("Select ID,Name,Birth,Address,block_ID,Door_ID,Family_ID,Kind From TBLchilddata") 


ثم قم بإنشاء إجراء جديد بعنوان LoadChildData

PHP كود :

Sub LoadChildData()
txtID.DataBindings.Add("Text",dt,"ID")
txtname.DataBindings.Add("Text",dt,"name")
DatePK.DataBindings.Add("Text",dt,"birth")
cboAddress.DataBindings.Add("Text",dt,"address")
txtBlockID.DataBindings.Add("Text",dt,"block_id")
txtDoorID.DataBindings.Add("Text",dt,"door_id")
txtFamilyID.DataBindings.Add("Text",dt,"family_id")
cboKind.DataBindings.Add("Text",dt,"kind")
End Sub 


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

---

بسم الله الرحمن الرحيم
التعامل مع الجدول TBLvaccine
- قم بإضافة DataGridView إلى نفس النموذج
- قم بإضافة 7 أعمدة إلى DataGridView وسمي الأعمدة ما شئت
- سوف نقوم الأن بإضافة البيانات إلى datagridview وربطها بالجدول الأول TBLchilddata وذلك من خلال جملة الإستعلام ركزمعي جيدا
- قم بإنشاء إجراء جديد بعنوان LoadVaccineData

PHP كود :

datagridview1.rows.clear()
dim dt as DataTable = new DAL().SelectData(String.Format("Select IDCH,BCG,hepB,opv,opv1,hib1,rota1 from TBLvaccine where IDCH='{0}'",txtID.Text))
For i as integer = dt.rows.count -1
datagridview1.rows.add()
datagridview1(0,i).value = dt.rows(i)(0).tostring()
datagridview1(1,i).value = dt.rows(i)(1).tostring
datagridview1(2,i).value = dt.rows(i)(2).tostring
datagridview1(3,i).value = dt.rows(i)(3).tostring
datagridview1(4,i).value = dt.rows(i)(4).tostring
datagridview1(5,i).value = dt.rows(i)(5).tostring
datagridview1(6,i).value = dt.rows(i)(6).tostring
Next
dt.dispose
dt = nothing 


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