Latihan_28B_46110038

Deskripsi Form Latihan_28B_46110038:

Form Latihan_28B_46110038 hanya terdapat 2 object yaitu Label, Textbox, dan Button.

Object Label

Di Latihan_28B_46110038 ada 5 Label yang berisi teks Penginputan Barang, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang.

Object Textbox

Di Latihan_28B_46110038 ada 4 Textbox, status input, yang digunakan dalam menginput data.

Object Button

Di Latihan_28B_46110038 ada 1 Button tombol Simpan. Tombol simpan digunakan untuk menyimpan data yang telah diinput.

Script Unique

Pada Latihan_28B_46110038 ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

Click

Cara Membuat Form Latihan_28B_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_28B_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_28B_46110038

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Kumpulan_Latihan_46110038\Kumpulan_Latihan_46110038\bin\Debug\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub simpan46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        If kode46110038.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If nama46110038.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(harga46110038.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(jumlah46110038.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        Dim kawan As New ByIskandar.CariKeDataBaseByIskandar

        kawan.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110038.Text, 1, connect)

        If kawan.JumlanBaris > 0 Then

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

            kode46110038.Text = " "

            nama46110038.Text = " "

            harga46110038.Text = " "

            jumlah46110038.Text = " "

            Exit Sub

        End If

        Dim merah As New OleDb.OleDbCommand

        merah = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110038.Text & "','" & nama46110038.Text & "', " & Val(harga46110038.Text) & "," & Val(jumlah46110038.Text) & ")", connect)

        connect.Open()

        merah.ExecuteNonQuery()

        connect.Close()

        merah.Dispose()

        kode46110038.Text = " "

        nama46110038.Text = " "

        harga46110038.Text = " "

        jumlah46110038.Text = " "

        Latihan_28A_46110038.ambildata()

        Me.Close()

    End Sub

End Class

Langkah untuk menjalankan Latihan_28B_46110038:

1.      Klik start debugging.

2.   Akan muncul Form Latihan_28A_46110038 dan ketika di klik tombol Input akan muncul Form Latihan_28B_46110038 silakan input atau masukkan data sesuai keinginan Anda. Data akan bertambah di Latihan_28A_46110038.

3.   Klik Tutup untuk mengakhiri program.