Latihan_33B_46110022

18.43 by Unknown
Deskripsi Form Latihan_33B_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan status strip.

Object Label
Terdapat 4 object label yaitu  kode barang, nama barang, harga jual, jumlah barang.

Object Textbox
Terdapat 4 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Status Strip
Terdapat 1 buah object status strip yaitu kode barang lama.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 33B_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :


4. Input script di bawah ini :

Public Class Latihan_33B_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110022.Text & "','" & nama46110022.Text & "', " & Val(harga46110022.Text) & "," & Val(jml46110022.Text) & ")", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()

        Latihan_33A_46110022.ambildata()
    End Sub
    Private Sub ganti()

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110022.Text & "', namabarang = '" & nama46110022.Text & "', hargajual=" & Val(harga46110022.Text) & ", jumlahbarang=" & Val(jml46110022.Text) & " where kodebarang='" & kbl46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()

        Latihan_33A_46110022.ambildata()
    End Sub

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If kode46110022.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

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

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

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


            kode46110022.Text = ""
            nama46110022.Text = ""
            harga46110022.Text = ""
            jml46110022.Text = ""
            Exit Sub
        End If

        If kbl46110022.Text = "-" Then
            tambah()
        Else
            ganti()
        End If

        kode46110022.Text = ""
        nama46110022.Text = ""
        harga46110022.Text = ""
        jml46110022.Text = ""

        Me.Close()
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 33B seperti berikut :



     7. Isi kolom textbox seperti contoh di atas lalu klik tombol "simpan", kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

    8. Selamat mencoba, semoga berhasil :)




0 komentar
0 Responses

Langganan: Posting Komentar (Atom)