Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D4A

Submit Here
Diposting oleh di

37 komentar:

  1. Dwitya Saadah Suaib14 Januari 2012 pukul 18.20

    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. ainun16 Januari 2012 pukul 04.53

    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. Anonim16 Januari 2012 pukul 05.59

    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. novi16 Januari 2012 pukul 06.15

    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. Unknown17 Januari 2012 pukul 04.21

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

    BalasHapus
  6. Hachiko_dede17 Januari 2012 pukul 06.44

    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. ayu wandika putri utami21 Januari 2012 pukul 03.53

    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. ARUL BLOG26 Januari 2012 pukul 00.18

    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. WAHDANIAH3 Februari 2012 pukul 16.04

    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. Joice Natalina Paginta3 Februari 2012 pukul 20.09

    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. Dwi Mustika Chaerunnisa Mulyadi6 Februari 2012 pukul 06.15

    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. 4610903413 Februari 2012 pukul 20.44

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
    Balasan
    1. 4610903413 Februari 2012 pukul 20.51

      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. Unknown27 November 2012 pukul 04.53

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

    BalasHapus
  14. Unknown27 November 2012 pukul 06.05

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

    BalasHapus
  15. Unknown14 Desember 2012 pukul 06.41

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

    BalasHapus
  16. Unknown15 Desember 2012 pukul 16.48

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

    BalasHapus
  17. Unknown17 Desember 2012 pukul 15.28

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

    BalasHapus
  18. Unknown25 Desember 2012 pukul 00.14

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

    BalasHapus
  19. Unknown25 Desember 2012 pukul 04.56

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

    BalasHapus
  20. Dunia Ilmu27 Desember 2012 pukul 23.42

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

    BalasHapus
  21. Unknown31 Desember 2012 pukul 01.34

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

    BalasHapus
  22. Unknown2 Januari 2013 pukul 18.12

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

    BalasHapus
  23. Unknown3 Januari 2013 pukul 08.59

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

    BalasHapus
  24. Unknown5 Januari 2013 pukul 04.42

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

    BalasHapus
  25. ildayani5 Januari 2013 pukul 05.06

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

    BalasHapus
  26. Unknown6 Januari 2013 pukul 02.22

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

    BalasHapus
  27. Unknown6 Januari 2013 pukul 07.35

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

    BalasHapus
  28. Feiby Frycilia18 Januari 2013 pukul 07.24

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

    BalasHapus
  29. Unknown22 Januari 2013 pukul 06.40

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

    BalasHapus
  30. Unknown22 Januari 2013 pukul 22.48

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

    BalasHapus
  31. Unknown23 Januari 2013 pukul 21.57

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

    BalasHapus
  32. Unknown27 Januari 2013 pukul 00.21

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

    BalasHapus
  33. Unknown28 Januari 2013 pukul 07.51

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

    BalasHapus
  34. Unknown29 Januari 2013 pukul 05.37

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

    BalasHapus
  35. Unknown29 Januari 2013 pukul 15.07

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

    BalasHapus

Langganan: Posting Komentar (Atom)