latihan_33B_46110023

Deskripsi Form Latihan 33B

Dalam form latihan 33b terdapat 5 object yaitu object label, textbox, button dan statusstrip

 

Object label

Pada laihan 33b terdapat 5 object label yang bertuliskan “pengimputan barang”, “ kode barang”, “ nama barang”, “hargajual”, “ jumlah barang”.

 

Object StatusStrip

ada 2 object status strip yang digunakan yang bertuliskan “kode barang lama” dan “-“. Tanda “-“ nantinya akan menampilkan kode barang.

 

Oject button

Hanya terdapat 1 object button yang bertuliskan simpan.

Langkah- langkah membuat form latihan 33B

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add windows form :

 

3.    Setelah itu ganti nama form lalu pilih add:

 

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

 

Setelah muncul halaman baru, masukkan script seperti dibawah ini:

 

Public Class LATIHAN_33B_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110023.Text & "','" & nama_46110023.Text & "'," & Val(harga_46110023.Text) & "," & Val(jumlah_46110023.Text) & ")", dian)
        dian.Open()
        Cm.ExecuteNonQuery()
        dian.Close()
        Cm.Dispose()

        LATIHAN_33A_46110023.ambildata()
    End Sub
    Private Sub ganti()

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110023.Text & "', namabarang = '" & nama_46110023.Text & "', hargajual=" & Val(harga_46110023.Text) & ", jumlahbarang=" & Val(jumlah_46110023.Text) & " where kodebarang='" & ganti_46110023.Text & "'", dian)
        dian.Open()
        Cm.ExecuteNonQuery()
        dian.Close()
        Cm.Dispose()

        LATIHAN_33A_46110023.ambildata()
    End Sub

    Private Sub simpan_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110023.Click

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

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

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

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

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode_46110023.Text, 1, dian)

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

            kode_46110023.Text = ""
            nama_46110023.Text = ""
            harga_46110023.Text = ""
            jumlah_46110023.Text = ""
            Exit Sub
        End If

        If ganti_46110023.Text = "-" Then
            tambah()
        Else
            ganti()
        End If

        kode_46110023.Text = ""
        nama_46110023.Text = ""
        harga_46110023.Text = ""
        jumlah_46110023.Text = ""

        Me.Close()
    End Sub
End Class

 

 

 Langkah –Langkah Menjalankan Latihan 33B

1.    Untuk melihat hasil dari form 33b, klik star debugging

3.    Setelah itu input data yang ingin diedit

4.    lalu pilih simpan.

5.    Selamat mencoba.

 

Script unique

Tidak ada script unik pada latihan ini, karena scriptnya sama dengan laihan-latihan sebelumnya.

 

even

click