Kamis, 12 Januari 2012

Latihan 55 APKOM 4 D3B

Submit Here

25 komentar:

  1. Public Class Latihan_55_36109056

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'MEMVARIABELKAN LAOPRAN
    Dim LAPORAN As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim X As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = X.AturDatabase(New Latihan_45_36109056, Application.StartupPath, "DATA REPORT.accdb")
    'APLICATION STARTUPPATH MENJELASKAN BAHWA FILE DATABASE ADA DI DALAM
    Latihan_53_36109056.HONDA.ReportSource = LAPORAN
    If Latihan_53_36109056.Visible = False Then
    Latihan_53_36109056.Show()
    Else
    Latihan_53_36109056.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG

    End If
    End Sub

    BalasHapus
  2. Public Class LATIHAN_055_36109033

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'memvariabelkan laporan
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDataBase(New LATIHAN_045_36109033, Application.StartupPath, "data report.accdb")

    LATIHAN_053_36109033.Honda.ReportSource = laporan

    If LATIHAN_053_36109033.Visible = False Then
    LATIHAN_053_36109033.Show()
    Else
    LATIHAN_053_36109033.Activate() ' jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  3. 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 Form4536109050, Application.StartupPath, "data report.accdb")
    Form5336109050.HONDA.ReportSource = laporan
    If Form5336109050.Visible = False Then
    Form5336109050.Show()
    Else
    Form5336109050.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  4. latihan 55
    Public Class latihan55
    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 latihan46
    latihan53.honda.ReportSource = laporan
    If latihan53.Visible = False Then
    latihan53.Show()
    Else
    latihan53.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan55_36109037

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'memvariabelkan laporan
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDataBase(New latihan45_36109037, Application.StartupPath, "data report.accdb")

    latihan53_36109037.Honda.ReportSource = laporan

    If latihan53_36109037.Visible = False Then
    latihan53_36109037.Show()
    Else
    latihan53_36109037.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  6. Public Class Latihan5536109040

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'memvariabelkan laporan
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDataBase(New latihan4536109040, Application.StartupPath, "data report.accdb")

    latihan5336109040.Honda.ReportSource = laporan

    If latihan5336109040.Visible = False Then
    latihan5336109040.Show()
    Else
    latihan5336109040.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Public Class latihan5536109054

    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 Latihan4536109054, Application.StartupPath, "data report.accdb")
    latihan5336109054.honda.ReportSource = laporan
    If latihan5336109054.Visible = False Then
    latihan5336109054.Show()
    Else
    latihan5336109054.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Public Class Latihan5536109044

    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 Latihan4536109044, Application.StartupPath, "data report.accdb")
    Latihan5336109044.HONDA.ReportSource = laporan
    If Latihan5336109044.Visible = False Then
    Latihan5336109044.Show()
    Else
    Latihan5336109044.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  9. http://rainaagrippinaa.blogspot.com/2012/11/latihan5536110032.html

    BalasHapus
  10. http://rosyanausman.blogspot.com/2012/11/latihan5536110036.html

    BalasHapus
  11. http://burhankhang58.blogspot.com/2012/11/latihan5536110047.html

    BalasHapus
  12. http://nurrahmahrasyid2.blogspot.com/2012/11/latihan5536110042.html

    BalasHapus
  13. http://tiya-sri.blogspot.com/2012/12/latihan5536110044-aplikasi-komputer-4.html

    BalasHapus
  14. http://ilhaazzahra.blogspot.com/2012/11/latihan5536110033.html

    BalasHapus
  15. http://eminaomi.blogspot.com/2012/12/latihan5536110049_29.html

    BalasHapus
  16. http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan5536110039.html

    BalasHapus
  17. http://bahrizj.blogspot.com/2013/01/latihan5546110001.html

    BalasHapus
  18. http://dewiwahyuni91.blogspot.com/2012/11/latihan5536110038.html

    BalasHapus
  19. http://hasfiahzain.blogspot.com/2013/01/latihan5536110052.html

    BalasHapus
  20. http://rahmisuryatama05.blogspot.com/2013/01/latihan5536110040.html

    BalasHapus
  21. http://hilariusmariotonapa.blogspot.com/2013/01/deskripsi-latihan5536110048.html
    http://hilariusmariotonapa.blogspot.com/2013/01/prosedur-penyelesaian-latihan5536110048.html

    BalasHapus
  22. http://rizka-azisah.blogspot.com/2013/01/deskripsi-penyelesaian-latihan5536110041.html

    BalasHapus
  23. http://sukadriady.blogspot.com/2013/01/latihan5536110043.html

    BalasHapus
  24. http://zulkiflitryputra.blogspot.com/2013/01/latihan5536110046.html

    BalasHapus
  25. http://reskypurwono.blogspot.com/2013/02/prosedur-penyelesaian-latihan5536110037.html

    BalasHapus