Deskripsi Form Latihan_31b_36110039
Terdapat empat object yaitu :
1. Object Label
Terdapat empat label yang bertuliskan kode barang,
nama barang, harga jual, dan jumlah barang.
2. Object Textbox
Terdapat empat textbox yang semuanya merupakan status
input. Status input digunakan untuk memasukkan nilai: kode barang, 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_31A_36110039.
4. Object StatusStrip
Terdapat satu object statusstrip. Pada statusstrip ini
terdapat dua statuslabel yang bertuliskan kode barang lama dan -.
Script Unique
Scriptnya ada pada Prosedur Latihan_31b_36110039 dibawah
ini.
Even
simpan_36110039_Click
Prosedur menjalankan Latihan_31b_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 empat.
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 empat. Isi properti name menjadi nama
yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
8. Kemudian
pilih object Statusstrip dan buat sebanyak satu. Isi properti name menjadi nama
yang anda inginkan dan nomor stambuk pada akhir nama tersebut.
9.
Setelah perintah diatas dilakukan maka
jadilah seperti kolom dibawah ini:
10. Berikut ini adalah rumus untuk
menjalankan form di atas:
Public Class Latihan_31b_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
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")
'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 = " "
'mengambil
data
Latihan_31a_36110039.ambildata()
'menutup form
Me.Close()
End Sub
End Class
11. 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