تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مكتبة AsDelphi لانشاء برامج سريعة
#9
يمكن القول انها الاصدارة الثانية 
هذه المرة صار الربط كله يتم مرئيا وقليل فقط بالكود
هذا هو كل الكود المستخدم لاجل الاتصال والاضافة والحذف والتعديل والتحرك للامام والخلف
هنا انشاءت مثال كامل متكامل حتى ابين لكم ان المكتبة بمقدرتها انجاز المهام .
لاحظو اداة الاتصال والجدول تقع على النموذج وجدت ان هذه الطريقة اسهل وتترك مساحة افضل من طريقة مايكروسوفت في وضع الـ 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

هنا النموذج الرئيسي
   

هنا يتم اضافة البيانات الفرعية بجدول فرعي كالدورات او الشهادات
   

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

.rar   Tools.rar (الحجم : 210.28 ك ب / التحميلات : 39)
الرد }}}
تم الشكر بواسطة: asemshahen5


الردود في هذا الموضوع
RE: مكتبة AsDelphi لانشاء برامج سريعة - بواسطة viv - 18-08-19, 10:46 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل هناك محرر مرئي لانشاء العلاقات ل sqlite alfaiz678 1 2,414 09-10-20, 08:45 AM
آخر رد: alfaiz678

التنقل السريع :


يقوم بقرائة الموضوع: