Latihan_31B_46110022
Deskripsi
Form Latihan_31B_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 31B_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_31B_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 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
If ega46110022.Text <> kode46110022.Text Then
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")
ega46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Exit Sub
End If
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='" & ega46110022.Text & "'", go)
go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
ega46110022.Text = "-"
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Latihan_31A_46110022.ambildata()
Me.Close()
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 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
If ega46110022.Text <> kode46110022.Text Then
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")
ega46110022.Text = ""
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Exit Sub
End If
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='" & ega46110022.Text & "'", go)
go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
ega46110022.Text = "-"
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Latihan_31A_46110022.ambildata()
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 31B 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
