A. Langkah-Langkah Penyelesaian Form Latihan_27
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_27_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_27_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
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
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()
T1_46110007.Text = " "
T2_46110007.Text = " "
T3_46110007.Text = " "
T4_46110007.Text = " "
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 27
Pada form latihan 27 ada 3 object
yang digunakan yaitu Label, Text Box dan Button.
Object Label
Terdapat 5 label pada form
latihan 27 (penginputan data, kode
barang, nama barang, harga jual, dan
jumlah barang).
Object
Button
Terdapat 1 object button (simpan).
Tombol simpan digunakan untuk menyimpan data yang telah diinput.
Object
TextBox
Terdapat 4 object textbox (status input) yang digunakan
dalam menginput data.
Script Unique
Memeriksa dan memastikan
data telah terisi
If T1_46110007.Text.Length
= 0 Then
MsgBox("Plase Insert Your Text")
Exit Sub
End If
Memeriksa apakah data yang
dimasukkan sudah ada sebelumnya atau tidak
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
Memasukkan data dari visual basic
kedalam data access
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()
T1_46110007.Text = " "
T2_46110007.Text = " "
T3_46110007.Text = " "
T4_46110007.Text = " "
Even
ButtonClick
Langkah-Langkah Menjalankan Form Latihan
27
- Input data pada textbox yang telah tersedia.
- Klik “SIMPAN” untuk menyimpan data yang telah diinput.
- Selamat mencoba (:
Posting Komentar