Deskripsi form Latihan_33b_46110003
Dalam form Latihan_33b_46110003 hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.
Dalam form Latihan_33b_46110003 hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.
Object Label :
Dalam form ini terdapat empat buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan “jumlah barang” .
Dalam form ini terdapat empat buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan “jumlah barang” .
Object Textbox :
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.
Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.
Object Toolstrip :
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.
Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.
Even :
Button click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_33b_46110003
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 ('" &
kb46110003.Text & "','" &
nb46110003.Text & "', " &
Val(hj46110003.Text) & ","
& Val(jb46110003.Text) & ")",
Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
Latihan_33a_46110003.amal()
End Sub
Private Sub replace()
Dim Cm As New OleDb.OleDbCommand
Cm = New
OleDb.OleDbCommand("Update BARANG set
kodebarang ='" & kb46110003.Text & "',
namabarang = '" & nb46110003.Text & "', hargajual=" & Val(hj46110003.Text) & ", jumlahbarang=" &
Val(jb46110003.Text) & " where
kodebarang='" & kode46110003.Text & "'", Jalan)
Jalan.Open()
Cm.ExecuteNonQuery()
Jalan.Close()
Cm.Dispose()
Latihan_33a_46110003.amal()
End Sub
Private Sub save46110003_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles save46110003.Click
If
kb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
nb46110003.Text.Length = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(hj46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit
Sub
End If
If
Val(jb46110003.Text) = 0 Then
MsgBox("Plase
Insert Your Text")
Exit Sub
End If
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kb46110003.Text, 1, Jalan)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
Exit
Sub
End If
If
kode46110003.Text = "-" Then
tambah()
Else
replace()
End If
kb46110003.Text = " "
nb46110003.Text = " "
hj46110003.Text = " "
jb46110003.Text = " "
Me.Close()
End Sub
End Class
3. Jalankan Program dengan mengklik button edit pada Latihan_33a_46110003.
4. Maka data yang telah diedit akan tersimpan pada file database.
0 komentar:
Posting Komentar