Blog Archive

Followers

About Me

RSS

diskripsi dan prosedur latihan 23 A

DISKRIPSI LATIHAN 23 A



Latihan_23A_36110030

A.    Object-object dalam Latihan_23A_36110030 :
1.      Object Label
Terdapat satu label (yang bertuliskan master transaksi).

2.      Object DataGridView
Terdapat satu object datagridview yang digunakan untuk menampilkan master transaksi.

3.      Object Button
Terdapat satu object button (Klik). Button Klik digunakan untuk menampilkan detail dari master transaksi yang ada di datagridview. Detail dari master transaksi itu akan muncul pada form Latihan_23B_36110030.

B.     Script Unique
Untuk button Klik:
KLIK_36110030_Click

C.     Even
KLIK_36110030_Click
Latihan_23A_36110030_Load


 PROSEDUR PENYELESAIAN LATIHAN 23 A



1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008
 

2.KEMUDIAN KLIK NEW PROJECT PADA FILE
 

 

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT
 
 
4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :
 
 
5.KEMUDIAN MASUKAN RUMUS :
Public Class Latihan_23A_36110030
    Dim bridgeYHUYA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\semester 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
    Dim tabelYHUYA As New DataTable

    Private Sub Latihan_23A_36110030_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim truckyhuya As New OleDb.OleDbDataAdapter
        truckyhuya = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", bridgeYHUYA)
        tabelYHUYA.Rows.Clear()
        truckyhuya.Fill(tabelYHUYA)
        truckyhuya.Dispose()
        DataGridView1.DataSource = tabelYHUYA
    End Sub

    Private Sub KLIK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Klik.Click
        If Latihan_23B_36110030.Visible = False Then
            Latihan_23B_36110030.Show()
        Else
            Latihan_23B_36110030.Activate()
        End If

        Latihan_23B_36110030.Show()
        Latihan_23B_36110030.nomor_36110030.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
        Latihan_23B_36110030.DateTimePicker1.Value = DataGridView1.CurrentRow.Cells("TANGGALTRANSAKSI").Value
        Latihan_23B_36110030.JENIS_36110030.Text = DataGridView1.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_23B_36110030.yhuya()
    End Sub
End Class


6. KEMUDIAN UJI PROGRAM
 
 
 jika di klik maka akan muncul seperti ini : 

7. JIKA SUDAH BERHASIL Save program anda
 

8. selesai

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar