Latihan_30B_46110055

Deskripsi Latihan 30B

Pada form latihan 30B terdapat 4 object yang digunakan yaitu Label, TextBox, Button dan GroupBox.

Object Label
Terdapat 6 label pada form latihan 30B (kode barang, (kode barang yang akan diganti datanya), kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 5 object textbox (status input) yang digunakan dalam menginput data.

Object Groupbox
Ada 2 groupbox pada latihan ini. Groupbox pertama berisi rincian data lama dan groupbox kedua berisi rincian data baru.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti datanya.

Script Unique
-

Even 
ButtonClick

Langkah-langkah membuat Latihan 30B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 30B”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_30B_461100555
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim cari As ByIskandar.CariKeDataBaseByIskandar


    Private Sub simpan46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110055.Click
        'perintah periksa data
        If kobar246110055.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nabar46110055.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(haju46110055.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jumbar46110055.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data

        If kobar146110055.Text <> kobar246110055.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kobar246110055.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

                'mengosongkan text box
                kobar246110055.Text = " "
                nabar46110055.Text = " "
                haju46110055.Text = " "
                jumbar46110055.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kobar246110055.Text & "', namabarang = '" & nabar46110055.Text & "', hargajual=" & Val(haju46110055.Text) & ", jumlahbarang=" & Val(jumbar46110055.Text) & " where kodebarang='" & kobar146110055.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kobar146110055.Text = " "
        kobar246110055.Text = " "
        nabar46110055.Text = " "
        haju46110055.Text = " "
        jumbar46110055.Text = " "

        'mengambildata
        Latihan_30A_46110055.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

9. Klik start debugging

10. maka akan muncul hasil seperti dibawah ini,