Kamis, 12 Januari 2012

Latihan 57 APKOM 4 D3C

Submit Here

12 komentar:

  1. Public Class LATIHAN_57_36109058

    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_50_36109058
    Latihan_53_36109058.seung.ReportSource = laporan

    Latihan_53_36109058.seung.SelectionFormula = "{DETAILTRANSAKSI.HARGA} <=" & A058.Text & ""
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate() 'jika sudah muncul tapi dibelakang

    End If
    End Sub

    End Class

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

    Tugas_53_36109075.HONDA.ReportSource = laporan
    Tugas_53_36109075.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA} <=" & TextBox1.Text & ""

    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_57_059


    Private Sub honda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles honda.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_50_36109059
    Latihan_53_059.HONDA.ReportSource = laporan



    Latihan_53_059.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA} <= " & harga.Text & ""

    'Menampilkan form'
    If Latihan_53_059.Visible = False Then
    Latihan_53_059.Show()
    Else
    Latihan_53_059.Activate()

    End If
    End Sub

    BalasHapus
  4. Public Class Latihan5736109062

    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 Latihan5036109062
    LATIHAN5336109062.honda.ReportSource = Laporan
    LATIHAN5336109062.honda.SelectionFormula = " {DETAILTRANSAKSI.HARGA}<=" & TextBox1.Text & ""

    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 Form57068

    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 latihan50068

    Form53068.honda.ReportSource = laporan
    Form53068.honda.SelectionFormula = "{DETAILTRANSAKSI.HARGA} <=" & TextBox1.Text & ""


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

    BalasHapus
  6. Public Class LATIHAN05736109060

    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_060
    LATIHAN05336109060.HONDA.ReportSource = laporan
    LATIHAN05336109060.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA} <= " & TextBox1.Text & ""
    If LATIHAN05336109060.Visible = False Then
    LATIHAN05336109060.Show()
    Else
    LATIHAN05336109060.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Public Class Latihan57_36109073

    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 Latihan50_36109073


    Latihan53_36109073.honda.ReportSource = laporan
    Latihan53_36109073.honda.SelectionFormula = " {DETAILTRANSAKSI.HARGA} <=" & TextBox1.Text & ""


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

    BalasHapus
  8. Public Class Latihan57

    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 Latihan50

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan50, Application.StartupPath, "data report.accdb")
    'aplicationt startuppath menjelaskan bahwa filre database ada didalam folderdebug.

    'Mengisi reportsource dengan variabel laporan'
    Latihan53.Honda.ReportSource = laporan


    'Mengatur filter'
    Latihan53.Honda.SelectionFormula = "{DETAILTRANSAKSI.HARGA}>= " & Val(Harga.Text)

    'Menampilkan form'
    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  9. Public Class Form57

    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 Latihan045_36109079
    Form53.honda.ReportSource = laporan
    Form53.honda.SelectionFormula = "{detailtransaksi.harga}<=" & ee.Text & ""

    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  10. Public Class Latihan_56
    Dim ilmi As New ByIskandar.CariKeDataBaseByIskandar
    Dim by As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0: DATA SOURCE =" & Application.StartupPath & "/ data report.accdb")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim nurul As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    nurul = AturDatabase(New LATIHAN_50, Application.StartupPath, "data report.accdb")
    LATIHAN53.Honda.ReportSource = nurul
    LATIHAN53.Honda.SelectionFormula = "{BARANG.KODEBARANG} = '" & aa.Text & "'"
    If LATIHAN53.Visible = False Then
    LATIHAN53.Show()
    Else
    LATIHAN53.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  11. Public Class Latihan57

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

    Latihan53.Yudha.ReportSource = Vhal

    Latihan53.Yudha.SelectionFormula = "{detailtransaksi.harga} <=" & TextBox1.Text & ""

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

    End Sub
    End Class

    BalasHapus
  12. Public Class Latihan57

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

    Latihan53.Wijaya.ReportSource = Vhal

    Latihan53.Wijaya.SelectionFormula = "{detailtransaksi.harga} <=" & TextBox1.Text & ""

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

    End Sub
    End Class

    BalasHapus