يمكن القول انها الاصدارة الثانية
هذه المرة صار الربط كله يتم مرئيا وقليل فقط بالكود
هذا هو كل الكود المستخدم لاجل الاتصال والاضافة والحذف والتعديل والتحرك للامام والخلف
هنا انشاءت مثال كامل متكامل حتى ابين لكم ان المكتبة بمقدرتها انجاز المهام .
لاحظو اداة الاتصال والجدول تقع على النموذج وجدت ان هذه الطريقة اسهل وتترك مساحة افضل من طريقة مايكروسوفت في وضع الـ DataSet مثلا وغيرها
وطبعا لازالت تحت التطوير
اذا اعجبتكم ربما اطورها كثيرا واجعل لها موقع
هنا النموذج الرئيسي
هنا يتم اضافة البيانات الفرعية بجدول فرعي كالدورات او الشهادات
لتحميل المشروع بالمكتبة وقاعدة البيانات طبعا يجب اضافة المكتبة الى قسم الادوات لتظهر فيه فقد صار للمكتبة ادواتها الخاصة لتسهيل عملية الربط
Tools.rar (الحجم : 210.28 ك ب / التحميلات : 39)
هذه المرة صار الربط كله يتم مرئيا وقليل فقط بالكود
هذا هو كل الكود المستخدم لاجل الاتصال والاضافة والحذف والتعديل والتحرك للامام والخلف
هنا انشاءت مثال كامل متكامل حتى ابين لكم ان المكتبة بمقدرتها انجاز المهام .
لاحظو اداة الاتصال والجدول تقع على النموذج وجدت ان هذه الطريقة اسهل وتترك مساحة افضل من طريقة مايكروسوفت في وضع الـ DataSet مثلا وغيرها
وطبعا لازالت تحت التطوير
اذا اعجبتكم ربما اطورها كثيرا واجعل لها موقع
كود :
Private Sub Tables1_Postion(int As Integer) Handles Tables1.Table1
Label6.Text = int.ToString
Label10.Text = Tables1.Count.ToString
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Connection1.Open = True
Tables1.open()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Tables1.Append()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Text1.Text.Trim = String.Empty Then
MsgBox("Please Fill filed name first ", MsgBoxStyle.OkOnly, "Help")
Exit Sub
End If
Tables1.Post()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Picture1.Import()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Tables1.Cancel()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Tables1.Remove()
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click, Button8.Click, Button7.Click, Button6.Click
If sender.tag = 1 Then Tables1.MoveNext()
If sender.tag = 2 Then Tables1.MoveLast()
If sender.tag = 3 Then Tables1.MovePrevious()
If sender.tag = 4 Then Tables1.MoveFirst()
End Subهنا النموذج الرئيسي
هنا يتم اضافة البيانات الفرعية بجدول فرعي كالدورات او الشهادات
لتحميل المشروع بالمكتبة وقاعدة البيانات طبعا يجب اضافة المكتبة الى قسم الادوات لتظهر فيه فقد صار للمكتبة ادواتها الخاصة لتسهيل عملية الربط
Tools.rar (الحجم : 210.28 ك ب / التحميلات : 39)
