Latihan_29_46110037

Deskripsi Form Latihan 29

Pada Latihan ini terdapat 3 object yaitu Label, Textbox dan Button.

Object Label

Pada Latihan_ini terdapat 5 Label yaitu Kode Barang1; Kode Barang2; Nama Barang; Harga Jual dan Jumlah Barang.

Object Textbox

Terdapat 4 Textbox yang berstatus Input yaitu Kode Barang1; Kode Barang2; Nama Barang; Harga Jual dan Jumlah Barang.

Object Button

Terdapat 1 button yaitu tombol Simpan. Apabila tombol ini diclick maka data yang di input akan muncul pada form yang telah ditentukan

Script Unique

*  Pengaturan untuk Kode yang sama

If GANTI46110037.Text <> Kod46110037.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, connect)

Even

Load

Click

Property

Default

Langkah-Langkah Menjalankan Form Latihan 29

Click Start Debugging untuk menjalankan latihan 29. Kemudian masukkan data pada semua textbox yang berstatus input, setelah itu click tombol Simpan, maka data yang di inout tersseput akan tersimpan pada file data Access yang telah diatur sebelumnya di script

Langkah-langkah Menyelesaikan Form Latihan 29

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas Latihan 27 dengan menggunakan Label, Textbox dan Button
• Ganti nama Textbox dan Button di properties-Name
• Click Kanan pada design Latihan 27, kemudian ketik script seperti dibawah ini:

Public Class LATIHAN_29_46110037

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

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub SIMPAN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110037.Click

        If GANTI46110037.Text.Length = 0 Then

            MsgBox("kode barang lama belum terisi")

            Exit Sub

        End If

        If Kod46110037.Text.Length = 0 Then

            MsgBox("kode barang baru belum terisi")

            Exit Sub

        End If

        If NamaBarg46110037.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(Hjual46110037.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JumBar46110037.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        If GANTI46110037.Text <> Kod46110037.Text Then 'KODE SAMA

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, connect)

            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 = '" & Kod46110037.Text & "', namabarang = '" & NamaBarg46110037.Text & "', hargajual = " & Val(Hjual46110037.Text) & ", jumlahbarang = " & Val(JumBar46110037.Text) & " where kodebarang ='" & GANTI46110037.Text & "'", connect)

        connect.Open()

        com.ExecuteNonQuery()

        connect.Close()

        com.Dispose()

        GANTI46110037.Text = ""

        Kod46110037.Text = ""

        NamaBarg46110037.Text = ""

        Hjual46110037.Text = ""

        JumBar46110037.Text = ""

    End Sub

End Class

• Click Start Debugging untuk menjalankan form