Rabu, 04 Januari 2012

Latihan 54 APKOM 4 D3C

Submit Here

12 komentar:

  1. Public Class Latihan_54_36109058

    Private Sub p_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New LATIHAN_45_36109058
    Latihan_53_36109058.seung.ReportSource = laporan
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate() 'jika sudah muncul tapi dibelakang muncul
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class Tugas_54_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

    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_54_059

    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_36109059


    Latihan_53_059.HONDA.ReportSource = Laporan


    If Latihan_53_059.Visible = False Then
    Latihan_53_059.Show()
    Else
    Latihan_53_059.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG

    End If
    End Sub

    BalasHapus
  4. Public Class latihan5436109062

    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 LATIHAN4536109062
    LATIHAN5336109062.honda.ReportSource = laporan
    If LATIHAN5336109062.Visible = False Then
    LATIHAN5336109062.Show()
    Else
    LATIHAN5336109062.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  5. Public Class Form54068

    Private Sub preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles preview.Click

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New latihan45068

    Form53068.honda.ReportSource = laporan

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

    End Sub
    End Class
    Public Class

    BalasHapus
  6. Public Class Latihan54

    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.Honda.ReportSource = Laporan


    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG

    End If
    End Sub


    End Class

    BalasHapus
  7. Public Class Form54


    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

    Form53.honda.ReportSource = LAPORAN

    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'JIKA SDH MUNCUL TP DI BELAKANG
    End If
    End Sub


    End Class

    BalasHapus
  8. Public Class Form54

    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 Latihan046_36109079

    Form53.honda.ReportSource = laporan
    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'JIKA SUDAH MUNCUL TAPI DIBELAKANG'

    End If
    End Sub
    End Class

    BalasHapus
  9. Public Class LATIHAN54

    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

    LATIHAN53.Honda.ReportSource = laporan

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

    BalasHapus
  10. Public Class Form54_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
    laporan = New Tugas45_36109084

    Form53_084.honda.ReportSource = laporan

    If Form53_084.Visible = False Then
    Form53_084.Show()
    Else
    Form53_084.Activate() 'jika sdh muncul tp dibelakang

    End If
    End Sub
    End Class

    BalasHapus
  11. Public Class Form54_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
    laporan = New Tugas45_36109071

    Form53_071.honda.ReportSource = laporan

    If Form53_071.Visible = False Then
    Form53_071.Show()
    Else
    Form53_071.Activate() 'jika sdh muncul tp dibelakang

    End If
    End Sub
    End Class

    BalasHapus
  12. Public Class Latihan54

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim vhal As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    vhal = New latihan45

    Latihan53.Vavanet.ReportSource = vhal
    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate()
    End If
    End Sub
    End Class

    BalasHapus