Latihan_34B_36110033

A.    Object-object dalam Latihan_34B_36110033:

1.      Object Label

Terdapat satu label yang nama textnya  bertuliskan daftar barang.

 2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

 3.      Object Button

Terdapat ti object button yang nama textnya bertuliskan Hapus, Edit dan Tambah. Button edit digunakan untuk mengedit daftar barang pada form BARANG di Ms Access yang muncul pada datagridview. Jika button edit diklik, maka akan muncul form Latihan_34C_36110033. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit. Sedangkan Button tambah digunakan untuk menambah daftar barang baru ke dalam form BARANG di Ms Access. Jika button tambah diklik, maka akan muncul form Latihan_34C_36110033. Pada form inilah data barang baru diinput dan kemudian disimpan. Button hapus digunakan untuk menghapus data barang pada form BARANG.

 B.     Script Unique:

Latihan_34B_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_34B_36110033.

C.    Even:

          Latihan_34B_36110033

          Tambah_36110033

          Edit_36110033

          Hapus_36110033

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

 Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat 1 Label, 1 object datagridview dan 3 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, object datagridview, dan button sesuai dengan design pada latihan 34B berikut:

 

6.      Untuk menuliskan rumus pada latihan 34B, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_34B_36110033

    Dim JEMBATANILHA As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=ILHA")

Dim TABLEILHA As New DataTable

Public Sub MUATAN()

Dim TRUCKILHA As New OleDb.OleDbDataAdapter

TRUCKILHA = New OleDb.OleDbDataAdapter("Select * From Barang", JEMBATANILHA)

   TABLEILHA.Rows.Clear()

   TRUCKILHA.Fill(TABLEILHA)

   TRUCKILHA.Dispose()

    End Sub

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

   MUATAN()

   DataGridView_36110033.DataSource = TABLEILHA

    End Sub

    Private Sub Tambah_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110033.Click

   If Latihan_34C_36110033.Visible = False Then

      Latihan_34C_36110033.Show()

   Else

      Latihan_34C_36110033.Activate()

      Latihan_34C_36110033.WindowState = FormWindowState.Normal

      Latihan_34C_36110033.ToolStripStatusLabel_36110033.Text = "-"

        End If

      Latihan_34C_36110033.Kode_36110033.Text = ""

      Latihan_34C_36110033.NAMA_36110033.Text = ""

      Latihan_34C_36110033.HARGA_36110033.Text = ""

      Latihan_34C_36110033.JUMLAH_36110033.Text = ""

      Latihan_34C_36110033.ToolStripStatusLabel_36110033.Text = "-"

    End Sub

    Private Sub Edit_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Edit_36110033.Click

     If Latihan_34C_36110033.Visible = False Then

      Latihan_34C_36110033.MdiParent = Me.MdiParent

      Latihan_34C_36110033.Show()

     Else

      Latihan_34C_36110033.Activate()

      Latihan_34C_36110033.WindowState = FormWindowState.Normal

     End If

Latihan_34C_36110033.Kode_36110033.Text = DataGridView_36110033.CurrentRow.Cells("Kodebarang").Value

Latihan_34C_36110033.NAMA_36110033.Text = DataGridView_36110033.CurrentRow.Cells("Namabarang").Value

Latihan_34C_36110033.HARGA_36110033.Text = DataGridView_36110033.CurrentRow.Cells("Hargajual").Value

Latihan_34C_36110033.JUMLAH_36110033.Text = DataGridView_36110033.CurrentRow.Cells("Jumlahbarang").Value

Latihan_34C_36110033.ToolStripStatusLabel_36110033.Text = DataGridView_36110033.CurrentRow.Cells("Kodebarang").Value

    End Sub

    Private Sub Hapus_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_36110033.Click

   Dim ZAHRA As New OleDb.OleDbCommand

ZAHRA = New OleDb.OleDbCommand("Delete * From Barang Where KodeBarang = '" & DataGridView_36110033.CurrentRow.Cells("Kodebarang").Value & "'", JEMBATANILHA)

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

    JEMBATANILHA.Open()

    ZAHRA.ExecuteNonQuery()

    JEMBATANILHA.Close()

    ZAHRA.Dispose()

    MUATAN()

    End If

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 34B selesai.