Latihan_28b_46110001

A.    Object-object dalam Latihan_28b_46110001

1.       Object button

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

2.      Object texbox

Pada form ini terdapat 4 object textbox yaitu (status input) yang digunakan dalam menginput data.

3.      Object label

Terdapat 5 label pada form latihan 28B (penginputan data, kode barang, nama barang, harga jual, dan  jumlah barang).

B.     Script Unique

Script unique dapat dilihat langsung pada form latihan_28b_46110001 namun Pada Latihan ini tidak  ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

C.     Even

ButtonClick

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 28b ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

·         Buatlah form seperti gambar dibawah ini,

·         Berikut ini adalah rumus untuk menjalankan form di atas\

Public Class Latihan_28b_46110001

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub simpan_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110001.Click

        'perintah periksa data

        If tb1_46110001.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If tb2_46110001.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(tb3_46110001.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(tb4_46110001.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        'perintah ambil data

        Dim bahri As New ByIskandar.CariKeDataBaseByIskandar

        bahri.AturPencarianDataBase("BARANG", "KODEBARANG", tb1_46110001.Text, 1, Jalan)

        If bahri.JumlanBaris > 0 Then

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

            'mengosongkan text box

            tb1_46110001.Text = " "

            tb2_46110001.Text = " "

            tb3_46110001.Text = " "

            tb4_46110001.Text = " "

            Exit Sub

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & tb1_46110001.Text & "','" & tb2_46110001.Text & "', " & Val(tb3_46110001.Text) & "," & Val(tb4_46110001.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengosongkan text box

        tb1_46110001.Text = " "

        tb2_46110001.Text = " "

        tb3_46110001.Text = " "

        tb4_46110001.Text = " "

        'menjalankan procedure pengambilan data

        Latihan_28a_46110001.ambildata()

        'menutup form

        Me.Close()

    End Sub

End Class

·         langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini