Kamis, 12 Januari 2012

Latihan 56 APKOM 4 D3C

Submit Here
Diposting oleh di

11 komentar:

  1. Younha Sangga31 Januari 2012 pukul 02.41

    Public Class LATIHAN_56_36109058
    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 LATIHAN_45_36109058, Application.StartupPath, "data report.accdb")
    'aplikasi startuppath menjelaskan bahwa filre database ada di dalam folder debug

    Latihan_53_36109058.seung.ReportSource = laporan
    Latihan_53_36109058.seung.SelectionFormula = "{BARANG.KODEBARANG} ='" & A058.Text & "'"
    If Latihan_53_36109058.Visible = False Then
    Latihan_53_36109058.Show()
    Else
    Latihan_53_36109058.Activate()
    End If
    End Sub

    End Class

    BalasHapus
  2. Pute_Zone1 Februari 2012 pukul 04.13

    Public Class Tugas_56_36109075

    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 Tugas_50_36109075

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Tugas_45_36109075, Application.StartupPath, "data report.accdb")
    'application startuppath menjelaskan bahwa filre database ada di dalam folder debug.

    Tugas_53_36109075.HONDA.ReportSource = laporan
    Tugas_53_36109075.HONDA.SelectionFormula = "{BARANG.KODEBARANG}= '" & TextBox1.Text & "'"

    If Tugas_53_36109075.Visible = False Then
    Tugas_53_36109075.Show()
    Else
    Tugas_53_36109075.Activate() 'jika sudah muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  3. kartikalady_croft1 Februari 2012 pukul 19.29

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  4. kartikalady_croft1 Februari 2012 pukul 19.32

    Public Class latihan_56_059


    Private Sub preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles honda.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Laporan = New Latihan_50_36109059

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

    Latihan_53_059.HONDA.ReportSource = laporan
    Latihan_53_059.HONDA.SelectionFormula = "{BARANG.KODEBARANG}= '" & koba.Text & "'"

    If Latihan_53_059.Visible = False Then
    Latihan_53_059.Show()
    Else
    Latihan_53_059.Activate() 'jika sudah muncul tapi dibelakang
    End If
    End Sub

    BalasHapus
  5. 4nHyTomb3 Februari 2012 pukul 18.18

    Public Class Latihan5636109062

    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 Latihan5036109062
    LATIHAN5336109062.honda.ReportSource = Laporan
    LATIHAN5336109062.honda.SelectionFormula = " {BARANG.KODEBARANG}= '" & TextBox1.Text & "'"

    If LATIHAN5336109062.Visible = False Then
    LATIHAN5336109062.Show()
    Else
    LATIHAN5336109062.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub
    End Class

    BalasHapus
  6. asni3 Februari 2012 pukul 18.26

    Public Class Form56


    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 latihan50068

    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New latihan45068, Application.StartupPath, "data report.accdb")
    'application startuppath menjelaskan bahwa filre database ada di dalam folder debug.
    Form53068.honda.ReportSource = laporan
    Form53068.honda.SelectionFormula = " {BARANG.KODEBARANG}= '" & TextBox1.Text & "'"



    If Form53068.Visible = False Then
    Form53068.Show()
    Else
    Form53068.Activate() 'jika sudah muncul tapi dibelakang
    End If

    End Sub

    End Class

    BalasHapus
  7. KrisnaSaman3 Februari 2012 pukul 18.50

    Public Class Latihan56

    Private Sub preview_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 folder debug.

    Latihan53.Honda.ReportSource = laporan
    Latihan53.Honda.SelectionFormula = "{BARANG.KODEBARANG}= '" & KodeBarang.Text & "'"

    If Latihan53.Visible = False Then
    Latihan53.Show()
    Else
    Latihan53.Activate() 'jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  8. aditya.Deriel3 Februari 2012 pukul 21.23

    Public Class Form56_084

    Private Sub preview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    laporan = New Form50_084

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

    Latihan53.Honda.ReportSource = laporan
    Latihan53.Honda.SelectionFormula = "{BARANG.KODEBARANG}= '" & KodeBarang.Text & "'"

    If Form53_084.Visible = False Then
    Form53_084.Show()
    Else
    Form53_084.Activate() 'jika sudah muncul tapi dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  9. yudhaseven4 Februari 2012 pukul 03.10

    Public Class Latihan56

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim DanangAs New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Danang= New latihan45

    Latihan53.Yudha.ReportSource = Vhal

    Latihan53.Yudha.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"

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

    BalasHapus
  10. Trioo Wijaya4 Februari 2012 pukul 03.41

    Public Class Latihan56

    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
    Trio= New latihan45

    Latihan53.Wijaya.ReportSource = Vhal

    Latihan53.Wijaya.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"

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

    BalasHapus
  11. Valenndut4 Februari 2012 pukul 03.56

    Public Class Latihan56

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

    Latihan53.Vavanet.ReportSource = Vhal

    Latihan53.Vavanet.SelectionFormula = "{barang.kodebarang}='" & TextBox1.Text & "'"

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

    BalasHapus

Langganan: Posting Komentar (Atom)