Deskripsi Form :
Form Latihan ini Terdapat 3 object yaitu label, textbox,dan button:
A. Object Label.
Pada form ini, terdapat 5 label yaitu Penginputan Barang, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang.
B. Object Textbox.
Terdapat 4 text box input yang berguna untuk memasukkan data yang diinginkan.
C. Object Button
Object button ada 1 yaitu simpan. berguna untuk menyimpan data yang telah di input ke dalam text box dan disimpan kedalam database "databarang.accdb"
Cara Membuat Form
saya sarankan anda untuk pertama-tama memasukkan file database "databarang.accdb" ke dalam bin\debug di folder project anda
A. Buka project anda, lalu pilih “Project” pada menu bar dan pilih add windows form.
B. Masukkan nama form yang sesuai dengan kemauan anda lalu tekan “add”.
C. Buatka desain form sesuai dengan gambar dibawah ini, lihat dan sesuaikan dengan deskripsi agar tidak salah memilih object.
D. Ubah nama object tersebut. Ingat, nama object di desain harus sama dengan nama object di rumus vb.
E. Setelah itu,cari tab "solution explorer" lalu buka references pada project anda. lalu add references. klik browse dan add references "byiskandar.dll". setelah itu, klik kanan lalu pilih view code untuk memasukkan fungsi dan masukkan fungsi yang sesuai. Atau masukkan fungsi dibawah ini.
Public Class Latihan_27_46110021
Dim conect As New
OleDb.OleDbConnection("provider =
microsoft.ace.oledb.12.0;data source=" &
Application.StartupPath & "\databarang.accdb;Jet
OLEDB:Database Password=25")
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_46110021.Click
If
Val(Kode_46110021.Text.Length) = 0 Then
MsgBox("kode
barang belum terisi")
Exit
Sub
End If
If
Nama_46110021.Text.Length = 0 Then
MsgBox("nama
barang belum terisi")
Exit
Sub
End If
If
Val(Harga_46110021.Text) = 0 Then
MsgBox("harga
jual belum diisi")
Exit
Sub
End If
If
Val(Jumlah_46110021.Text) = 0 Then
MsgBox("jumlah
barang belum diisi")
Exit
Sub
End If
Dim
cari As New
ByIskandar.CariKeDataBaseByIskandar
cari.AturPencarianDataBase("BARANG", "KODEBARANG",
Kode_46110021.Text, 1, conect)
If
cari.JumlanBaris > 0 Then
MsgBox("kode
sudah ada")
Kode_46110021.Text = ""
Nama_46110021.Text = ""
Harga_46110021.Text = ""
Jumlah_46110021.Text = ""
Exit
Sub
End If
Dim com As New OleDb.OleDbCommand
com = New
OleDb.OleDbCommand("insert into BARANG
(kodebarang, namabarang, hargajual, jumlahbarang) values ('" &
Kode_46110021.Text & "','"
& Nama_46110021.Text & "',"
& Val(Harga_46110021.Text) & ","
& Val(Jumlah_46110021.Text) & ")",
conect)
conect.Open()
com.ExecuteNonQuery()
conect.Close()
com.Dispose()
Kode_46110021.Text = ""
Nama_46110021.Text = ""
Harga_46110021.Text = ""
Jumlah_46110021.Text = ""
End Sub
End Class
Script Unik
A. Dim cari As New ByIskandar.CariKeDataBaseByIskandar --> script ini untuk mendeklarasikan Cari sebagai fungsi untuk mencari data sesuai dengan fungsi yang ada dalam byiskandar.dll
B. " conect.Close() " -> fungsi ini untuk menutup connection
Langkah untuk menjalankan form ini :
A. Klik start debugging.
B. Isi text box sesuai dengan keinginan. lalu tekan button simpan