A. Langkah-Langkah Penyelesaian Form Latihan_33B
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form
"Latihan_33B_46110007" pada name kemudian click add
· Buat form seperti berikut
·
Setelah
itu beri teks pada label, button dan status strip.
·
Kemudian
beri nama pada semua objek, kecuali label
· Setelah form selesai masukkan rumus seperti dibawah
ini
Public Class
Latihan_33B_46110007
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source
=" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub tambah()
Dim Cm As New OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL,
JUMLAHBARANG) VALUES ('" & T1_46110007.Text & "','"
& T2_46110007.Text & "', " & Val(T3_46110007.Text) &
"," & Val(T4_46110007.Text) & ")", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
Latihan_33A_46110007.ambildata()
End Sub
Private Sub replace()
Dim Cm As New OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set kodebarang ='" &
T1_46110007.Text & "', namabarang = '" & T2_46110007.Text
& "', hargajual=" & Val(T3_46110007.Text) & ",
jumlahbarang=" & Val(T4_46110007.Text) & " where kodebarang='"
& GANTI_46110007.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
Latihan_33A_46110007.ambildata()
End Sub
Private Sub SIMPAN_46110007_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110007.Click
If T1_46110007.Text.Length = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If T2_46110007.Text.Length = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If Val(T3_46110007.Text) = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
If Val(T4_46110007.Text) = 0 Then
MsgBox("Plase Insert Your
Text")
Exit Sub
End If
Dim PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG",
"KODEBARANG", T1_46110007.Text, 1, Jalan)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been
exist please insert new data")
T1_46110007.Text = " "
T2_46110007.Text = " "
T3_46110007.Text = " "
T4_46110007.Text = " "
Exit Sub
End If
If GANTI_46110007.Text = "-"
Then
tambah()
Else
replace()
End If
T1_46110007.Text = " "
T2_46110007.Text = " "
T3_46110007.Text = " "
T4_46110007.Text = " "
Me.Close()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 33B
Pada form latihan 33B ada 4
object yang digunakan yaitu Label, Text Box, Button dan
Status strip.
Object Label
Terdapat 4 label pada form
latihan 33B (kode barang, nama barang,
harga jual, dan jumlah barang).
Object
TextBox
Terdapat 4 object textbox (status input) yang
digunakan dalam menginput data.
Object
Button
Pada form Latihan ini juga
terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data
yang telah diinput.
Object
StatusStrip
Ada 2 statusstrip yang digunakan
(kode barang lama dan -). “-“ nantinya akan menampilkan kode barang.
Script Unique
Pada Latihan ini tidak ada script
yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.
Even
ButtonClick
Langkah-Langkah Menjalankan Form Latihan
33B
- Input data yang ingin ditambahkan ataupun dirubah, sesuai dengan perintah awal pada “Latihan_33A_46110007”.
- Klik “Simpan” untuk menyimpan perubahan ataupun penambahan data yang telah dibuat.
- Selamat mencoba (:
Posting Komentar