Latihan 29_46110001

A.    Object-object dalam Latihan_29_46110001

A.     Object Label.

Pada form ini , terdapat 6 label yaitu kode barang dan kode barang yang akan diganti namanya yang berada dalam satu groupbox, lalu label kode barang, nama barang, harga jual, dan jumlah barang yang berada dalam satu group box

B.       Object Groupbox.

Pada form ini terdapat 2 groupbox.

C.     Object textbox

Pada form ini terdapat 5 object texbox.

D.      Object Radiobutton.

Object button terdapat 1 yaitu, simpan yang berfungsi untuk menyimpan hasil isian dari text box

.

B.     Script Unique

      If kb_46110001.Text.Length = 0 Then

   MsgBox("Plase Insert Your Text")

   Exit Sub

End If

End If script ini berfingsi untuk memeriksa data pada database

C.     Even

Button Click

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 29 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_29_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 kb_46110001.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

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

    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 29 seperti dibawah ini :

·         Setelah menekan tombol debug maka tampilan latihan 29 sebagai berikut :

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