Kamis, 12 Januari 2012

Latihan 57 APKOM 4 D4A

Submit Here

34 komentar:

  1. Public Class Latihan057_46109001


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109001
    Latihan_053_46109001.honda.SelectionFormula = "(detailtransaksi.harga) <=" & wiwi46109001.Text & ""

    Latihan_053_46109001.honda.ReportSource = laporan
    If Latihan_053_46109001.Visible = False Then
    Latihan_053_46109001.Show()
    Latihan_053_46109001.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class LATIHAN_057_46109030


    Private Sub p_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109030.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109030
    Latihan_053_46109030.Honda.SelectionFormula = "(detailtransaksi.harga) <=" & tb_46109030.Text & ""

    Latihan_053_46109030.Honda.ReportSource = laporan
    If Latihan_053_46109030.Visible = False Then
    Latihan_053_46109030.Show()
    Latihan_053_46109030.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN057_46109027


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New LATIHAN045_46109027
    LATIHAN053_46109027.honda.SelectionFormula = "(detailtransaksi.harga) <=" & FEBY46109027.Text & ""

    LATIHAN053_46109027.honda.ReportSource = laporan
    If LATIHAN053_46109027.Visible = False Then
    LATIHAN053_46109027.Show()
    LATIHAN053_46109027.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  4. Public Class LATIHAN057_46109021


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan045_46109021
    LATIHAN053_46109021.HONDA_46109021.ReportSource = laporan
    LATIHAN053_46109021.HONDA_46109021.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109021.Visible = False Then
    LATIHAN053_46109021.Show()
    LATIHAN053_46109021.Activate()

    Else
    LATIHAN053_46109021.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  5. http://ismisriwahyuni.blogspot.com/2012/01/latihan-57-public-class.html

    BalasHapus
  6. Public Class LATIHAN057_46109045


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan045_46109045
    LATIHAN053_46109045.HONDA_46109045.ReportSource = laporan
    LATIHAN053_46109045.HONDA_46109045.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109045.Visible = False Then
    LATIHAN053_46109045.Show()
    LATIHAN053_46109045.Activate()

    Else
    LATIHAN053_46109045.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  7. Public Class Latihan057_46109017


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109017
    Latihan_053_46109017.honda.SelectionFormula = "(detailtransaksi.harga) <=" & ayu46109017.Text & ""

    Latihan_053_46109017.honda.ReportSource = laporan
    If Latihan_053_46109017.Visible = False Then
    Latihan_053_46109017.Show()
    Latihan_053_46109017.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Public Class LATIHAN057_46109005


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan045_46109005
    LATIHAN053_46109005.HONDA_46109005.ReportSource = laporan
    LATIHAN053_46109005.HONDA_46109005.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109005.Visible = False Then
    LATIHAN053_46109005.Show()
    LATIHAN053_46109005.Activate()

    Else
    LATIHAN053_46109005.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  9. Public Class LATIHAN057_46109051


    Private Sub p_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109051.Click
    Dim cantik As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    cantik = New Latihan_045_46109051
    Latihan053_46109051.Honda.SelectionFormula = "(detailtransaksi.harga) <=" & tb_46109051.Text & ""

    Latihan053_46109051.Honda.ReportSource = cantik
    If Latihan053_46109051.Visible = False Then
    Latihan053_46109051.Show()
    Latihan053_46109051.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  10. Public Class LATIHAN_057_46109054
    Private Sub Dwi_46109054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi_46109054.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New LATIHAN_50_46109054, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form53_46109054.HONDA.ReportSource = laporan
    Form53_46109054.HONDA.SelectionFormula = "{detailtransaksi.harga} >='" & ww_46109054.Text & "'"
    If Form53_46109054.Visible = False Then
    Form53_46109054.Show()
    Else
    Form53_46109054.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  11. Aryandira

    Public Class FORM_057_46109034
    Private Sub Dira_46109034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dira_46109034.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New FORM50_46109034, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form53_46109034.HONDA.ReportSource = laporan
    Form53_46109034.HONDA.SelectionFormula = "{detailtransaksi.harga} >='" & ayu_46109034.Text & "'"
    If Form53_46109034.Visible = False Then
    Form53_46109034.Show()
    Else
    Form53_46109034.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  12. http://www.wahyunirachman.blogspot.com/2012/11/latihan5746110020.html

    BalasHapus
  13. http://srikartikafanty.blogspot.com/2012/11/latihan5746110007.html

    BalasHapus
  14. http://sulhihusni.blogspot.com/2012/12/latihan5746110004.html

    BalasHapus
  15. http://idhamsyaam.blogspot.com/2012/12/latihan5746110021.html

    BalasHapus
  16. http://restyaccounting.blogspot.com/2012/12/latihan5746110027.html

    BalasHapus
  17. http://hanihasan07.blogspot.com/2012/12/latihan5746110044.html

    BalasHapus
  18. http://mulyawarman039.blogspot.com/2012/12/latihan5746110039.html

    BalasHapus
  19. http://dianmegariski.blogspot.com/2012/12/latihan5746110023.html

    BalasHapus
  20. http://muthmil8.blogspot.com/2012/12/latihan5746110037.html

    BalasHapus
  21. http://masdarwati.blogspot.com/2013/01/latihan5746110024.html

    BalasHapus
  22. http://bahrizj.blogspot.com/2013/01/latihan5746110001.html

    BalasHapus
  23. http://ildayani.blogspot.com/2012/11/latihan5746110002.html

    BalasHapus
  24. http://amalmaulana92.blogspot.com/2013/01/latihan5746110003.html

    BalasHapus
  25. http://aardianzah2.blogspot.com/2013/01/latihan-57.html

    BalasHapus
  26. http://feibyfrycilia.blogspot.com/2013/01/latihan5746110055.html

    BalasHapus
  27. http://bothbon.blogspot.com/2013/01/latihan5746110043.html

    BalasHapus
  28. http://fitrianihamka.blogspot.com/2013/01/latihan5746110006.html

    BalasHapus
  29. http://rafidashaleh.blogspot.com/2013/01/latihan5746110041.html

    BalasHapus
  30. http://diyanahdina.blogspot.com/2013/01/latihan5746110045.html

    BalasHapus
  31. http://deodns.blogspot.com/#!/2013/01/latihan5746110040.html

    BalasHapus
  32. http://alfaega.blogspot.com/2013/01/latihan5746110022.html

    BalasHapus
  33. http://yuliaasrida427.blogspot.com/2013/01/latihan5746110009.html

    BalasHapus