Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'menvariabelkan laporan 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 If Latihan_53_36109058.Visible = False Then Latihan_53_36109058.Show() Else Latihan_53_36109058.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 laporan = New Tugas_45_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 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
Private Sub prv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HONDA.Click 'memvariabelkan laporan Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New ByIskandar.MengaturDataBaseCrystalReport laporan = x.AturDatabase(New Latihan_45_36109059, Application.StartupPath, "data report.accdb") 'aplicationt startuppath menjelaskan bahwa filre database ada didalam folderdebug.
Latihan_53_059.HONDA.ReportSource = laporan
If Latihan_53_059.Visible = False Then Latihan_53_059.Show() Else Latihan_53_059.Activate() End If End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Memvariabelkan Laporan Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New ByIskandar.MengaturDataBaseCrystalReport laporan = x.AturDatabase(New CrystalReport45_060, Application.StartupPath, "data report.accdb") 'aplication startupPath menjelaskan bahwa filre database ada didalam folder debug LATIHAN05336109060.HONDA.ReportSource = laporan If LATIHAN05336109060.Visible = False Then LATIHAN05336109060.Show() Else LATIHAN05336109060.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 laporan = New Latihan45_36109073
Dim AA As New ByIskandar.MengaturDataBaseCrystalReport laporan = AA.AturDatabase(New Latihan45_36109073, Application.StartupPath, "data report.accdb") 'Application StarupPath menjelaskan bahwa filtre database ada di dalam folder debug.
Latihan53_36109073.honda.ReportSource = laporan
If Latihan53_36109073.Visible = False Then Latihan53_36109073.Show() Else Latihan53_36109073.Activate() 'jika sudah muncul tp di belakang' End If End Sub End Class
Public Class Form55 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 Latihan045_36109079
Dim x As New ByIskandar.MengaturDataBaseCrystalReport laporan = x.AturDatabase(New Latihan045_36109079, Application.StartupPath, "data report.accdb") 'application startuppath menjelaskan bahwa filre database ada di dalam folder debug
Form53.honda.ReportSource = laporan If Form53.Visible = False Then Form53.Show() Else Form53.Activate() 'jika sudah muncl tapi di belakang 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 laporan = x.AturDatabase(New LATIHAN_45, Application.StartupPath, "data report.accdb") 'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
LATIHAN53.Honda.ReportSource = laporan
If LATIHAN53.Visible = False Then LATIHAN53.Show() Else LATIHAN53.Activate() 'jika sudah muncul dibelakang 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 laporan = x.AturDatabase(New Tugas45_36109084, Application.StartupPath, "data report.accdb") 'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
Form53_084.honda.ReportSource = laporan If Form53_084.Visible = False Then Form53_084.Show() Else Form53_084.Activate()
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 Tugas45_36109071, Application.StartupPath, "data report.accdb") 'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
Form53_071.honda.ReportSource = laporan If Form53_071.Visible = False Then Form53_071.Show() Else Form53_071.Activate()
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 latihan45
Latihan53.Vavanet.ReportSource = Laporan
If Latihan53.Visible = False Then Latihan53.Show() Else Latihan53.Activate() End If
Dim x As New ByIskandar.MengaturDataBaseCrystalReport Laporan = x.AturDatabase(New latihan45, Application.StartupPath, "data report")
Public Class Latihan_55_36109058
BalasHapusPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'menvariabelkan laporan
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
If Latihan_53_36109058.Visible = False Then
Latihan_53_36109058.Show()
Else
Latihan_53_36109058.Activate()
End If
End Sub
End Class
Public Class Tugas_55_36109075
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
laporan = New Tugas_45_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
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
Public Class latihan_55_059
BalasHapusPrivate Sub prv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HONDA.Click
'memvariabelkan laporan
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New ByIskandar.MengaturDataBaseCrystalReport
laporan = x.AturDatabase(New Latihan_45_36109059, Application.StartupPath, "data report.accdb")
'aplicationt startuppath menjelaskan bahwa filre database ada didalam folderdebug.
Latihan_53_059.HONDA.ReportSource = laporan
If Latihan_53_059.Visible = False Then
Latihan_53_059.Show()
Else
Latihan_53_059.Activate()
End If
End Sub
Public Class LATIHAN05536109060
BalasHapusPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Memvariabelkan Laporan
Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim x As New ByIskandar.MengaturDataBaseCrystalReport
laporan = x.AturDatabase(New CrystalReport45_060, Application.StartupPath, "data report.accdb")
'aplication startupPath menjelaskan bahwa filre database ada didalam folder debug
LATIHAN05336109060.HONDA.ReportSource = laporan
If LATIHAN05336109060.Visible = False Then
LATIHAN05336109060.Show()
Else
LATIHAN05336109060.Activate()
End If
End Sub
End Class
Public Class Latihan55_36109073
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
laporan = New Latihan45_36109073
Dim AA As New ByIskandar.MengaturDataBaseCrystalReport
laporan = AA.AturDatabase(New Latihan45_36109073, Application.StartupPath, "data report.accdb")
'Application StarupPath menjelaskan bahwa filtre database ada di dalam folder debug.
Latihan53_36109073.honda.ReportSource = laporan
If Latihan53_36109073.Visible = False Then
Latihan53_36109073.Show()
Else
Latihan53_36109073.Activate() 'jika sudah muncul tp di belakang'
End If
End Sub
End Class
Public Class Form55
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
laporan = New Latihan045_36109079
Dim x As New ByIskandar.MengaturDataBaseCrystalReport
laporan = x.AturDatabase(New Latihan045_36109079, Application.StartupPath, "data report.accdb")
'application startuppath menjelaskan bahwa filre database ada di dalam folder debug
Form53.honda.ReportSource = laporan
If Form53.Visible = False Then
Form53.Show()
Else
Form53.Activate() 'jika sudah muncl tapi di belakang
End If
End Sub
End Class
Public Class LATIHAN_55
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 LATIHAN_45, Application.StartupPath, "data report.accdb")
'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
LATIHAN53.Honda.ReportSource = laporan
If LATIHAN53.Visible = False Then
LATIHAN53.Show()
Else
LATIHAN53.Activate() 'jika sudah muncul dibelakang
End If
End Sub
End Class
Public Class Form55_084
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 Tugas45_36109084, Application.StartupPath, "data report.accdb")
'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
Form53_084.honda.ReportSource = laporan
If Form53_084.Visible = False Then
Form53_084.Show()
Else
Form53_084.Activate()
End If
End Sub
End Class
Public Class Form55_071
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 Tugas45_36109071, Application.StartupPath, "data report.accdb")
'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
Form53_071.honda.ReportSource = laporan
If Form53_071.Visible = False Then
Form53_071.Show()
Else
Form53_071.Activate()
End If
End Sub
End Class
Public Class Latihan55
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
Laporan = New latihan45
Latihan53.Vavanet.ReportSource = Laporan
If Latihan53.Visible = False Then
Latihan53.Show()
Else
Latihan53.Activate()
End If
Dim x As New ByIskandar.MengaturDataBaseCrystalReport
Laporan = x.AturDatabase(New latihan45, Application.StartupPath, "data report")
End Sub
End Class