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
    Balasan
    1. Komentar ini telah dihapus oleh pengarang.

      Hapus
  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