Latihan_29_46110038

Deskripsi Form Latihan_29_46110038:

Form Latihan_29_46110038 hanya terdapat 4 object yaitu Label, TextBox, GroupBox dan Button.

Object Label

Di Latihan_29_46110038 ada 6 Label yang berisi teks Kode Barang, (Kode Barang Yang Akan Diganti Datanya), Kode Barang, Nama Barang, Harga Jual, dan  Jumlah Barang.

Object TextBox

Di Latihan_29_46110038 ada 5 object textbox, status input, yang digunakan dalam menginput data.

Object Button

Di Latihan_29_46110038  ada 1 Button, Simpan. Tombol simpan digunakan untuk menyimpan data setelah diganti datanya.

Script Unique

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

Even

Click

Cara Membuat Form Latihan_29_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_29_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_29_46110038

    Dim conect 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 barang46110038.Text.Length = 0 Then

            MsgBox("kode barang lama belum terisi")

            Exit Sub

        End If

        If kode46110038.Text.Length = 0 Then

            MsgBox("kode barang baru belum terisi")

            Exit Sub

        End If

        If nama46110038.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(harga46110038.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(jumlah46110038.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        If barang46110038.Text <> kode46110038.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110038.Text, 1, conect)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode sudah ada")

                Exit Sub

            End If

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & kode46110038.Text & "', namabarang = '" & nama46110038.Text & "', hargajual = " & Val(harga46110038.Text) & ", jumlahbarang = " & Val(jumlah46110038.Text) & " where kodebarang ='" & barang46110038.Text & "'", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        barang46110038.Text = ""

        kode46110038.Text = ""

        nama46110038.Text = ""

        harga46110038.Text = ""

        jumlah46110038.Text = ""

    End Sub

End Class

Langkah untuk menjalankan Latihan_29_46110038:

1.    Klik start debugging.

2. Form Latihan_29_46110038 akan muncul, silakan ganti data yang mau Anda ganti.