Kamis, 12 Januari 2012

Latihan 56 APKOM 4 D3B

Submit Here
Diposting oleh di

25 komentar:

  1. Unknown16 Januari 2012 pukul 06.59

    Public Class Latihan_56_36109056

    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
    Dim X As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = X.AturDatabase(New Latihan_50_36109056, Application.StartupPath, "DATA REPORT.ACCDB")
    Latihan_53_36109056.HONDA.ReportSource = LAPORAN
    Latihan_53_36109056.HONDA.SelectionFormula = "{BARANG.KODEBARANG}='" & TextBox1.Text & "'"
    If Latihan_53_36109056.Visible = False Then
    Latihan_53_36109056.Show()

    Else
    Latihan_53_36109056.Activate() 'JIKA SUDAH MUNCUL DIBELAKANG
    End If
    End Sub
    End Class

    BalasHapus
  2. Nurhidayah Ibrahim16 Januari 2012 pukul 18.41

    Public Class Latih56_36109034

    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
    Dim X As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = X.AturDatabase(New Latih50_36109034, Application.StartupPath, "data report.accdb")
    Latih53_36109034.HONDA.ReportSource = laporan

    Latih53_36109034.HONDA.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"

    If Latih53_36109034.Visible = False Then
    Latih53_36109034.Show()
    Else
    Latih53_36109034.Activate() 'jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  3. Pratiwi Leila Safila Tahir19 Januari 2012 pukul 23.59

    Public Class LATIHAN_056_36109033

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles honda.Click

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument()

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New LATIHAN_050_36109033, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug

    LATIHAN_053_36109033.Honda.ReportSource = laporan

    LATIHAN_053_36109033.Honda.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & " ' "

    If LATIHAN_053_36109033.Visible = False Then
    LATIHAN_053_36109033.Show()
    Else
    LATIHAN_053_36109033.Activate() ' jika sdh muncul tp dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  4. nideria24 Januari 2012 pukul 03.41

    Public Class Form5636109050

    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

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New form5036109050, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.


    Form5336109050.HONDA.ReportSource = laporan

    Form5336109050.HONDA.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"


    If Form5336109050.Visible = False Then
    Form5336109050.Show()
    Else
    Form5336109050.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  5. khaeril jhi29 Januari 2012 pukul 01.57

    'latihan 56
    Public Class latihan56
    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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan50, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan53.honda.ReportSource = laporan
    latihan53.honda.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"
    If latihan53.Visible = False Then
    latihan53.Show()
    Else
    latihan53.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  6. Juniati Muslimin1 Februari 2012 pukul 07.48

    Public Class Latihan56_36109037

    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
    Dim X As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = X.AturDatabase(New Latihan50_36109037, Application.StartupPath, "DATA REPORT.ACCDB")
    Latihan53_36109037.HONDA.ReportSource = LAPORAN
    Latihan53_36109037.HONDA.SelectionFormula = "{BARANG.KODEBARANG}='" & TextBox1.Text & "'"
    If Latihan53_36109037.Visible = False Then
    Latihan53_36109037.Show()

    Else
    Latihan53_36109037.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Armita Laenre1 Februari 2012 pukul 11.38

    Public Class Latihan5636109040

    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
    Dim X As New ByIskandar.MengaturDataBaseCrystalReport
    LAPORAN = X.AturDatabase(New Latihan5036109040, Application.StartupPath, "DATA REPORT.ACCDB")
    Latihan5336109040.HONDA.ReportSource = LAPORAN
    Latihan5336109040.HONDA.SelectionFormula = "{BARANG.KODEBARANG}='" & TextBox1.Text & "'"
    If Latihan5336109040.Visible = False Then
    Latihan5336109040.Show()

    Else
    Latihan5336109040.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Wirda4 Februari 2012 pukul 17.52

    Public Class Latihan5636109049

    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

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan5036109049, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.


    Latihan05336109049.HONDA.ReportSource = laporan

    Latihan05336109049.HONDA.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"


    If Latihan05336109049.Visible = False Then
    Latihan05336109049.Show()
    Else
    Latihan05336109049.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  9. Magfirah6 Februari 2012 pukul 05.11

    Public Class Latihan5636109044

    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

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan5036109044, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.


    Latihan5336109044.HONDA.ReportSource = laporan

    Latihan5336109044.HONDA.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"


    If Latihan5336109044.Visible = False Then
    Latihan5336109044.Show()
    Else
    Latihan5336109044.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  10. Unknown9 November 2012 pukul 19.36

    http://rainaagrippinaa.blogspot.com/2012/11/latihan5636110032.html

    BalasHapus
  11. Unknown27 November 2012 pukul 18.51

    http://rosyanausman.blogspot.com/2012/11/latihan5636110036_10.html

    BalasHapus
  12. Unknown28 November 2012 pukul 19.30

    http://burhankhang58.blogspot.com/2012/11/latihan5636110047.html

    BalasHapus
  13. Unknown7 Desember 2012 pukul 17.16

    http://nurrahmahrasyid2.blogspot.com/2012/11/latihan5636110042.html

    BalasHapus
  14. Unknown8 Desember 2012 pukul 22.28

    http://tiya-sri.blogspot.com/2012/12/latihan5636110044-aplikasi-komputer-4.html

    BalasHapus
  15. IlaH Az Zahra10 Desember 2012 pukul 01.34

    http://ilhaazzahra.blogspot.com/2012/11/latihan5636110033.html

    BalasHapus
  16. Naomi Emily29 Desember 2012 pukul 22.30

    http://eminaomi.blogspot.com/2012/12/latihan5636110049.html

    BalasHapus
  17. Unknown31 Desember 2012 pukul 00.48

    http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan5636110039.html

    BalasHapus
  18. Unknown11 Januari 2013 pukul 21.39

    http://dewiwahyuni91.blogspot.com/2012/11/latihan5636110038_2.html

    BalasHapus
  19. Unknown27 Januari 2013 pukul 08.44

    http://hasfiahzain.blogspot.com/2013/01/latihan5636110052.html

    BalasHapus
  20. Unknown28 Januari 2013 pukul 10.42

    http://rahmisuryatama05.blogspot.com/2013/01/latihan5636110040.html

    BalasHapus
  21. Unknown29 Januari 2013 pukul 00.35

    http://hilariusmariotonapa.blogspot.com/2013/01/deskripsi-latihan5636110048.html
    http://hilariusmariotonapa.blogspot.com/2013/01/prosedur-penyelesaian-latihan5636110048.html

    BalasHapus
  22. Unknown29 Januari 2013 pukul 03.46

    http://rizka-azisah.blogspot.com/2013/01/deskripsi-penyelesaian-latihan5536110041_24.html

    BalasHapus
  23. Unknown29 Januari 2013 pukul 08.13

    http://sukadriady.blogspot.com/2013/01/latihan5636110043.html

    BalasHapus
  24. Unknown30 Januari 2013 pukul 11.31

    http://zulkiflitryputra.blogspot.com/2013/01/latihan5636110046.html

    BalasHapus
  25. Unknown2 Februari 2013 pukul 10.34

    http://reskypurwono.blogspot.com/2013/02/prosedur-penyelesaian-latihan5636110037.html

    BalasHapus

Langganan: Posting Komentar (Atom)