Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D4B

Submit Here

10 komentar:

  1. Public Class Latihan058_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_050_46109006, Application.StartupPath, "data report.accdb")
    Latihan_053_46109006.honda.ReportSource = SRY
    Latihan_053_46109006.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "#")
    If Latihan_053_46109006.Visible = False Then
    Latihan_053_46109006.Show()
    Else
    Latihan_053_46109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class Latihan58_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 Latihan50_46109035, Application.StartupPath, "data report.accdb")
    Latihan53_46109035.honda.ReportSource = diaz
    Latihan53_46109035.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT_46109035.Value.Month & "/" & DT_46109035.Value.Day & "/" & DT_46109035.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT_46109035.Value.Month & "/" & DT_46109035.Value.Day & "/" & DT_46109035.Value.Year & "#"
    If Latihan53_46109035.Visible = False Then
    Latihan53_46109035.Show()
    Else
    Latihan53_46109035.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. LATIHAN 58
    ANDI NURMUHITHA ( 461 09 047)

    Public Class Latihan5846109047

    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 Latihan5046109047, Application.StartupPath, "data report.accdb")
    Latihan5346109047.honda.ReportSource = report
    Latihan5346109047.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109047.Value.Month & "/" & DT46109047.Value.Day & "/" & DT46109047.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109047.Value.Month & "/" & DT46109047.Value.Day & "/" & DT46109047.Value.Year & "#"
    If Latihan5346109047.Visible = False Then
    Latihan5346109047.Show()
    Else
    Latihan5346109047.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  4. Public Class Form58_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, "DataReport.accdb")

    Form53_46109043.crv46109043.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & DateTimePicker1.Value.Date & "#"
    Form53_46109043.crv46109043.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & DateTimePicker2.Value.Date & "#"
    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
  5. Public Class Latihan058_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 CrystalReport050_46109015, Application.StartupPath, "data report.accdb")
    Latihan053_46109015.honda.ReportSource = qayyimah
    Latihan053_46109015.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "#")
    If Latihan053_46109015.Visible = False Then
    Latihan053_46109015.Show()
    Else
    Latihan053_46109015.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  6. Andi Muh. Yusri - 46109038

    Public Class Latihan58_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 Latihan50_46109038, Application.StartupPath, "data report.accdb")
    Latihan53_46109038.honda.ReportSource = UchyReport
    Latihan53_46109038.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109038.Value.Month & "/" & DT46109038.Value.Day & "/" & DT46109038.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109038.Value.Month & "/" & DT46109038.Value.Day & "/" & DT46109038.Value.Year & "#"
    If Latihan53_46109038.Visible = False Then
    Latihan53_46109038.Show()
    Else
    Latihan53_46109038.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  7. Public Class latihan_58_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_50_46109044, Application.StartupPath, "data report.accdb")

    latihan_53_46109044.Honda.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & dt46109044.Value.Date & "#"
    latihan_53_46109044.Honda.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & ht46109044.Value.Date & "#"

    latihan_53_46109044.Honda.ReportSource = syahril
    If latihan_53_46109044.Visible = False Then
    latihan_53_46109044.Show()
    Else
    latihan_53_46109044.Activate()
    End If
    End Sub

    End Class

    BalasHapus
  8. Public Class Form58_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, "DataReport.accdb")

    Form53_46109042.crv46109042.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & DateTimePicker1.Value.Date & "#"
    Form53_46109042.crv46109042.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & DateTimePicker2.Value.Date & "#"
    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
  9. Public Class LATIHAN5846109026


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

    ibhe = x.AturDatabase(New Latihan5046109026, Application.StartupPath, "data report.accdb")
    LATIHAN5346109026.honda.ReportSource = ibhe
    LATIHAN5346109026.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "#")
    If LATIHAN5346109026.Visible = False Then
    LATIHAN5346109026.Show()
    Else
    LATIHAN5346109026.Activate()
    End If
    End Sub

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

    End Sub
    End Class

    BalasHapus
  10. Public Class tugas5846109033

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim wawan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    wawan = x.AturDatabase(New tugas50, Application.StartupPath, "data report.accdb")

    tugas5346109033.CrystalReportViewer1.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & dt46109033.Value.Date & "#"
    tugas5346109033.CrystalReportViewer1.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & ht46109033.Value.Date & "#"

    tugas5346109033.CrystalReportViewer1.ReportSource = wawan
    If tugas5346109033.Visible = False Then
    tugas5346109033.Show()
    Else
    tugas5346109033.Activate()
    End If
    End Sub
    End Class

    BalasHapus