Latihan_33b_36110029

 v Deskripsi Latihan_33b_36110029

Object Label

Terdapat empat label (yang bertuliskan kode barang, nama barang, harga jual, dan jumlah barang).

Object Textbox

Terdapat empat textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan nilai: kode barang, 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. Data barang baru ini merupakan data barang yang telah dipilih untuk diedit dari datagridview pada form Latihan_33a_36110029.

Object StatusStrip

Terdapat satu object statusstrip. Pada statusstrip ini terdapat dua statuslabel (yang bertuliskan kode barang lama dan - )

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur  Latihan_33b_36110029

Even

simpan_36110029_Click

Tambah()

Edit()

 

v   Prosedur  Latihan_33b_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_33b_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_33b_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 Tambah()
        'Perintah memeriksa kodebarang yang sama dengan table sumber
        cari.AturPencarianDataBase("Barang", "KodeBarang", Kode_36110029.Text, 1, A)
        If cari.JumlanBaris > 0 Then
            MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain")
            Exit Sub
        End If

        'Mendeklarasikan object command
        Dim Ambil As New OleDb.OleDbCommand

        'Perintah memasukkan data ke database
        Ambil = New OleDb.OleDbCommand("Insert Into Barang (Kodebarang, Namabarang, Hargajual, Jumlahbarang) " & _
        "Values ( '" & Kode_36110029.Text & "', '" & Nama_36110029.Text & "'," & Val(Harga_36110029.Text) & ", " & Val(Jumlah_36110029.Text) & ")", A)

        'Membuka object connection
        A.Open()

        'Menjalankan perintah object command
        Ambil.ExecuteNonQuery()

        'Menutup object connection
        A.Close()

        'Menghapus perintah object command
        Ambil.Dispose()
    End Sub

    Private Sub Edit()
        'Perintah memeriksa kodebarang yang sama dengan table sumber
        If Kode_36110029.Text <> ToolStripStatusLabel3.Text Then
            cari.AturPencarianDataBase("Barang", "KodeBarang", Kode_36110029.Text, 1, A)
            If cari.JumlanBaris > 0 Then
                MsgBox("Kode Barang yang Baru Sudah Ada!")
                Exit Sub
            End If
        End If

        'Mendeklarasikan object command
        Dim Ambil As New OleDb.OleDbCommand

        'Perintah mengupdate data ke database
        Ambil = New OleDb.OleDbCommand("Update Barang SET Kodebarang = '" & Kode_36110029.Text & "', Namabarang = '" & Nama_36110029.Text & "', Hargajual = " & Val(Harga_36110029.Text) & ", Jumlahbarang = " & Val(Jumlah_36110029.Text) & " Where Kodebarang = '" & ToolStripStatusLabel3.Text & "'", A)

        'Membuka object connection
        A.Open()

        'Menjalankan perintah object command
        Ambil.ExecuteNonQuery()

        'Menutup object connection
        A.Close()

        'Menghapus perintah object command
        Ambil.Dispose()
    End Sub

    Private Sub Simpan_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110029.Click
        'Proses memeriksa textbox yang masih kosong
        If Kode_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

        'Memilih perintah update atau insert
        If ToolStripStatusLabel3.Text = "-" Then
            'Menjalankan perintah insert
            Tambah()
        Else
            'Menjalankah perintah update
            Edit()
        End If

        'Mengosongkan kembali isi textbox
        Kode_36110029.Text = ""
        Nama_36110029.Text = ""
        Harga_36110029.Text = ""
        Jumlah_36110029.Text = ""
        ToolStripStatusLabel3.Text = "-"

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public
        Latihan_33a_36110029.cucu()
    End Sub
End Class

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