Deskripsi
penyelesaian
Form
Latihan_28B_36110034
terdapat tiga object yaitu label,textbox,dan button :
Object Label
Terdapat lima objek lebel,
satu objek lebel yang bertuliskan PENGINPUTAN BARANG yang berperan sebagai
judul pada form latihan ini, dan empat objek yang bertuliskan (kode barang,
nama barang, harga jual, dan jumlah barang).
Object textbox
Terdapat empat object
textbox yang bertuliskan( kode barang, nama barang, harga jual, dan jumlah
barang), semua textbox pada form latihan ini berstatus input yang dapat digunakan
untuk memasukkan data pada tabel barang yang sebelumnya muncul pada form
latihan_28A_36110034
Object button
Terdapat satu object button yang bertuliskan SIMPAN , object button ini
berguna untuk menyimpan data-data yang telah di input pada masing-masing
textbox, yang kemudian akan muncul pada tabel DATABARANG pada MS.Acceess.
Script Unique
Buttom
"simpan”
WARA.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, ANDINI)
If
WARA.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
KB_36110034.Text = ""
Exit
Sub
ElseIf
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
Dim
DINI As New
OleDb.OleDbCommand
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) & ")",
ANDINI)
ANDINI.Open()
DINI.ExecuteNonQuery()
ANDINI.Close()
DINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
HJ_36110034.Text = ""
JB_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, dan button yang ada dalam "Toolbox”.
3.
ganti nama textbox dan
button menggunakan "Properties Window".
4. membuka lembar vb Masukkan rumus berikut untuk
menyelesaikan latihan_28B_36110034.
Public Class latihan_28B_36110034
Dim WARA As New ByIskandar.CariKeDataBaseByIskandar
Dim ANDINI As New OleDb.OleDbCommand
Dim DINI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database
password=2304")
Private Sub S1_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles
S1_36110034.Click
latihan_28A_36110034.WARA()
WARA.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_36110034.Text, 1, DINI)
If WARA.JumlanBaris > 0 Then
MsgBox("KODE
BARANG TELAH ADA")
KB_36110034.Text = ""
Exit Sub
ElseIf 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(JUM_36110034.Text) = 0 Then
MsgBox("JUMLAH
BARANG HARUS TERCANTUM")
JUM_36110034.Text = ""
Exit Sub
ElseIf Val(HJ_36110034.Text) = 0 Then
MsgBox("HARGA
JUAL HARUS TERCANTUM")
HJ_36110034.Text = ""
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(JUM_36110034.Text) & ")",
DINI)
DINI.Open()
ANDINI.ExecuteNonQuery()
DINI.Close()
ANDINI.Dispose()
KB_36110034.Text = ""
NB_36110034.Text = ""
HJ_36110034.Text = ""
JUM_36110034.Text = ""
End Sub
End Class
Tidak ada komentar:
Posting Komentar