Latihan 34c

Deskripsi

1. Objek textbox
terdapat 4 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit.

2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi hasil edit sebuah data yang ada di tabel pada latihan 34b

3. objek statusstrip
 pada objek statusstrip terdapat 2 label (bertuliskan kode barang lama & tanda kurang [-]). label yang bertuliskan tanda kurang [-] akan diganti dengan kode barang yang ingin diedit

even :  ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. buat dulu koneksi antara project visual studio anda dengan file access. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html

6. masukkan reference baru kedalam project anda, jika belum ada. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/cara-memasukkan-reference-pada-project.html   

7. deklarasikan koneksi

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

8. buat private sub untuk tombol tambah pada latihan 34b

Private Sub tambah()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110008.Text & "','" & nb46110008.Text & "', " & Val(hs46110008.Text) & "," & Val(jb46110008.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        Latihan_34b_46110008.ambildata()
    End Sub

9. buat juga private sub untuk button edit pada latihan 34b

Private Sub replace()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110008.Text & "', namabarang = '" & nb46110008.Text & "', hargajual=" & Val(hs46110008.Text) & ", jumlahbarang=" & Val(jb46110008.Text) & " where kodebarang='" & edit46110008.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        Latihan_34b_46110008.ambildata()
    End Sub

10. pada button simpan, buat script berikut. tujuannya untuk memeriksa data, mengamnbil data, mengosongkan textbox input dan menutup form

 Private Sub simpan46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110008.Click
        If kb46110008.Text.Length = 0 Then
            MsgBox("mohon isi texbox ini")
            Exit Sub
        End If

        If nb46110008.Text.Length = 0 Then
            MsgBox("mohon isi texbox ini")
            Exit Sub
        End If

        If Val(hs46110008.Text) = 0 Then
            MsgBox("mohon isi texbox ini")
            Exit Sub
        End If

        If Val(jb46110008.Text) = 0 Then
            MsgBox("mohon isi texbox ini")
            Exit Sub
        End If

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

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("data sudah ada, silahkan masukkan data yang lain")

            kb46110008.Text = " "
            nb46110008.Text = " "
            hs46110008.Text = " "
            hs46110008.Text = " "
            Exit Sub
        End If

        If edit46110008.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        kb46110008.Text = " "
        nb46110008.Text = " "
        hs46110008.Text = " "
        hs46110008.Text = " "

        Me.Close()

    End Sub

11. untuk menjalankan form ini,klik input barang (pada sub menu/pada label di toolstrip) atau klik button tambah/edit pada form latihan 34b