Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D4A

Submit Here

34 komentar:

  1. Public Class Latihan060_46109001
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Dwitya As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    Dwitya = x.AturDatabase(New Latihan_059_46109001, Application.StartupPath, "data report.accdb")
    Latihan_053_46109001.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109001.Text & "'"
    Latihan_053_46109001.honda.ReportSource = Dwitya
    Dwitya.SetParameterValue("Dwitya", NK46109001.Text)

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

    BalasHapus
  2. Public Class Latihan_060_46109030
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim ainun As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    Ainun = x.AturDatabase(New Latihan_059_46109030, Application.StartupPath, "data report.accdb")
    Latihan_053_46109030.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT_46109030.Text & "'"
    Latihan_053_46109030.honda.ReportSource = Ainun
    Ainun.SetParameterValue("Ainun", NK_46109030.Text)

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

    BalasHapus
  3. Private Sub LATIHAN060_46109021_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    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 = "{BARANG.KODEBARANG}= '" & 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
    LATIHAN053_46109021.HONDA_46109021.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("xxxx", TextBox2.Text)

    End Sub
    End Class

    BalasHapus
  4. http://ismisriwahyuni.blogspot.com/2012/01/latihan-60-public-class.html

    BalasHapus
  5. Private Sub LATIHAN060_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    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 = "{BARANG.KODEBARANG}= '" & 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
    LATIHAN053_46109045.HONDA_46109045.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("xxxx", TextBox2.Text)

    End Sub
    End Class

    BalasHapus
  6. Public Class Latihan060_46109017
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Ayu As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    Ayu = x.AturDatabase(New Latihan_059_46109017, Application.StartupPath, "data report.accdb")
    Latihan_053_46109017.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109017.Text & "'"
    Latihan_053_46109017.honda.ReportSource = Ayu
    Ayu.SetParameterValue("Ayu", NK46109017.Text)

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

    BalasHapus
  7. Public Class Latihan060_46109005
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Arul As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    Arul = x.AturDatabase(New Latihan_059_46109005, Application.StartupPath, "data report.accdb")
    Latihan_053_46109005.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109005.Text & "'"
    Latihan_053_46109005.honda.ReportSource = Arul
    Arul.SetParameterValue("Arul", NK46109005.Text)

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

    BalasHapus
  8. Aryandira
    Public Class Latihan60_46109034
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim ieRha As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    ieRha = x.AturDatabase(New Latihan59_46109034, Application.StartupPath, "data report.accdb")
    Latihan53_46109034.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109034.Text & "'"
    Latihan53_46109034.honda.ReportSource = ierha
    ierha.SetParameterValue("ierha", NK46109034.Text)

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

    BalasHapus
  9. Public Class Latihan60_46109051
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim cantik As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    cantik = x.AturDatabase(New Latihan59_46109051, Application.StartupPath, "data report.accdb")
    Latihan53_46109051.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109051.Text & "'"
    Latihan53_46109051.honda.ReportSource = cantik
    cantik.SetParameterValue("cantik", NK46109051.Text)

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

    BalasHapus
  10. Public Class LATIHAN_060_46109054

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_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 LATIHAN59_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 = "{MASTERTRANSAKSI.NOTRANS}='" & ww1_46109054.Text & "'"
    laporan.SetParameterValue("namakasir", ww2_46109054.Text)
    If Form53_46109054.Visible = False Then
    Form53_46109054.Show()
    Else
    Form53_46109054.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  11. http://www.wahyunirachman.blogspot.com/2012/11/latihan6046110020.html

    BalasHapus
  12. http://srikartikafanty.blogspot.com/2012/11/latihan6046110007.html

    BalasHapus
  13. http://sulhihusni.blogspot.com/2012/12/latihan6046110004.html

    BalasHapus
  14. http://idhamsyaam.blogspot.com/2012/12/latihan6046110021.html

    BalasHapus
  15. http://restyaccounting.blogspot.com/2012/12/latihan6046110027.html

    BalasHapus
  16. http://cacalisa.blogspot.com/2012/12/latihan6046110038.html

    BalasHapus
  17. http://hanihasan07.blogspot.com/2012/12/latihan6046110044.html

    BalasHapus
  18. http://mulyawarman039.blogspot.com/2012/12/latihan6046110039.html

    BalasHapus
  19. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  20. http://dianmegariski.blogspot.com/2012/12/latihan6046110023.html

    BalasHapus
  21. http://muthmil8.blogspot.com/2012/12/latihan6046110037.html

    BalasHapus
  22. http://masdarwati.blogspot.com/2013/01/latihan6046110024.html

    BalasHapus
  23. http://ildayani.blogspot.com/2012/11/latihan6046110002.html

    BalasHapus
  24. http://amalmaulana92.blogspot.com/2013/01/latihan6046110003.html

    BalasHapus
  25. http://bahrizj.blogspot.com/2013/01/latihan6046110001.html

    BalasHapus
  26. http://aardianzah2.blogspot.com/2013/01/latihan-60.html

    BalasHapus
  27. http://feibyfrycilia.blogspot.com/2013/01/latihan6046110055.html

    BalasHapus
  28. http://bothbon.blogspot.com/2013/01/latihan6046110043.html

    BalasHapus
  29. http://fitrianihamka.blogspot.com/2013/01/latihan6046110006.html

    BalasHapus
  30. http://rafidashaleh.blogspot.com/2013/01/latihan6046110041.html

    BalasHapus
  31. http://diyanahdina.blogspot.com/2013/01/latihan6046110045.html

    BalasHapus
  32. http://deodns.blogspot.com/#!/2013/01/latihan6046110040.html

    BalasHapus
  33. http://alfaega.blogspot.com/2013/01/latihan6046110022.html

    BalasHapus
  34. http://yuliaasrida427.blogspot.com/2013/01/latihan6046110009.html

    BalasHapus