Kamis, 12 Januari 2012

Latihan 55 APKOM 4 D4A

Submit Here
Diposting oleh di

31 komentar:

  1. Dwitya Saadah Suaib14 Januari 2012 pukul 18.18

    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. ainun16 Januari 2012 pukul 05.04

    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. novi16 Januari 2012 pukul 06.17

    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. Unknown17 Januari 2012 pukul 04.18

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

    BalasHapus
  5. Hachiko_dede17 Januari 2012 pukul 05.59

    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. ayu wandika putri utami21 Januari 2012 pukul 03.55

    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. ARUL BLOG3 Februari 2012 pukul 18.38

    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. Joice Natalina Paginta3 Februari 2012 pukul 19.48

    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. Dwi Mustika Chaerunnisa Mulyadi6 Februari 2012 pukul 06.18

    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. Unknown26 November 2012 pukul 05.54

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

    BalasHapus
  11. Unknown27 November 2012 pukul 04.49

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

    BalasHapus
  12. Unknown14 Desember 2012 pukul 06.28

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

    BalasHapus
  13. Unknown15 Desember 2012 pukul 16.46

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

    BalasHapus
  14. Unknown17 Desember 2012 pukul 15.32

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

    BalasHapus
  15. Unknown25 Desember 2012 pukul 00.09

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

    BalasHapus
  16. Unknown25 Desember 2012 pukul 05.00

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

    BalasHapus
  17. Dunia Ilmu27 Desember 2012 pukul 23.37

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

    BalasHapus
  18. Unknown31 Desember 2012 pukul 01.28

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

    BalasHapus
  19. Unknown2 Januari 2013 pukul 18.08

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

    BalasHapus
  20. Unknown3 Januari 2013 pukul 08.40

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

    BalasHapus
  21. ildayani5 Januari 2013 pukul 04.28

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

    BalasHapus
  22. Unknown6 Januari 2013 pukul 02.29

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

    BalasHapus
  23. Unknown6 Januari 2013 pukul 07.30

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

    BalasHapus
  24. Feiby Frycilia18 Januari 2013 pukul 06.44

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

    BalasHapus
  25. Unknown22 Januari 2013 pukul 06.22

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

    BalasHapus
  26. Unknown22 Januari 2013 pukul 22.53

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

    BalasHapus
  27. Unknown23 Januari 2013 pukul 22.03

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

    BalasHapus
  28. Unknown27 Januari 2013 pukul 00.13

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

    BalasHapus
  29. Unknown28 Januari 2013 pukul 07.57

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

    BalasHapus
  30. Unknown29 Januari 2013 pukul 05.34

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

    BalasHapus
  31. Unknown29 Januari 2013 pukul 15.02

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

    BalasHapus

Langganan: Posting Komentar (Atom)