Deskripsi form Latihan_31b_46110003
Dalam form Latihan_31b_46110003
hanya terdapat empat object yaitu Label,
Textbox, Button dan Toolstrip.
Object Label :
Dalam form ini terdapat enam buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.
Dalam form ini terdapat enam buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.
Object Textbox :
Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.
Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.
Object Toolstrip :
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Even :
Button click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_31b_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub save46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles save46110003.Click
If
kb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
nb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(hj46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(jb46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
kode46110003.Text <> kb46110003.Text Then
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kb46110003.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
Exit
Sub
End
If
End If
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
kodebarang ='" & kb46110003.Text & "',
namabarang = '" & nb46110003.Text & "', hargajual=" & Val(hj46110003.Text) & ", jumlahbarang=" &
Val(jb46110003.Text) & " where
kodebarang='" & kode46110003.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
kode46110003.Text = "-"
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
Latihan_31a_46110003.amal()
Me.Close()
End Sub
End Class
3. Jalankan Program dengan mengklik Button edit pada Latihan_31a_46110003.
4. Maka data yang telah diedit akan tersimpan pada database access.
0 komentar:
Posting Komentar