Kamis, 12 Januari 2012

Latihan 56 APKOM 4 D3A

Submit Here
Diposting oleh di

4 komentar:

  1. ridhacayoo5 Februari 2012 pukul 05.47

    ridhayanti saleh
    36109015

    tugas 56

    Public Class Form56_36109015

    Private Sub VIEW_36109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_36109015.Click
    Dim Laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Laporan = New CrystalReport45_36109015
    Laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "Data Report.accdb")

    Form53_36109015.HONDA.ReportSource = Laporan

    If Form53_36109015.Visible = False Then
    Form53_36109015.Show()
    Else
    Form53_36109015.Activate()
    End If

    Form53_36109015.HONDA.SelectionFormula = "{barang.kodebarang} ='" & TB_015.Text & "'"
    End Sub
    End Class

    BalasHapus
  2. Rusnaningsi Ruslan5 Februari 2012 pukul 05.57

    RUSNANINGSI RUSLAN
    36109010

    Public Class Latihan56_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")

    rusna = New Report_50_36109010
    Latihan53_36109010.Honda.ReportSource = rusna
    Latihan53_36109010.Honda.SelectionFormula = "{barang.kodebarang} ='" & TextBox1.Text & "'"
    If Latihan53_36109010.Visible = False Then
    Latihan53_36109010.Show()
    Else
    Latihan53_36109010.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. ApReaL_ApRiLio8 Februari 2012 pukul 18.17

    Public Class Form56_36109001
    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 Form45_36109001
    Form53_36109001.Honda.SelectionFormula = "{barang.kodebarang}='" & text1_36109001.Text & "'"

    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
  4. Harun12 Februari 2012 pukul 16.41

    Public Class Form56_36109006
    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 Form45_36109006
    Form53_36109006.Honda.SelectionFormula = "{barang.kodebarang}='" & text1_36109006.Text & "'"

    Form53_36109006.Honda.ReportSource = laporan
    If Form53_36109006.Visible = False Then
    Form53_36109006.Show()
    Else
    Form53_36109006.Activate()
    End If
    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)