Latihan_56_36110046

Deskripsi & Prosedur Form Latihan_56_36110046

Deskripsi Form Latihan_56_36110046

 

 

Pada Form Latihan 56 terdapat 3 object, yaitu button, textbox dan label.

Object Pada Form

Object Label

Terdapat 2 objek Label (seperti terlihat gambar di atas)

Object Button

Terdapat 1 objek Button (seperti terlihat gambar di atas)

Object Textbox

Terdapat 1 objek Textbox (seperti terlihat gambar di atas)

Script Unique

-Mengatur Filter

Latihan_53_36110046.CRV_36110046.SelectionFormula = "{barang.kodebarang} = '" & KB_36110046.Text & "'"

Event

ButtonClick

Property

-

 

Prosedur Form Latihan_56_36110046

 

Langkah-langkah mengerjakan Latihan 56, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat  objek semua objek sesuai dengan design pada latihan 56 dengan toolbox, ikuti gambar dibawah ini:

7.        Setelah design sudah bagus, saatnya untuk membuat script

8.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_56_36110046

    Private Sub TB_36110046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_36110046.Click

        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan

        Dim QP As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = QP.AturDatabase(New Latihan_50_36110046, Application.StartupPath, "data report.accdb")

        Latihan_53_36110046.CRV_36110046.ReportSource = Laporan

        'Mengatur(Filter)

        Latihan_53_36110046.CRV_36110046.SelectionFormula = "{barang.kodebarang} = '" & KB_36110046.Text & "'"

        'Menampilkan form 53

        If Latihan_53_36110046.Visible = False Then

            Latihan_53_36110046.Show()

        Else

            Latihan_53_36110046.Activate()

        End If

    End Sub

End Class

9.        Silahkan jalankan program anda. Wassalam.