LATIHAN_23B_36110052

Latihan_23B_36110052

A.    Object-object dalam Latihan_23B_36110052 :

                  Object Label

Terdapat empat label (yang bertuliskan detail transaksi, nomor, tanggal, dan jenis).

                 Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_23A_36110052.

                Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menampilkan tanggal transaksi dari master transaksi yang dipilih pada form Latihan_23A_36110052

      Object TextBox

Terdapat dua obejct textbox yang digunakan untuk menampilkan nomor dan jenis transaksi dari master transaksi yang dipilih pada form Latihan_23A_36110052.

               

B.     Script Unique

 dapat dilihat secara menyeluruh pada langkah-langkah kerja Latihan_23B_36110052.

C.     Even

Latihan_23B_36110052_Load

Label1_Click

jns_36110052_TextChanged

Label2_Click

tgl_36110052_ValueChanged

dgv2_36110052_CellContentClick

nr_36110052_TextChanged

Langkah-langkah kerja  latihan_23b_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_23b_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public NotInheritable Class LATIHAN_23B_36110052

    Dim VIA As New DataTable

    Dim VEE As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub VEVE(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select id, kodebarang, unit, harga  from DETAILTRANSAKSI where NOTRANS='" & A & "'", VEE)

        VIA.Rows.Clear()

       adapter.Fill(VIA)

        dgv2_36110052.DataSource = VIA

    End Sub

   

Private Sub LATIHAN_23B_36110052_Load(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

 Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

  Private Sub jns_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jns_36110052.TextChanged

    End Sub

  Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

  Private Sub tgl_36110052_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tgl_36110052.ValueChanged

    End Sub

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

    End Sub

  Private Sub nr_36110052_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nr_36110052.TextChanged

    End Sub

End Class

6.  Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI