A. Object-object dalam Latihan_33_46110001
Object-object dalam Latihan_33a_46110001
Pada form ini terdapat 3 jenis object,
yaitu label, datagridview, dan button
1.
Object
Label.
Pada form ini, terdapat 1 label yang
bertuliskan “Daftar Barang”
2.
Object
Datagridview
Pada form ini terdapat 1 datagrid view
yang akan memunculkan datatable yang berasal dari data base.
3.
Object
Button
Pada form ini, terdapat 3 button, yaitu
Hapus, Tambah dan Edit. Tambah dan edit berfungsi untuk memunculkan
Latihan_33b_46110001, sedangkan tombol hapus berfungsi untuk menghapus data
yang dipilih.
Object-object dalam Latihan_33B_46110001
Pada form ini terdapat 4 jenis object,
yaitu label, texbox,button, status trip
a. Object
Label.
Pada form ini, terdapat 4 label yaitu
Kode barang, Nama Barang, Harga jual, dan Jumlah barang”
b. Object
Texbox
Terdapat 4 text box yang berfungsi
sebagai tempat untuk menginput data
Pada form ini terdapat 1 datagrid view
yang akan memunculkan datatable yang berasal dari data base.
c. Object
Button
Terdapat 1 button yaitu simpan yang
berfungsi untuk menyimpan data yang telah dimasukkan ke dalam text box
d. Object status
strip
terdapat 2 status strip yaitu kode barang lama
B.
Script Unique
script
unique secara umum sudah diterapkan pada latihan2 sebelmunya, namun untuk lebih
jelasnya, script unique dapat diliha pada scfipt latihan_33a_46110001
C. Even
Button Click
D. Cara
Penyelesaian
·
Langkah pertama dalam
membuat form/ latihan 33 A dan 33B ialah, pada desktop anda, pilih
microsoft visual studio 2008.seperti pada langkah dibawah ini
·
Setelah itu pilih file
kemudian New setelah itu pilih project, maka akan muncul tampilan
seperti dibawah ini
·
Setelah langkah ke dua
selesai maka langkah selanjutnya adalah, pada tampilan project tersebut
silahkan anda mengganti nama form sesuai dengan yang anda inginkan
·
atau jika anda pernah
membuat form sebelumnya, maka langkah selanjutnya yang perlu anda lakukan adalah hanya dengan
membuat buat form baru dengan memilih project kemudian pilih add windows form, seperti pada gambar dibawah
ini.
·
Buatlah form seperti gambar dibawah ini,
I. FORM UNTUK LATIHAN 33A
·
II. FORM
UNTUK LATIHAN 33B
Berikut ini
adalah rumus untuk menjalankan form di atas
Public Class Latihan_33A_46110001
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()
'mendeklarasikan adapter
Dim data As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)
'bersihkan data dulu sebelum isi data lain
ambil.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
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()
DGV_46110001.DataSource = ambil
End Sub
Private Sub TAMBAH_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110001.Click
'Menampilkan form 33b
If Latihan_33b_46110001.Visible = False Then
Latihan_33b_46110001.Show()
Else
Latihan_33b_46110001.Activate()
End If
'mengosongkan textbox 33b
Latihan_33b_46110001.KB__46110001.Text = "-"
Latihan_33b_46110001.TB1_46110001.Text = " "
Latihan_33b_46110001.TB2_46110001.Text = " "
Latihan_33b_46110001.TB3_46110001.Text = " "
Latihan_33b_46110001.ganti_46110001.Text = " "
End Sub
Private Sub EDIT_46110001Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110001.Click
'Menampilkan form 33b
If Latihan_33b_46110001.Visible = False Then
Latihan_33b_46110001.Show()
Else
Latihan_33b_46110001.Activate()
End If
'mengisi textbox yang ada pada 32c
Latihan_33b_46110001.ganti_46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110001.KB__46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110001.TB1_46110001.Text = DGV_46110001.CurrentRow.Cells("namabarang").Value
Latihan_33b_46110001.TB2_46110001.Text = DGV_46110001.CurrentRow.Cells("hargajual").Value
Latihan_33b_46110001.TB3_46110001.Text = DGV_46110001.CurrentRow.Cells("JumlahBarang").Value
End Sub
Private Sub HAPUS_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110001.Click
If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
End If
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DGV_46110001.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'Mengambil data kembali
ambildata()
End Sub
End Class
II. RUMUS UNTUK LATIHAN 33BDim 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()
'mendeklarasikan adapter
Dim data As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)
'bersihkan data dulu sebelum isi data lain
ambil.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
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()
DGV_46110001.DataSource = ambil
End Sub
Private Sub TAMBAH_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110001.Click
'Menampilkan form 33b
If Latihan_33b_46110001.Visible = False Then
Latihan_33b_46110001.Show()
Else
Latihan_33b_46110001.Activate()
End If
'mengosongkan textbox 33b
Latihan_33b_46110001.KB__46110001.Text = "-"
Latihan_33b_46110001.TB1_46110001.Text = " "
Latihan_33b_46110001.TB2_46110001.Text = " "
Latihan_33b_46110001.TB3_46110001.Text = " "
Latihan_33b_46110001.ganti_46110001.Text = " "
End Sub
Private Sub EDIT_46110001Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110001.Click
'Menampilkan form 33b
If Latihan_33b_46110001.Visible = False Then
Latihan_33b_46110001.Show()
Else
Latihan_33b_46110001.Activate()
End If
'mengisi textbox yang ada pada 32c
Latihan_33b_46110001.ganti_46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110001.KB__46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value
Latihan_33b_46110001.TB1_46110001.Text = DGV_46110001.CurrentRow.Cells("namabarang").Value
Latihan_33b_46110001.TB2_46110001.Text = DGV_46110001.CurrentRow.Cells("hargajual").Value
Latihan_33b_46110001.TB3_46110001.Text = DGV_46110001.CurrentRow.Cells("JumlahBarang").Value
End Sub
Private Sub HAPUS_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110001.Click
If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
End If
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DGV_46110001.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'Mengambil data kembali
ambildata()
End Sub
End Class
Public Class Latihan_33b_46110001
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 ('" & KB__46110001.Text & "','" & TB1_46110001.Text & "', " & Val(TB2_46110001.Text) & "," & Val(TB3_46110001.Text) & ")", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33A_46110001.ambildata()
End Sub
Private Sub replace()
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB__46110001.Text & "', namabarang = '" & TB1_46110001.Text & "', hargajual=" & Val(TB2_46110001.Text) & ", jumlahbarang=" & Val(TB3_46110001.Text) & " where kodebarang='" & ganti_46110001.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33A_46110001.ambildata()
End Sub
Private Sub Simpan_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110001.Click
'perintah periksa data
If KB__46110001.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If TB1_46110001.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(TB2_46110001.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(TB3_46110001.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", TB1_46110001.Text, 1, Jalan)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been exist please insert new data")
'mengosongkan text box
KB__46110001.Text = " "
TB1_46110001.Text = " "
TB2_46110001.Text = " "
TB3_46110001.Text = " "
Exit Sub
End If
If ganti_46110001.Text = "-" Then
tambah()
Else
replace()
End If
'mengosongkan text box
KB__46110001.Text = " "
TB1_46110001.Text = " "
TB2_46110001.Text = " "
TB3_46110001.Text = " "
'menutup form
Me.Close()
End Sub
End Class
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 ('" & KB__46110001.Text & "','" & TB1_46110001.Text & "', " & Val(TB2_46110001.Text) & "," & Val(TB3_46110001.Text) & ")", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33A_46110001.ambildata()
End Sub
Private Sub replace()
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB__46110001.Text & "', namabarang = '" & TB1_46110001.Text & "', hargajual=" & Val(TB2_46110001.Text) & ", jumlahbarang=" & Val(TB3_46110001.Text) & " where kodebarang='" & ganti_46110001.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
Latihan_33A_46110001.ambildata()
End Sub
Private Sub Simpan_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110001.Click
'perintah periksa data
If KB__46110001.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If TB1_46110001.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(TB2_46110001.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(TB3_46110001.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", TB1_46110001.Text, 1, Jalan)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been exist please insert new data")
'mengosongkan text box
KB__46110001.Text = " "
TB1_46110001.Text = " "
TB2_46110001.Text = " "
TB3_46110001.Text = " "
Exit Sub
End If
If ganti_46110001.Text = "-" Then
tambah()
Else
replace()
End If
'mengosongkan text box
KB__46110001.Text = " "
TB1_46110001.Text = " "
TB2_46110001.Text = " "
TB3_46110001.Text = " "
'menutup form
Me.Close()
End Sub
End Class
·
langkah selanjutnya Jalankan
program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan
46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
·
Setelah mengatur startup form/ jika anda memiliki form navigator maka
langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator
yang telah anda buat setelah itu, klik
start debug untuk menjalankan form latihan 33A DAN 33B seperti dibawah ini :
·
Setelah menekan tombol debug maka tampilan latihan 33A Dan 33b sebagai
berikut :
·
Jika terdapat kesalahan, maka program akan menunjukkan letak
kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.
Postingan
0 komentar:
Posting Komentar