Latihan_29_46110022
Dalam form ini terdapat 4 buah
object yaitu label, textbox, button dan group box.
Object
Label
Terdapat 6 object label yaitu kode barang(2), nama
barang, harga jual, jumlah barang dan kode barang yang akan diganti datanya.
Object
Textbox
Terdapat 5 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 Group Box
Terdapat 2 buah object groupbox yang berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.
Script
Unique
__
Even
Click
Langkah-Langkah
Membuat Form Latihan 29_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_29_46110022
Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
If kode46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If kode46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If nama46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If Val(harga46110022.Text) = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If Val(jml46110022.Text) = 0 Then
MsgBox("Please 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")
tb46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Exit Sub
End If
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='" & tb46110022.Text & "'", go)
go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
tb46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
End Sub
End Class
Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
If kode46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If kode46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If nama46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If Val(harga46110022.Text) = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
If Val(jml46110022.Text) = 0 Then
MsgBox("Please 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")
tb46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Exit Sub
End If
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='" & tb46110022.Text & "'", go)
go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
tb46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
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 29 seperti berikut :
7. Isi kolom textbox seperti contoh di atas,
kemudian hasil akan tersimpan atau ditampilkan dalam database yang
bersangkutan.
8. Selamat mencoba, semoga berhasil :)
Postingan
