Latihan_34C_46110006

Deskripsi Form Latihan_34C_46110006

Pada form latihan 34C ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 4 label pada form latihan 34C (Kode Barang, Nama Barang, Harga Jual, Jumlah Barang).

Object TextBox                                                             

Terdapat 4 object textbox pada latihan 34C,dimana textbox ini berstatus input dan hasilnya akan menampilkan detail data barang yang telah diinput.

Objec Button

Terdapat 1 object Button yaitu SIMPAN berfungsi untuk menampilkan Data Barang yang telah diinput.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

 

Even

Button Click

Cara Membuat From Latihan 34C :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.      Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_34C_46110006”

3.      Buatlah desain seperti berikut :

       

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_34C_46110006

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

    Private Sub tambah()

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB_46110006.Text & "','" & NB_46110006.Text & "', " & Val(HJ_46110006.Text) & "," & Val(JB_46110006.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110006.ambildata()

    End Sub

    Private Sub replace()

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110006.Text & "', namabarang = '" & NB_46110006.Text & "', hargajual=" & Val(HJ_46110006.Text) & ", jumlahbarang=" & Val(JB_46110006.Text) & " where kodebarang='" & ganti_46110006.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110006.ambildata()

    End Sub

    Private Sub SIMPAN_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110006.Click

        'perintah periksa data

        If KB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        'perintah ambil data

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

        If PENCARI.JumlanBaris > 0 Then

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

            'mengosongkan text box

            KB_46110006.Text = " "

            NB_46110006.Text = " "

            HJ_46110006.Text = " "

            JB_46110006.Text = " "

            Exit Sub

        End If

        If ganti_46110006.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        'mengosongkan text box

        KB_46110006.Text = " "

        NB_46110006.Text = " "

        HJ_46110006.Text = " "

        JB_46110006.Text = " "

        'menutup form

        Me.Close()

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING. pilih tombol SIMPAN setelah menginput data barang.

2.      Selamat Mencoba.