Latihan_27_36110033

A.    Object-object dalam Latihan_27_36110033:

1.       Object Label

Terdapat lima label yang nama textnya bertuliskan penginputan barang, 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 bertuliskan Simpan. Button Simpan digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam form BARANG di Ms Access.

B.      Script Unique:

Untuk button Simpan:

SIMPAN_36110033_Click

If KB_36110048.Text.Length = 0 Then

       MsgBox("kode barang belum terisi")

       Exit Sub

   End If

      Latihan_27_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_27_36110033.

C.      Even:

SIMPAN_36110048_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 1 button, 4 textboxt dan buat text pada form dengan menggunakan label, sebanyak 5 label. Kemudian beri tex sesuai dengan design 27. Adapun nama lebelnya terserah anda namun diikuti stambuk setelahnya. Adapun posisi textboxt, label, dan tombol button disesuai dengan design pada latihan 27 berikut:

 

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

Public Class Latihan_27_36110033

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

Dim KENDARAANILHA As New ByIskandar.CariKeDataBaseByIskandar

  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("kode barang belum terisi")

     Exit Sub

     End If

  If NAMA_36110033.Text.Length = 0 Then

     MsgBox("nama barang belum terisi")

     Exit Sub

     End If

  If Val(HARGA_36110033.Text) = 0 Then

     MsgBox("harga jual belum diisi")

     Exit Sub

     End If

  If Val(JUMLAH_36110033.Text) = 0 Then

     MsgBox("jumlah barang belum diisi")

     Exit Sub

     End If

KENDARAANILHA.AturPencarianDataBase("BARANG", "KODEBARANG", KODE_36110033.Text, 1, TRUCKILHA)

  If KENDARAANILHA.JumlanBaris > 0 Then

     MsgBox("kode sudah ada")

     Exit Sub

     End If

Dim ILHA As New OleDb.OleDbCommand

 ILHA = 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) & ")", TRUCKILHA)

        TRUCKILHA.Open()

        ILHA.ExecuteNonQuery()

        TRUCKILHA.Close()

        ILHA.Dispose()

        KODE_36110033.Text = ""

        NAMA_36110033.Text = ""

        HARGA_36110033.Text = ""

        JUMLAH_36110033.Text = ""

  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 27 selesai.