Latihan_28B_46110009

Latihan_28B_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 28B

Pada form latihan 28B ada 3 object yang digunakan yaitu Label, Text Box dan Button.

ü Object Label

Terdapat 5 label pada form latihan 28B (penginputan data, kode barang, nama barang, harga jual, dan  jumlah barang).

ü Object TextBox

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

ü Object Button                                               

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diinput.

       3.  Rumus

Public Class Latihan_28A_46110009

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

    Dim take As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'mengatur data yang akan diangkut

        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)

        'bersihkan data sebelum mengisi data lain

        take.Rows.Clear()

        'memasukkan data yg telah diambil ke dalam data grid view

        data.Fill(take)

        data.Dispose()

    End Sub

    Private Sub Latihan28a_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        DGV_46110009.DataSource = take

    End Sub

    Private Sub InPut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_46110009.Click

        'menampilkan form latihan28b

        If Latihan_28B_46110009.Visible = False Then

            Latihan_28B_46110009.Show()

        Else

            Latihan_28B_46110009.Activate()

        End If

    End Sub

    Private Sub DGV_46110009_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_46110009.CellContentClick

    End Sub

End Class