Deskripsi form
latihan 34C
Dalam form Latihan 34c hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.
Dalam form Latihan 34c hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.
Object Label :
Dalam form ini terdapat empat buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan “jumlah barang” .
Dalam form ini terdapat empat buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan “jumlah barang” .
Object Textbox :
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.
Object Toolstrip :
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Even :
Button click
Langkah-langkah penyelesaian form latihan 34C
1.Buat form baru seperti gambar dibawah ini,2. Ketikkan nama form latihan_34C_xxxxx, lalu klik add
3. Buat form seperti gambar di bawah ini:
4. Setelah itu input script berikut ini :
Public Class latihan_34C_46110004
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN
EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")
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_46110004.Text & "','" &
nb_46110004.Text & "', " &
Val(hj_46110004.Text) & ","
& Val(jb_46110004.Text) & ")",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
latihan_34B_46110004.ambildata()
End Sub
Private Sub replace()
'deklarasi object
command
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
kodebarang ='" & kb_46110004.Text & "', namabarang = '" & nb_46110004.Text & "', hargajual=" &
Val(hj_46110004.Text) & ",
jumlahbarang=" & Val(jb_46110004.Text) & " where kodebarang='" &
ganti_46110004.Text & "'",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengambildata
latihan_34B_46110004.ambildata()
End Sub
Private Sub simpan_46110004_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_46110004.Click
'perintah
periksa data
If
kb_46110004.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
nb_46110004.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(hj_46110004.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(jb_46110004.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",
kb_46110004.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
'mengosongkan
text box
kb_46110004.Text = " "
nb_46110004.Text = " "
hj_46110004.Text = " "
jb_46110004.Text = " "
Exit
Sub
End If
If
ganti_46110004.Text = "-" Then
tambah()
Else
replace()
End If
'mengosongkan
text box
kb_46110004.Text = " "
nb_46110004.Text = " "
hj_46110004.Text = " "
jb_46110004.Text = " "
'menutup form
Me.Close()
End Sub
End Class
5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 34a lalu klik tombol "input barang" yang ada di latihan 34a seperti gambar di
bawah ini:6. Setelah menekan tombol tersebut maka tampilannya sebagai berikut :
7. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Deskripsi form
latihan 34B
Dalam form Latihan 34b hanya terdapat dua object yaitu DataGriedView dan Button
Dalam form Latihan 34b hanya terdapat dua object yaitu DataGriedView dan Button
Object datagridview
:
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Dalam form ini terdapat 1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.
Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” , “edit” dan “hapus”. Button “edit” ini digunakan untuk menampilkan form latihan 34c dan mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 34c dan menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Even :
Load
Langkah-langkah penyelesaian form latihan 34B
1.Buat form baru seperti gambar dibawah ini,2. Ketikkan nama form latihan_34B_xxxxx, lalu klik add
3. Buat form seperti gambar di bawah ini:
4. Setelah itu input script berikut ini :
Public Class latihan_34B_46110004
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN
EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")
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 latihan_34B_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
ambildata()
dg_46110004.DataSource = ambil
End Sub
Private Sub hapus_46110004_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus_46110004.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 ='" & dg_46110004.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'Mengambil
data kembali
ambildata()
End Sub
Private Sub tambah_46110004_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah_46110004.Click
'Menampilkan
form 33b
If
latihan_34C_46110004.Visible = False Then
latihan_34C_46110004.MdiParent = Me.MdiParent
latihan_34C_46110004.Show()
Else
latihan_34C_46110004.Activate()
End If
'mengosongkan textbox 33b
latihan_34C_46110004.ganti_46110004.Text = "-"
latihan_34C_46110004.kb_46110004.Text =
" "
latihan_34C_46110004.nb_46110004.Text =
" "
latihan_34C_46110004.hj_46110004.Text =
" "
latihan_34C_46110004.jb_46110004.Text =
" "
End Sub
Private Sub edit_46110004_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles edit_46110004.Click
latihan_34C_46110004.Show()
'Mengisi Text
Box
latihan_34C_46110004.ganti_46110004.Text = dg_46110004.CurrentRow.Cells("kodebarang").Value
latihan_34C_46110004.kb_46110004.Text =
dg_46110004.CurrentRow.Cells("kodebarang").Value
latihan_34C_46110004.nb_46110004.Text =
dg_46110004.CurrentRow.Cells("namabarang").Value
latihan_34C_46110004.hj_46110004.Text =
dg_46110004.CurrentRow.Cells("hargajual").Value
latihan_34C_46110004.jb_46110004.Text =
dg_46110004.CurrentRow.Cells("JumlahBarang").Value
End Sub
End Class
5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 34a lalu klik tombol "daftar barang" yang ada di latihan 34a seperti gambar di bawah ini:
6. Setelah menekan tombol tersebut maka tampilannya sebagai berikut :
7. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Langganan:
Postingan (Atom)