Latihan_28a_46110001

A.    Object-object dalam Latihan_28a_46110001

              1.   Object Label

Terdapat lima label (yang 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 nilai: kode barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form barang di Ms Access.

              3.   Object Button

Pada form ini terdapat satu object button yaitu 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:

   If TB1_46110001.Text.Length = 0 Then

   MsgBox("Plase Insert Your Text")

   Exit Sub

   End If

   ATAU UNTUK LEBIH JELASNYA SCRIPT UNIQUE DAPAT DILIHAT PADA FORM LATIHAN 27

C.     Even

   SIMPAN_46110001_Click

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 26b ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

·         Buatlah form seperti gambar dibawah ini,

 

·         Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_27_46110001

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub SIMPAN_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110001.Click

        If TB1_46110001.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If TB2_46110001.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(TB3_46110001.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(TB4_46110001.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", TB1_46110001.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            TB1_46110001.Text = " "

            TB2_46110001.Text = " "

            TB3_46110001.Text = " "

            TB4_46110001.Text = " "

            Exit Sub

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & TB1_46110001.Text & "','" & TB2_46110001.Text & "', " & Val(TB3_46110001.Text) & "," & Val(TB4_46110001.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        TB1_46110001.Text = " "

        TB2_46110001.Text = " "

        TB3_46110001.Text = " "

        TB4_46110001.Text = " "

    End Sub

End Class

·         langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini