Deskripsi Latihan_28B_36110038
Form Latihan_28B terdapat tiga
object yaitu Label, Textbox, dan Button:
Object Label
Terdapat lima label (yang
bertuliskan penginputan barang, Kode Barang, Nama Barang, Harga Jual dan Jumlah
Barang)
Object Text Box
Terdapat empat textbox status input
digunakan untuk memasukkan nilai atau text Kode Barang, Nama Barang, Harga Jual
dan Jumlah Barang.
Object Button
Terdapat satu object button (simpan).
Tombol simpan digunakan untuk menyimpan data barang ke table barang.
Script Unique
Button "Simpan" (simpan_36110038)
If kobar_36110038.Text.Length = 0 Then
If kobar_36110038.Text.Length = 0 Then
MsgBox("kode
barang belum terisi")
Exit
Sub
End If
Even
simpan_36110038.Click
Prosedur penyelesaian
1.
Buka Project_36110038 yang telah
dibuat sebelumnya.
2.
Buka visual basic Kumpulan_Latihan_36110038
yang telah dibuat sebelumnya.
3.
Buat form baru dengan nama
Latihan_28B_36110038 sesuai form dibawah ini.
4. Ganti
semua nama objek yang ada selain label menggunakan "Properties
Window" sesuai dengan yang diinginkan dengan menambahkan stambuk
dibelakang nama obyek.
5. Klik
2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan
rumus berikut untuk menyelesaikan Latihan_28B
Public Class Latihan_28B_36110038
Dim connec As New
OleDb.OleDbConnection("provider =
microsoft.ace.oledb.12.0;data source=" &
Application.StartupPath & "\databarang.accdb;Jet
OLEDB:Database Password=03")
Dim cari As New
ByIskandar.CariKeDataBaseByIskandar
Dim comman As New
OleDb.OleDbCommand
Private Sub simpan_36110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_36110038.Click
If
kobar_36110038.Text.Length = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
Nabar_36110038.Text.Length = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
Val(Haju_36110038.Text) = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
If
Val(jml_36110038.Text) = 0 Then
MsgBox("Please
Insert Your Text")
Exit
Sub
End If
Dim
PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG",
kobar_36110038.Text, 1, connec)
If
PENCARI.JumlanBaris > 0 Then
MsgBox("The
data has been exist please insert new data")
kobar_36110038.Text = " "
Nabar_36110038.Text = " "
Haju_36110038.Text = " "
jml_36110038.Text = " "
Exit
Sub
End If
comman = New
OleDb.OleDbCommand("INSERT INTO BARANG
(KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" &
kobar_36110038.Text & "','"
& Nabar_36110038.Text & "', "
& Val(Haju_36110038.Text) & ","
& Val(jml_36110038.Text) & ")",
connec)
connec.Open()
comman.ExecuteNonQuery()
connec.Close()
comman.Dispose()
kobar_36110038.Text = " "
Nabar_36110038.Text = " "
Haju_36110038.Text = " "
jml_36110038.Text = " "
Latihan_28A_36110038.widhe()
Me.Close()
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form.
Tidak ada komentar:
Posting Komentar