Latihan_29_36110029

v Deskripsi Latihan_29_36110029

Object Label

Terdapat enam label (yang bertuliskan kode barang sebanyak dua buah label, nama barang, harga jual, jumlah barang, dan kode barang yang akan diganti datanya).

            Object Textbox

Terdapat lima textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan nilai: kode barang yang akan diganti datanya, kode barang baru, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

Object Button

Terdapat satu object button (Simpan). Button Simpan digunakan untuk menyimpan data barang baru yang telah diinput pada textbox ke dalam form BARANG di Ms Access.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur  Latihan_29_36110029

Even

simpan_36110029_Click  

v   Prosedur  Latihan_29_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_29_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_29_36110029
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Simpan_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
        If Kode1_36110029.Text.Length = 0 Then
            MsgBox("Anda Harus Masukkan Kode Barang yang Akan diganti")
            Exit Sub
        End If
        If Kode2_36110029.Text.Length = 0 Then
            MsgBox("Anda Harus Masukkan Kode Barangnya")
            Exit Sub
        End If
        If Nama_36110029.Text.Length = 0 Then
            MsgBox("Anda Harus Masukkan Nama Barangnya")
            Exit Sub
        End If
        If Val(Harga_36110029.Text) = 0 Then
            MsgBox("Anda Harus Masukkan Harga Barangnya")
            Exit Sub
        End If

        If Kode1_36110029.Text <> Kode2_36110029.Text Then
            cari.AturPencarianDataBase("Barang", "KodeBarang", Kode2_36110029.Text, 1, A)
            If cari.JumlanBaris > 0 Then
                MsgBox("Kode Barang yang Baru Sudah Ada!")
                Exit Sub
            End If
        End If

        Dim Ambil As New OleDb.OleDbCommand

        Ambil = New OleDb.OleDbCommand("Update Barang SET Kodebarang = '" & Kode2_36110029.Text & "', Namabarang = '" & Nama_36110029.Text & "', Hargajual = " & Val(Harga_36110029.Text) & ", Jumlahbarang = " & Val(Jumlah_36110029.Text) & " Where Kodebarang = '" & Kode1_36110029.Text & "'", A)

        A.Open()

        Ambil.ExecuteNonQuery()

        A.Close()

        Ambil.Dispose()


        Kode1_36110029.Text = ""
        Kode2_36110029.Text = ""
        Nama_36110029.Text = ""
        Harga_36110029.Text = ""
        Jumlah_36110029.Text = ""
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.