Tugas 6

Assalamualaikum Wr.Wb

Pada peretmuan ke-9 matakuliah visual basic kemarin telah dijelaskan pemanfaatan visual basic dengan sql 2005 yang saling terkoneksi.

Pada tugas ke-6 kali ini dalam program ini mahasiswa diharapkan untuk mampu membuat tampilan pertama,sebelumnya,berikutnya,terakhir,tambah,simpan,hapus,cari,filter,edit agar dapat dijalankan.

Berikut paparan tugas-6 yang saya buat .

Pertama-tama saya membuat data pada SQL 2005, dengan data sebagai berikut :

Buka SQL 2005 lalu klik kanan Database, kemudian new Database buat table dengan nama tbmahasiswa kemudian save pada folder D .

Buat table dengan inputan sebagai berikut :
Nim Char 10 not null primary key
Nama Varchar (20),
Alamat Varchar (50),
Tgllahir Datetime,
Jurusan Char (2),
Spptetap Decimal (18,0)

Kemudian untuk mengkoneksikannya pada Visual Basic kita buat New Projeck pada VB 2010
1. Klik Data pada menubox >> pilih Add New Data Sourche >> Pilih Database (Next)  >> Dataset (Next)>> Pada New Conection pilih Microsoft SQL Server (Continue) >>Server Name diisikan sesuai server name pada SQL >> Lalu pilih yes (Next) >> Centang semua table pada tbmahasiswa .
2 . Klik Data pada menubar >> pilih Show Data Sources.
Pada data Jurusan toolbox diganti Combobox .

* Gambar

*Tampilan perintah Pertama (First)

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

        TbmahasiswaBindingSource.MoveFirst()

        MsgBox(" Data Pertama")

    End Sub

*Tampilan perintah Sebelumnya (Previous)

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmahasiswaBindingSource.MovePrevious()
        MsgBox("Data Sebelumnya")
    End Sub

*Tampilan perintah Berikutnya (Next)

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

        TbmahasiswaBindingSource.MoveNext()

        MsgBox("Data Selanjutnya")

    End Sub

* Tampilan perintah Data Terakhir

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TbmahasiswaBindingSource.MoveLast()

        MsgBox("Data Terakhir")

    End Sub

*Tampilan perintah Save

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TbmahasiswaDataSet)

    End Sub

*Tampilan perintah Add

   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.TbmahasiswaBindingSource.AddNew()

    End Sub

*Tampilan perintah Delete

 Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Me.TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

*Tampilan perintah Search

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Dim NIM As String = InputBox("Masukan NIM", "Pencarian")

        If (TbmahasiswaBindingSource.Find("nim", NIM) > -1) Then

            MsgBox("Ditemukan", vbOK, "cari")

            TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("nim", NIM)

        Else

            MsgBox("Tidak Ditemukan", vbOK, "cari")

        End If

    End Sub

*Tampilan perintah Filter

 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        If (ComboBox2.Text = "SI") Then

            Me.TbmahasiswaBindingSource.Filter = "jurusan="=' & ComboBox2() & '"

        ElseIf (ComboBox2.Text = "TI") Then

            Me.TbmahasiswaBindingSource.Filter = "jurusan "=' & ComboBox2() & '"

        End If

    End Sub

    

End Class

Demikian hasil dari tugas saya,sekian TERIMAKASIH ^_^