Latihan_34B_46110009

 Latihan_34B_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 34B

Pada form latihan 34A ada 2 object yang digunakan yaitu Menu Strip dan Tool Strip.

ü Object MenuStrip

Terdapat 1 object MenuStrip (Barang).

ü Object ToolStrip                                           

Terdapat 2 object ToolStrip (Daftar Barang dan Input Barang)

3.  Rumus

Public Class Latihan_34B_46110009

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

Dim ambil As New DataTable

Public Sub ambildata()

Dim data As New OleDb.OleDbDataAdapter

data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

ambil.Rows.Clear()

data.Fill(ambil)

data.Dispose()

End Sub

Private Sub Latihan_34B_46110009_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

ambildata()

ISI_46110009.DataSource = ambil

End Sub

Private Sub HAPUS_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_46110009.Click

If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

Exit Sub

End If

Dim Cm As New OleDb.OleDbCommand

Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & ISI_46110009.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)

Jalan.Open()

Cm.ExecuteNonQuery()

Jalan.Close()

Cm.Dispose()

ambildata()

End Sub

Private Sub TAMBAH_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110009.Click

If Latihan_34C_46110009.Visible = False Then

Latihan_34C_46110009.MdiParent = Me.MdiParent

Latihan_34C_46110009.Show()

Else

Latihan_34C_46110009.Activate()

End If

Latihan_34C_46110009.GANTI_46110009.Text = "-"

Latihan_34C_46110009.T1_46110009.Text = " "

Latihan_34C_46110009.T2_46110009.Text = " "

Latihan_34C_46110009.T3_46110009.Text = " "

Latihan_34C_46110009.T4_46110009.Text = " "

End Sub

Private Sub EDIT_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110009.Click

Latihan_34C_46110009.Show()

Latihan_34C_46110009.GANTI_46110007.Text = ISI_46110009.CurrentRow.Cells("kodebarang").Value

Latihan_34C_46110009.T1_46110007.Text = ISI_46110009.CurrentRow.Cells("kodebarang").Value

Latihan_34C_46110009.T2_46110007.Text = ISI_46110009.CurrentRow.Cells("namabarang").Value

Latihan_34C_46110009.T3_46110009.Text = ISI_46110009.CurrentRow.Cells("hargajual").Value

Latihan_34C_46110009.T4_46110009.Text = ISI_46110009.CurrentRow.Cells("JumlahBarang").Value

End Sub

End Class