Latihan_28A_36110033

A.    Object-object dalam Latihan_28A_36110033:

1.       Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

2.       Object Button

Terdapat dua object button yang nama textnya bertuliskan Input dan Tutup. Button input digunakan untuk menampilkan form Latihan_28B_36110033, yang kemudian digunakan untuk menginput data barang ke dalam form BARANG di Ms Access yang dapat di lihat pada object datagridview di Latihan_28A_36110033. Sedangkan Button tutup digunakan untuk menutup form Latihan_28A_36110033.

      

B.     Script Unique:

Latihan_28A_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_28A_36110033.

C.      Even:

Latihan_28A_36110033_Load

INPUT_36110033_Click

Tutup_36110033_Click

MUATAN()

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

 Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat 1 kolom Datagridview dan 2 kolom button. Kemudian beri nama input dan tutup pada button dan apa saja yang anda inginkan pada Datagridview selanjutnya diikuti dengan stambuk. Adapun posisi Datagridview dan button sesuai dengan design pada latihan 28A berikut:

 6.      Untuk menuliskan rumus pada latihan 28A, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_28A_36110033

Dim JEMBATANILHA As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=ILHA")

 Dim TABLEILHA As New DataTable

Public Sub MUATAN()

   Dim TRUCKILHA As New OleDb.OleDbDataAdapter

TRUCKILHA = New OleDb.OleDbDataAdapter("Select * From Barang", JEMBATANILHA)

   TABLEILHA.Rows.Clear()

   TRUCKILHA.Fill(TABLEILHA)

   TRUCKILHA.Dispose()

   End Sub

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

   MUATAN()

   DGV_36110033.DataSource = TABLEILHA

   End Sub

    Private Sub INPUT_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_36110033.Click

   If Latihan_28B_36110033.Visible = False Then

      Latihan_28B_36110033.Show()

   Else

      Latihan_28B_36110033.Activate()

      Latihan_28B_36110033.WindowState =FormWindowState.Normal

   End If

   End Sub

    Private Sub Tutup_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup_36110033.Click

   Me.Close()

   End Sub

   End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 28A selesai.