Tugas Pemograman Visual Tombol Navigasi dan Pencarian

Membuat Tombol Navigasi dan Pencarian

Tugas kali ini adalah membahas tetang pembuatan tombol navigasi (First, Previous, Next, Last) dan tombol pencarian yang digunakan untuk mencari data di dalam database yang kali saya menggunakan Microsoft SQL Server 2005. Sebelumnya buat dahulu sebuah tabel yang berisi kolom :nim, nama, alamat, tgllahir, jurusan, serta spptetap dan isilah tabel tersebut.

Tombol : Awal, Sebelumnya, Berikutnya dan Akhir

Listing Programnya adalah sebagai berikut

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesTbmahasiswaBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

    Private Sub BtAwal_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtAwal.Click

        Me.TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub BtSebelum_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtSebelum.Click

        Me.TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub BtBerikutnya_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtBerikutnya.Click

        Me.TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub BtAkhir_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtAkhir.Click

        Me.TbmahasiswaBindingSource.MoveLast()

    End Sub

Setelah program tersebut di jalankan hasilnya seperti ini :

1. 
   

•      Ketika kita klik tombol Akhir maka posisinya akan berpindah di nomor akhir.
•      Ketika kita klik tombol awal maka posisinya akan berpindah ke awal table tersebut
•      Ketika kita klik tombol sebelum maka posisi akan berpindah ke belakang satu dan
•      Apabila kita klik tombol berikutnya maka posisinya akan berpindah ke nomor berikutnya

1. 
   

Membuat tombol : Tambah, Simpan, Hapus, Cari dan Filter

Listing programnya adalah sebagai berikut  :

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtHapus.Click

        Me.TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtTambah.Click

        Me.TbmahasiswaBindingSource.AddNew()

    End Sub

    Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtSimpan.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub BtCari_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtCari.Click

        Dim carinama As String

        Dim posisi As Integer = 1

        carinama = InputBox("Masukan Nama", "Cari nama")

        If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then

            MsgBox("Data ditemukan", vbOKOnly, "Pencarian data")

            Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1

        Else

            MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian data")

        End If

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        Me.Close()

    End Sub

End Class

Setelah program dijalankan hasilnya seperti di bawah ini :

 Demikianlah hasil yang diperoleh dari listing tersebut diatas.