Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D3B

Submit Here
Diposting oleh di

21 komentar:

  1. khaeril jhi29 Januari 2012 pukul 03.20

    latihan 60
    Public Class Form9
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan59, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan53.honda.ReportSource = laporan
    latihan53.honda.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("namakasir", TextBox2.Text)
    If latihan53.Visible = False Then
    latihan53.Show()
    Else
    latihan53.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  2. nideria29 Januari 2012 pukul 05.13

    Public Class Form6036109050
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Form5936109050, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form5336109050.HONDA.ReportSource = laporan
    Form5336109050.HONDA.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("namakasir", TextBox2.Text)
    If Form5336109050.Visible = False Then
    Form5336109050.Show()
    Else
    Form5336109050.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. Juniati Muslimin1 Februari 2012 pukul 08.02

    Public Class Latihan60_36109037
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan59_36109037, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan53_36109037.honda.ReportSource = laporan
    latihan53_36109037.honda.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox136109037.Text & "'"
    laporan.SetParameterValue("namakasir", TextBox236109037.Text)
    If latihan53_36109037.Visible = False Then
    latihan53_36109037.Show()
    Else
    latihan53_36109037.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  4. Armita Laenre1 Februari 2012 pukul 11.24

    Public Class Latihan6036109040
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan5936109040, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan5336109040.honda.ReportSource = laporan
    latihan5336109040.honda.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox136109040.Text & "'"
    laporan.SetParameterValue("namakasir", TextBox236109040.Text)
    If latihan5336109040.Visible = False Then
    latihan5336109040.Show()
    Else
    latihan5336109040.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  5. wawan361090544 Februari 2012 pukul 22.37

    Public Class latihan6036109054
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan5936109054, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan5336109054.honda.ReportSource = laporan
    latihan5336109054.honda.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("namakasir", TextBox2.Text)
    If latihan5336109054.Visible = False Then
    latihan5336109054.Show()
    Else
    latihan5336109054.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  6. Magfirah6 Februari 2012 pukul 05.05

    Public Class Latihan6036109044
    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 Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan5936109044, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Latihan5336109044.HONDA.ReportSource = laporan
    Latihan5336109044.HONDA.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox1.Text & "'"
    laporan.SetParameterValue("MAGFIRAH", TextBox2.Text)
    If Latihan5336109044.Visible = False Then
    Latihan5336109044.Show()
    Else
    Latihan5336109044.Activate()
    End If
    End Sub

    Private Sub Latihan6036109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class

    BalasHapus
  7. Pratiwi Leila Safila Tahir7 Februari 2012 pukul 03.31

    Public Class LATIHAN_060_36109033
    Dim tiwi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim t As New ByIskandar.MengaturDataBaseCrystalReport

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim tiwi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim t As New ByIskandar.MengaturDataBaseCrystalReport
    tiwi = t.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 = tiwi
    LATIHAN_053_36109033.Honda.SelectionFormula = "{MASTERTRANSAKSI.NOTRANS}='" & TextBox136109033.Text & "'"
    tiwi.SetParameterValue("TIWI", TextBox236109033.Text)
    If LATIHAN_053_36109033.Visible = False Then
    LATIHAN_053_36109033.Show()
    Else
    LATIHAN_053_36109033.Activate()
    End If

    End Sub
    End Class

    BalasHapus
  8. Unknown9 November 2012 pukul 19.39

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

    BalasHapus
  9. Unknown27 November 2012 pukul 19.05

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

    BalasHapus
  10. Unknown28 November 2012 pukul 19.35

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

    BalasHapus
  11. Unknown7 Desember 2012 pukul 23.06

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

    BalasHapus
  12. Unknown8 Desember 2012 pukul 22.38

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

    BalasHapus
  13. IlaH Az Zahra10 Desember 2012 pukul 01.26

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

    BalasHapus
  14. Unknown31 Desember 2012 pukul 01.01

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

    BalasHapus
  15. Unknown11 Januari 2013 pukul 22.00

    http://dewiwahyuni91.blogspot.com/2013/01/latihan6036110038.html

    BalasHapus
  16. Naomi Emily22 Januari 2013 pukul 04.19

    http://eminaomi.blogspot.com/2013/01/latihan6036110049.html

    BalasHapus
  17. Unknown27 Januari 2013 pukul 08.38

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

    BalasHapus
  18. Unknown28 Januari 2013 pukul 10.54

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

    BalasHapus
  19. Unknown29 Januari 2013 pukul 00.32

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

    BalasHapus
  20. Unknown29 Januari 2013 pukul 03.31

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

    BalasHapus
  21. Unknown30 Januari 2013 pukul 11.28

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

    BalasHapus

Langganan: Posting Komentar (Atom)