Rabu, 04 Januari 2012

Latihan 54 APKOM 4 D3A

Submit Here

3 komentar:

  1. ridhayanti saleh
    36109015

    tugas 54

    Public Class Form54_36109015


    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_36109015

    Form53_36109015.HONDA.ReportSource = laporan

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

    End Sub
    End Class

    BalasHapus
  2. Public Class Form54_36109001
    Private Sub Form54_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Form45_36109001

    Form53_36109001.Honda.ReportSource = laporan

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

    BalasHapus
  3. Public Class Form54_36109006
    Private Sub Form54_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Form45_36109006

    Form53_36109006.Honda.ReportSource = laporan

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

    BalasHapus