[أبو خالد الشكري]

السلام عليكم أيها المبرمجون العباقرة الكرام

بداية أسبوع سعيدة وموفقة عليكم جميعًا إن شاء الله .



مرفق لكم مشروع بسيط جدًا فقط ينقصه برمجة أزرار التنقل بين السجلات

First , Next , previous , Last



أرجو من فضلكم أن تعطوني من وقتكم الثمين الغالي لمساعدتي في برمجة الأزرار الأربعة المسكــينة 


رابط الملف :
https://top4top.io/downloadf-2193fz35w1-rar.html


وتقبلوا مني خالص التحية والمحبة الكبيـــــــــــــــــــرة

[سعود]

التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه

PHP كود :

Imports System.Data.OleDb

Module Module1
    Public ConStr As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Gulf.accdb;User ID=Admin;jet oledb:database password=123;"
    Public Con As New OleDbConnection(ConStr)
    Public DR_Buldan As OleDb.OleDbDataReader
    Public Cmd As New OleDb.OleDbCommand
    Public DTS_Buldan As New DataTable
    Public MySqlSreach As String
End Module 


والاجراء التالي تم تعديله:

PHP كود :

Private Sub MyFeilds()
        txtDawlah.DataBindings.Clear()
        txtAsimah.DataBindings.Clear()
        txtDawlah.DataBindings.Add("text", DTS_Buldan, "Dawlah")
        txtAsimah.DataBindings.Add("text", DTS_Buldan, "Asimah")
    End Sub 


و الازرار كالتالي:

PHP كود :

Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click
        BindingContext(DTS_Buldan).Position = 0
    End Sub

    Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnLast.Click
        BindingContext(DTS_Buldan).Position = BindingContext(DTS_Buldan).Count - 1
    End Sub

    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
        BindingContext(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click
        BindingContext(DTS_Buldan).Position -= 1
    End Sub 


[أبو خالد الشكري]

(02-01-22, 09:53 PM)سعود كتب : التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه

PHP كود :

Imports System.Data.OleDb

Module Module1
    Public ConStr As String = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Gulf.accdb;User ID=Admin;jet oledb:database password=123;"
    Public Con As New OleDbConnection(ConStr)
    Public DR_Buldan As OleDb.OleDbDataReader
    Public Cmd As New OleDb.OleDbCommand
    Public DTS_Buldan As New DataTable
    Public MySqlSreach As String
End Module 


والاجراء التالي تم تعديله:

PHP كود :

Private Sub MyFeilds()
        txtDawlah.DataBindings.Clear()
        txtAsimah.DataBindings.Clear()
        txtDawlah.DataBindings.Add("text", DTS_Buldan, "Dawlah")
        txtAsimah.DataBindings.Add("text", DTS_Buldan, "Asimah")
    End Sub 


و الازرار كالتالي:

PHP كود :

Private Sub btnFirst_Click(sender As Object, e As EventArgs) Handles btnFirst.Click
        BindingContext(DTS_Buldan).Position = 0
    End Sub

    Private Sub btnLast_Click(sender As Object, e As EventArgs) Handles btnLast.Click
        BindingContext(DTS_Buldan).Position = BindingContext(DTS_Buldan).Count - 1
    End Sub

    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
        BindingContext(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click(sender As Object, e As EventArgs) Handles btnPrevious.Click
        BindingContext(DTS_Buldan).Position -= 1
    End Sub 


ما شاء الله عليك أستاذ سعود أنت مبدع ومتألق كعادتك دائما
يعجز اللسان عن شكرك ، والكلمات لا تفي بحقك أستاذي
بارك الله فيك ، وألف شكر لك ، ما قصرت بصراحـة .
البرنامج الآن شغال 100% بعد أن قمت بعمل التعديلات التي وجهتني إليها حضرتك .
لك التحية والمحبة الدااااااائـمة

[سعود]

(03-01-22, 12:20 AM)أبو خالد الشكري كتب : ما شاء الله عليك أستاذ سعود أنت مبدع ومتألق كعادتك دائما
يعجز اللسان عن شكرك ، والكلمات لا تفي بحقك أستاذي
بارك الله فيك ، وألف شكر لك ، ما قصرت بصراحـة .
البرنامج الآن شغال 100% بعد أن قمت بعمل التعديلات التي وجهتني إليها حضرتك .
لك التحية والمحبة الدااااااائـمة

الحمدلله هذا من فضل الله.
كلنا اخوة يساعد بعضنا بعضا قدر الامكان.