Tombol-tombol Navigasi :
previous, next, awal, akhir dengan koding program sebagai berikut :
Public Class Form1
Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmhsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbmhsDataSet.tbmhs' table. You can move, or remove it, as needed.
Me.TbmhsTableAdapter.Fill(Me.DbmhsDataSet.tbmhs)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.TbmhsBindingSource.MoveFirst()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.TbmhsBindingSource.MoveLast()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TbmhsBindingSource.MovePrevious()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.TbmhsBindingSource.MoveNext()
End Sub
Tombol-tombol cari, filter, tambah, simpan, hapus, keluar dengan koding program sebagai berikut :
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim carinama As String
Dim posisi As Integer = 1
carinama = InputBox("Masukan Nama", "Cari nama")
If (TbmhsBindingSource.Find("Nama", carinama)) > -1 Then
MsgBox("Data ditemukan", vbOKOnly, "Pencarian data")
Me.TbmhsBindingSource.Position = TbmhsBindingSource.Find("Nama", carinama)
posisi = TbmhsBindingSource.Find("Nama", carinama) + 1
Else
MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian data")
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Me.TbmhsBindingSource.RemoveCurrent()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.TbmhsBindingSource.AddNew()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbmhsDataSet)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Me.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End Sub
End Class
