Latihan_34C _36110052
A. Object-object dalam Latihan_34C_36110042:
Dalam form latihan ini hanya ada terdapat empat object yaitu
Label, Textbox, Buttom, dan StatusStrip.
1.
Object Label
Terdapat lima label (yang
bertuliskan pengimputan Barang, Kode Barang, Nama Barang, Harga Jual, Dan
Jumlah Barang).
2.
Object TextBox
Terdapat empat object textbox yang
digunakan untuk menampilkan Kode Barang, Nama Barang, Harga Jual, Dan
Jumlah Barang.
3.
Object Buttom
Terdapat satu object yang bertuliskan
Simpan yang digunakan untuk menyimpan data yang diimput dalam textbox.
4.
Object StatusStrip
Terdapat satu object statusStrip
yang
B.
Script Unique
Untuk script, dapat dilihat secara menyeluruh pada langkah-langkah
kerja latihan_34C_36110052
C. Even
Simpan_36110052_Click
Langkah-langkah
kerja latihan_34c_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_34c_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_34C_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