tag:blogger.com,1999:blog-5101583409018752071.post4135215864580406832..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 57 APKOM 4 D3ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-5101583409018752071.post-88511377003941797262012-02-12T16:43:42.673-08:002012-02-12T16:43:42.673-08:00Public Class Form57_36109006
Private Sub Button1_C...Public Class Form57_36109006<br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br />Dim april As New ByIskandar.MengaturDataBaseCrystalReport<br />laporan = april.AturDatabase(New Form45_36109006, Application.StartupPath, "data report.accdb")<br /><br />Form53_36109006.Honda.SelectionFormula = "{detailtransaksi.harga} <=" & text1_36109006.Text & ""<br />Form53_36109006.Honda.ReportSource = laporan<br />If Form53_36109006.Visible = False Then<br />Form53_36109006.Show()<br />Else<br />Form53_36109006.Activate()<br />End If<br />End Sub<br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-53104107824472675742012-02-08T18:19:05.741-08:002012-02-08T18:19:05.741-08:00Public Class Form57_36109001
Private Sub Butto...Public Class Form57_36109001<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim april As New ByIskandar.MengaturDataBaseCrystalReport<br /> laporan = april.AturDatabase(New Form45_36109001, Application.StartupPath, "data report.accdb")<br /><br /> Form53_36109001.Honda.SelectionFormula = "{detailtransaksi.harga} <=" & text1_36109001.Text & ""<br /> Form53_36109001.Honda.ReportSource = laporan<br /> If Form53_36109001.Visible = False Then<br /> Form53_36109001.Show()<br /> Else<br /> Form53_36109001.Activate()<br /> End If<br /> End Sub<br />End ClassApReaL_ApRiLiohttps://www.blogger.com/profile/03695109294864634358noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-40062496722155849952012-02-05T05:50:58.044-08:002012-02-05T05:50:58.044-08:00ridhayanti saleh
36109015
tugas 57
Public Class ...ridhayanti saleh<br />36109015<br /><br />tugas 57<br /><br />Public Class Form57_31609015<br /><br /> Private Sub VIEW_015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VIEW_015.Click<br /> Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument<br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /> laporan = x.AturDatabase(New CrystalReport45_36109015, Application.StartupPath, "DATA REPORT.accdb")<br /><br /> laporan = New CrystalReport45_36109015<br /> Form53_36109015.HONDA.ReportSource = laporan<br /> Form53_36109015.HONDA.SelectionFormula = "{detailtransaksi.harga} <=" & TextBox1.Text & ""<br /> If Form53_36109015.Visible = False Then<br /> Form53_36109015.Show()<br /> Else<br /> Form53_36109015.Activate()<br /> End If<br /> End Sub<br />End Classridhacayoohttps://www.blogger.com/profile/01532550596785279111noreply@blogger.com