Latihan_29_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 29

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_29_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada TextBox sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_29_46110043

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

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

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

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

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

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

        'perintah ambil data

        If KODE46110043.Text <> KB46110043.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB46110043.Text, 1, CONECT)

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

                'mengosongkan text box
                KB46110043.Text = " "
                NB46110043.Text = " "
                HB46110043.Text = " "
                JB46110043.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB46110043.Text & "', namabarang = '" & NB46110043.Text & "', hargajual=" & Val(HB46110043.Text) & ", jumlahbarang=" & Val(JB46110043.Text) & " where kodebarang='" & KODE46110043.Text & "'", CONECT)
        CONECT.Open()
        Cm.ExecuteNonQuery()
        CONECT.Close()
        Cm.Dispose()

        'mengosongkan text box
        KODE46110043.Text = " "
        KB46110043.Text = " "
        NB46110043.Text = " "
        HB46110043.Text = " "
        JB46110043.Text = " "

    End Sub
End Class

    

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. 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 diganti datanya.

Object GroupBox                                                          

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

Script Unique

Mengganti data lama dengan data baru

If KODE46110043.Text <> KB46110043.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB46110043.Text, 1, CONECT)

            If PENCARI.JumlanBaris > 0 Then

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

                'mengosongkan text box

                KB46110043.Text = " "

                NB46110043.Text = " "

                HB46110043.Text = " "

                JB46110043.Text = " "

                Exit Sub

            End If

        End If

Even

ButtonClick

Langkah-Langkah Menjalankan Form Latihan 29

1. Input kode barang lama pada textbox yang tersedia.
2. Input data barang baru untuk menggantikan data barang lama pada textbox yang terserdia.