DESKRIPSI
LATIHAN
Pada latihan ini ada 2
form yang akan dibuat, yaitu Latihan_33a_46110021, dan Latihan_33b_46110021
I.
Latihan_33a_46110021
Pada form ini terdapat 3 jenis object,
yaitu label, datagridview, dan button
A. Object
Label.
Pada form ini, terdapat 1 label yang
bertuliskan “Daftar Barang”
B. Object
Datagridview
Pada form ini terdapat 1 datagrid view
yang akan memunculkan datatable yang berasal dari data base.
C. Object
Button
Pada form ini, terdapat 3 button, yaitu Hapus,
Tambah dan Edit. Tambah dan edit berfungsi untuk memunculkan Latihan_33b_46110021,
sedangkan tombol hapus berfungsi untuk menghapus data yang dipilih.
II.
Latihan_33b_46110021
Pada form ini terdapat 4 jenis object,
yaitu label, Textbox satusstrip dan button
A. Object
Label.
Pada form ini, terdapat 4 label yaitu
Kode barang, Nama Barang, Harga jual, dan Jumlah barang
B. Object
TextBox
Terdapat 4 text box yang berfungsi
sebagai tempat untuk menginput data
C. Object
Statusstrip
Terdapat 2 status strip yaitu kode
barang dan -
D. Object
Button
Terdapat 1 button yaitu simpan yang
berfungsi untuk menyimpan data yang telah dimasukkan ke dalam text box
CARA MEMBUAT FORM
A. Pertama
buka project yang anda buat, lalu pada menu bar pili add windows form…
B. Ubah
nama form sesuai dengan yang diinginkan lalu tekan tombol ADD
C. Buatlah
desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam
form dengan deskripsinya agar tidak salah memilih object.
D. Ubah
nama setiap object kecuali bject label. Dengan cara mengganti “Name” di
Properti bar.
E. Lakukan
kembali point A dan B untuk membuat form Latihan_33b_46110021. Lalu lakukan
langkah yang ada dalam point C tetapi desainnya seperti dibawah ini. Lakukan kembali
point D.
F.
Setelah itu masukkan code pada form
Latihan_33b_46110021 dengan cara klik kanan pada masing2 form dan masukkan kode
dibawah ini.
Public Class Latihan_33b_46110021
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub tambah()
'deklarasi
object command
Dim Cm As New
OleDb.OleDbCommand
Cm = 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) & ")",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33a_46110021.ambildata()
End Sub
Private Sub replace()
'deklarasi
object command
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
kodebarang ='" & kode_46110021.Text & "', namabarang = '" &
nama_46110021.Text & "', hargajual="
& Val(harga_46110021.Text) & ",
jumlahbarang=" & Val(jumlah_46110021.Text) & " where kodebarang='" & ganti_46110021.Text
& "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33a_46110021.ambildata()
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_46110021.Click
'perintah
periksa data
If
kode_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
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kode_46110021.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
'mengosongkan
text box
kode_46110021.Text = " "
nama_46110021.Text = " "
harga_46110021.Text = " "
jumlah_46110021.Text = " "
Exit
Sub
End If
If
ganti_46110021.Text = "-" Then
tambah()
Else
replace()
End If
'mengosongkan
text box
kode_46110021.Text = " "
nama_46110021.Text = " "
harga_46110021.Text = " "
jumlah_46110021.Text = " "
'menutup form
Me.Close()
End Sub
End Class
G. Setelah
itu, masukkan kode untuk Latihan_33a_46110021
Public Class Latihan_33a_46110021
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Dim ambil As New DataTable
Public Sub ambildata()
Dim
data As New
OleDb.OleDbDataAdapter
data = New
OleDb.OleDbDataAdapter("SELECT* FROM
barang", Jalan)
ambil.Rows.Clear()
data.Fill(ambil)
data.Dispose()
End Sub
Private Sub Latihan33a_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ambildata()
DataGridView1_46110021.DataSource =
ambil
End Sub
Private Sub tambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tambah_46110021.Click
If
Latihan_33b_46110021.Visible = False Then
Latihan_33b_46110021.Show()
Else
Latihan_33b_46110021.Activate()
End If
Latihan_33b_46110021.ganti_46110021.Text = "-"
Latihan_33b_46110021.kode_46110021.Text
= " "
Latihan_33b_46110021.nama_46110021.Text
= " "
Latihan_33b_46110021.harga_46110021.Text = "
"
Latihan_33b_46110021.jumlah_46110021.Text = "
"
End Sub
Private Sub EDit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles edit_46110021.Click
If
Latihan_33b_46110021.Visible = False Then
Latihan_33b_46110021.Show()
Else
Latihan_33b_46110021.Activate()
End If
Latihan_33b_46110021.ganti_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110021.kode_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110021.nama_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("namabarang").Value
Latihan_33b_46110021.harga_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("hargajual").Value
Latihan_33b_46110021.jumlah_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("JumlahBarang").Value
End Sub
Private Sub delete_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus_46110021.Click
If MsgBox("Seriously you want to delete the data???",
MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit
Sub
End If
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand(" delete * from barang
where kodebarang ='" & DataGridView1_46110021.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
ambildata()
End Sub
End Class
SCRIPT UNIK
TIDAK ADA SCRIPT UNIK
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih
tombol start debugging lalu pilih form Latihan_33_46110021, maka jendela
Latihan_33a_46110021 akan muncul
B. Jika
anda ingin menambahkan data maka pilih button Tambah yang ada pada Latihan_33a_46110021,
maka jendela Latihan_33b_46110021 akan muncul. jika ingin mengedit data maka pilih button
edit yang ada pada Latihan_33a_46110021, maka jendela Latihan_33b_46110021 akan
muncul. Tetapi jika ingin menghapus klik button Hapus , dan data yang anda
pilih akan terhapus
C. Isi
text box yang ada pada form tersebut, lalu tekan button simpan