A. Langkah-Langkah Penyelesaian Form Latihan_30B
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_30B_46110007"
pada name kemudian click add
· Buat form seperti berikut
· Setelah
itu beri teks pada label dan button
· Kemudian
beri nama pada semua objek, kecuali label
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_30B_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_30A_46110007.ambildata()
Me.Close()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 30B
Pada form latihan 30B ada 4
object yang digunakan yaitu Label, Text Box, Button dan
GroupBox.
Object Label
Terdapat 6 label pada form
latihan 30B (kode barang, (kode barang
yang akan diganti datanya), kode barang, nama barang, harga jual, dan jumlah barang).
Object
TextBox
Terdapat 5 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
setelah diganti datanya.
Object GroupBox
Ada 2 groupbox pada latihan ini. Groupbox
pertama berisi rincian data lama dan groupbox kedua berisi rincian data baru.
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
30B
- Input kode barang lama pada textbox yang tersedia.
- Input data barang baru untuk menggantikan data barang lama pada textbox yang terserdia.
- Klik “Simpan” untuk menyimpan perubahan data yang telah dibuat.
Posting Komentar