Latihan_33B_36110033

A.    Object-object dalam Latihan_33B_36110033:

1.        Object Label

Terdapat empat label yang nama textnya bertuliskan kode barang, nama barang, harga jual, dan jumlah barang.

2.        Object Textbox

Terdapat empat textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan kode barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

3.        Object Button

Terdapat satu object button yang nama textnya brtuliskan Simpan. Button Simpan digunakan untuk menyimpan data barang baru yang telah diinput. Data barang baru ini merupakan data barang yang telah dipilih untuk diedit dari datagridview pada form Latihan_33A_36110033.

4.        Object StatusStrip

Terdapat satu object statusstrip. Pada statusstrip ini terdapat dua statuslabel yang nama textnya bertuliskan kode barang lama dan “ –  “.

B.     Script Unique:

Latihan_33B_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_33B_36110033.

C.    Even:

SIMPAN_36110033_Click

TAMBAH_36110033()

Edit_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 4 Label, 4 textbox, 1 statusstrip dan 1 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, textbox, statusstrip dan button sesuai dengan design pada latihan 33B berikut:

 

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

Public Class Latihan_33B_36110033

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

Private Sub TAMBAH_36110033()

  Dim IlhaPeriksa As New ByIskandar.CariKeDataBaseByIskandar

IlhaPeriksa.AturPencarianDataBase("Barang", "KodeBarang", Kode_36110033.Text, 1, JEMBATANILHA)

     If IlhaPeriksa.JumlanBaris > 0 Then

MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain")

        Exit Sub

        End If

   Dim ZAHRA As New OleDb.OleDbCommand

ZAHRA = New OleDb.OleDbCommand("Insert Into Barang (Kodebarang, Namabarang, Hargajual, Jumlahbarang) " & _"Values ( '" & Kode_36110033.Text & "', '" & NAMA_36110033.Text & "'," & Val(HARGA_36110033.Text) & ", " & Val(JUMLAH_36110033.Text) & ")", JEMBATANILHA)

       JEMBATANILHA.Open()

       ZAHRA.ExecuteNonQuery()

       JEMBATANILHA.Close()

       ZAHRA.Dispose()

    End Sub

Private Sub Edit_36110033()

   If Kode_36110033.Text <> ToolStripStatusLabel_36110033.Text Then

   Dim IlhaCari As New ByIskandar.CariKeDataBaseByIskandar

IlhaCari.AturPencarianDataBase("Barang", "KodeBarang", Kode_36110033.Text, 1, JEMBATANILHA)

   If IlhaCari.JumlanBaris > 0 Then

      MsgBox("Kode Barang yang Baru Sudah Ada!")

      Exit Sub

      End If

      End If

   Dim ZAHRA As New OleDb.OleDbCommand

ZAHRA = New OleDb.OleDbCommand("Update Barang SET Kodebarang = '" & Kode_36110033.Text & "', Namabarang = '" & NAMA_36110033.Text & "', Hargajual = " & Val(HARGA_36110033.Text) & ", Jumlahbarang = " & Val(JUMLAH_36110033.Text) & " Where Kodebarang = '" & ToolStripStatusLabel_36110033.Text & "'", JEMBATANILHA)

        JEMBATANILHA.Open()

        ZAHRA.ExecuteNonQuery()

        JEMBATANILHA.Close()

        ZAHRA.Dispose()

    End Sub

    Private Sub Simpan_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110033.Click

        If Kode_36110033.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If NAMA_36110033.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Nama Barangnya")

            Exit Sub

        End If

        If Val(HARGA_36110033.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        If ToolStripStatusLabel_36110033.Text = "-" Then

            TAMBAH_36110033()

        Else

            Edit_36110033()

        End If

  Kode_36110033.Text = ""

  NAMA_36110033.Text = ""

  HARGA_36110033.Text = ""

  JUMLAH_36110033.Text = ""

  ToolStripStatusLabel_36110033.Text = "-"

  Latihan_33A_36110033.MUATAN()

    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 33B selesai.