Rabu, 04 Januari 2012

Latihan 54 APKOM 4 D4B

Submit Here

13 komentar:

  1. Public Class Latihan_054_46109006

    Private Sub p46109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109006.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109006
    Latihan_053_46109006.honda.ReportSource = laporan
    If Latihan_053_46109006.Visible = False Then
    Latihan_053_46109006.Show()
    Latihan_053_46109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class Latihan_054_46109006

    Private Sub p46109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p46109006.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109006
    Latihan_053_46109006.honda.ReportSource = laporan
    If Latihan_053_46109006.Visible = False Then
    Latihan_053_46109006.Show()
    Latihan_053_46109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. 55
    Public Class Latihan_055_46109018


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

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

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

    End Sub
    End Class

    BalasHapus
  4. Public Class Form54_46109043


    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 CrystalReport45_043
    Form53_46109043.crv46109043.ReportSource = laporan
    If Form53_46109043.Visible = False Then
    Form53_46109043.Show()
    Else
    Form53_46109043.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan54_46109035


    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 CrystalReport45_46109035
    Latihan53_46109035.crv46109035.ReportSource = laporan
    If Latihan53_46109035.Visible = False Then
    Latihan53_46109035.Show()
    Else
    Latihan53_46109035.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  6. LATIHAN 54
    ANDI NURMUHITHA (461 09 047)

    Public Class Latihan5446109047

    Private Sub latihan5446109047_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles latihan5446109047.Click
    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    report = New Latihan4546109047
    Latihan5346109047.honda.ReportSource = report
    If Latihan5346109047.Visible = False Then
    Latihan5346109047.Show()
    Latihan5346109047.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Andi Muh. Yusri - 46109038

    Public Class Latihan54_46109038

    Private Sub latihan54_46109038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles latihan54_46109038.Click
    Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    UchyReport = New Latihan4546109047
    Latihan53_46109038.honda.ReportSource = UchyReport
    If Latihan53_46109038.Visible = False Then
    Latihan53_46109038.Show()
    Latihan53_46109038.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. PublicClass Latihan54_46109050

    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan AsNew CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New CrystalReport45
    Latihan53_46109050.crv_46109050.ReportSource = laporan
    If Latihan53_46109050.Visible = FalseThen
    Latihan53_46109050.Show()
    Else
    Latihan53_46109050.Activate()
    EndIf
    EndSub
    EndClass

    BalasHapus
  9. Public Class latihan54_46109044

    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_45_46109044
    latihan_53_46109044.Honda.ReportSource = laporan
    If latihan_53_46109044.Visible = False Then
    latihan_53_46109044.Show()
    latihan_53_46109044.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  10. Public Class Latihan054_46109046

    Private Sub Button1_046_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_046.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New CrystalReport45

    Latihan053_46109046.HONDA.ReportSource = laporan

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

    End Class

    BalasHapus
  11. Public Class Form54_46109042


    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 CrystalReport45_042
    Form53_46109042.crv46109042.ReportSource = laporan
    If Form53_46109042.Visible = False Then
    Form53_46109042.Show()
    Else
    Form53_46109042.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  12. Public Class LATIHAN5446109026


    Private Sub LATIHAN5446109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan4546109026

    LATIHAN5346109026.honda.ReportSource = laporan

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

    BalasHapus
  13. Public Class tugas5446109033

    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 tugas45
    tugas5346109033.CrystalReportViewer1.ReportSource = laporan
    If tugas5346109033.Visible = False Then
    tugas5346109033.Show()
    tugas5346109033.Activate()
    End If
    End Sub
    End Class

    BalasHapus