Latihan_28B_4110022
Deskripsi Form Latihan_28B_46110022
Dalam
form ini terdapat 3 buah object yaitu label, textbox dan button.
Object Label
Terdapat
5 object label yaitu penginputan data,
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
2. Perintah untuk menjalankan prosedur pengambilan data :
Latihan_28A_46110022.ambildata()
3.
Perintah untuk menutup form :
Me.Close()
Even
Click
Langkah-Langkah Membuat Form Latihan 28B_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_28A_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 28B 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
