Deskripsi Form :
Form Latihan ini Terdapat 4 object yaitu label, groupbox, textbox,dan button:
A. Object Label.
Pada form ini, terdapat 6 label yaitu kode barang dan kode barang yang akan diganti namanya yang berada dalam satu groupbox, lalu label kode barang, nama barang, harga jual, dan jumlah barang yang berada dalam satu group box
B. Object Groupbox.
Pada form ini terdapat 2 groupbox.
C. Object textbox
Object ini berjumlah 5.
D. Object Radiobutton.
Object button terdapat 1 yaitu, simpan yang berfungsi untuk menyimpan hasil isian dari text box
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,, klik kanan lalu pilih view code untuk memasukkan fungsi dan masukkan fungsi yang sesuai. Atau masukkan fungsi dibawah ini.
Public Class Latihan_29_46110021
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
'perintah
periksa data
If
Kode_46110021.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Kode1_46110021.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Nama_46110021.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(Harga_46110021.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(Jumlah_46110021.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
'perintah
ambil data
If
Kode_46110021.Text <> Kode1_46110021.Text Then
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
Kode1_46110021.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
'mengosongkan
text box
Kode1_46110021.Text = " "
Nama_46110021.Text = " "
Harga_46110021.Text = " "
Jumlah_46110021.Text = " "
Exit
Sub
End
If
End If
'deklarasi
object command
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
kodebarang ='" & Kode1_46110021.Text & "', namabarang = '" &
Nama_46110021.Text & "', hargajual="
& Val(Harga_46110021.Text) & ", jumlahbarang="
& Val(Jumlah_46110021.Text) & " where
kodebarang='" & Kode_46110021.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengosongkan
text box
Kode_46110021.Text = " "
Kode1_46110021.Text = " "
Nama_46110021.Text = " "
Harga_46110021.Text = " "
Jumlah_46110021.Text = " "
End Sub
End Class
Script Unik
A. If Kode_46110021.Text.Length = 0 Then
End If--> script ini untuk memeriksa data pada database
MsgBox("Plase Insert Your Text")
Exit Sub
End If--> script ini untuk memeriksa data pada database
B. Dim Cm As New OleDb.OleDbCommand-> fungsi ini untuk mendeklarasikan command
Langkah untuk menjalankan form ini :
A. Klik start debugging.
B. Isi text box sesuai dengan keinginan. lalu tekan button simpan