Deskripsi_Latihan_33B_36110054

Cara Membuat Progam/Apliaksi Latihan 33B

Dengan Software Microsoft Visual Basic 2008

Form Latihan 33B terdapat empat object yaitu StarusStrip,label,TextBox, dan Button

Object  Label 

Tedapat empatobject label yang di beri  kode barang, nama barang, harga barang, dan jumlah barang

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

Object  TextBox

Terdapat empat textbox status input digunakan untuk memasukkan nilai

Atau text Nomor dan Jenis.

Object  Button

 terdapat sabuah object button yang diberi nama Simpan di gunakan untuk mejalankan

 Script Unique

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

Even

Button Click

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_33B_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")

   

    Private Sub TAMBAHCULLANK()

        Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

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

        If Periksa.JumlanBaris > 0 Then

            MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain")

            Exit Sub

        End If

        Dim RURU As New OleDb.OleDbCommand

        RURU = New OleDb.OleDbCommand("Insert Into BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) " & _

        "Values ( '" & kdebrg_36110054.Text & "', '" & namabrg_36110054.Text & "'," & Val(hrgjual_36110054.Text) & ", " & Val(jmlbrg_36110054.Text) & ")", Ruslan)

        Ruslan.Open()

        RURU.ExecuteNonQuery()

        Ruslan.Close()

        RURU.Dispose()

    End Sub

    Private Sub editCULLANK()

        If kdebrg_36110054.Text <> KBL_36110054.Text Then

            Dim Cari As New ByIskandar.CariKeDataBaseByIskandar

            Cari.AturPencarianDataBase("BARANG", "KODEBARANG", kdebrg_36110054.Text, 1, Ruslan)

            If Cari.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 = '" & kdebrg_36110054.Text & "', NAMABARANG = '" & namabrg_36110054.Text & "', HARGAJUAL = " & Val(hrgjual_36110054.Text) & ", JUMLAHBARANG = " & Val(jmlbrg_36110054.Text) & " Where KODEBARANG = '" & KBL_36110054.Text & "'", Ruslan)

        Ruslan.Open()

        RURU.ExecuteNonQuery()

        Ruslan.Close()

        RURU.Dispose()

    End Sub

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

        If kdebrg_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 KBL_36110054.Text = "-" Then

            TAMBAHCULLANK()

        Else

            editCULLANK()

        End If

        kdebrg_36110054.Text = ""

        namabrg_36110054.Text = ""

        hrgjual_36110054.Text = ""

        jmlbrg_36110054.Text = ""

        KBL_36110054.Text = "-"

        Latihan_33A_36110054.cullank()

    End Sub

End Class