Kamis, 08 November 2012

Latihan_60_36110033



A.    Object-object dalam Latihan_60_36110033:

1.        Object Label
  Terdapat dua object label yang bertuliskan nomor transaksi dan nama kasir.

2.        Object Textbox
Terdapat dua object textbox yang berstatus input.

3.        Object Button
Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_59_36110033 di dalam latihan_53_36110033 berdasarkan nomor transaksi.

B.     Script Unique:

Latihan_60_36110033_Load
Lengkapnya dapat dilihat pada prosedur Latihan_60_36110033.

C.    Even:
View_36110033_Click

Prosedur
1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:
Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat 2 Label, 2 object textbox dan 1 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, textbox dan button sesuai dengan design pada latihan 60 berikut:

6.      Untuk menuliskan rumus pada latihan 60, anda dapat menuliskan rumus seperti dibawah ini:
Public Class Latihan_60_36110033
    Private Sub View_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_36110033.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim ILHA As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = ILHA.AturDatabase(New Latihan_59_36110033, Application.StartupPath, "data report.accdb")

        Latihan_53_36110033.crv_36110033.ReportSource = Laporan

        'mengatur nilai parameter
        Laporan.SetParameterValue("ILHA", NK_36110033.Text)

        'Mengatur(Filter)
        Latihan_53_36110033.crv_36110033.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_36110033.Text & "'"

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

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.    Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 60 selesai.

Latihan_59_36110033



Deskripsi latihan_59_36110033
Dalam Latihan kali ini terdapat tiga object yang terdiri dari:
1.        text object
2.        line object
3.        box object
Database file yang digunakan untuk melaksanakan latihan ini adalah data yang berasal dari BARANG, DETAILTRANSAKSI dan MASTERTRANSAKSI yang berbentuk Microsoft Office Access.
Terdapat satu Group name fields (group #1 name) dimana group yang berdasarkan notrans berasal dari mastertransaksi.
Parameter fields juga digunakan pada latihan ini dimana satu parameter fields bertuliskan ILHA
Cara menjumlahkan field
Field HARGA :  klik kanan field HARGA pilih insert kemudian summary. Setelah itu pada kotak Calculate this summary, pilih SUM. kemudian klik OK       .

Prosedur
1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:
Setelah muncul klik dan pilih reporting selanjutnya crystal report, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.
5.    Jendela seperti berikut akan muncul lalu pilih as a blank report lalu ok.

6.    Hasilnya seperti ini. Untuk membuat connection, klik kanan pada database fields dan pilih database expert.

7.    Create new connection, pilih OLE DB (ADO).

8.    Pilih microsoft office 12.0 access database lalu next.

9.    Untuk data source, copy alamat tempat file yang akan dijadikan database lalu next dan terakhir finish.





10.    Pilih tabel yang akan digunakan dalam crystal report. Kemudian drag file yang akan di gunakan dalam project yang dibuat. Adapun untuk lebih jelasnya buat main report seperti dibawah ini:

11.    Selanjutnya tampilkan hasil main report tersebut dengan mengklik main report  preview.

12.    Jika program berjalan, dan sesuai dengan yang diinginkan,  simpan dan projectpun selesai.

Latihan_58_36110033



A.    Object-object dalam Latihan_58_36110033:

1.      Object Label
Terdapat tiga object label yang bertuliskan rincian transaksi (latihan 50) berdasarkan
tanggal, dari tanggal, dan hingga tanggal.

2.      Object DateTimePicker.
Terdapat dua object datetimepicker yang digunakan untuk menampilkan tanggal transaksi.

3.      Object Button.
Terdapat satu object button (preview) yang digunakan untuk menampilkan daftar barang latihan_50_36110033 di dalam latihan_53_36110033.

B.     Script Unique:

Latihan_58_36110033_Load
Lengkapnya dapat dilihat pada prosedur Latihan_58_36110033.

C.    Even:
View_36110033_Click

Prosedur
1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:
Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat tiga object label, dua object datetimepicker dan 1 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, datetimepicker dan button sesuai dengan design pada latihan 58 berikut:
 
6.      Untuk menuliskan rumus pada latihan 58, anda dapat menuliskan rumus seperti dibawah ini:
Public Class Latihan_58_36110033
    Private Sub View_36110033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles View_36110033.Click
        Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument

        'mengatur lokasi dan nama database laporan
        Dim ILHA As New ByIskandar.MengaturDataBaseCrystalReport
        Laporan = ILHA.AturDatabase(New Latihan_50_36110033, Application.StartupPath, "data report.accdb")
        Latihan_53_36110033.crv_36110033.ReportSource = Laporan

        'Mengatur(Filter)
        Latihan_53_36110033.crv_36110033.SelectionFormula = "datevalue({mastertransaksi.tanggaltransaksi}) = #" & DTP1_36110033.Value.Month & "/" & DTP1_36110033.Value.Day & "/" & DTP1_36110033.Value.Year & "#" & "and datevalue({mastertransaksi.tanggaltransaksi}) <= #" & DTP2_36110033.Value.Month & "/" & DTP2_36110033.Value.Day & "/" & DTP2_36110033.Value.Year & "#"

        'Menampilkan form 53
        If Latihan_53_36110033.Visible = False Then
            Latihan_53_36110033.Show()
        Else
            Latihan_53_36110033.Activate()
        End If
    End Sub
End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 58 selesai.