Latihan_34c_36110040

v Tahap Penyelesaian Latihan_34B_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_34B_36110040

4.      Buat Form Latihan_34B dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_34c_36110040

    'Mendeklarasikan object connection

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = D:\rahmi punya\semester 5\aplikasi komputer 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

    Private Sub Tambah()

        'Perintah memeriksa kodebarang yang sama dengan table sumber

        Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

        Periksa.AturPencarianDataBase("Barang", "KodeBarang", Kode36110040.Text, 1, Jembatan)

        If Periksa.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 ( '" & Kode36110040.Text & "', '" & Nama36110040.Text & "'," & Val(Harga36110040.Text) & ", " & Val(Jumlah36110040.Text) & ")", Jembatan)

        'Membuka object connection

        Jembatan.Open()

        'Menjalankan perintah object command

        Ambil.ExecuteNonQuery()

        'Menutup object connection

        Jembatan.Close()

        'Menghapus perintah object command

        Ambil.Dispose()

    End Sub

    Private Sub Edit()

        'Perintah memeriksa kodebarang yang sama dengan table sumber

        If Kode36110040.Text <> ToolStripStatusLabel2.Text Then

            Dim Cari As New ByIskandar.CariKeDataBaseByIskandar

            Cari.AturPencarianDataBase("Barang", "KodeBarang", Kode36110040.Text, 1, Jembatan)

            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 = '" & Kode36110040.Text & "', Namabarang = '" & Nama36110040.Text & "', Hargajual = " & Val(Harga36110040.Text) & ", Jumlahbarang = " & Val(Jumlah36110040.Text) & " Where Kodebarang = '" & ToolStripStatusLabel2.Text & "'", Jembatan)

        'Membuka object connection

        Jembatan.Open()

        'Menjalankan perintah object command

        Ambil.ExecuteNonQuery()

        'Menutup object connection

        Jembatan.Close()

        'Menghapus perintah object command

        Ambil.Dispose()

    End Sub

    Private Sub Simpan36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan36110040.Click

        'Proses memeriksa textbox yang masih kosong

        If Kode36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If Nama36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Nama Barangnya")

            Exit Sub

        End If

        If Val(Harga36110040.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        'Memilih perintah update atau insert

        If ToolStripStatusLabel2.Text = "-" Then

            'Menjalankan perintah insert

            Tambah()

        Else

            'Menjalankah perintah update

            Edit()

        End If

        'Mengosongkan kembali isi textbox

        Kode36110040.Text = ""

        Nama36110040.Text = ""

        Harga36110040.Text = ""

        Jumlah36110040.Text = ""

        ToolStripStatusLabel2.Text = "-"

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_34b_36110040.Isi()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai

v Deskripsi Latihan_34C_36110040

Form Latihan_34C_36110034  terdapat tiga object yaitu label,textbox,button, groupbox, StatusStrip, toolstripstatuslebel :

Object Label

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

Object textbox

Terdapat  empat object textbox bertuliskan( kode barang, nama barang, harga jual, dan jumlah barang), semua textbox ini berstatus input , yang jika salah satu kode barang dipilih dan objek tombol button tambah atau edit diklik pada form latihan 34B dimana penambahan atau perubahan data pada tabel barang tersebut dapat terlihat pada form latihan sebelumnya atau di MS.Access.

Object statusstrip

Terdapat satu objek statusstrip yang dapat memunculkan toolstripstatus berupa lebel dll.

Object ToolStripStatusLebel

Terdapat dua objek toolstripstatuslebel yang terdapat pada form latihan ini. Dan pada objek toolstripstatuslebel yang pertama bertuliskan kode barang lama, sedangkan pada objek toolstripstatuslebel yang kedua yang properti bordersides yang berstatus all dan properti text yang dikosongkan dan objek ini menampilkan kode barang yang akan di ubah jika pada form latihan sebelumnya diklik tombol button edit dan adapabila tombol button  tambah yang diklik maka objek ini tidak akan terisi.

Properti

Toolstripstatuslebel1 => properties => text => kode barang lama => ok

Toolstripstatuslebel2 => properties => bordersides => all => ok

                                 =>properties => name => KBL_36110040 => ok

Object button

Terdapat satu object button yang bertuliskan SIMPAN , object button ini berguna untuk menyimpan perubahan atau penambahan kode barang pada tabel barang yang ingin di ganti ataupun di tambah dan telah muncul pada masing-masing textbox, yang kemudian perubahan atau penambahan kode barangnya dapat dilihat pada tabel barang di form latihan 34B. Form ini hanya memudahkan kita untuk melihat tabel barang tanpa harus membuka MS. Access.

Script Unique 

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