Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D4A

Submit Here
Diposting oleh di

34 komentar:

  1. Dwitya Saadah Suaib14 Januari 2012 pukul 18.22

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

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

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

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

    BalasHapus
  5. Hachiko_dede17 Januari 2012 pukul 07.13

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

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

    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. 4610903430 Januari 2012 pukul 06.31

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

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

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

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

    BalasHapus
  12. Unknown27 November 2012 pukul 06.20

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

    BalasHapus
  13. Unknown14 Desember 2012 pukul 06.51

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

    BalasHapus
  14. Unknown15 Desember 2012 pukul 16.49

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

    BalasHapus
  15. Unknown17 Desember 2012 pukul 15.19

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

    BalasHapus
  16. Unknown25 Desember 2012 pukul 00.17

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

    BalasHapus
  17. Unknown25 Desember 2012 pukul 05.05

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

    BalasHapus
  18. Dunia Ilmu27 Desember 2012 pukul 23.45

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

    BalasHapus
  19. Unknown31 Desember 2012 pukul 01.37

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  20. Unknown31 Desember 2012 pukul 01.41

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

    BalasHapus
  21. Unknown2 Januari 2013 pukul 18.14

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

    BalasHapus
  22. Unknown4 Januari 2013 pukul 03.43

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

    BalasHapus
  23. ildayani5 Januari 2013 pukul 05.32

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

    BalasHapus
  24. Unknown6 Januari 2013 pukul 02.18

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

    BalasHapus
  25. Unknown6 Januari 2013 pukul 03.33

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

    BalasHapus
  26. Unknown6 Januari 2013 pukul 07.39

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

    BalasHapus
  27. Feiby Frycilia18 Januari 2013 pukul 07.30

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

    BalasHapus
  28. Unknown22 Januari 2013 pukul 06.49

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

    BalasHapus
  29. Unknown22 Januari 2013 pukul 22.46

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

    BalasHapus
  30. Unknown23 Januari 2013 pukul 21.54

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

    BalasHapus
  31. Unknown27 Januari 2013 pukul 00.26

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

    BalasHapus
  32. Unknown28 Januari 2013 pukul 07.45

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

    BalasHapus
  33. Unknown29 Januari 2013 pukul 05.39

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

    BalasHapus
  34. Unknown29 Januari 2013 pukul 15.11

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

    BalasHapus

Langganan: Posting Komentar (Atom)