Kamis, 12 Januari 2012

Latihan 55 APKOM 4 D4A

Submit Here

31 komentar:

  1. Public Class Latihan_055_46109001


    Private Sub p46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109001.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109001
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    laporan = x.AturDatabase(New Latihan_045_46109001, Application.StartupPath, "data report.accdb")

    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_055_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    ainunx.AturDatabase(NewLatihan_045_46109030,Application.StartupPath, "data report.accdb")

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



    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN055_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = x.AturDatabase(New latihan045_46109021, Application.StartupPath, "data report.accdb")
    End Sub
    End Class

    BalasHapus
  4. http://ismisriwahyuni.blogspot.com/2012/01/latihan-55-public-class.html

    BalasHapus
  5. Public Class LATIHAN055_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = x.AturDatabase(New latihan045_46109045, Application.StartupPath, "data report.accdb")
    End Sub
    End Class

    BalasHapus
  6. Public Class Latihan_055_46109017


    Private Sub p46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109017.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109017
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    laporan = x.AturDatabase(New Latihan_045_46109017, Application.StartupPath, "data report.accdb")

    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
  7. Public Class LATIHAN055_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = x.AturDatabase(New form5, Application.StartupPath, "data report.accdb")
    End Sub
    End Class

    BalasHapus
  8. Public Class Latihan_055_46109041


    Private Sub p_46109041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109041.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109041
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    laporan = x.AturDatabase(New Latihan_045_46109041, Application.StartupPath, "data report.accdb")

    Latihan_053_46109041.honda.ReportSource = laporan
    If Latihan_053_46109041.Visible = False Then
    Latihan_053_46109041.Show()
    Latihan_053_46109041.Activate()
    End If

    End Sub
    End Class

    BalasHapus
  9. Public Class Form5536109050

    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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan045_46109054, Application.StartupPath, "data report.accdb")
    Form53_46109054.HONDA.ReportSource = laporan
    If Form53_46109054.Visible = False Then
    Form53_46109054.Show()
    Else
    Form53_46109054.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  10. http://srikartikafanty.blogspot.com/2012/11/latihan5546110007.html

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

    BalasHapus
  12. http://sulhihusni.blogspot.com/2012/12/latihan5546110004.html

    BalasHapus
  13. http://idhamsyaam.blogspot.com/2012/12/latihan5546110021.html

    BalasHapus
  14. http://restyaccounting.blogspot.com/2012/12/latihan5546110027.html

    BalasHapus
  15. http://cacalisa.blogspot.com/2012/12/latihan5546110038.html

    BalasHapus
  16. http://hanihasan07.blogspot.com/2012/12/latihan5546110044.html

    BalasHapus
  17. http://mulyawarman039.blogspot.com/2012/12/latihan5546110039.html

    BalasHapus
  18. http://dianmegariski.blogspot.com/2012/12/latihan5546110023.html

    BalasHapus
  19. http://muthmil8.blogspot.com/2012/12/latihan5546110037.html

    BalasHapus
  20. http://masdarwati.blogspot.com/2013/01/latihan5546110024.html

    BalasHapus
  21. http://ildayani.blogspot.com/2012/11/latihan5546110002.html

    BalasHapus
  22. http://amalmaulana92.blogspot.com/2013/01/latihan5546110003.html

    BalasHapus
  23. http://aardianzah2.blogspot.com/2013/01/latihan-55.html

    BalasHapus
  24. http://feibyfrycilia.blogspot.com/2013/01/latihan5546110055.html

    BalasHapus
  25. http://bothbon.blogspot.com/2013/01/latihan5546110043.html

    BalasHapus
  26. http://fitrianihamka.blogspot.com/2013/01/latihan5546110006.html

    BalasHapus
  27. http://rafidashaleh.blogspot.com/2013/01/latihan5546110041.html

    BalasHapus
  28. http://diyanahdina.blogspot.com/2013/01/latihan5546110045.html

    BalasHapus
  29. http://deodns.blogspot.com/#!/2013/01/latihan5546110040.html

    BalasHapus
  30. http://alfaega.blogspot.com/2013/01/latihan5546110022.html

    BalasHapus
  31. http://yuliaasrida427.blogspot.com/2013/01/latihan5546110009.html

    BalasHapus