Kamis, 12 Januari 2012

Latihan 60 APKOM 4 D3C

Submit Here
Diposting oleh di

8 komentar:

  1. Younha Sangga3 Februari 2012 pukul 06.03

    Public Class LATIHAN_60_36109058

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim yunha As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    yunha = x.AturDatabase(New LATIHAN_59_36109058, Application.StartupPath, "data report.accdb")
    Latihan_53_36109058.seung.SelectionFormula = "{detailtransaksi.notrans} = '" & A058.Text & "'"
    Latihan_53_36109058.seung.ReportSource = yunha
    yunha.SetParameterValue("yunhi", PRW.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_Zone3 Februari 2012 pukul 16.39

    Public Class Tugas_60_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
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    laporan = x.AturDatabase(New Tugas_59_36109075, Application.StartupPath, "DATA REPORT.accdb")
    Tugas_53_36109075.HONDA.SelectionFormula = "{DETAILTRANSAKSI.NOTRANS} = '" & NT075.Text & "'"
    Tugas_53_36109075.HONDA.ReportSource = laporan
    laporan.SetParameterValue("putry", NK075.Text)

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

    BalasHapus
  3. asni3 Februari 2012 pukul 18.11

    Public Class Form60

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim asni As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    asni = x.AturDatabase(New latihan59068, Application.StartupPath, "data report.accdb")
    Form53068.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & a.Text & "'"
    Form53068.honda.ReportSource = asni
    asni.SetParameterValue("asni matarru", b.Text)

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

    BalasHapus
  4. 4nHyTomb3 Februari 2012 pukul 18.11

    Public Class Latihan6036109062

    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 CrystalReport5936109062, Application.StartupPath, "data report.accdb")
    LATIHAN5336109062.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & Nt1.Text & "'"
    LATIHAN5336109062.honda.ReportSource = fani
    fani.SetParameterValue("URIM", Nk.Text)

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

    End Sub
    End Class

    BalasHapus
  5. KrisnaSaman3 Februari 2012 pukul 18.54

    Public Class Form60_36109074

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim krisna As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    krisna = x.AturDatabase(New latihan59, Application.StartupPath, "data report.accdb")
    Latihan53.Honda.SelectionFormula = "{detailtransaksi.notrans} = '" & TextBox1.Text & "'"
    Latihan53.Honda.ReportSource = krisna
    krisna.SetParameterValue("tati", TextBox2.Text)

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

    BalasHapus
  6. Fatma Sari Adhy Surya3 Februari 2012 pukul 19.29

    Public Class Form60

    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 CrystalReport59, Application.StartupPath, "DATA REPORT.accdb")
    Form53.honda.SelectionFormula = "{DETAILTRANSAKSI.NOTRANS} = '" & NT075.Text & "'"
    Form53.honda.ReportSource = laporan
    laporan.SetParameterValue("fatma", NK075.Text)

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

    BalasHapus
  7. sarshe3 Februari 2012 pukul 19.36

    Public Class LATIHAN06036109060

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim sarce As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    sarce = x.AturDatabase(New CrystalReport059_060, Application.StartupPath, "DATA REPORT.accdb")
    LATIHAN05336109060.HONDA.SelectionFormula = "{detailtransaksi.notrans} = '" & TextBox1.Text & "'"
    LATIHAN05336109060.HONDA.ReportSource = sarce
    sarce.SetParameterValue("Sarce", TextBox2.Text)

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

    End Sub
    End Class

    BalasHapus
  8. catherine parubak3 Februari 2012 pukul 19.36

    Public Class Form60

    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 Latihan59, Application.StartupPath, "data report.accdb")
    Form53.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & ee.Text & "'"
    Form53.honda.ReportSource = keket
    keket.SetParameterValue("Catherine", ff.Text)

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

    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)