Latihan_27_46110037

Deskripsi Form Latihan 27

Pada Latihan ini terdapat 3 object yaitu Label, Textbox dan Button.

Object Label

Pada Latihan_ini terdapat 5 Label yaitu Pengimputan Barang; Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang.

Object Textbox

Terdapat 4 Textbox yang berstatus Input yaitu Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang.

Object Button

Terdapat 1 button yaitu tombol Simpan. Apabila tombol ini diclick maka data yang di input akan muncul pada form yang telah ditentukan

Script Unique

*  Menghubungkan Visual Basic ke Data Access

Dim cari As New ByIskandar.CariKeDataBaseByIskandar

* Mengantisipasi data yang dimasukkan tidak lengkap dan jangan lanjut ke proses selanjutnya

If Kod46110037.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

* Pencarian untuk mengantisipasi ada data yang sudah ada

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, conect)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

*  Memasukkan data dari visual Basic ke dalam data Access

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kod46110037.Text & "','" & NamaBarg46110037.Text & "'," & Val(Hjual46110037.Text) & "," & Val(JumBar46110037.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

Even

Load

Click

Property

Default

Langkah-Langkah Menjalankan Form Latihan 27

Click Start Debugging. Kemudian masukkan data pada semua textbox yang berstatus input, setelah itu click tombol Simpan, maka data yang di inout tersseput akan tersimpan pada file data Access yang telah diatur sebelumnya di script

Langkah-langkah Menyelesaikan Form Latihan 27

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas Latihan 27 dengan menggunakan Label, Textbox dan Button
• Ganti nama Textbox dan Button di properties-Name
• Click Kanan pada design Latihan 27, kemudian ketik script seperti dibawah ini:

Public Class LATIHAN_27_46110037

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

---------------------------------------------------------------------------

    Private Sub SIMPAN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110037.Click

        If Kod46110037.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If NamaBarg46110037.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(Hjual46110037.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JumBar46110037.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, conect)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

       

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kod46110037.Text & "','" & NamaBarg46110037.Text & "'," & Val(Hjual46110037.Text) & "," & Val(JumBar46110037.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        Kod46110037.Text = ""

        NamaBarg46110037.Text = ""

        Hjual46110037.Text = ""

        JumBar46110037.Text = ""

    End Sub

End Class

• Click Start Debugging untuk menjalankan form