Deskripsi form Latihan_30b_46110003
Dalam form Latihan_30b_4611000
hanya terdapat empat object yaitu Label,
Textbox, Button dan Groupbox.
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 Groupbox :
Terdapat 2 object goupbox yang berfungsi digunakan untuk mengelompokan kontrol-kontrol yang dianggap memiliki fungsi sejenis.
Script Unique :
Dalam form ini tidak terdapat script unique.
Terdapat 2 object goupbox yang berfungsi digunakan untuk mengelompokan kontrol-kontrol yang dianggap memiliki fungsi sejenis.
Script Unique :
Dalam form ini tidak terdapat script unique.
Even :
Button click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_30b_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_30a_46110003.amal()
Me.Close()
End Sub
End Class
3. Jalankan Program dengan mengklik button edit pada Latihan_30a_46110003.
4. Maka akan tampil program seperti
dibawah ini.
5. Data yang telah diedit akan tersimpan pada database access
5. Data yang telah diedit akan tersimpan pada database access
0 komentar:
Posting Komentar