Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D3B

Submit Here

21 komentar:

  1. 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. 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. 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. 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. 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. 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. 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. http://rainaagrippinaa.blogspot.com/2012/11/latihan6036110032.html

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

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

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

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

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

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

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

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

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

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

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

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

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

    BalasHapus