Latihan_30b_46110001

A.    Object-object dalam Latihan_30b_46110001

A.     Object Label.

Pada form ini , terdapat enam  buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

B.       Object Groupbox.

Dalam form ini terdapat 2 buah object groupboxGroup box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian

C.     Object textbox

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input..

D.      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.

.

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 30b 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_30b_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(TB4_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 = " "

                TB4_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(TB4_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 = " "

        TB4_46110001.Text = " "

        'mengambildata

        Latihan_30a_46110001.ambildata()

        'menutup form

        Me.Close()

    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 :

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

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