Latihan_29_46110002

Deskripsi Form Latihan 29

Pada form latihan 29 ada 4 object yang digunakan yaitu Label, Text Box, Button dan GroupBox.

Object Label

Terdapat 6 label pada form latihan 29 (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 Button                                                      

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

Object GroupBox                                                

Ada 2 groupbox pada latihan ini. Groupbox pertama berisi rincian data lama yang akan diganti datanya dan groupbox kedua berisi rincian data baru.

Script Unique

perintah ambil data lama yang akan diganti data baru

If KB1_46110002.Text <> KB2_46110002.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB2_46110002.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then

                MsgBox("The data has been exist please insert new data")

mengosongkan text box

                KB2_46110002.Text = " "

                NB_46110002.Text = " "

                HJ_46110002.Text = " "

                JB_46110002.Text = " "

                Exit Sub

            End If

        End If

deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB2_46110002.Text & "', namabarang ='" & NB_46110002.Text & "', hargajual=" & Val(HJ_46110002.Text) & ", jumlahbarang=" & Val(JB_46110002.Text) & " where kodebarang='" & KB1_46110002.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

Even

Click

Langkah-Langkah Penyelesaian Form Latihan_29_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_29_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties khusus untuk object label dan button

·         Klik kanan, view kode lalu  masukkan rumus

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

    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click

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

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

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

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

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


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

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

                KB2_46110002.Text = " "
                NB_46110002.Text = " "
                HJ_46110002.Text = " "
                JB_46110002.Text = " "
                Exit Sub
            End If
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB2_46110002.Text & "', namabarang ='" & NB_46110002.Text & "', hargajual=" & Val(HJ_46110002.Text) & ", jumlahbarang=" & Val(JB_46110002.Text) & " where kodebarang='" & KB1_46110002.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        KB1_46110002.Text = " "
        KB2_46110002.Text = " "
        NB_46110002.Text = " "
        HJ_46110002.Text = " "
        JB_46110002.Text = " "

    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 29

·         Klik star debugging, trus klik latihan 29

·          Maka akan muncul hasil seperti ini

 

·         Lalu click “simpan” maka data yang diubah akan berubah dan tersimpan pada data “databarang”.