Latihan_60_46110002

Deskripsi Form Latihan 60

Pada form latihan 60 ada 3 object yang digunakan yaitu Label, TextBox dan Button.

Object Label

Pada form ini yang digunakan ada 2 label “No. Transaksi dan Nama Kasir.

Object TextBox                                                             

Terdapat 2 textbox berstatus input, yang digunakan dalam menginput data berupa no. transaksi dan nama kasir.

Object Button                                                                

Terdapat 1 object button (preview). Tombol preview digunakan untuk menampilkan form “Latihan_53_46110002” yang berisi berisi Rincian Transaksi berdasarkan “Latihan_50_46110002”.

Even

ButtonClick

Script Unique

mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110002.Text)

 

Langkah-Langkah Penyelesaian Form Latihan_60
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

 

·  Ketik nama form "Latihan_60_46110002" pada name kemudian click add 

·  Buat form seperti berikut 

 

          

·         Setelah itu beri teks pada button dan label.

·         Kemudian beri nama pada button dan textbox

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_60_46110002
    Private Sub View_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_46110002.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_46110002, Application.StartupPath, "data report.accdb")

        Latihan_53_46110002.CrystalReportViewer1.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("nama", NK_46110002.Text)

        'Mengatur(Filter)
        Latihan_53_46110002.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46110002.Text & "'"

        'Menampilkan for
        If Latihan_53_46110002.Visible = False Then
            Latihan_53_46110002.Show()
        Else
            Latihan_53_46110002.Activate()
        End If
    End Sub
End Class
 

Langkah-Langkah Menjalankan Form Latihan60

1.       Klik Start Debugging

2.      Isi No.transaksi dan Nama Kasir di text box sesuai dengan keinginan anda lalu tekan preview

3.      Selamat mencoba

Latihan_59_46110002

DESKRIPSI FORM LATIHAN 59

 

Pada Latihan ini terdapat 3 object yaitu Text Object, Line Object, dan Box Object

Text Object

Terdapat  dua Text Object yang bertuliskan Latihan 59, PT.X,  Rincian Transaksi dengan menggunakan text objext ada toolbox.

Line Object

Dalam form ini digunakan untuk garis untuk membatasi kolom

Box  Object

  Dalam form ini Box Object digunakan untuk membuat kolom

Langkah-Langkah Penyelesaian Form Latihan_59
1. Buka project yang telah dibuat sebelumnya.

2. Klik “kumpulan latihan -> add -> new item”, seperti pada gambar dibawah ini:

 

3. Ketik nama form "Latihan_59_46110002" pada name kemudian click add -> As a Blank Report. 

  

4. Masukkan jenis database yang diinginkan, 
Klik kanan pada “Database Fields” yang ada dalam Fields Explorer -> pilih “Database Expert”, setelah itu pilih “Table” kemudian Klik “Barang, Detail Transaksi dan Master Transaksi” seperti di bawah Ini : 

5. Setelah Database Fields yang ada dalam Fields Explorer berisi data base yang telah dipilih sebelumnya, buat “main report “ seperti berikut:
#untuk "Jumlah" klik kanan pada Harga Jual (insert -> Summary -> Ok) 

  6. Untuk melihat hasil main report, klik “main report preview”