Latihan_31A_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_31A
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_31A_46110007" pada name kemudian click add

·  Buat form seperti berikut 

·    Setelah itu beri teks pada button dan label.


·   Kemudian beri nama pada semua objek kecuali label.


·  Setelah form selesai masukkan rumus seperti dibawah ini 
Public Class Latihan_31A_46110007
    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_31A_46110007_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        ISI_46110007.DataSource = ambil
    End Sub

    Private Sub EDIT_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110007.Click
        If Latihan_31B_46110007.Visible = False Then
            Latihan_31B_46110007.Show()
        Else
            Latihan_31B_46110007.Activate()
        End If

        Latihan_31B_46110007.GANTI_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110007.T1_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110007.T2_46110007.Text = ISI_46110007.CurrentRow.Cells("namabarang").Value
        Latihan_31B_46110007.T3_46110007.Text = ISI_46110007.CurrentRow.Cells("hargajual").Value
        Latihan_31B_46110007.T4_46110007.Text = ISI_46110007.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

·  Untuk menjalankan form tekan F5 


B. Deskripsi Form Latihan 31A
Pada form latihan 31A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label
Pada form ini label yang digunakan ada 1 (daftar barang).

Object Button                                                                
Terdapat 1 object button (edit). Tombol edit digunakan untuk menampilkan form pengeditan data pada “Latihan_31B_46110007”.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even
Load
ButtonClick

Script Unique
Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Menjalankan Form Latihan 31A
  1. Pilih data tabel yang akan diedit.
  2. Klik “EDIT” untuk membuka form Latihan_31B_46110007”.
  3. Selamat mencoba (:
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)