Kamis, 12 Januari 2012

Latihan 56 APKOM 4 D4B

Submit Here

11 komentar:

  1. Public Class Latihan056_46109006


    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_045_46109006
    Latihan_053_46109006.honda.SelectionFormula = "{barang.kodebarang}='" & SRY46109006.Text & "'"

    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 Latihan56_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 Latihan45_46109035
    Latihan53_46109035.honda.SelectionFormula = "{barang.kodebarang}='" & diaz_46109035.Text & "'"

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

    End If
    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan056_46109018


    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_045_46109018
    Latihan_053_46109018.honda.SelectionFormula = "{barang.kodebarang}='" & dea46109018.Text & "'"

    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. LATIHAN 56
    ANDI NURMUHITHA (461 09 047)

    Public Class Latihan5646109047
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    report = New Latihan4546109047
    Latihan5346109047.honda.SelectionFormula = "{barang.kodebarang}='" & itha46109047.Text & "'"

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

    End If
    End Sub
    End Class

    BalasHapus
  5. Andi Muh. Yusri - 46109038

    Public Class Latihan56_46109038

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    UchyReport = New Latihan45_46109038
    Latihan53_46109038.honda.SelectionFormula = "{barang.kodebarang}='" & Siraj46109038.Text & "'"

    Latihan53_46109038.honda.ReportSource = UchyReport
    If Latihan53_46109038.Visible = False Then
    Latihan53_46109038.Show()
    Latihan53_46109038.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  6. PublicClass Latihan056_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.honda.SelectionFormula = "{barang.kodebarang}='"& wiwi46109001.Text &"'"

    latihan53_46109050.honda.ReportSource = laporan
    If latihan53_46109050.Visible = FalseThen
    latihan53_46109050.Show()
    latihan53_46109050.Activate()

    EndIf
    EndSub
    EndClass

    BalasHapus
  7. Public Class latihan56_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.SelectionFormula = "{barang.kodebarang}='" & masuk46109044.Text & "'"

    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
  8. Public Class Latihan056_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 CrystalReport045_46109046
    Latihan053_46109046.HONDA.SelectionFormula = "{barang.kodebarang}='" & TextBox1_046.Text & "'"

    Latihan053_46109046.HONDA.ReportSource = laporan
    If Latihan053_46109046.Visible = False Then
    Latihan053_46109046.Show()
    Latihan053_46109046.Activate()

    End If
    End Sub

    End Class

    BalasHapus
  9. Public Class Form56_46109042


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

    Dim novi As New ByIskandar.MengaturDataBaseCrystalReport
    a = novi.AturDatabase(New CrystalReport50_042, Application.StartupPath, "Data Report.Accdb")

    Form53_46109042.crv46109042.SelectionFormula = "{Barang.KodeBarang} = '" & TextBox1.Text & "'"

    Form53_46109042.crv46109042.ReportSource = a

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

    BalasHapus
  10. Public Class LATIHAN5646109026


    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 latihan4546109026
    LATIHAN5346109026.honda.SelectionFormula = "{barang.kodebarang}='" & ibhe46109026.Text & "'"

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

    End If
    End Sub
    End Class

    BalasHapus
  11. Public Class tugas5646109033

    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.SelectionFormula = "{barang.kodebarang}='" & tb46109033.Text & "'"

    tugas5346109033.CrystalReportViewer1.ReportSource = laporan
    If tugas5346109033.Visible = False Then
    tugas5346109033.Show()
    tugas5346109033.Activate()

    End If
    End Sub
    End Class

    BalasHapus