Latihan_32c_36110029

 v     Deskripsi Latihan_32c_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_32a_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_32c_36110029

Even

simpan_36110029_Click

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

Public Class Latihan_32c_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
        '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

        '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()

        '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_32a_36110029.cucu()
    End Sub
End Class

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