Latihan_30B_46110002

Deskripsi Form Latihan 30B

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

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

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

Click

Langkah-Langkah Penyelesaian Form Latihan_30B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_30B_46110002" pada name kemudian click add 

·         Buat form seperti berikut dengan menggunakan label, Text Box, GroupBox dan Button. 

·         Setelah itu beri nama pada properties

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

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_30B_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 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 KB_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='" & KB_46110002.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

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


        Latihan_30A_46110002.ambildata()

        Me.Close()

    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 30

·         Klik star debugging, trus klik latihan 30

·          Maka akan muncul hasil seperti ini

·         Lalu click “edit” maka akan muncul latihan 30B

·         Setelah diedit maka data pada latihn 30A akan berubah.