Kamis, 12 Januari 2012

Latihan 55 APKOM 4 D3C

Submit Here

10 komentar:

  1. Public Class Latihan_55_36109058

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'menvariabelkan laporan
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New LATIHAN_45_36109058, Application.StartupPath, "data report.accdb")
    'aplikasi startuppath menjelaskan bahwa filre database ada di dalam folder debug
    Latihan_53_36109058.seung.ReportSource = laporan
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class Tugas_55_36109075

    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 Tugas_45_36109075

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Tugas_45_36109075, Application.StartupPath, "data report.accdb")
    'application startuppath menjelaskan bahwa filre database ada di dalam folder debug.

    Tugas_53_36109075.HONDA.ReportSource = laporan
    If Tugas_53_36109075.Visible = False Then
    Tugas_53_36109075.Show()
    Else
    Tugas_53_36109075.Activate() 'jika sudah muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  3. Public Class latihan_55_059


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

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan_45_36109059, Application.StartupPath, "data report.accdb")
    'aplicationt startuppath menjelaskan bahwa filre database ada didalam folderdebug.

    Latihan_53_059.HONDA.ReportSource = laporan

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

    BalasHapus
  4. Public Class LATIHAN05536109060

    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 CrystalReport45_060, Application.StartupPath, "data report.accdb")
    'aplication startupPath menjelaskan bahwa filre database ada didalam folder debug
    LATIHAN05336109060.HONDA.ReportSource = laporan
    If LATIHAN05336109060.Visible = False Then
    LATIHAN05336109060.Show()
    Else
    LATIHAN05336109060.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan55_36109073

    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 Latihan45_36109073

    Dim AA As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = AA.AturDatabase(New Latihan45_36109073, Application.StartupPath, "data report.accdb")
    'Application StarupPath menjelaskan bahwa filtre database ada di dalam folder debug.

    Latihan53_36109073.honda.ReportSource = laporan

    If Latihan53_36109073.Visible = False Then
    Latihan53_36109073.Show()
    Else
    Latihan53_36109073.Activate() 'jika sudah muncul tp di belakang'
    End If
    End Sub
    End Class

    BalasHapus
  6. Public Class Form55
    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_36109079

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan045_36109079, Application.StartupPath, "data report.accdb")
    'application startuppath menjelaskan bahwa filre database ada di dalam folder debug

    Form53.honda.ReportSource = laporan
    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'jika sudah muncl tapi di belakang
    End If
    End Sub
    End Class

    BalasHapus
  7. Public Class LATIHAN_55

    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 LATIHAN_45, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.

    LATIHAN53.Honda.ReportSource = laporan

    If LATIHAN53.Visible = False Then
    LATIHAN53.Show()
    Else
    LATIHAN53.Activate() 'jika sudah muncul dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  8. Public Class Form55_084

    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 Tugas45_36109084, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.

    Form53_084.honda.ReportSource = laporan
    If Form53_084.Visible = False Then
    Form53_084.Show()
    Else
    Form53_084.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  9. Public Class Form55_071

    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 Tugas45_36109071, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.

    Form53_071.honda.ReportSource = laporan
    If Form53_071.Visible = False Then
    Form53_071.Show()
    Else
    Form53_071.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  10. 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 latihan45

    Latihan53.Vavanet.ReportSource = Laporan

    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate()
    End If

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Laporan = x.AturDatabase(New latihan45, Application.StartupPath, "data report")


    End Sub
    End Class

    BalasHapus