Minggu, 14 Oktober 2012
di
07.36
|
Form Latihan_34c_36110037
terdapat Empat object yaitu Label, Textbox,Button, dan Status Strip.
Object Label
Terdapat Empat object label yang bertuliskan “Kode barang”, “nama barang”, “harga jual”, dan “jumlah barang”.
Terdapat Empat object textbox yang semuanya berstatus input.
Object Button
Terdapat Satu object button yaitu Button simpan yang digunakan untuk menyimpan data yang diinput ke database.
Object Status Strip
Terdapat sebuah object status strip yang bernama “StatusStrip1_36110037”.
Script Unique
Dim soe As String = "update barang set kodebarang = '" &
kb_36110037.Text & "', namabarang =
'" & nb_36110037.Text & "',
hargajual = " & Val(hj_36110037.Text) & ", jumlahbarang = " &
Val(jb_36110037.Text) & " where kodebarang
= '" & kbl_36110037.Text & "'"
Event
ButtonclickProperty
Default
Prosedur Penyelesaian
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form seperti di bawah ini dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public NotInheritable Class Latihan_34c_36110037
Dim rhepoet As New ByIskandar.CariKeDataBaseByIskandar
Dim resky As New OleDb.OleDbCommand
Dim keren As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='D:\Rhepoet\Kampuz\Semester 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb'")
Private Sub simpan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_36110037.Click
If kbl_36110037.Text = "" Then
rhepoet.AturPencarianDataBase("Barang", "KodeBarang", kb_36110037.Text, 1, keren)
If rhepoet.JumlanBaris > 0 Then
MsgBox("kode barang telah ada")
kb_36110037.Text = ""
Exit Sub
ElseIf kb_36110037.Text.Length = 0 Then
MsgBox("kode barang harus tercantum")
Exit Sub
ElseIf nb_36110037.Text.Length = 0 Then
MsgBox("nama barang harus tercantum")
Exit Sub
ElseIf hj_36110037.Text.Length = 0 Then
MsgBox("harga jual harus tercantum")
Exit Sub
ElseIf jb_36110037.Text.Length = 0 Then
MsgBox("jumlah barang harus tercantum")
Exit Sub
End If
Dim rpt As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36110037.Text & "','" & nb_36110037.Text & "'," & Val(hj_36110037.Text) & "," & Val(jb_36110037.Text) & ")"
resky = New OleDb.OleDbCommand(rpt, keren)
keren.Open()
resky.ExecuteNonQuery()
keren.Close()
resky.Dispose()
kb_36110037.Text = ""
nb_36110037.Text = ""
hj_36110037.Text = ""
jb_36110037.Text = ""
Else
If kbl_36110037.Text <> kb_36110037.Text Then
rhepoet.AturPencarianDataBase("Barang", "KodeBarang", kb_36110037.Text, 1, keren)
If rhepoet.JumlanBaris > 0 Then
MsgBox("kode barang tidak dapat diupdate")
Exit Sub
End If
End If
If kb_36110037.Text.Length = 0 Then
MsgBox("kode barang harus tercantum")
Exit Sub
ElseIf nb_36110037.Text.Length = 0 Then
MsgBox("nama barang harus tercantum")
Exit Sub
ElseIf hj_36110037.Text.Length = 0 Then
MsgBox("harga jual harus tercantum")
Exit Sub
ElseIf jb_36110037.Text.Length = 0 Then
MsgBox("jumlah barang harus tercantum")
Exit Sub
End If
Dim rpt As String = "update barang set kodebarang = '" & kb_36110037.Text & "', namabarang = '" & nb_36110037.Text & "', hargajual = " & Val(hj_36110037.Text) & ", jumlahbarang = " & Val(jb_36110037.Text) & " where kodebarang = '" & kbl_36110037.Text & "'"
resky = New OleDb.OleDbCommand(rpt, keren)
keren.Open()
resky.ExecuteNonQuery()
keren.Close()
resky.Dispose()
kbl_36110037.Text = "-"
kb_36110037.Text = ""
nb_36110037.Text = ""
hj_36110037.Text = ""
jb_36110037.Text = ""
End If
End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar