Deskripsi
1. Objek textbox
terdapat 4 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di
edit.
2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi hasil edit sebuah data yang ada di tabel pada latihan 31a
3. objek statusstrip
pada objek statusstrip terdapat 2 label (bertuliskan kode barang lama & tanda kurang [-]). label yang bertuliskan tanda kurang [-] akan diganti dengan kode barang yang ingin diedit
even : ButtonClick
Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.
5. buat dulu koneksi antara project visual studio anda dengan file access. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html
6. masukkan reference baru kedalam project anda, jika belum ada. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/cara-memasukkan-reference-pada-project.html
7. deklarasikan koneksi
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
8. pada button simpan, buat script berikut. tujuannya untuk memeriksa
data, mengamnbil data, mengosongkan textbox input dan menutup form
Private Sub simpan46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110008.Click
If kb46110008.Text.Length = 0 Then
MsgBox("mohon isi textbox ini")
Exit Sub
End If
If nb46110008.Text.Length = 0 Then
MsgBox("mohon isi textbos ini")
Exit Sub
End If
If Val(hs46110008.Text) = 0 Then
MsgBox("mohon isi textbox ini")
Exit Sub
End If
If Val(jb46110008.Text) = 0 Then
MsgBox("mohon isi textbox ini")
Exit Sub
End If
If edit46110008.Text <> kb46110008.Text Then
Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110008.Text, 1, Jalan)
If PENCARI.JumlanBaris > 0 Then
MsgBox("data sudah ada, masukkan yang baru")
kb46110008.Text = " "
nb46110008.Text = " "
hs46110008.Text = " "
jb46110008.Text = " "
Exit Sub
End If
End If
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110008.Text & "', namabarang = '" & nb46110008.Text & "', hargajual=" & Val(hs46110008.Text) & ", jumlahbarang=" & Val(jb46110008.Text) & " where kodebarang='" & edit46110008.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
edit46110008.Text = "-"
kb46110008.Text = " "
nb46110008.Text = " "
hs46110008.Text = " "
jb46110008.Text = " "
Latihan_31a_46110008.ambildata()
Me.Close()
End Sub
9. untuk menjalankan form ini, klik button edit pada Latihan 31a
Tidak ada komentar:
Posting Komentar