Kamis, 12 Januari 2012

Latihan 55 APKOM 4 D4B

Submit Here

13 komentar:

  1. Public Class Latihan_055_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

    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 Form55_46109043

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim X As CrystalDecisions.CrystalReports.Engine.ReportDocument
    X = New CrystalReport45_043
    Form53_46109043.crv46109043.ReportSource = X

    If Form53_46109043.Visible = False Then
    Form53_46109043.Show()
    Else
    Form53_46109043.Activate()
    End If
    Dim diva As New ByIskandar.MengaturDataBaseCrystalReport
    X = diva.AturDatabase(New CrystalReport45_043, Application.StartupPath, "Data Report.Accdb")

    Form53_46109043.crv46109043.ReportSource = X
    End Sub
    End Class

    BalasHapus
  3. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  4. Public Class Latihan55_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = x.AturDatabase(New latihan045_46109035, Application.StartupPath, "data report.accdb")
    End Sub
    End Class

    BalasHapus
  5. LATIHAN 55
    ANDI NURMUHITHA (461 09 047)

    Public Class Latihan5546109047
    Private Sub latihan5546109047_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles latihan5546109047.Click
    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    report = New Latihan4546109047
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

    Latihan5346109047.honda.ReportSource = report
    If Latihan5346109047.Visible = False Then
    Latihan5346109047.Show()
    Latihan5346109047.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  6. Public Class Latihan055_46109015


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

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

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

    End Sub
    End Class

    BalasHapus
  7. Andi Muh. Yusri-46109038

    Public Class Latihan55_46109038
    Private Sub Latihan55_46109038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan55_46109038.Click
    Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    UchyReport = New Latihan45_46109038
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    UchyReport = x.AturDatabase(New Latihan45_46109038, Application.StartupPath, "data report.accdb")

    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 Latihan55_46109050

    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan AsNew CrystalReport45
    Dim x AsNew ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New CrystalReport45, Application.StartupPath, "data report.accdb")

    Latihan53_46109050.honda.ReportSource = laporan
    If Latihan53_46109050.Visible = FalseThen
    Latihan53_46109050.Show()
    Latihan53_46109050.Activate()
    EndIf
    EndSub
    EndClass

    BalasHapus
  9. Public Class latihan55_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

    latihan_53_46109044.Honda.ReportSource = laporan
    If latihan_53_46109044.Visible = False Then
    latihan_53_46109044.Show()
    Else
    latihan_53_46109044.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  10. Public Class Latihan055_46109046


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

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

    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 Form55_46109042

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim X As CrystalDecisions.CrystalReports.Engine.ReportDocument
    X = New CrystalReport45_042
    Form53_46109042.crv46109042.ReportSource = X

    If Form53_46109042.Visible = False Then
    Form53_46109042.Show()
    Else
    Form53_46109042.Activate()
    End If
    Dim novi As New ByIskandar.MengaturDataBaseCrystalReport
    X = novi.AturDatabase(New CrystalReport45_043, Application.StartupPath, "Data Report.Accdb")

    Form53_46109042.crv46109042.ReportSource = X
    End Sub
    End Class

    BalasHapus
  12. Public Class LATIHAN5546109026

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

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

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

    End Sub


    End Class

    BalasHapus
  13. Public Class tugas55
    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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

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

    tugas5346109033.CrystalReportViewer1.ReportSource = laporan
    If tugas5346109033.Visible = False Then
    tugas5346109033.Show()
    Else
    tugas5346109033.Activate()
    End If
    End Sub
    End Class

    BalasHapus