PROSEDUR LATIHAN 34C:
Ø
Lanjutan
Ø
Pilih
“Add New Item” pada tool
Ø
Lalu
pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”
Ø
Muncullah
form1.vb (Form1 bisa diganti)
Ø
Mulai
bekerja dengan menggunakan tool pada toolbox
Ø Buat empat label
(yang bertuliskan kode barang, nama barang, harga jual, dan jumlah barang).
Ø
Buat
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.
Ø
Buat
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_34B_36001155.
Atau bisa juga data barang baru yang benar-benar baru akan diinput pada saat
mengklik input barang di form Latihan_34A_36001155.
Ø Buat satu object
statusstrip. Pada statusstrip ini terdapat dua statuslabel (yang bertuliskan
kode barang lama dan - ).
Ø
Untuk
lebih jelasnya perhatikan gambar di bawah ini :
Ø
Setelah
selesai, maka kita masuk pada rumus yaitu :
Public NotInheritable Class
Latihan_34C_36001155
Dim Masnur As New
ByIskandar.CariKeDataBaseByIskandar
Dim Selayar
As New
OleDb.OleDbCommand
Dim Manarai
As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE
DATA\DataBarang.accdb")
Private Sub Simpan_36001155_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan_36001155.Click
If
KBL_36001155.Text = "" Then
Masnur.AturPencarianDataBase("Barang", "KodeBarang",
KB2_36001155.Text, 1, Manarai)
If
Masnur.JumlanBaris > 0 Then
MsgBox("kode
barang telah ada")
KB2_36001155.Text = ""
Exit
Sub
ElseIf
KB2_36001155.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
NB_36001155.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit Sub
ElseIf
HJ_36001155.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
JB_36001155.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit Sub
End
If
Dim
soe As String =
"insert into barang (kodebarang, namabarang,
hargajual, jumlahbarang) values ('" & KB2_36001155.Text & "','" & NB_36001155.Text & "'," & Val(HJ_36001155.Text) & "," & Val(JB_36001155.Text) & ")"
Selayar = New
OleDb.OleDbCommand(soe, Manarai)
Manarai.Open()
Selayar.ExecuteNonQuery()
Manarai.Close()
Selayar.Dispose()
KB2_36001155.Text = ""
NB_36001155.Text = ""
HJ_36001155.Text = ""
JB_36001155.Text = ""
Else
If
KBL_36001155.Text <> KB2_36001155.Text Then
Masnur.AturPencarianDataBase("Barang", "KodeBarang",
KB2_36001155.Text, 1, Manarai)
If
Masnur.JumlanBaris > 0 Then
MsgBox("kode barang tidak dapat diupdate")
Exit
Sub
End
If
End
If
If
KB2_36001155.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
NB_36001155.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit
Sub
ElseIf
HJ_36001155.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
JB_36001155.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit
Sub
End
If
Dim
soe As String =
"update barang set kodebarang = '"
& KB2_36001155.Text & "', namabarang =
'" & NB_36001155.Text & "',
hargajual = " & Val(HJ_36001155.Text) & ", jumlahbarang = " &
Val(JB_36001155.Text) & " where kodebarang
= '" & KBL_36001155.Text & "'"
Selayar = New
OleDb.OleDbCommand(soe, Manarai)
Manarai.Open()
Selayar.ExecuteNonQuery()
Manarai.Close()
Selayar.Dispose()
KBL_36001155.Text = "-"
KB2_36001155.Text = ""
NB_36001155.Text = ""
HJ_36001155.Text = ""
JB_36001155.Text = ""
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar