Deskripsi Form Latihan_30b_36110039
Terdapat tiga object yaitu :
1. Object Label
Terdapat enam label (yang bertuliskan kode barang
sebanyak dua buah label, nama barang, harga jual, jumlah barang, dan kode
barang yang akan diganti datanya).
2. Object TextBox
Terdapat lima textbox yang semuanya merupakan status
input. Status input digunakan untuk memasukkan nilai: kode barang yang akan
diganti datanya, kode barang baru, nama barang, harga jual, dan jumlah barang
yang akan disimpan ke dalam form BARANG di Ms Access.
3. Object Button
Terdapat satu object button (Simpan). Button Simpan
digunakan untuk menyimpan data barang baru yang telah diinput. Data barang baru
ini merupakan data barang yang telah dipilih untuk diedit dari datagridview
pada form Latihan_30A_36110039.
Script Unique
Scriptnya ada pada Prosedur Latihan_30b_36110039
dibawah ini.
Even
Prosedur menjalankan
Latihan_30b_36110039:
1. Klik
Start dan pilih Microsoft Visual Studio 2008.
2. Klik
menu file dan pilih New Project.
3. Ketik
nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia,
klik Ok.
4. Klik
menu view dan pilih toolbox.
5.
Kemudian pilih object Label dan buat
sebanyak enam.
6. Kemudian
pilih object button dan buat sebanyak satu. Isi properti name menjadi nama yang
anda inginkan dan nomor stambuk pada akhir nama tersebut.
7. Kemudian
pilih object textbox dan buat sebanyak lima. Isi properti name menjadi nama
yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
8.
Setelah perintah diatas dilakukan maka
jadilah seperti kolom dibawah ini:
9.
Berikut ini
adalah rumus untuk menjalankan form di atas:
Public Class
Latihan_30b_36110039
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =D:\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb;jet
oledb:database password=2301")
Private Sub
Simpan_36110039_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Simpan_36110039.Click
'perintah periksa data
If kb2_36110039.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If nb_36110039.Text.Length = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(hj_36110039.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
If Val(jb_36110039.Text) = 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
'perintah ambil data
If kb1_36110039.Text <> kb2_36110039.Text Then
Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG",
"KODEBARANG", kb2_36110039.Text,
1, Jalan)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been exist please insert new
data")
'mengosongkan
text box
kb2_36110039.Text = " "
nb_36110039.Text = " "
hj_36110039.Text = " "
jb_36110039.Text = " "
Exit Sub
End If
End If
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand("Update
BARANG set KODEBARANG ='" & kb2_36110039.Text & "', NAMABARANG = '" &
nb_36110039.Text & "', HARGAJUAL="
& Val(hj_36110039.Text) & ", JUMLAHBARANG="
& Val(jb_36110039.Text) & " where
KODEBARANG='" & kb1_36110039.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
'mengosongkan text box
kb1_36110039.Text = " "
kb2_36110039.Text = " "
nb_36110039.Text = " "
hj_36110039.Text = " "
jb_36110039.Text = " "
'mengambildata
Latihan_30a_36110039.ambildata()
'menutup form
Me.Close()
End Sub
End Class
10. Untuk
melihat apakah program yang anda telah buat sudah benar atau belum tepat maka
klik icon Start Debugging atau tekan F5.
Tidak ada komentar:
Posting Komentar