Latihan_23A_46110001

Latihan_23A_46110001

A.Object-object dalam Latihan_23a_46110001 :

 

A.    Object Label

Pada form ini hanya terdapat 1 label pada form latihan 23A (yaitu Master Transaksi). 

B.    Object DataGridView

Hanya terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

C.    Object Button

Dalam latihan ini hanya terdapat 1 object button yaitu(Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form “Latihan_23B_46110007”.

D.    Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

E.    Even

Load

ButtonClick

CellContentClick

F.    Script Unique

·         Membuat Koneksi

Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")   

·         Membuat data tabel   

Dim tabel As New DataTable

·         Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

·         Membersihkan data tabel

tabel.Rows.Clear()

·         Mengisi data base kedalam data tabel

adapter.Fill(tabel)

dgf23a_46110001.DataSource = tabel

g.    Cara penyelesaian

• Langkah pertama dalam membuat form/ latihan 23a ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

• Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

 

• Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

• atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

• Buatlah form seperti gambar dibawah ini,

• Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_23a_46110001
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Private Sub latihan_23a_46110001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", koneksi)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        dgf23a_46110001.DataSource = tabel
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46109008.Click
        If Latihan_23b_46110001.Visible = False Then
            Latihan_23b_46110001.Show()
        Else : Latihan_23b_46110001.Activate()
        End If

        Latihan_23b_46110001.no_46110001.Text = dgf23a_46110001.CurrentRow.Cells("notrans").Value
        Latihan_23b_46110001.tgl_46110001.Text = dgf23a_46110001.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23b_46110001.jenis_46110001.Text = dgf23a_46110001.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23b_46110001.bahri(Latihan_23b_46110001.no_46110001.Text)

    End Sub

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

    End Sub
End Class

• langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah in