Latihan_27_46110022
Deskripsi Form Latihan_27_46110022
Dalam
form ini terdapat 3 buah object yaitu label, textbox dan button.
Object Label
Terdapat
5 object label yaitu penginputan data,
kode barang, nama barang, harga jual dan jumlah barang.
Object Textbox
Terdapat 4 buah object textbox yang
berfungsi untuk menginput data ke dalam database.
Object Button
Terdapat sebuah objek button
(simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal
ini untuk menyimpan data yang telah diinput di textbox ke dalam database.
Script Unique
1.
Perintah untuk periksa data :
If kode46110022.Text.Length = 0 Then
MsgBox("Please Insert Your Text")
Exit Sub
End If
2. Perintah untuk mengambil data :
Dim PENCARI As
New ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG",
"KODEBARANG", kode46110022.Text,
1, go)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been
exist please insert new data")
3.
Perintah untuk mendeklarasikan
object command
Dim Cm As
New OleDb.OleDbCommand
Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG,
HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110022.Text & "','" & nama46110022.Text & "', " & Val(harga46110022.Text)
& "," &
Val(jml46110022.Text) & go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
Even
Click
Langkah-Langkah Membuat Form Latihan 27_46110022
1.
Buat form baru seperti langkah berikut :
2.
Input nama form pada kolom yang tersedia, lalu klik "add" seperti
berikut :
3.
Buat desain form seperti gambar berikut :
4.
Input script di bawah ini :
Public Class Latihan_27_46110022
Dim go As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub simpan46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan46110022.Click
If
kode46110022.Text.Length = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
nama46110022.Text.Length = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
Val(harga46110022.Text) = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
Val(jml46110022.Text) = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
Dim PENCARI
As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kode46110022.Text, 1, go)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
Exit
Sub
End If
Dim Cm As New
OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("INSERT INTO BARANG
(KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" &
kode46110022.Text & "','"
& nama46110022.Text & "', "
& Val(harga46110022.Text) & ","
& Val(jml46110022.Text) & ")",
go)
go.Open()
Cm.ExecuteNonQuery()
go.Close()
Cm.Dispose()
kode46110022.Text = ""
nama46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
End Sub
End Class
5. Jalankan program
dengan cara mengklik start debugging seperti berikut :
6.
Setelah menekan start debug, maka
akan tampil hasil dari latihan 27 seperti berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
