tag:blogger.com,1999:blog-5101583409018752071.post8122032213603657948..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 58 APKOM 4 D4BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-5101583409018752071.post-60967308631502235582012-02-07T18:59:27.748-08:002012-02-07T18:59:27.748-08:00Public Class tugas5846109033
Private Sub Butt...Public Class tugas5846109033<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim wawan As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /> wawan = x.AturDatabase(New tugas50, Application.StartupPath, "data report.accdb")<br /><br /> tugas5346109033.CrystalReportViewer1.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & dt46109033.Value.Date & "#"<br /> tugas5346109033.CrystalReportViewer1.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & ht46109033.Value.Date & "#"<br /><br /> tugas5346109033.CrystalReportViewer1.ReportSource = wawan<br /> If tugas5346109033.Visible = False Then<br /> tugas5346109033.Show()<br /> Else<br /> tugas5346109033.Activate()<br /> End If<br /> End Sub<br />End ClassTaufiq Goonershttps://www.blogger.com/profile/13923624470604599688noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-20313769807889236322012-02-07T07:30:48.086-08:002012-02-07T07:30:48.086-08:00Public Class LATIHAN5846109026
Private Sub B...Public Class LATIHAN5846109026<br /><br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim ibhe As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /><br /> ibhe = x.AturDatabase(New Latihan5046109026, Application.StartupPath, "data report.accdb")<br /> LATIHAN5346109026.honda.ReportSource = ibhe<br /> LATIHAN5346109026.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "/" & DT46109026.Value.Date & "#")<br /> If LATIHAN5346109026.Visible = False Then<br /> LATIHAN5346109026.Show()<br /> Else<br /> LATIHAN5346109026.Activate()<br /> End If<br /> End Sub<br /><br /> Private Sub LATIHAN5846109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br />End ClassIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-1821747591514991792012-02-06T16:52:44.002-08:002012-02-06T16:52:44.002-08:00Public Class Form58_46109042
Private Sub But...Public Class Form58_46109042<br /><br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim Laporan As CrystalDecisions.CrystalReports.Engine.ReportDocument<br /><br /> Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport<br /> Laporan = Pencari.AturDatabase(New CrystalReport50_042, Application.StartupPath, "DataReport.accdb")<br /><br /> Form53_46109042.crv46109042.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & DateTimePicker1.Value.Date & "#"<br /> Form53_46109042.crv46109042.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & DateTimePicker2.Value.Date & "#"<br /> Form53_46109042.crv46109042.ReportSource = Laporan<br /><br /> If Form53_46109042.Visible = False Then<br /> Form53_46109042.Show()<br /> Else<br /> Form53_46109042.Activate()<br /> End If<br /> End Sub<br />End ClassAndi Novindra Batari, SSThttps://www.blogger.com/profile/17356575802115896094noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-34513624816188574822012-02-05T21:15:50.727-08:002012-02-05T21:15:50.727-08:00Public Class latihan_58_46109044
Private Sub ...Public Class latihan_58_46109044<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim syahril As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /> syahril = x.AturDatabase(New latihan_50_46109044, Application.StartupPath, "data report.accdb")<br /><br /> latihan_53_46109044.Honda.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & dt46109044.Value.Date & "#"<br /> latihan_53_46109044.Honda.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & ht46109044.Value.Date & "#"<br /><br /> latihan_53_46109044.Honda.ReportSource = syahril<br /> If latihan_53_46109044.Visible = False Then<br /> latihan_53_46109044.Show()<br /> Else<br /> latihan_53_46109044.Activate()<br /> End If<br /> End Sub<br /><br />End ClassMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-43787168506590462702012-02-03T19:55:30.816-08:002012-02-03T19:55:30.816-08:00Andi Muh. Yusri - 46109038
Public Class Latihan58...Andi Muh. Yusri - 46109038<br /><br />Public Class Latihan58_46109038<br /><br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />Dim UchyReport As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br />Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /><br />UchyReport = x.AturDatabase(New Latihan50_46109038, Application.StartupPath, "data report.accdb")<br />Latihan53_46109038.honda.ReportSource = UchyReport<br />Latihan53_46109038.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109038.Value.Month & "/" & DT46109038.Value.Day & "/" & DT46109038.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109038.Value.Month & "/" & DT46109038.Value.Day & "/" & DT46109038.Value.Year & "#"<br />If Latihan53_46109038.Visible = False Then<br />Latihan53_46109038.Show()<br />Else<br />Latihan53_46109038.Activate()<br />End If<br />End Sub<br />End ClassUchy Bloghttps://www.blogger.com/profile/18429202553081624437noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59129358531315075872012-02-03T18:56:54.019-08:002012-02-03T18:56:54.019-08:00Public Class Latihan058_46109015
Private Sub ...Public Class Latihan058_46109015<br /><br /> Private Sub Button1_015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_015.Click<br /> Dim qayyimah As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim imah As New ByIskandar.MengaturDataBaseCrystalReport<br /><br /> qayyimah = imah.AturDatabase(New CrystalReport050_46109015, Application.StartupPath, "data report.accdb")<br /> Latihan053_46109015.honda.ReportSource = qayyimah<br /> Latihan053_46109015.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "/" & DateTimePicker1_015.Value.Date & "#")<br /> If Latihan053_46109015.Visible = False Then<br /> Latihan053_46109015.Show()<br /> Else<br /> Latihan053_46109015.Activate()<br /> End If<br /> End Sub<br />End ClassQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-33735380991526768962012-02-03T18:06:12.645-08:002012-02-03T18:06:12.645-08:00Public Class Form58_46109043
Private Sub But...Public Class Form58_46109043<br /><br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim Laporan As CrystalDecisions.CrystalReports.Engine.ReportDocument<br /><br /> Dim Pencari As New ByIskandar.MengaturDataBaseCrystalReport<br /> Laporan = Pencari.AturDatabase(New CrystalReport50_043, Application.StartupPath, "DataReport.accdb")<br /><br /> Form53_46109043.crv46109043.SelectionFormula = "{MasterTransaksi.TanggalTransaksi} >= #" & DateTimePicker1.Value.Date & "#"<br /> Form53_46109043.crv46109043.SelectionFormula = "{MasterTransaksi.TanggalTRansaksi} <= #" & DateTimePicker2.Value.Date & "#"<br /> Form53_46109043.crv46109043.ReportSource = Laporan<br /><br /> If Form53_46109043.Visible = False Then<br /> Form53_46109043.Show()<br /> Else<br /> Form53_46109043.Activate()<br /> End If<br /> End Sub<br />End ClassAndi Faradivahttps://www.blogger.com/profile/13815617942405082573noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-29403213658015952752012-02-03T18:04:54.243-08:002012-02-03T18:04:54.243-08:00LATIHAN 58
ANDI NURMUHITHA ( 461 09 047)
Public C...LATIHAN 58<br />ANDI NURMUHITHA ( 461 09 047)<br /><br />Public Class Latihan5846109047<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /><br /> report = x.AturDatabase(New Latihan5046109047, Application.StartupPath, "data report.accdb")<br /> Latihan5346109047.honda.ReportSource = report<br /> Latihan5346109047.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT46109047.Value.Month & "/" & DT46109047.Value.Day & "/" & DT46109047.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT46109047.Value.Month & "/" & DT46109047.Value.Day & "/" & DT46109047.Value.Year & "#"<br /> If Latihan5346109047.Visible = False Then<br /> Latihan5346109047.Show()<br /> Else<br /> Latihan5346109047.Activate()<br /> End If<br /> End Sub<br />End ClassDunia Koesong Satoehttps://www.blogger.com/profile/03634313871294669860noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24324328414663827302012-02-03T17:37:04.109-08:002012-02-03T17:37:04.109-08:00Public Class Latihan58_46109035
Private Sub Button...Public Class Latihan58_46109035<br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />Dim diaz As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br />Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /><br />diaz = x.AturDatabase(New Latihan50_46109035, Application.StartupPath, "data report.accdb")<br />Latihan53_46109035.honda.ReportSource = diaz<br />Latihan53_46109035.honda.SelectionFormula = "{MASTERTRANSAKSI.TANGGALTRANSAKSI} >= #" & DT_46109035.Value.Month & "/" & DT_46109035.Value.Day & "/" & DT_46109035.Value.Year & "# and {MASTERTRANSAKSI.TANGGALTRANSAKSI} <= #" & DT_46109035.Value.Month & "/" & DT_46109035.Value.Day & "/" & DT_46109035.Value.Year & "#"<br />If Latihan53_46109035.Visible = False Then<br />Latihan53_46109035.Show()<br />Else<br />Latihan53_46109035.Activate()<br />End If<br />End Sub<br />End ClassAnonymoushttps://www.blogger.com/profile/01181150179746208526noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-11108649239579251522012-02-02T20:24:15.453-08:002012-02-02T20:24:15.453-08:00Public Class Latihan058_46109006
Private Sub ...Public Class Latihan058_46109006<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim SRY As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /><br /> SRY = x.AturDatabase(New Latihan_050_46109006, Application.StartupPath, "data report.accdb")<br /> Latihan_053_46109006.honda.ReportSource = SRY<br /> Latihan_053_46109006.honda.SelectionFormula = ("CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) >= #" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "# and CDATE({MASTERTRANSAKSI.TANGGALTRANSAKSI}) <= #" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "/" & DT46109006.Value.Date & "#")<br /> If Latihan_053_46109006.Visible = False Then<br /> Latihan_053_46109006.Show()<br /> Else<br /> Latihan_053_46109006.Activate()<br /> End If<br /> End Sub<br />End ClassSRY REJEKI_09_PNUPhttps://www.blogger.com/profile/07931206352564162016noreply@blogger.com