Latihan_33b _36110052
A. Object-object dalam Latihan_33B_36110048 :
1. Object Label
Terdapat empat label (yang bertuliskan kode barang, nama
barang, harga jual, dan jumlah barang).
2. Object Textbox
Terdapat empat textbox yang semuanya merupakan status input.
Status input digunakan untuk memasukkan nilai: kode barang, nama barang, harga
jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.
3. Object Button
Terdapat
satu object button (Simpan). Button Simpan digunakan untuk menyimpan data
barang baru yang telah diinput. Data barang baru ini merupakan data barang yang
telah dipilih untuk diedit dari datagridview pada form Latihan_33A_36110052
4. Object StatusStrip
Terdapat satu object statusstrip. Pada statusstrip ini
terdapat dua statuslabel (yang bertuliskan kode barang lama)
B. Script Unique
Untuk script, dapat dilihat secara menyeluruh pada langkah-langkah
kerja latihan_33b_36110052
C. Even
SIMPAN_36110052_Click
LATIHAN_33B_36110052
Langkah-langkah
kerja latihan_33b_36110052
1. Buat
new windows form dengan cara ketik project àadd windows
form pada project yang telah dibuat dan
berikan nama form yang diinginkan
Contoh: latihan_33b_36110052
3. Setiap
tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan
teksnya dengan cara klik kanan-properties
4. Buat
form dengan bentuk seperti ini:
5. Setelah
selesai form, masuk ke lembar Vb dan masukkan script
Public NotInheritable Class
LATIHAN_33B_36110052
Dim VEVE As
New ByIskandar.CariKeDataBaseByIskandar
Dim VIA As
New OleDb.OleDbCommand
Dim VEE As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DATABARANG.accdb'")
Private Sub
SIMPAN_36110052_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SIMPAN_36110052.Click
If
kbl_36110052.Text = "" Then
VEVE.AturPencarianDataBase("Barang", "KodeBarang",
kb_36110052.Text, 1, VEE)
If
VEVE.JumlanBaris > 0 Then
MsgBox("kode
barang telah ada")
kb_36110052.Text = ""
Exit
Sub
ElseIf
kb_36110052.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
nb_36110052.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit
Sub
ElseIf
hj_36110052.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
jb_36110052.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit
Sub
End
If
Dim
soe As String =
"insert into barang (kodebarang, namabarang,
hargajual, jumlahbarang) values ('" & kb_36110052.Text & "','" & nb_36110052.Text & "'," & Val(hj_36110052.Text) & "," & Val(jb_36110052.Text) & ")"
VIA = New
OleDb.OleDbCommand(soe, VEE)
VEE.Open()
VIA.ExecuteNonQuery()
VEE.Close()
VIA.Dispose()
kb_36110052.Text = ""
nb_36110052.Text = ""
hj_36110052.Text = ""
jb_36110052.Text = ""
Else
If
kbl_36110052.Text <> kb_36110052.Text Then
VEVE.AturPencarianDataBase("Barang", "KodeBarang",
kb_36110052.Text, 1, VEE)
If
VEVE.JumlanBaris > 0 Then
MsgBox("kode barang tidak dapat diupdate")
Exit
Sub
End
If
End
If
If
kb_36110052.Text.Length = 0 Then
MsgBox("kode
barang harus tercantum")
Exit
Sub
ElseIf
nb_36110052.Text.Length = 0 Then
MsgBox("nama
barang harus tercantum")
Exit
Sub
ElseIf
hj_36110052.Text.Length = 0 Then
MsgBox("harga
jual harus tercantum")
Exit
Sub
ElseIf
jb_36110052.Text.Length = 0 Then
MsgBox("jumlah
barang harus tercantum")
Exit
Sub
End
If
Dim
soe As String =
"update barang set kodebarang = '"
& kb_36110052.Text & "', namabarang =
'" & nb_36110052.Text & "',
hargajual = " & Val(hj_36110052.Text) & ", jumlahbarang = " &
Val(jb_36110052.Text) & " where kodebarang
= '" & kbl_36110052.Text & "'"
VIA = New
OleDb.OleDbCommand(soe, VEE)
VEE.Open()
VIA.ExecuteNonQuery()
VEE.Close()
VIA.Dispose()
kbl_36110052.Text = "-"
kb_36110052.Text = ""
nb_36110052.Text = ""
hj_36110052.Text = ""
jb_36110052.Text = ""
End If
End Sub
End Class
6.
Uji program dengan mengklik “Start Debbuging” dan save program dengan mengklik
“Save”.
7.
SELESAI
Tidak ada komentar:
Posting Komentar