Kamis, 12 Januari 2012

Latihan 57 APKOM 4 D4B

Submit Here

9 komentar:

  1. Public Class Latihan057_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 = "(detailtransaksi.harga) <=" & 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 Latihan057_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 = "(detailtransaksi.harga) <=" & 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
  3. Public Class Latihan057_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
    Latihan053_46109015.HONDA.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1_015.Text & ""

    Latihan053_46109015.HONDA.ReportSource = laporan
    If Latihan053_46109015.Visible = False Then
    Latihan053_46109015.Show()
    Latihan053_46109015.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  4. Andi Muh. Yusri - 46109038

    Public Class Latihan57_46109038

    Private Sub Button1_46109038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109038.Click
    Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    UchyReport = New CrystalReport45_46109038
    Latihan53_46109038.HONDA.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1_38.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
  5. PublicClass Latihan057_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 = "(detailtransaksi.harga) <="& wiwi46109001.Text &""

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

    BalasHapus
  6. Public Class latihan_57_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
    Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = Pencari.AturDatabase(New latihan_50_46109044, Application.StartupPath, "Data Report.accdb")

    latihan_53_46109044.Honda.SelectionFormula = "{detailtransaksi.harga} <=" & masuk46109044.Text & ""

    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
  7. Public Class Form57_46109042


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

    Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport
    Laporan = Pencari.AturDatabase(New CrystalReport50_042, Application.StartupPath, "Data Report.accdb")

    Form53_46109042.crv46109042.SelectionFormula = "{DetailTransaksi.Harga} <= " & TextBox1.Text & ""
    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
  8. Public Class LATIHAN5746109026

    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 = "(detailtransaksi.harga) <=" & ibhe46109026.Text & ""

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

    BalasHapus
  9. Public Class tugas5746109033
    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 Pencari As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = Pencari.AturDatabase(New tugas50, Application.StartupPath, "Data Report.accdb")

    tugas5346109033.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.harga} <=" & tb46109033.Text & ""

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

    End Class

    BalasHapus