Latihan_31b_46110001

a.   Object-object dalam Latihan_31b_46110001

A.     Object Label.

Pada form ini , terdapat Empat buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, “ jumlah barang”

B.      Object Button

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

C.      Object texbox   

Pada form ini terdapat empat buah label

.

b.   Script Unique

Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

c.     Even

Button Click

d.   Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 31b 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_31b_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

        'perintah periksa data

        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(STRIP_46110001.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        'perintah ambil data

        If KB_46110001.Text <> tb1_46110001.Text Then

            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")

                'mengosongkan text box

                tb1_46110001.Text = " "

                tb2_46110001.Text = " "

                tb3_46110001.Text = " "

                STRIP_46110001.Text = " "

                Exit Sub

            End If

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & tb1_46110001.Text & "', namabarang = '" & tb2_46110001.Text & "', hargajual=" & Val(tb3_46110001.Text) & ", jumlahbarang=" & Val(STRIP_46110001.Text) & " where kodebarang='" & KB_46110001.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengosongkan text box

        KB_46110001.Text = "-"

        tb1_46110001.Text = " "

        tb2_46110001.Text = " "

        tb3_46110001.Text = " "

        STRIP_46110001.Text = " "

        'mengambil data

        Latihan_31a_46110001.ambildata()

        'menutup form

        Me.Close()

    End Sub

    Private Sub STRIP_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STRIP_46110001.Click

    End Sub

End Class

·         langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 30 b seperti dibawah ini :lalu pilih latihan 31 b

·         Setelah menekan tombol debug maka tampilan latihan 31b sebagai berikut :

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.