Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D3C

Submit Here
Diposting oleh di

10 komentar:

  1. Younha Sangga3 Februari 2012 pukul 05.26

    Public Class LATIHAN_58_36109058

    Private Sub A058_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A058.Click
    Dim yunha As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    yunha = x.AturDatabase(New LATIHAN_50_36109058, Application.StartupPath, "DATA REPORT.accdb")
    Latihan_53_36109058.seung.ReportSource = yunha
    Latihan_53_36109058.seung.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#"
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate()
    End If
    End Sub


    End Class

    BalasHapus
  2. 4nHyTomb3 Februari 2012 pukul 18.14

    Public Class Latihan5836109062

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

    End Sub
    End Class

    BalasHapus
  3. asni3 Februari 2012 pukul 18.17

    Public Class latihan_58_068

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

    asni = x.AturDatabase(New latihan50068, Application.StartupPath, "data report.accdb")
    Form53068.honda.ReportSource = asni
    Form53068.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & dt0681.Value.Month & "/" & dt0681.Value.Day & "/" & dt0681.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & dt0682.Value.Month & "/" & dt0682.Value.Day & "/" & dt0682.Value.Year & "#"
    If Form53068.Visible = False Then
    Form53068.Show()
    Else
    Form53068.Activate()
    End If
    End Sub

    End Class

    BalasHapus
  4. KrisnaSaman3 Februari 2012 pukul 18.52

    Public Class Latihan58

    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
    laporan = New Latihan50

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Latihan50, Application.StartupPath, "data report.accdb")
    'aplicationt startuppath menjelaskan bahwa filre database ada didalam folderdebug.

    'Mengisi reportsource dengan variabel laporan'
    Latihan53.Honda.ReportSource = laporan


    Latihan53.Honda.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & Tanggal.Value.Date & "#"
    Latihan53.Honda.SelectionFormula = "(MASTERTRANSAKSI.TANGGALTRANSAKSI)=#" & Tanggal1.Value.Date & "#"

    'Menampilkan form'
    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate()

    End If
    End Sub
    End Class

    BalasHapus
  5. Fatma Sari Adhy Surya3 Februari 2012 pukul 19.23

    Public Class Form58

    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 CrystalReport50, Application.StartupPath, "DATA REPORT.accdb")

    Form53.honda.ReportSource = laporan
    Form53.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI}>= #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#"
    If Form53.Visible = False Then
    Form53.Show()
    Else
    Form53.Activate() 'jika seudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  6. catherine parubak3 Februari 2012 pukul 19.34

    Public Class Form58

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

    BalasHapus
  7. Anonim3 Februari 2012 pukul 21.03

    Public Class Latihan_58

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim nurul As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    nurul = AturDatabase(New LATIHAN_50, Application.StartupPath, "data report.accdb")
    LATIHAN53.Honda.ReportSource = nurul
    LATIHAN53.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.Visible = False Then
    LATIHAN53.Show()
    Else
    LATIHAN53.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. yudhaseven4 Februari 2012 pukul 03.12

    Public Class Latihan58

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

    BalasHapus
  9. Trioo Wijaya4 Februari 2012 pukul 03.38

    Public Class Latihan58

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

    BalasHapus
  10. Valenndut4 Februari 2012 pukul 03.55

    Public Class Latihan58

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

    BalasHapus

Langganan: Posting Komentar (Atom)