Deskripsi
penyelesaian
Form
Latihan_34C_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 34B 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 atau penambahan kode barang pada tabel barang
yang ingin di ganti ataupun di tambah dan telah muncul pada masing-masing
textbox, yang kemudian perubahan atau penambahan kode barangnya dapat dilihat
pada tabel barang di form latihan 34B. Form ini hanya memudahkan kita untuk
melihat tabel barang tanpa harus membuka MS. Access.
Script Unique
Buttom
"simpan”
If KBL_36110034.Text = "" Then
ARDIAN.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ARDIAN.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
KB_36110034.Text = ""
Exit
Sub
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
ANDINI = 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()
ANDINI.ExecuteNonQuery()
WIRAWAN.Close()
ANDINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
Else
If
KBL_36110034.Text <> KB_36110034.Text Then
ARDIAN.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ARDIAN.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
ANDINI = 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()
ANDINI.ExecuteNonQuery()
WIRAWAN.Close()
ANDINI.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_34C_36110034.
Public Class latihan_34C_36110034
Dim ARDIAN As
New ByIskandar.CariKeDataBaseByIskandar
Dim ANDINI 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
ARDIAN.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ARDIAN.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
KB_36110034.Text = ""
Exit
Sub
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
ANDINI = 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()
ANDINI.ExecuteNonQuery()
WIRAWAN.Close()
ANDINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
JB_36110034.Text = ""
HJ_36110034.Text = ""
Else
If
KBL_36110034.Text <> KB_36110034.Text Then
ARDIAN.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, WIRAWAN)
If
ARDIAN.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
ANDINI = 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()
ANDINI.ExecuteNonQuery()
WIRAWAN.Close()
ANDINI.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