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 :
- 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
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.
Tidak ada komentar:
Posting Komentar