Jumat, 05 Oktober 2012

latihan_23B_36110036


Deskripsi latihan_23B_36110036

A.           Object Label

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

B.            Object Data gridview

    Terdapat satu object data gridview yang digunakan untuk menampilkan data table yang telah dibuat.

C.           Object textbox
    Terdapat dua textbox yang digunakan untuk memasukkan nomor dan jenis dari detail transaksi.

D.           Object date timepicker

    Terdapat satu object date timepicker yang digunakan untuk menginput tanggal dari detail transaksi yang berasal dari latihan_23A_36110036.

E.            Script Unique

    Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan   latihan_23B_36110036.

F.          Even

Latihan_23B_36110036_Load
anna() 
 
Langkah-langkah mengerjakan latihan_23B_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer
            2.          Klik  kanan nama project ==> add ==> new item

        
                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

         
4.    Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.
5.    Kemudian buat form seperti dibawah ini: 

                  
 6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_23B_36110036

Public Class latihan_23B_36110036

    Dim rosyana As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim resta As New DataTable

    Public Sub anna()
        Dim rima As New OleDb.OleDbDataAdapter
        rima = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI Where NOTRANS = '" & nomor_36110036.Text & "'", rosyana)
        resta.Rows.Clear()
        rima.Fill(resta)
        rima.Dispose()
    End Sub

    Private Sub Latihan_23B_36110036_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        data_36110036.DataSource = resta
    End Sub
End Class

7.      Setelah rumus selesai, program dijalankan dengan menggunakan start debugging


8.     Setelah program jalan maka file disave.














Tidak ada komentar:

Posting Komentar