Latihan_23A_36110033

A.    Object-object dalam Latihan_23A_36110033 :

1.        Object Label  

Terdapat satu label yang bertuliskan master transaksi.

2.        Object DataGridView

Terdapat satu objeck datagridview yang digunakan untuk menampilkan master transaksi.

3.        Object Button

Terdapat satu object button yang nama textnya bertuliskan Klik. Button Klik digunakan untuk menampilkan detail dari master transaksi yang ada di datagridview pada form Latihan_23B_36110033.

             

B.  Script Unique:

    Latihan_23A_36110033_Load

Untuk button Klik:

KLIK_36110033_Click

C.  Even:

KLIK_36110033_Click

Latihan_23A_36110033_Load

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 kolom label, Datagridview dan kolom button  masing-masing sebanyak 1 kolom. Kemudian beri nama master transaksi pada label, klik  pada button dan apa saja yang anda inginkan pada Datagridview selanjutnya diikuti dengan stambuk. Adapun posisi label, Datagridview dan button sesuai dengan design pada latihan 23A berikut:

 

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

Public Class Latihan_23A_36110033

Dim BRIDGEILHA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Mata Kuliah\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

 Dim TABELILHA As New DataTable

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

  Dim TRUCKILHA As New OleDb.OleDbDataAdapter

TRUCKILHA = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", BRIDGEILHA)

TABELILHA.Rows.Clear()

TRUCKILHA.Fill(TABELILHA)

TABELILHA.Dispose()

DGV_36110033.DataSource = TABELILHA

    End Sub

    Private Sub KLIK_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KLIK_36110033.Click

    If Latihan_23B_36110033.Visible = False Then

       Latihan_23B_36110033.Show()

    Else

       Latihan_23B_36110033.Activate()

    End If

    Latihan_23B_36110033.Show()

Latihan_23B_36110033.NOMOR_36110033.Text = DGV_36110033.CurrentRow.Cells("NOTRANS").Value

Latihan_23B_36110033.TGL_36110033.Value = DGV_36110033.CurrentRow.Cells("TANGGALTRANSAKSI").Value

Latihan_23B_36110033.JENIS_36110033.Text = DGV_36110033.CurrentRow.Cells("JENISTRANSAKSI").Value

Latihan_23B_36110033.ZAHRA()

    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 23A selesai.