Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D3A

Submit Here

3 komentar:

  1. Public Class Latihan58_36109010

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim rusna As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    rusna = x.AturDatabase(New Report_50_36109010, Application.StartupPath, "DATA REPORT.accdb")
    Latihan53_36109010.Honda.ReportSource = rusna
    Latihan53_36109010.Honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & aa.Value.Month & "/" & aa.Value.Day & "/" & aa.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & aa.Value.Month & "/" & aa.Value.Day & "/" & aa.Value.Year & "#"
    If Latihan53_36109010.Visible = False Then
    Latihan53_36109010.Show()
    Else
    Latihan53_36109010.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Public Class Form58_36109001
    Private Sub Form58_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Form50_36109001

    Form53_36109001.Honda.ReportSource = laporan

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

    BalasHapus
  3. Public Class Form58_36109006

    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
    laporan = x.AturDatabase(New form5036109050, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form53_36109006.HONDA.ReportSource = laporan
    Form53_36109006.HONDA.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If Form53_36109006.Visible = False Then
    Form53_36109006.Show()
    Else
    Form53_36109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus