Tugas 9

Sebelum membuat tombol-tombol; hiden toolbar terlebih dahulu dengan cara; klik_toolbar, pilih visibel pada properties, kemuadian nilai diganti false.
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