Latihan_34c_36110029

v Deskripsi Latihan_34c_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_34b_36110029. Atau bisa juga data barang baru yang benar-benar baru akan diinput pada saat mengklik input barang di form Latihan_34a_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 Penyelesaian Latihan_34c_36110029.

Even

Tambah()

Edit()

Simpan_36110029_Click

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

Public Class Latihan_34c_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")

    Private Sub Tambah()
        'Perintah memeriksa kodebarang yang sama dengan table sumber
        Dim CARI As New ByIskandar.CariKeDataBaseByIskandar
        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 <> ToolStripStatusLabel2_36110029.Text Then
            Dim Cari As New ByIskandar.CariKeDataBaseByIskandar
            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 = '" & ToolStripStatusLabel2_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 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 ToolStripStatusLabel2_36110029.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 = ""
        ToolStripStatusLabel2_36110029.Text = "-"

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

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

Latihan_34b_36110029

v Deskripsi Latihan_34b_36110029

Object Label

Terdapat satu object label (yang bertuliskan daftar barang).

Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang dari form BARANG di Ms Access.

Object Button

Terdapat tiga object button (Hapus, Tambah, dan Edit). Button Hapus digunakan untuk menghapus data barang yang ada pada object datagridview. Button Tambah digunakan untuk menambah data barang baru ke dalam datagridview. Button Edit digunakan untuk mengedit daftar barang yang ada pada datagridview.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_34b_36110029.

Even

      cucu()

Latihan_34b_36110029_Load

Tambah_36110029_Click

Edit_36110029_Click

Hapus_36110029_Click

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

Public Class Latihan_34b_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 hana As New DataTable
    Public Sub cucu()
        'Mendeklarasikan prosedur tanpa parameter yang berlingkup public
        Dim B As New OleDb.OleDbDataAdapter
        B = New OleDb.OleDbDataAdapter("Select * From Barang", A)
        hana.Rows.Clear()
        B.Fill(hana)
        B.Dispose()
    End Sub
    Private Sub Latihan_34b_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Proses penggunaan prosedur tanpa parameter yang berlingkup public
        cucu()

        'Perintah menampilkan datatable ke datagridview
        data_36110029.DataSource = hana
    End Sub

    Private Sub Tambah_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110029.Click
        'Proses menampillkan form lain
        If Latihan_34c_36110029.Visible = False Then
            Latihan_34c_36110029.MdiParent = Me.MdiParent
            Latihan_34c_36110029.Show()
        Else
            Latihan_34c_36110029.Activate()
            Latihan_34c_36110029.WindowState = FormWindowState.Normal
            Latihan_34c_36110029.ToolStripStatusLabel2_36110029.Text = "-"
        End If

        'Mengosongkan kembali isi textbox
        Latihan_34c_36110029.Kode_36110029.Text = ""
        Latihan_34c_36110029.Nama_36110029.Text = ""
        Latihan_34c_36110029.Harga_36110029.Text = ""
        Latihan_34c_36110029.Jumlah_36110029.Text = ""
        Latihan_34c_36110029.ToolStripStatusLabel2_36110029.Text = "-"
    End Sub

    Private Sub Edit_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Edit_36110029.Click
        'Proses menampillkan form lain
        If Latihan_34c_36110029.Visible = False Then
            Latihan_34c_36110029.MdiParent = Me.MdiParent
            Latihan_34c_36110029.Show()
        Else
            Latihan_34c_36110029.Activate()
            Latihan_34c_36110029.WindowState = FormWindowState.Normal
        End If

        'Perintah menampilkan data yang ada di datagridview ke textbox
        Latihan_34c_36110029.Kode_36110029.Text = data_36110029.CurrentRow.Cells("Kodebarang").Value
        Latihan_34c_36110029.Nama_36110029.Text = data_36110029.CurrentRow.Cells("Namabarang").Value
        Latihan_34c_36110029.Harga_36110029.Text = data_36110029.CurrentRow.Cells("Hargajual").Value
        Latihan_34c_36110029.Jumlah_36110029.Text = data_36110029.CurrentRow.Cells("Jumlahbarang").Value
        Latihan_34c_36110029.ToolStripStatusLabel2_36110029.Text = data_36110029.CurrentRow.Cells("Kodebarang").Value
    End Sub

    Private Sub Hapus_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_36110029.Click
        'Mendeklarasikan object command
        Dim Ambil As New OleDb.OleDbCommand

        'Perintah menghapus data ke database
        Ambil = New OleDb.OleDbCommand("Delete * From Barang Where KodeBarang = '" & data_36110029.CurrentRow.Cells("Kodebarang").Value & "'", A)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            'Membuka object connection
            A.Open()

            'Menjalankan perintah object command
            Ambil.ExecuteNonQuery()

            'Menutup object connection
            A.Close()

            'Menghapus perintah object command
            Ambil.Dispose()

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

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