Kamis, 12 Januari 2012

Latihan 57 APKOM 4 D3B

Submit Here
Diposting oleh di

22 komentar:

  1. Unknown16 Januari 2012 pukul 07.02

    Public Class Latihan_57_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 = "{DETAILTRANSAKSI.HARGA}>= " & TextBox1_36109056.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.40

    Public Class Latih57_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 = "{DETAILTRANSAKSI.HARGA}>= " & 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 Tahir20 Januari 2012 pukul 00.03

    Public Class LATIHAN_057_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 = "{detailtransaksi.harga}<=" & 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. khaeril jhi29 Januari 2012 pukul 02.13

    'latihan 57
    Public Class latihan57
    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 = "{detailtransaksi.harga} >='" & TextBox1.Text & "'"
    If latihan53.Visible = False Then
    latihan53.Show()
    Else
    latihan53.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  5. nideria29 Januari 2012 pukul 04.42

    Public Class Form5736109050
    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 = "{detailtransaksi.harga} >='" & TextBox1.Text & "'"
    If Form5336109050.Visible = False Then
    Form5336109050.Show()
    Else
    Form5336109050.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  6. Juniati Muslimin1 Februari 2012 pukul 07.52

    Public Class Latihan57_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 = "{DETAILTRANSAKSI.HARGA}>= " & TextBox136109037.Text & ""
    If Latihan53_36109037.Visible = False Then
    Latihan53_36109037.Show()

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

    BalasHapus
  7. Armita Laenre1 Februari 2012 pukul 11.32

    Public Class Latihan5736109040

    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 = "{DETAILTRANSAKSI.HARGA}>= " & TextBox136109040.Text & ""
    If Latihan5336109040.Visible = False Then
    Latihan5336109040.Show()

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

    BalasHapus
  8. Unknown9 November 2012 pukul 19.37

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

    BalasHapus
  9. Unknown27 November 2012 pukul 18.57

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

    BalasHapus
  10. Unknown28 November 2012 pukul 19.33

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

    BalasHapus
  11. Unknown7 Desember 2012 pukul 17.26

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

    BalasHapus
  12. Unknown8 Desember 2012 pukul 22.30

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

    BalasHapus
  13. IlaH Az Zahra10 Desember 2012 pukul 01.36

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

    BalasHapus
  14. Unknown31 Desember 2012 pukul 00.51

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

    BalasHapus
  15. Naomi Emily7 Januari 2013 pukul 04.09

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

    BalasHapus
  16. Unknown11 Januari 2013 pukul 21.45

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

    BalasHapus
  17. Unknown27 Januari 2013 pukul 08.43

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

    BalasHapus
  18. Unknown28 Januari 2013 pukul 10.45

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

    BalasHapus
  19. Unknown29 Januari 2013 pukul 00.34

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

    BalasHapus
  20. Unknown29 Januari 2013 pukul 03.44

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

    BalasHapus
  21. Unknown30 Januari 2013 pukul 11.29

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

    BalasHapus
  22. Unknown2 Februari 2013 pukul 10.35

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

    BalasHapus

Langganan: Posting Komentar (Atom)