Deskripsi
penyelesaian
Form
Latihan_33B_36110034
terdapat tiga object yaitu label,textbox,button, groupbox, StatusStrip,
toolstripstatuslebel :
Object Label
Terdapat empat objek
lebel yang bertuliskan (kode barang,
nama barang, harga jual, dan jumlah barang).
Object textbox
Terdapat empat object textbox bertuliskan( kode barang,
nama barang, harga jual, dan jumlah barang), semua textbox ini berstatus input
, yang jika salah satu kode barang dipilih dan objek tombol button tambah atau
edit diklik pada form latihan 33A dimana penambahan atau perubahan data pada
tabel barang tersebut dapat terlihat pada form latihan sebelumnya atau di
MS.Access.
Object statusstrip
Terdapat satu objek
statusstrip yang dapat memunculkan toolstripstatus berupa lebel dll.
Object ToolStripStatusLebel
Terdapat dua objek toolstripstatuslebel
yang terdapat pada form latihan ini. Dan pada objek toolstripstatuslebel yang
pertama bertuliskan kode barang lama, sedangkan pada objek toolstripstatuslebel
yang kedua yang properti bordersides yang berstatus all dan properti text yang
dikosongkan dan objek ini menampilkan kode barang yang akan di ubah jika pada
form latihan sebelumnya diklik tombol button edit dan adapabila tombol
button tambah yang diklik maka objek ini
tidak akan terisi.
Properti
Toolstripstatuslebel1
=> properties => text => kode barang lama => ok
Toolstripstatuslebel2
=> properties => bordersides => all => ok
=>properties => name => KBL_36110034 => ok
Object button
Terdapat satu object button yang bertuliskan SIMPAN , object button ini
berguna untuk menyimpan perubahan kode barang pada data barang yang ingin di
ganti ataupun di tambah sebelumnya dan telah muncul pada masing-masing textbox,
yang kemudian perubahan atau penambahan kode barangnya dapat dilihat pada tabel
barang di form latihan 33A. Form ini hanya memudahkan kita untuk melihat tabel
barang tanpa harus membuka MS. Access.
Script Unique
Buttom
"simpan”
If KBL_36110034.Text = "" Then
ANDINI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ANDINI.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
Exit
Sub
End
If
If
KB_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
KB_36110034.Text = ""
Exit
Sub
ElseIf
NB_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
NB_36110034.Text = ""
Exit
Sub
ElseIf
Val(JB_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
JB_36110034.Text = ""
Exit
Sub
ElseIf
Val(HJ_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
HJ_36110034.Text = ""
Exit
Sub
End
If
DINI = New
OleDb.OleDbCommand("INSERT INTO BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)
VALUES ('" & KB_36110034.Text & "','"
& NB_36110034.Text & "',"
& Val(HJ_36110034.Text) & ","
& Val(JB_36110034.Text) & ")",
WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
Else
If
KBL_36110034.Text <> KB_36110034.Text Then
ANDINI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ANDINI.JumlanBaris > 0 Then
MsgBox("KODE BARANG TIDAK DAPAT DI UPDATE")
Exit
Sub
End
If
End
If
If
KB_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
NB_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
Val(JB_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
Val(HJ_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
Exit
Sub
End
If
DINI = New
OleDb.OleDbCommand("UPDATE BARANG SET
KODEBARANG = '" & KB_36110034.Text & "', NAMABARANG = '" &
NB_36110034.Text & "', HARGAJUAL = "
& Val(HJ_36110034.Text) & ",
JUMLAHBARANG = " & Val(JB_36110034.Text) & " WHERE KODEBARANG = '" &
KBL_36110034.Text & "'",
WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KBL_36110034.Text = "-"
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
End If
End Sub
End Class
Prosedur penyelesaian
1.
buka project yang telah dibuat
sebelumnya klik add new item => add windows form => ganti nama project
=> add.
2.
membuat
form dengan menggunakan Label ,Textbox, button, dan statusstrip yang ada dalam
"Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4.
membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_33B_36110034.
Public Class latihan_33B_36110034
Dim ANDINI As
New ByIskandar.CariKeDataBaseByIskandar
Dim DINI As
New OleDb.OleDbCommand
Dim WIRAWAN As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database
password=2304")
Private Sub
SIM_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SIM_36110034.Click
If KBL_36110034.Text = "" Then
ANDINI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ANDINI.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
Exit
Sub
End
If
If
KB_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
KB_36110034.Text = ""
Exit
Sub
ElseIf
NB_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
NB_36110034.Text = ""
Exit
Sub
ElseIf
Val(JB_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
JB_36110034.Text = ""
Exit
Sub
ElseIf
Val(HJ_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
HJ_36110034.Text = ""
Exit
Sub
End
If
DINI = New
OleDb.OleDbCommand("INSERT INTO BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG)
VALUES ('" & KB_36110034.Text & "','"
& NB_36110034.Text & "',"
& Val(HJ_36110034.Text) & ","
& Val(JB_36110034.Text) & ")",
WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
Else
If
KBL_36110034.Text <> KB_36110034.Text Then
ANDINI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ANDINI.JumlanBaris > 0 Then
MsgBox("KODE BARANG TIDAK DAPAT DI UPDATE")
Exit
Sub
End
If
End
If
If
KB_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
NB_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
Val(JB_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
Exit
Sub
ElseIf
Val(HJ_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
Exit
Sub
End
If
DINI = New
OleDb.OleDbCommand("UPDATE BARANG SET
KODEBARANG = '" & KB_36110034.Text & "', NAMABARANG = '" &
NB_36110034.Text & "', HARGAJUAL = "
& Val(HJ_36110034.Text) & ", JUMLAHBARANG
= " & Val(JB_36110034.Text) & "
WHERE KODEBARANG = '" & KBL_36110034.Text & "'", WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KBL_36110034.Text = "-"
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
End If
End Sub
End Class
5.
Jalankan program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar