Deskripsi form Latihan_34c_46110003
Dalam form Latihan_34c_46110003 hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.
Dalam form Latihan_34c_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
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
Even :
Button click
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_34c_46110003
Dim Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataBarang.ACCDB")
Private Sub tmbh46110003()
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_34b_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_34b_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
tmbh46110003()
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 atau tambah pada form Latihan_34b_46110003, tetapi fungsinya berbeda. untuk button edit untuk mengedit database, sedangkan menu tambah untuk menginput data pada database
0 komentar:
Posting Komentar