Deskripsi_Latihan_34B_36110054

Cara Membuat Progam/Apliaksi Latihan 34B

Dengan Software Microsoft Visual Basic 2008

Form Latihan 34B terdapat tiga object yaitu Data Grid View , Button, dan Label

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")

Object  Button

Terdapat tiga object button yaitu edit, tambah, dan hapus. 

  Object  Label

Terdapat sebuah object label  yang diberi nama Daftar Barang

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 34B.

Even

FromLoad

ButtonClick

Langkah 1:

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2:

      Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah 3:

Rancanglah Form Seperti Gambar Berikut Berikut :

Langkah 4:

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_34B_36110054

    Dim Ruslan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")

    Dim tabelRuslan As New DataTable

    Public Sub cullank()

        Dim ruru As New OleDb.OleDbDataAdapter

        ruru = New OleDb.OleDbDataAdapter("Select * From BARANG", Ruslan)

        tabelRuslan.Rows.Clear()

        ruru.Fill(tabelRuslan)

        ruru.Dispose()

    End Sub

    Private Sub Latihan_34B_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        cullank()

        DataGridView1_36110054.DataSource = tabelRuslan

    End Sub

    Private Sub TAMBAH_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110054.Click

        If Latihan_34C_36110054.Visible = False Then

            Latihan_34C_36110054.MdiParent = Me.MdiParent

            Latihan_34C_36110054.Show()

        Else

            Latihan_34C_36110054.Activate()

            Latihan_34C_36110054.WindowState = FormWindowState.Normal

            Latihan_34C_36110054.KBL_36110054.Text = "-"

        End If

        Latihan_34C_36110054.kdebrg_36110054.Text = ""

        Latihan_34C_36110054.namabrg_36110054.Text = ""

        Latihan_34C_36110054.hrgjual_36110054.Text = ""

        Latihan_34C_36110054.jmlbrg_36110054.Text = ""

        Latihan_34C_36110054.KBL_36110054.Text = "-"

    End Sub

    Private Sub EDIT_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Edit_36110054.Click

        If Latihan_34C_36110054.Visible = False Then

            Latihan_34C_36110054.MdiParent = Me.MdiParent

            Latihan_34C_36110054.Show()

        Else

            Latihan_34C_36110054.Activate()

            Latihan_34C_36110054.WindowState = FormWindowState.Normal

        End If

        Latihan_34C_36110054.kdebrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("KODEBARANG").Value

        Latihan_34C_36110054.namabrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("NAMABARANG").Value

        Latihan_34C_36110054.hrgjual_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_34C_36110054.jmlbrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("JUMLAHBARANG").Value

        Latihan_34C_36110054.KBL_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("KODEBARANG").Value

    End Sub

    Private Sub HAPUS_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_36110054.Click

        Dim ruru As New OleDb.OleDbCommand

        ruru = New OleDb.OleDbCommand("Delete * From BARANG Where KODEBARANG = '" & DataGridView1_36110054.CurrentRow.Cells("KODEBARANG").Value & "'", Ruslan)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            Ruslan.Open()

            ruru.ExecuteNonQuery()

            Ruslan.Close()

            ruru.Dispose()

            cullank()

        End If

    End Sub

End Class