Deskripsi Form Latihan_34C_46110020
Dalam
form ini terdapat Empat buah object yaitu Label, TextBox, StatusStrip dan
Button.
Object Label
Terdapat
Lima item object Label yang bertuliskan ( Penginputan Data, Kode Barang, Nama
Barang, Harga Jual, dan Jumlah Barang).
Object TextBox
Terdapat
Empat item object TextBox yang digunakan untuk Menginput Data yang anda ingin
input.
Object StatusStrip
Terdapat
Dua item Object statusstrip yang digunakan untuk menampilkan Kode Barang lama
yang ada pada databarang yang ingin di Edit.
Object Button
Terdapat
Satu item object Button yang digunakan untuk menampilkan hasil input yang telah
di input pada TextBox.
Cara Membuat Form Latihan 34C_46110020
1.
Bukalah project yang anda telah buat sebelumnya
2.
Pilih dan Bukalah Project dalam Visul Basic
3.
Kemudian Pilih Add Windows form seperti berikut :
4.
Lalu add new item dan rename file “form.vb menjadi Latihan_34C_46110020”
5. Setelah namenya di rename pilih add lalu muncullah form seperti
ini :
6. Kemudian mulailah membuat form 34C
dengan mengunakan Label, TextBox, StatusStrip, dan Button.
7. Lalu buatlah sesuai contoh latihan
34C maka akan menjadi seperti ini :
8. Setelah form di atas telah jadi maka klik kanan lalu pilih View
Code,kemudian masukkan rumus seperti berikut
Public Class
Latihan_34C_46110020
Dim YUNI As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source
=" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub tambah()
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL,
JUMLAHBARANG) VALUES ('" & KB_46110020.Text & "','"
& NB_46110020.Text & "', " & Val(HJ_46110020.Text) &
"," & Val(JB_46110020.Text) & ")", YUNI)
YUNI.Open()
Cm.ExecuteNonQuery()
YUNI.Close()
Cm.Dispose()
'mengambildata
Latihan_34B_46110020.ambildata()
End Sub
Private Sub replace()
'deklarasi object command
Dim Cm As New OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set kodebarang ='" &
KB_46110020.Text & "', namabarang = '" & NB_46110020.Text
& "', hargajual=" & Val(HJ_46110020.Text) & ",
jumlahbarang=" & Val(JB_46110020.Text) & " where
kodebarang='" & ganti_46110020.Text & "'", YUNI)
YUNI.Open()
Cm.ExecuteNonQuery()
YUNI.Close()
Cm.Dispose()
'mengambildata
Latihan_34B_46110020.ambildata()
End Sub
Private Sub SIMPAN_46110020_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
SIMPAN_46110020.Click
'perintah periksa data
If KB_46110020.Text.Length = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If NB_46110020.Text.Length = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If Val(HJ_46110020.Text) = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If Val(JB_46110020.Text) = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
'perintah ambil data
Dim PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
KB_46110020.Text, 1, YUNI)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been
exist please insert new data")
'mengosongkan text box
KB_46110020.Text = " "
NB_46110020.Text = " "
HJ_46110020.Text = " "
JB_46110020.Text = " "
Exit Sub
End If
If ganti_46110020.Text = "-"
Then
tambah()
Else
replace()
End If
'mengosongkan text box
KB_46110020.Text = " "
NB_46110020.Text = " "
HJ_46110020.Text = " "
JB_46110020.Text = " "
'menutup form
Me.Close()
End Sub
End Class
9.
Jalankan program dengan cara mengklik start debugging seperti berikut :
Langkah-Langkah Membuat Form Latihan 34C_46110020
1.
Klik
start debugging
2.
Lalu
Pilih “BARANG” kemudian pilih “ Input Data” pada (Latihan_34A_46110020) seperti
di bawah ini :
3. Kemudian
isilah data yang anda inginkan tekan tombol”simpan” maka Hasil akan TERSIMPAN
sendiri secara otomatis, dan hasil tersebut anda bisa lihat pada data access
“DATABARANG”.
4.
Semoga
Berhasil :)
Script Unique
Script pada latihan ini sudah ada pada latihan sebelumnya.
Even
Click
0 komentar:
Posting Komentar