Deskripsi
penyelesaian
Form
Latihan_32B_36110034
terdapat tiga object yaitu label,textbox,button, dan groupbox :
Object Label
Terdapat empat objek
lebel 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),yang
berstatus input, yang berfungsi untuk memasukkan data barang yang ingin di
tambah pada from latihan sebelumnya.
Object button
Terdapat satu object button yang bertuliskan SIMPAN , object button ini
berguna untuk menyimpan data-data pada barang yang ingin di ganti sebelumnya
dan telah di input pada masing-masing textbox, yang kemudian penambahan datanya
dapat dilihat pada tabel barang di form latihan 32A.
Script Unique
Buttom
"simpan”
ANDINI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB1_36110034.Text, 1, WIRAWAN)
If
ANDINI.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TIDAK DAPAT DI UPDATE")
Exit
Sub
End If
If
KB1_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
KB1_36110034.Text = ""
Exit
Sub
ElseIf
NB1_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
NB1_36110034.Text = ""
Exit
Sub
ElseIf
Val(JB1_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
JB1_36110034.Text = ""
Exit
Sub
ElseIf
Val(HJ1_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
HJ1_36110034.Text = ""
Exit
Sub
End If
DINI = New
OleDb.OleDbCommand("INSERT INTO
BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG) VALUES ('"
& KB1_36110034.Text & "','"
& NB1_36110034.Text & "',"
& Val(HJ1_36110034.Text) & ","
& Val(JB1_36110034.Text) & ")",
WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KB1_36110034.Text = ""
NB1_36110034.Text = ""
JB1_36110034.Text = ""
HJ1_36110034.Text = ""
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 groupbox yang ada dalam "Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4.
membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_32B_36110034.
Public Class latihan_32B_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
ANDINI.AturPencarianDataBase("BARANG",
"KODEBARANG", KB1_36110034.Text,
1, WIRAWAN)
If ANDINI.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TIDAK DAPAT DI UPDATE")
Exit
Sub
End If
If KB1_36110034.Text.Length = 0 Then
MsgBox("KODE
BARANG HARUS TERCANTUM")
KB1_36110034.Text = ""
Exit
Sub
ElseIf NB1_36110034.Text.Length = 0 Then
MsgBox("NAMA
BARANG HARUS TERCANTUM")
NB1_36110034.Text = ""
Exit
Sub
ElseIf Val(JB1_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
JB1_36110034.Text = ""
Exit
Sub
ElseIf Val(HJ1_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
HJ1_36110034.Text = ""
Exit
Sub
End If
DINI = New OleDb.OleDbCommand("INSERT INTO
BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG) VALUES ('"
& KB1_36110034.Text & "','"
& NB1_36110034.Text & "',"
& Val(HJ1_36110034.Text) & ","
& Val(JB1_36110034.Text) & ")",
WIRAWAN)
WIRAWAN.Open()
DINI.ExecuteNonQuery()
WIRAWAN.Close()
DINI.Dispose()
KB1_36110034.Text = ""
NB1_36110034.Text = ""
JB1_36110034.Text = ""
HJ1_36110034.Text = ""
End Sub
End Class
5.
Jalankan program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar