Deksripsi_Latihan_28A_36110054

Cara Membuat Progam/Apliaksi Latihan 28A

Dengan Software Microsoft Visual Basic 2008

Form Latihan 28A terdapat dua object yaitu Data Grid View dan Button

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb

Object  Button

Terdapat dua object button (Input dan tutup).

 Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 28A.

Even

Form Load

ButtonClick

Langkah 1

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2:

 Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

       -          Lihat Gambar Berikut :

Langkah 3: 

  Rancanglah From Seperti Gambar Berikut Berikut :

     Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_28A_36110054

    Dim Ruslan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")

    Dim cullank As New DataTable

    Public Sub iruru()

        Dim icul As New OleDb.OleDbDataAdapter

        icul = New OleDb.OleDbDataAdapter("Select * From Barang", Ruslan)

        cullank.Rows.Clear()

        icul.Fill(cullank)

        icul.Dispose()

    End Sub

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

        iruru()

        DataGridView1_36110054.DataSource = cullank

    End Sub

    Private Sub INPUT_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUT_36110054.Click

        If Latihan_28B_36110054.Visible = False Then

            Latihan_28B_36110054.Show()

        Else

            Latihan_28B_36110054.Activate()

            Latihan_28B_36110054.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub TUTUP_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TUTUP_36110054.Click

        Me.Close()

    End Sub

End Class