Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D4B

Submit Here
Diposting oleh di

16 komentar:

  1. SRY REJEKI_09_PNUP2 Februari 2012 pukul 20.49

    Public Class Latihan060_46109006
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim sry As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    sry = x.AturDatabase(New Latihan_059_46109006, Application.StartupPath, "data report.accdb")
    Latihan_053_46109006.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109006.Text & "'"
    Latihan_053_46109006.honda.ReportSource = sry
    sry.SetParameterValue("sry", NK46109006.Text)

    If Latihan_053_46109006.Visible = False Then
    Latihan_053_46109006.Show()
    Else
    Latihan_053_46109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Unknown3 Februari 2012 pukul 17.25

    Public Class Latihan60_46109035
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim diaz As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    diaz = x.AturDatabase(New Latihan59_46109035, Application.StartupPath, "data report.accdb")
    Latihan53_46109035.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109035.Text & "'"
    Latihan53_46109035.honda.ReportSource = sry
    diaz.SetParameterValue("diaz", NK46109035.Text)

    If Latihan53_46109035.Visible = False Then
    Latihan53_46109035.Show()
    Else
    Latihan53_46109035.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. Radiah_461090183 Februari 2012 pukul 17.55

    maaf pak saya buat blog baru . di blog yang baru itu saya posting dari form 30-60, sedangkan yang blog lama saya posting 1-29 ( tapi blog lama sudah expired)

    BalasHapus
  4. Dunia Koesong Satoe3 Februari 2012 pukul 18.00

    LATIHAN 60
    ANDI NURMUHITHA (461 09 047)

    Public Class Latihan6046109047
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    Report = x.AturDatabase(New Latihan5946109047, Application.StartupPath, "data report.accdb")
    Latihan5346109047.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109047.Text & "'"
    Latihan5346109047.honda.ReportSource = Report
    Report.SetParameterValue("Report", NK46109047.Text)

    If Latihan5346109047.Visible = False Then
    Latihan5346109047.Show()
    Else
    Latihan5346109047.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Andi Faradiva3 Februari 2012 pukul 18.01

    Public Class Form60_46109043


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Laporan As CrystalDecisions.CrystalReports.Engine.ReportDocument

    Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport
    Laporan = Pencari.AturDatabase(New CrystalReport50_043, Application.StartupPath, "Data Report.accdb")

    Form53_46109043.crv46109043.SelectionFormula = "{MasterTransaksi.Notrans} = '" & TextBox1.Text & "'"

    Form53_46109043.crv46109043.ReportSource = Laporan

    If Form53_46109043.Visible = False Then
    Form53_46109043.Show()
    Else
    Form53_46109043.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  6. Qayyimah Nashriyah Y3 Februari 2012 pukul 18.48

    Public Class Latihan060_46109015
    Private Sub Button1_015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_015.Click

    Dim qayyimah As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim imah As New ByIskandar.MengaturDataBaseCrystalReport

    qayyimah = imah.AturDatabase(New CrystalReport059_46109015, Application.StartupPath, "data report.accdb")
    Latihan053_46109015.HONDA.SelectionFormula = "{detailtransaksi.notrans} = '" & TextBox1_015.Text & "'"
    Latihan053_46109015.HONDA.ReportSource = qayyimah
    qayyimah.SetParameterValue("qayyimah", TextBox2_015.Text)

    If Latihan053_46109015.Visible = False Then
    Latihan053_46109015.Show()
    Else
    Latihan053_46109015.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Uchy Blog3 Februari 2012 pukul 20.00

    Andi Muh. Yusri - 46109038

    Public Class Latihan60_46109038

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

    Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    UchyReport = x.AturDatabase(New Latihan59_46109038, Application.StartupPath, "data report.accdb")
    Latihan53_46109038.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109038.Text & "'"
    Latihan53_46109038.honda.ReportSource = UchyReport
    UchyReport.SetParameterValue("Report", NK46109038.Text)

    If Latihan53_46109038.Visible = False Then
    Latihan53_46109038.Show()
    Else
    Latihan53_46109038.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Unknown4 Februari 2012 pukul 18.52

    PublicClass Latihan60_46109050
    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim kiki AsNew CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x AsNew ByIskandar.MengaturDataBaseCrystalReport

    kiki = x.AturDatabase(New CrystalReport59, Application.StartupPath, "data report.accdb")
    latihan53_46109050.honda.SelectionFormula = "{detailtransaksi.notrans} = '"& NT46109050.Text &"'"
    latihan53_46109050.honda.ReportSource = kiki
    kiki.SetParameterValue("kiki", NK46109050.Text)

    If latihan53_46109050.Visible = FalseThen
    latihan53_46109050.Show()
    Else
    Latihan53_46109050..Activate()
    EndIf
    EndSub
    EndClass

    BalasHapus
  9. Muhammad Syahril5 Februari 2012 pukul 21.05

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  10. Muhammad Syahril5 Februari 2012 pukul 21.12

    Public Class latihan_60_46109044

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim syahril As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    syahril = x.AturDatabase(New latihan_59_46109044, Application.StartupPath, "data report.accdb")
    latihan_53_46109044.Honda.SelectionFormula = "{detailtransaksi.notrans} = '" & notrans46109044.Text & "'"
    latihan_53_46109044.Honda.ReportSource = syahril
    syahril.SetParameterValue("SYAHRIL", kasir46109044.Text)

    If latihan_53_46109044.Visible = False Then
    latihan_53_46109044.Show()
    Else
    latihan_53_46109044.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  11. asmianti rahman6 Februari 2012 pukul 03.25

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  12. asmianti rahman6 Februari 2012 pukul 04.29

    Public Class Latihan060_46109046
    Private Sub Button1_046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_046.Click

    Dim AMHY As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim ASMI As New ByIskandar.MengaturDataBaseCrystalReport

    AMHY = ASMI.AturDatabase(New CrystalReport59, Application.StartupPath, "data report.accdb")
    Latihan053_46109046.HONDA.SelectionFormula = "{detailtransaksi.notrans} = '" & TextBox1_046.Text & "'"
    Latihan053_46109046.HONDA.ReportSource = AMHY
    AMHY.SetParameterValue("AMHY", TextBox2_046.Text)

    If Latihan053_46109046.Visible = False Then
    Latihan053_46109046.Show()
    Else
    Latihan053_46109046.Activate()
    End If
    End Sub

    End Class

    BalasHapus
  13. Andi Novindra Batari, SST6 Februari 2012 pukul 16.54

    Public Class Form60_46109042


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Laporan As CrystalDecisions.CrystalReports.Engine.ReportDocument

    Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport
    Laporan = Pencari.AturDatabase(New CrystalReport50_042, Application.StartupPath, "Data Report.accdb")

    Form53_46109042.crv46109042.SelectionFormula = "{MasterTransaksi.Notrans} = '" & TextBox1.Text & "'"

    Form53_46109042.crv46109042.ReportSource = Laporan

    If Form53_46109042.Visible = False Then
    Form53_46109042.Show()
    Else
    Form53_46109042.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  14. Ibnu Hajar H7 Februari 2012 pukul 07.28

    Public Class LATIHAN6046109026


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim ibeng As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    ibeng = x.AturDatabase(New Latihan5946109026, Application.StartupPath, "data report.accdb")
    LATIHAN5346109026.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT46109026.Text & "'"
    LATIHAN5346109026.honda.ReportSource = ibeng
    ibeng.SetParameterValue("ibeng", NK46109026.Text)

    If LATIHAN5346109026.Visible = False Then
    LATIHAN5346109026.Show()
    Else
    LATIHAN5346109026.Activate()
    End If
    End Sub

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

    End Sub
    End Class

    BalasHapus
  15. Taufiq Gooners7 Februari 2012 pukul 19.03

    Public Class tugas6046109033

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim tofiq As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport

    tofiq = x.AturDatabase(New tugas59, Application.StartupPath, "data report.accdb")
    tugas5346109033.CrystalReportViewer1.SelectionFormula = "{detailtransaksi.notrans} = '" & nt46109033.Text & "'"
    tugas5346109033.CrystalReportViewer1.ReportSource = tofiq
    tofiq.SetParameterValue("Taufiq", nk46109033.Text)

    If tugas5346109033.Visible = False Then
    tugas5346109033.Show()
    Else
    tugas5346109033.Activate()
    End If
    End Sub

    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)