Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D4A

Submit Here

37 komentar:

  1. Public Class Latihan058_46109001

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim wiwi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    wiwi = x.AturDatabase(New Latihan_050_46109001, Application.StartupPath, "data report.accdb")
    Latihan_053_46109001.honda.ReportSource = wiwi
    Latihan_053_46109001.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109001.Value.Month & "/" & DT46109001.Value.Day & "/" & DT46109001.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109001.Value.Month & "/" & DT46109001.Value.Day & "/" & DT46109001.Value.Year & "#"
    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_058_46109030


    Private Sub p_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p_46109030.Click
    Dim ainun As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    ainun = x.AturDatabase(New Latihan_050_46109030, Application.StartupPath, "data report.accdb")
    Latihan_053_46109030.Honda.ReportSource = ainun
    Latihan_053_46109030.Honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dtp1_46109030.Value.Month & "/" & dtp1_46109030.Value.Day & "/" & dtp1_46109030.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & dtp1_46109030.Value.Month & "/" & dtp1_46109030.Value.Day & "/" & dtp1_46109030.Value.Year & "#"
    If Latihan_053_46109030.Visible = False Then
    Latihan_053_46109030.Show()
    Else
    Latihan_053_46109030.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN058_46109027

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim FEBY As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    FEBY = x.AturDatabase(New LATIHAN053_46109027, Application.StartupPath, "data report.accdb")
    LATIHAN053_46109027.honda.ReportSource = FEBY
    LATIHAN053_46109027.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT_46109027.Value.Month & "/" & DT_46109027.Value.Day & "/" & DT_46109027.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT_46109027.Value.Month & "/" & DT_46109027.Value.Day & "/" & DT_46109027.Value.Year & "#"
    If LATIHAN053_46109027.Visible = False Then
    LATIHAN053_46109027.Show()
    Else
    LATIHAN053_46109027.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  4. Public Class LATIHAN058_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 = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"
    LATIHAN053_46109021.HONDA_46109021.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"

    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. http://ismisriwahyuni.blogspot.com/2012/01/latihan-58-public-class.html

    BalasHapus
  6. Public Class LATIHAN058_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 = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"
    LATIHAN053_46109045.HONDA_46109045.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"

    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. Public Class Latihan058_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_050_46109017, Application.StartupPath, "data report.accdb")
    Latihan_053_46109017.honda.ReportSource = ayu
    Latihan_053_46109017.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109017.Value.Month & "/" & DT46109017.Value.Day & "/" & DT46109017.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109017.Value.Month & "/" & DT46109017.Value.Day & "/" & DT46109017.Value.Year & "#"
    If Latihan_053_46109017.Visible = False Then
    Latihan_053_46109017.Show()
    Else
    Latihan_053_46109017.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Public Class Latihan058_46109005

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim fahrul As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    fahrul = x.AturDatabase(New Latihan_050_46109005, Application.StartupPath, "data report.accdb")
    Latihan_053_46109005.honda.ReportSource = fahrul
    Latihan_053_46109005.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109005.Value.Month & "/" & DT46109005.Value.Day & "/" & DT46109005.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109005.Value.Month & "/" & DT46109005.Value.Day & "/" & DT46109005.Value.Year & "#"
    If Latihan_053_46109005.Visible = False Then
    Latihan_053_46109005.Show()
    Else
    Latihan_053_46109005.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  9. 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
    cantik = New latihan051_46109051
    LATIHAN053_46109051.HONDA_46109051.ReportSource = cantik
    LATIHAN053_46109051.HONDA_46109051.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"
    LATIHAN053_46109051.HONDA_46109051.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & DateTimePicker1.Value.Date & "#"

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

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

    BalasHapus
  10. Public Class Latihan058_46109041

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim joice As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    joice = x.AturDatabase(New Latihan_050_46109041, Application.StartupPath, "data report.accdb")
    Latihan_053_46109041.honda.ReportSource = joice
    Latihan_053_46109041.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT_46109041.Value.Month & "/" & DT_46109041.Value.Day & "/" & DT_46109041.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT_46109041.Value.Month & "/" & DT_46109041.Value.Day & "/" & DT_46109041.Value.Year & "#"
    If Latihan_053_46109041.Visible = False Then
    Latihan_053_46109041.Show()
    Else
    Latihan_053_46109041.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  11. Public Class LATIHAN_058_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
    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 = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DTP1_46109054.Value.Month & "/" & DTP1_46109054.Value.Day & "/" & DTP1_46109054.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DTP2_46109054.Value.Month & "/" & DTP2_46109054.Value.Day & "/" & DTP2_46109054.Value.Year & "#"
    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
  12. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
    Balasan
    1. Aryandira

      Public Class FORM58_46109034
      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 Dira_46109034.Click
      laporan = x.AturDatabase(New LATIHAN_50_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 = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DTP1_46109034.Value.Month & "/" & DTP1_46109034.Value.Day & "/" & DTP1_46109034.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DTP2_46109034.Value.Month & "/" & DTP2_46109034.Value.Day & "/" & DTP2_46109034.Value.Year & "#"
      If Form53_46109034.Visible = False Then
      Form53_46109034.Show()
      Else
      Form53_46109034.Activate() 'jika sdh muncul tp dibelakang
      End If
      End Sub
      End Class

      Hapus
  13. http://www.wahyunirachman.blogspot.com/2012/11/latihan5846110020.html

    BalasHapus
  14. http://srikartikafanty.blogspot.com/2012/11/latihan5846110007.html

    BalasHapus
  15. http://sulhihusni.blogspot.com/2012/12/latihan5846110004.html

    BalasHapus
  16. http://idhamsyaam.blogspot.com/2012/12/latihan5846110021.html

    BalasHapus
  17. http://restyaccounting.blogspot.com/2012/12/latihan5846110027.html

    BalasHapus
  18. http://cacalisa.blogspot.com/2012/12/latihan5846110038.html

    BalasHapus
  19. http://hanihasan07.blogspot.com/2012/12/latihan5846110044.html

    BalasHapus
  20. http://mulyawarman039.blogspot.com/2012/12/latihan5846110039.html

    BalasHapus
  21. http://dianmegariski.blogspot.com/2012/12/latihan5846110023.html

    BalasHapus
  22. http://muthmil8.blogspot.com/2012/12/latihan5846110037.html

    BalasHapus
  23. http://masdarwati.blogspot.com/2013/01/latihan5846110024.html

    BalasHapus
  24. http://bahrizj.blogspot.com/2013/01/latihan5846110001.html

    BalasHapus
  25. http://ildayani.blogspot.com/2012/11/latihan5846110002.html

    BalasHapus
  26. http://amalmaulana92.blogspot.com/2013/01/latihan5846110003.html

    BalasHapus
  27. http://aardianzah2.blogspot.com/2013/01/latihan-58.html

    BalasHapus
  28. http://feibyfrycilia.blogspot.com/2013/01/latihan5846110055.html

    BalasHapus
  29. http://bothbon.blogspot.com/2013/01/latihan5846110043.html

    BalasHapus
  30. http://fitrianihamka.blogspot.com/2013/01/latihan5846110006.html

    BalasHapus
  31. http://rafidashaleh.blogspot.com/2013/01/latihan5846110041.html

    BalasHapus
  32. http://diyanahdina.blogspot.com/2013/01/latihan5846110045.html

    BalasHapus
  33. http://deodns.blogspot.com/#!/2013/01/latihan5846110040.html

    BalasHapus
  34. http://alfaega.blogspot.com/2013/01/latihan5846110022.html

    BalasHapus
  35. http://yuliaasrida427.blogspot.com/2013/01/latihan5846110009.html

    BalasHapus