Deskripsi Form :
Pada Latihan ini, terdapat 2 form yang saling terkait yaitu form “Latihan_31a_46110021” dan form “Latihan_31b_46110021”
I. Latihan_31a_46110021
Form Latihan ini Terdapat 3 object yaitu datagridview, label, dan button:
A. Object datagridview
Pada form ini, hanya terdapat 1 datagridview. Object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan
B. Object Label
Terdapat 1 label yaitu "DAFTAR BARANG"
C. Object Button
Object button ada 1 yaitu edit. berguna untuk memunculkan form Latihan_31b_46110021
II. Latihan_31b_46110021
Form Latihan ini Terdapat 4 object yaitu label, statusstrip, textbox,dan button:
A. Object Label.
Pada form ini, terdapat 4 label yaitu label kode barang, nama barang, harga jual, dan jumlah barang
B. Object Statusstrip.
Pada form ini terdapat 2 statusstrip yaitu kode barang, dan -
C. Object textbox
Object ini berjumlah 4.
D. Object button.
Object button terdapat 1 yaitu, simpan yang berfungsi untuk menyimpan hasil isian dari text box
Cara Membuat Form
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. Lakukan langkah yang sama dengan point A, B untuk membuat form Latihan_31b_46110021. lalu buat desain untuk form 31b seperti dibawah ini
F. Setelah itu, klik kanan lalu pilih view code. Untuk memudahkan, masukkan dulu code yang akan dijalankan pada form “Latihan_31b_46110021”
Public Class Latihan_31b_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 Simpan_46110021.Click
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
If
ganti.Text <> Kode_46110021.Text Then
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")
Kode_46110021.Text = " "
Nama_46110021.Text = " "
Harga_46110021.Text = " "
Jumlah_46110021.Text = " "
Exit
Sub
End
If
End If
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.Text
& "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
ganti.Text = "-"
Kode_46110021.Text = " "
Nama_46110021.Text = " "
Harga_46110021.Text = " "
Jumlah_46110021.Text = " "
Latihan_31a_46110021.ambildata()
Me.Close()
End Sub
End Class
G. Setelah itu baru masukkan code ini pada “Latihan_31a_46110021”
Public Class Latihan_31a_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 Latihan31a_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ambildata()
DataGridView1_46110021.DataSource =
ambil
End Sub
Private Sub EDit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Edit_46110021.Click
If
Latihan_31b_46110021.Visible = False Then
Latihan_31b_46110021.Show()
Else
Latihan_31b_46110021.Activate()
End If
Latihan_31b_46110021.ganti.Text =
DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
Latihan_31b_46110021.Kode_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
Latihan_31b_46110021.Nama_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("namabarang").Value
Latihan_31b_46110021.Harga_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("hargajual").Value
Latihan_31b_46110021.Jumlah_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("JumlahBarang").Value
End Sub
End Class
Script Unik
TIDAK ADA SCRIPT UNIK
New Toolbox
statusstrip
Langkah untuk menjalankan form ini :
A. Klik start debugging.
B. Data akan secara otomatis muncul pada object datagridview pada Latihan_31a_46110021. untuk menedit data tekan tombol edit
C. Ketika tombol edit di tekan maka akan muncul jendela "Latihan_31b_46110021" lalu isilah text box yang ada di fiorm tsb dan klik simpan untuk menyimpan data.