Latihan_60_36110046

Deskripsi & Prosedur Form Latihan_60_36110046

Deskripsi Form Latihan_60_36110046

 

 

Pada Form Latihan 58 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 2 objek Textbox (seperti terlihat gambar di atas)

Script Unique

-

Event

ButtonClick

Property

-

Prosedur Form Latihan_60_36110046

Langkah-langkah mengerjakan Latihan 60, 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 60 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_60_361110046

    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 botto As New ByIskandar.MengaturDataBaseCrystalReport

        Laporan = botto.AturDatabase(New Latihan_59_36110046, Application.StartupPath, "data report.accdb")

        Latihan_53_36110046.CRV_36110046.ReportSource = Laporan

        'mengatur nilai parameter

        Laporan.SetParameterValue("QIPE", NK_36110046.Text)

        'Mengatur(Filter)

        Latihan_53_36110046.CRV_36110046.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_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.