Deskripsi_Latihan_29_36110054

Cara Membuat Progam/Apliaksi Latihan 29

Dengan Software Microsoft Visual Basic 2008

Form Latihan 29 terdapat tiga object yaitu Label, Textbox, dan Button

Object  Label

Terdapat enam object label yang diberi nama Kode barang sebanyak dua kali, nama barang, harga jual, jumlah barang, dan kode barang yang akan diganti.

Object  TextBox

Terdapat lima object textbox yang berstatus input dan digunakan untuk memasukannilai atau text kode barang yang akan diganti datanya, kode barang baru, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG.

Object  Button

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

 Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 29

Even

ButtonClick

Langkah 1 :

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 :

    Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah 3 :

    Rancanglah Form Seperti Gambar Berikut Berikut :

   Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_29_36110054

    Dim Ruslan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")

    Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub SIMPAN_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110054.Click

        If Kodebrg1_36110054.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barang yang Akan diganti")

            Exit Sub

        End If

        If kdebrg2_36110054.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If namabrg_36110054.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Nama Barangnya")

            Exit Sub

        End If

        If Val(hrgjual_36110054.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        If Val(jmlbrg_36110054.Text) = 0 Then

            MsgBox("Anda Harus Masukkan jumlah Barangnya")

            Exit Sub

        End If

        If Kodebrg1_36110054.Text <> kdebrg2_36110054.Text Then

            Periksa.AturPencarianDataBase("BARANG", "KODEBARANG", kdebrg2_36110054.Text, 1, Ruslan)

            If Periksa.JumlanBaris > 0 Then

                MsgBox("Kode Barang yang Baru Sudah Ada!")

                Exit Sub

            End If

        End If

        Dim ruru As New OleDb.OleDbCommand

        ruru = New OleDb.OleDbCommand("Update BARANG SET KODEBARANG = '" & kdebrg2_36110054.Text & "', NAMABARANG = '" & namabrg_36110054.Text & "', HARGAJUAL = " & Val(hrgjual_36110054.Text) & ", JUMLAHBARANG = " & Val(jmlbrg_36110054.Text) & " Where KODEBARANG = '" & Kodebrg1_36110054.Text & "'", Ruslan)

        Ruslan.Open()

        ruru.ExecuteNonQuery()

        Ruslan.Close()

        ruru.Dispose()

        Kodebrg1_36110054.Text = ""

        kdebrg2_36110054.Text = ""

        namabrg_36110054.Text = ""

        hrgjual_36110054.Text = ""

        jmlbrg_36110054.Text = ""

    End Sub

End Class