A. Langkah-Langkah Penyelesaian Form Latihan_31B
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_31B_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_31B_46110007
Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
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
If GANTI_46110007.Text <>
T1_46110007.Text Then
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
End If
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()
GANTI_46110007.Text = "-"
T1_46110007.Text = " "
T2_46110007.Text = " "
T3_46110007.Text = " "
T4_46110007.Text = " "
Latihan_31A_46110007.ambildata()
Me.Close()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 31B
Pada form latihan 31B ada 4
object yang digunakan yaitu Label, Text Box, Button dan Status
strip.
Object Label
Terdapat 4 label pada form
latihan 31B (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 diganti.
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
31B
- Input data yang ingin dirubah berdasarkan label pada textbox yang tersedia.
- Klik “Simpan” untuk menyimpan perubahan data yang telah dibuat.
Posting Komentar