تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برمجة أزرار التنقل بين السجلات
#1
Heart 
السلام عليكم أيها المبرمجون العباقرة الكرام

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



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

First , Next , previous , Last



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


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


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


الملفات المرفقة
.rar   MyWorld.rar (الحجم : 78.6 ك ب / التحميلات : 70)
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#2
التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه
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 ObjectAs EventArgsHandles btnFirst.Click
        BindingContext
(DTS_Buldan).Position 0
    End Sub

    Private Sub btnLast_Click
(sender As ObjectAs EventArgsHandles btnLast.Click
        BindingContext
(DTS_Buldan).Position BindingContext(DTS_Buldan).Count 1
    End Sub

    Private Sub btnNext_Click
(sender As ObjectAs EventArgsHandles btnNext.Click
        BindingContext
(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click
(sender As ObjectAs EventArgsHandles btnPrevious.Click
        BindingContext
(DTS_Buldan).Position -= 1
    End Sub 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#3
(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 ObjectAs EventArgsHandles btnFirst.Click
        BindingContext
(DTS_Buldan).Position 0
    End Sub

    Private Sub btnLast_Click
(sender As ObjectAs EventArgsHandles btnLast.Click
        BindingContext
(DTS_Buldan).Position BindingContext(DTS_Buldan).Count 1
    End Sub

    Private Sub btnNext_Click
(sender As ObjectAs EventArgsHandles btnNext.Click
        BindingContext
(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click
(sender As ObjectAs EventArgsHandles btnPrevious.Click
        BindingContext
(DTS_Buldan).Position -= 1
    End Sub 


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

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



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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم