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_59_36109010, Application.StartupPath, "data report.accdb") Latihan53_36109010.Honda.SelectionFormula = "{detailtransaksi.notrans} = '" & aa.Text & "'" Latihan53_36109010.Honda.ReportSource = rusna rusna.SetParameterValue("RUSNANINGSI", bb.Text)
If Latihan53_36109010.Visible = False Then Latihan53_36109010.Show() Else Latihan53_36109010.Activate() End If End Sub End Class
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
RUSNANINGSI RUSLAN
BalasHapus36109010
Public Class Latihan60_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_59_36109010, Application.StartupPath, "data report.accdb")
Latihan53_36109010.Honda.SelectionFormula = "{detailtransaksi.notrans} = '" & aa.Text & "'"
Latihan53_36109010.Honda.ReportSource = rusna
rusna.SetParameterValue("RUSNANINGSI", bb.Text)
If Latihan53_36109010.Visible = False Then
Latihan53_36109010.Show()
Else
Latihan53_36109010.Activate()
End If
End Sub
End Class
Public Class Form60_36109001
BalasHapusPrivate 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 Form59_36109001, Application.StartupPath, "data report.accdb")
Form53_36109001.Honda.SelectionFormula = "{detailtransaksi.notrans} = '" & not_36109001.Text & "'"
Form53_36109001.Honda.ReportSource = laporan
laporan.SetParameterValue("apreal", nmk_36109001.Text)
If Form53_36109001.Visible = False Then
Form53_36109001.Show()
Else
Form53_36109001.Activate()
End If
End Sub
End Class
Public Class Form60_36109006
BalasHapusPrivate 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 Form_59_36109006, Application.StartupPath, "data report.accdb")
Form_53_36109006.honda.SelectionFormula = "{detailtransaksi.notrans} = '" & NT36109006.Text & "'"
Form_53_36109006.honda.ReportSource = laporan
laporan.SetParameterValue("laporan", NK36109006.Text)
If Form_053_36109006.Visible = False Then
Form_53_36109006.Show()
Else
Form_53_36109006.Activate()
End If
End Sub
End Class