Latihan_27_46110002

Deskripsi Form Latihan 27

Pada form latihan 27 ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 5 label pada form latihan 27 (Penginputan Data, Kode Barang, Nama Barang, Harga Jual, dan  Jumlah Barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diinput.

Script Unique

perintah untuk memerisa data, apakah telah diisi secara lengkap atau tidak

  If Val(KB_46110002.Text.Length) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

perintah ambil data, apakah data tersebut telah diinput

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG","KODEBARANG",KB_46110002.Text, 1, Jalan)

If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            KB_46110002.Text = " "

            NB_46110002.Text = " "

            HJ_46110002.Text = " "

            JB_46110002.Text = " "

            Exit Sub

        End If

mengosongkan text box

KB_46110002.Text = " "

NB_46110002.Text = " "

HJ_46110002.Text = " "

JB_46110002.Text = " "

Langkah-Langkah Penyelesaian Form Latihan_27_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_27_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Lalu masukkan text pada properties khusus untuk object label dan button

·         Setelah itu beri nama pada properties

·         Setelah itu,cari tab "solution explorer" lalu buka references klik kanan lalu add references. klik browse dan add references "byiskandar.dll. Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_27_46110002
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click
        If Val(KB_46110002.Text.Length) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If NB_46110002.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(HJ_46110002.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(JB_46110002.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110002.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")


            KB_46110002.Text = " "
            NB_46110002.Text = " "
            HJ_46110002.Text = " "
            JB_46110002.Text = " "
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB_46110002.Text & "','" & NB_46110002.Text & "', " & Val(HJ_46110002.Text) & "," & Val(JB_46110002.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        KB_46110002.Text = " "
        NB_46110002.Text = " "
        HJ_46110002.Text = " "
        JB_46110002.Text = " "
    End Sub

End Class

 

Langkah-Langkah Menjalankan Form Latihan 27

·         Klik star debugging, trus klik latihan 27

·          Maka akan muncul hasil seperti ini

·         Klik tombol simpan maka data yang telah diinput akan teriput pada database “databarang”