Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D4B

Submit Here

16 komentar:

  1. 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
    Balasan
    1. Komentar ini telah dihapus oleh pengarang.

      Hapus
  2. 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. 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. 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. 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. 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. 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. 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. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  10. 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. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  12. 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. 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. 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. 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