Form
Latihan_27_36110034
terdapat tiga object yaitu label,textbox,dan button :
Object Label
Terdapat lima objek lebel,
satu ovbjek 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.
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_27_36110034.
Public Class latihan_27_36110034
Dim WARA As
New ByIskandar.CariKeDataBaseByIskandar
Dim ANDINI As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database
password=2304")
Private Sub
SI_36110034_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles SI_36110034.Click
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
5. Jalankan
program dengan “start debugging”.
Tidak ada komentar:
Posting Komentar