Latihan_32B_46110022
Deskripsi Form Latihan_32B_46110022
Dalam
form ini terdapat 3 buah object yaitu label, textbox dan button.
Object Label
Terdapat 4 object label yaitu
kode barang, nama barang, harga jual dan 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.
Script Unique
___
Even
Click
Langkah-Langkah Membuat Form Latihan 32B_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 :
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
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
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()
kode46110022.Text = " "
nama46110022.Text = " "
harga46110022.Text = " "
jml46110022.Text = " "
Latihan_32A_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 32B seperti berikut :
8. Selamat mencoba, semoga berhasil :)
Postingan
