Latihan_32C_46110009

Latihan_32C_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 32C

Pada form latihan 32C ada 4 object yang digunakan yaitu Label, Text Box, Button dan Status strip.

Object Label

Terdapat 4 label pada form latihan 32C (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button                                                   

Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object StatusStrip

Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

3.  Rumus

Public Class Latihan_32C_46110009

Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110009.Click

'perintah periksa data

If KB_46110009.Text.Length = 0 Then

MsgBox("Please Insert Your Text")

Exit Sub

End If

If NB_46110009.Text.Length = 0 Then

MsgBox("Please Insert Your Text")

Exit Sub

End If

If Val(HJ_46110009.Text) = 0 Then

MsgBox("Please Insert Your Text")

Exit Sub

End If

If Val(JB_46110009.Text) = 0 Then

MsgBox("Please Insert Your Text")

Exit Sub

End If

'perintah ambil data

If RePLaCe.Text <> KB_46110009.Text Then

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110009.Text, 1, go)

If PENCARI.JumlanBaris > 0 Then

MsgBox("The data has been exist please insert new data")

'mengosongkan text box

RePLaCe.Text = ""

KB_46110009.Text = ""

NB_46110009.Text = ""

HJ_46110009.Text = ""

JB_46110009.Text = ""

Exit Sub

End If

End If

'deklarasi object command

Dim Cm As New OleDb.OleDbCommand

Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110009.Text & "', namabarang = '" & NB_46110009.Text & "', hargajual=" & Val(HJ_46110009.Text) & ", jumlahbarang=" & Val(JB_46110009.Text) & " where kodebarang='" & RePLaCe.Text & "'", go)

go.Open()

Cm.ExecuteNonQuery()

go.Close()

Cm.Dispose()

'mengosongkan text box

RePLaCe.Text = "-"

KB_46110009.Text = ""

NB_46110009.Text = ""

HJ_46110009.Text = ""

JB_46110009.Text = ""

'mengambildata

Latihan_32A_46110009.ambildata()

'menutup form

Me.Close()

End Sub

End Class