Kamis, 12 Januari 2012

Latihan 57 APKOM 4 D4A

Submit Here
Diposting oleh di

34 komentar:

  1. Dwitya Saadah Suaib14 Januari 2012 pukul 18.19

    Public Class Latihan057_46109001


    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_46109001
    Latihan_053_46109001.honda.SelectionFormula = "(detailtransaksi.harga) <=" & wiwi46109001.Text & ""

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

    BalasHapus
  2. ainun16 Januari 2012 pukul 04.55

    Public Class LATIHAN_057_46109030


    Private Sub p_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109030.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Latihan_045_46109030
    Latihan_053_46109030.Honda.SelectionFormula = "(detailtransaksi.harga) <=" & tb_46109030.Text & ""

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

    BalasHapus
  3. Anonim16 Januari 2012 pukul 05.58

    Public Class LATIHAN057_46109027


    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_46109027
    LATIHAN053_46109027.honda.SelectionFormula = "(detailtransaksi.harga) <=" & FEBY46109027.Text & ""

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

    BalasHapus
  4. novi16 Januari 2012 pukul 06.16

    Public Class LATIHAN057_46109021


    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_46109021
    LATIHAN053_46109021.HONDA_46109021.ReportSource = laporan
    LATIHAN053_46109021.HONDA_46109021.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109021.Visible = False Then
    LATIHAN053_46109021.Show()
    LATIHAN053_46109021.Activate()

    Else
    LATIHAN053_46109021.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  5. Unknown17 Januari 2012 pukul 04.20

    http://ismisriwahyuni.blogspot.com/2012/01/latihan-57-public-class.html

    BalasHapus
  6. Hachiko_dede17 Januari 2012 pukul 06.36

    Public Class LATIHAN057_46109045


    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_46109045
    LATIHAN053_46109045.HONDA_46109045.ReportSource = laporan
    LATIHAN053_46109045.HONDA_46109045.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109045.Visible = False Then
    LATIHAN053_46109045.Show()
    LATIHAN053_46109045.Activate()

    Else
    LATIHAN053_46109045.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  7. ayu wandika putri utami21 Januari 2012 pukul 03.54

    Public Class Latihan057_46109017


    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_46109017
    Latihan_053_46109017.honda.SelectionFormula = "(detailtransaksi.harga) <=" & ayu46109017.Text & ""

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

    BalasHapus
  8. ARUL BLOG26 Januari 2012 pukul 00.21

    Public Class LATIHAN057_46109005


    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_46109005
    LATIHAN053_46109005.HONDA_46109005.ReportSource = laporan
    LATIHAN053_46109005.HONDA_46109005.SelectionFormula = "(detailtransaksi.harga) <=" & TextBox1.Text & ""

    If LATIHAN053_46109005.Visible = False Then
    LATIHAN053_46109005.Show()
    LATIHAN053_46109005.Activate()

    Else
    LATIHAN053_46109005.Activate();jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  9. WAHDANIAH3 Februari 2012 pukul 16.07

    Public Class LATIHAN057_46109051


    Private Sub p_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109051.Click
    Dim cantik As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    cantik = New Latihan_045_46109051
    Latihan053_46109051.Honda.SelectionFormula = "(detailtransaksi.harga) <=" & tb_46109051.Text & ""

    Latihan053_46109051.Honda.ReportSource = cantik
    If Latihan053_46109051.Visible = False Then
    Latihan053_46109051.Show()
    Latihan053_46109051.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  10. Dwi Mustika Chaerunnisa Mulyadi6 Februari 2012 pukul 06.16

    Public Class LATIHAN_057_46109054
    Private Sub Dwi_46109054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi_46109054.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New LATIHAN_50_46109054, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form53_46109054.HONDA.ReportSource = laporan
    Form53_46109054.HONDA.SelectionFormula = "{detailtransaksi.harga} >='" & ww_46109054.Text & "'"
    If Form53_46109054.Visible = False Then
    Form53_46109054.Show()
    Else
    Form53_46109054.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  11. 4610903413 Februari 2012 pukul 22.22

    Aryandira

    Public Class FORM_057_46109034
    Private Sub Dira_46109034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dira_46109034.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New FORM50_46109034, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form53_46109034.HONDA.ReportSource = laporan
    Form53_46109034.HONDA.SelectionFormula = "{detailtransaksi.harga} >='" & ayu_46109034.Text & "'"
    If Form53_46109034.Visible = False Then
    Form53_46109034.Show()
    Else
    Form53_46109034.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  12. Unknown27 November 2012 pukul 04.52

    http://www.wahyunirachman.blogspot.com/2012/11/latihan5746110020.html

    BalasHapus
  13. Unknown27 November 2012 pukul 06.04

    http://srikartikafanty.blogspot.com/2012/11/latihan5746110007.html

    BalasHapus
  14. Unknown14 Desember 2012 pukul 06.38

    http://sulhihusni.blogspot.com/2012/12/latihan5746110004.html

    BalasHapus
  15. Unknown15 Desember 2012 pukul 16.47

    http://idhamsyaam.blogspot.com/2012/12/latihan5746110021.html

    BalasHapus
  16. Unknown17 Desember 2012 pukul 15.29

    http://restyaccounting.blogspot.com/2012/12/latihan5746110027.html

    BalasHapus
  17. Unknown25 Desember 2012 pukul 04.57

    http://hanihasan07.blogspot.com/2012/12/latihan5746110044.html

    BalasHapus
  18. Dunia Ilmu27 Desember 2012 pukul 23.41

    http://mulyawarman039.blogspot.com/2012/12/latihan5746110039.html

    BalasHapus
  19. Unknown31 Desember 2012 pukul 01.31

    http://dianmegariski.blogspot.com/2012/12/latihan5746110023.html

    BalasHapus
  20. Unknown2 Januari 2013 pukul 18.11

    http://muthmil8.blogspot.com/2012/12/latihan5746110037.html

    BalasHapus
  21. Unknown3 Januari 2013 pukul 08.50

    http://masdarwati.blogspot.com/2013/01/latihan5746110024.html

    BalasHapus
  22. Unknown5 Januari 2013 pukul 04.08

    http://bahrizj.blogspot.com/2013/01/latihan5746110001.html

    BalasHapus
  23. ildayani5 Januari 2013 pukul 04.49

    http://ildayani.blogspot.com/2012/11/latihan5746110002.html

    BalasHapus
  24. Unknown6 Januari 2013 pukul 02.25

    http://amalmaulana92.blogspot.com/2013/01/latihan5746110003.html

    BalasHapus
  25. Unknown6 Januari 2013 pukul 07.33

    http://aardianzah2.blogspot.com/2013/01/latihan-57.html

    BalasHapus
  26. Feiby Frycilia18 Januari 2013 pukul 07.00

    http://feibyfrycilia.blogspot.com/2013/01/latihan5746110055.html

    BalasHapus
  27. Unknown22 Januari 2013 pukul 06.35

    http://bothbon.blogspot.com/2013/01/latihan5746110043.html

    BalasHapus
  28. Unknown22 Januari 2013 pukul 22.49

    http://fitrianihamka.blogspot.com/2013/01/latihan5746110006.html

    BalasHapus
  29. Unknown23 Januari 2013 pukul 22.00

    http://rafidashaleh.blogspot.com/2013/01/latihan5746110041.html

    BalasHapus
  30. Unknown27 Januari 2013 pukul 00.19

    http://diyanahdina.blogspot.com/2013/01/latihan5746110045.html

    BalasHapus
  31. Unknown28 Januari 2013 pukul 07.53

    http://deodns.blogspot.com/#!/2013/01/latihan5746110040.html

    BalasHapus
  32. Unknown29 Januari 2013 pukul 05.36

    http://alfaega.blogspot.com/2013/01/latihan5746110022.html

    BalasHapus
  33. Unknown29 Januari 2013 pukul 15.05

    http://yuliaasrida427.blogspot.com/2013/01/latihan5746110009.html

    BalasHapus

Langganan: Posting Komentar (Atom)