latihan_30B_46110023

Deskripsi Form Latihan 30B

Dalam form latihan 30b terdapat 4 object yaitu object label, textbox, button dan groupbox

Object label

Pada laihan 30b terdapat 5 object label yang bertuliskan “kode barang” pada groupbox 1, “ kode barang” pada groupbox2, “ nama barang”, “harga jual”, “jumlah barang”.

Object textbox

Terdapat 5 object textbox, yang semuanya berstatus input.

Oject button

Hanya terdapat 1 object button yang bertuliskan simpan. Button ini berfungsi untuk menyimpan data yang sudah diinput.

Object goupbox

Terdapat 2 object groupbox yaitu groupbox yang pertama berisi kode barang lama yang akan diedit. Dan groupbox yang ke2 berisi data barang baru yang telah diedit

Langkah- langkah membuat form latihan 30B

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add new windows :

3

.    Setelah itu ganti nama form lalu pilih add:

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

Setelah muncul halaman baru, masukkan script seperti dibawah ini:

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

    Private Sub simpan_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110023.Click
        If kode_46110023.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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

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

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

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

            kode1_46110023.Text = ""
            kode_46110023.Text = ""
            nama_46110023.Text = ""
            harga_46110023.Text = ""
            jumlah_46110023.Text = ""
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110023.Text & "', namabarang = '" & nama_46110023.Text & "', hargajual=" & Val(harga_46110023.Text) & ", jumlahbarang=" & Val(jumlah_46110023.Text) & " where kodebarang='" & kode1_46110023.Text & "'", dian)
        dian.Open()
        Cm.ExecuteNonQuery()
        dian.Close()
        Cm.Dispose()

        kode1_46110023.Text = ""
        kode_46110023.Text = ""
        nama_46110023.Text = ""
        harga_46110023.Text = ""
        jumlah_46110023.Text = ""
    End Sub
End Class

Langkah –Langkah Menjalankan Latihan 29

1.    Untuk melihat hasil dari form 30B, klik star debugging, lalu masukkan data yana anda inginkan pada tampilan yang ada.

2.    Setelah itu, pilih simpan. Maka data yang anda telah input akan tersimpan di file access “databarang”.

3.    Jika ada kesalahan pada rumus, program secara otomatis akan memperliatkannya.

4.    Selamat mencoba

Script unique

 Tidak ada script unik pada latihan ini, karena scriptnya sama dengan laihan-latihan sebelumnya.

even

click