Latihan_28B_36110033

A.    Object-object dalam Latihan_28B_36110033:

1.         Object Label

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

2.         Object Button

Terdapat satu object button yang nama textnya bertuliskan Simpan yang digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam form BARANG di Ms Access, atau bisa juga diliat hasilnya pada datagridview pada form Latihan_28A_36110033.

3.          Object TextBox

Terdapat empat obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_28A_36110033.

       

B.     Script Unique:

Latihan_28B_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_28B_36110033.

C.    Even:

SIMPAN_36110033_Click

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 5 kolom label, 4 textboxt  dan 1 kolom button. Beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi label, textbox dan button sesuai dengan design pada latihan 28B berikut:

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

Public Class Latihan_28B_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 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

Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

Periksa.AturPencarianDataBase("Barang", "KodeBarang", KODE_36110033.Text, 1, JEMBATANILHA)

   If Periksa.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()

        KODE_36110033.Text = ""

        NAMA_36110033.Text = ""

        HARGA_36110033.Text = ""

        JUMLAH_36110033.Text = ""

        Latihan_28A_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 28B selesai.