Pada Latihan 31 B terdapat empat
object yaitu Label, TextBox, Button, dan StatusStrip
Object Label
Terdapat empat label yang
bertuliskan kode barang, nama barang, harga jual, dan jumlah barang.
Object
Textbox
Terdapat empat textbox yang semuanya
merupakan status input. Status input digunakan untuk memasukkan nilai: kode
barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam
form BARANG di Ms Access.
Object
Button
Terdapat satu object button
(Simpan). Button Simpan digunakan untuk menyimpan data barang baru yang telah
diinput. Data barang baru ini merupakan data barang yang telah dipilih untuk
diedit dari datagridview pada form Latihan_31A_36110044.
Object StatusStrip
Terdapat satu object StatusStrip.
Pada Statusstrip ini terdapat dua statuslabel yang bertuliskan kode barang lama
dan -.
Script
Unique
If
KODE_36110044.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
Even
SIMPAN_36110044_Click
PROSEDUR PENYELESAIAN:
1.
Klik star lalu pilih Microsoft
Visual Studio 2008
2.
Pilih icon Add New Item
3.
Ubah nama pada lembar “Add New Item”
kemudian add
4.
Buat design form dengan
menggunakan object Label, TextBox, Button, dan
StatusStrip
yang ada dalam "Toolbox”
5.
Ganti nama Textbox dan Button
menggunakan "Properties Window"
6.
Klik 2x pada kotak design untuk
membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_31B
Masukkan rumus berikut untuk menyelesaikan latihan_31B
Public Class Latihan_31B_36110044
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\materi kuliah\apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE
DATA\DATABARANG.accdb;jet oledb:database password=TY")
Private Sub SIMPAN_36110044_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles SIMPAN_36110044.Click
Dim
Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\materi kuliah\apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE
DATA\DATABARANG.accdb;jet oledb:database password=TY")
'perintah
periksa data
If
KODE_36110044.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
NAMA_36110044.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(HARGA_36110044.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(JUMLAH_36110044.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
'perintah
ambil data
If
KODEBL_36110044.Text <> KODE_36110044.Text Then
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
KODE_36110044.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
'mengosongkan
text box
KODE_36110044.Text = " "
NAMA_36110044.Text = " "
HARGA_36110044.Text = " "
JUMLAH_36110044.Text = " "
Exit
Sub
End
If
End If
'deklarasi
object command
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
KODEBARANG ='" & KODE_36110044.Text & "', NAMABARANG = '" &
NAMA_36110044.Text & "', HARGAJUAL="
& Val(HARGA_36110044.Text) & ",
JUMLAHBARANG=" & Val(JUMLAH_36110044.Text) & " where KODEBARANG='" &
KODEBL_36110044.Text & "'",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengosongkan
text box
KODEBL_36110044.Text = "-"
KODE_36110044.Text = " "
NAMA_36110044.Text = " "
HARGA_36110044.Text = " "
JUMLAH_36110044.Text = " "
'mengambil
data
Latihan_31A_36110044.ambildata()
'menutup form
Me.Close()
End Sub
End Class
7.
Jalankan program dengan
menggunakan “start debugging”
Tidak ada komentar:
Posting Komentar