latihan_30B_46110004

Deskripsi form latihan 30b
Dalam form Latihan 30b hanya terdapat empat object yaitu Label, Textbox, Button dan Groupbox.

Object Label :
Dalam form ini terdapat enam buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

Object Textbox :
Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Object Groupbox :
Dalam form ini terdapat 2 buah object groupboxGroup box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Button click

Langkah-langkah penyelesaian form latihan 30B

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_30B_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_30B_46110004

Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")

Dim cari As New ByIskandar.CariKeDataBaseByIskandar

Private Sub simpan_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110004.Click

'perintah periksa data

If kb_46110004.Text.Length = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

End If

If nb_46110004.Text.Length = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

End If

If Val(hj_46110004.Text) = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

End If

If Val(jb_46110004.Text) = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

End If

'perintah ambil data

If ganti_46110004.Text <> kb_46110004.Text Then

cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb_46110004.Text, 1, connect)

If cari.JumlanBaris > 0 Then

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

'mengosongkan text box

kb_46110004.Text = " "

nb_46110004.Text = " "

hj_46110004.Text = " "

jb_46110004.Text = " "

Exit Sub

End If

'deklarasi object command

Dim Cm As New OleDb.OleDbCommand

Cm = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & kb_46110004.Text & "', NAMABARANG = '" & nb_46110004.Text & "', HARGAJUAL=" & Val(hj_46110004.Text) & ", JUMLAHBARANG=" & Val(jb_46110004.Text) & " where KODEBARANG='" & ganti_46110004.Text & "'", connect)

connect.Open()

Cm.ExecuteNonQuery()

connect.Close()

Cm.Dispose()

'mengosongkan text box

ganti_46110004.Text = " "

kb_46110004.Text = " "

nb_46110004.Text = " "

hj_46110004.Text = " "

jb_46110004.Text = " "

'mengambildata

latihan_30A_46110004.ambildata()

'menutup form

Me.Close()

End Sub

End Class

5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 28a lalu klik tombol "edit" yang ada di latihan 28a seperti gambar di bawah ini: