Deskripsi_Latihan_27_36110054

Cara Membuat Progam/Apliaksi Latihan 27

Dengan Software Microsoft Visual Basic 2008

 Object  Label

Tedapat lima object label yang di beri nama pegimput barang, kode barang, nama barang, harga barang, dan jumlah barang

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 27

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 From Seperti Gambar Berikut Berikut :

Langkah 4:

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_27_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 Simpan_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Simpan_36110054.Click

        If kdebrg_36110054.Text.Length = 0 Then

            MsgBox("Kode Barang Belum Terisi")

        End If

        If namabrg_36110054.Text.Length = 0 Then

            MsgBox("Nama Barang Belum Terisi")

        End If

        If Val(hrgjual_36110054.Text) = 0 Then

            MsgBox("Harga Jual Belum Terisi")

        End If

        If Val(jmlbrg_36110054.Text) = 0 Then

            MsgBox("Jumlah Barang Belum Terisi")

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

        kdebrg_36110054.Text = ""

        namabrg_36110054.Text = ""

        hrgjual_36110054.Text = ""

        jmlbrg_36110054.Text = ""

    End Sub

End Class