tag:blogger.com,1999:blog-5101583409018752071.post5841809603839739118..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 57 APKOM 4 D3BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger22125tag:blogger.com,1999:blog-5101583409018752071.post-47210915878569133192013-02-02T10:35:12.892-08:002013-02-02T10:35:12.892-08:00http://reskypurwono.blogspot.com/2013/02/prosedur-...http://reskypurwono.blogspot.com/2013/02/prosedur-penyelesaian-latihan5736110037.htmlAnonymoushttps://www.blogger.com/profile/07193168636379013803noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-38674358261521821022013-01-30T11:29:39.038-08:002013-01-30T11:29:39.038-08:00http://zulkiflitryputra.blogspot.com/2013/01/latih...http://zulkiflitryputra.blogspot.com/2013/01/latihan5736110046.htmlAnonymoushttps://www.blogger.com/profile/06374059421156758949noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-32106884283577015332013-01-29T03:44:09.149-08:002013-01-29T03:44:09.149-08:00http://rizka-azisah.blogspot.com/2013/01/deskripsi...http://rizka-azisah.blogspot.com/2013/01/deskripsi-penyelesaian-latihan5736110041.htmlAnonymoushttps://www.blogger.com/profile/00149478446271147366noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-5932732897709797672013-01-29T00:34:30.514-08:002013-01-29T00:34:30.514-08:00http://hilariusmariotonapa.blogspot.com/2013/01/de...http://hilariusmariotonapa.blogspot.com/2013/01/deskripsi-latihan5736110048.html<br />http://hilariusmariotonapa.blogspot.com/2013/01/prosedur-penyelesaian-latihan5736110048.htmlAnonymoushttps://www.blogger.com/profile/01490345972859816412noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-30572564358835207532013-01-28T10:45:20.932-08:002013-01-28T10:45:20.932-08:00http://rahmisuryatama05.blogspot.com/2013/01/latih...http://rahmisuryatama05.blogspot.com/2013/01/latihan5736110040.htmlAnonymoushttps://www.blogger.com/profile/11787086800668587183noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-60759390339388204792013-01-27T08:43:02.782-08:002013-01-27T08:43:02.782-08:00http://hasfiahzain.blogspot.com/2013/01/latihan573...http://hasfiahzain.blogspot.com/2013/01/latihan5736110052.htmlAnonymoushttps://www.blogger.com/profile/05718352479143249482noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-9714062538968809392013-01-11T21:45:47.441-08:002013-01-11T21:45:47.441-08:00http://dewiwahyuni91.blogspot.com/2012/11/latihan5...http://dewiwahyuni91.blogspot.com/2012/11/latihan5736110038.htmlAnonymoushttps://www.blogger.com/profile/17648175423239262214noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50467911766317675792013-01-07T04:09:10.822-08:002013-01-07T04:09:10.822-08:00http://eminaomi.blogspot.com/2012/12/latihan573611...http://eminaomi.blogspot.com/2012/12/latihan5736110049.htmlNaomi Emilyhttps://www.blogger.com/profile/08463058196027845246noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59889392094314643902012-12-31T00:51:17.780-08:002012-12-31T00:51:17.780-08:00http://benhilll.blogspot.com/2012/11/deskripsi-dan...http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan5736110039.htmlAnonymoushttps://www.blogger.com/profile/02962008162345843047noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-18475630533519086802012-12-10T01:36:07.015-08:002012-12-10T01:36:07.015-08:00http://ilhaazzahra.blogspot.com/2012/11/latihan573...http://ilhaazzahra.blogspot.com/2012/11/latihan5736110033.htmlIlaH Az Zahrahttps://www.blogger.com/profile/03759381654696028640noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-56663166094888207852012-12-08T22:30:01.380-08:002012-12-08T22:30:01.380-08:00http://tiya-sri.blogspot.com/2012/12/latihan573611...http://tiya-sri.blogspot.com/2012/12/latihan5736110044-aplikasi-komputer-4.htmlAnonymoushttps://www.blogger.com/profile/10665191968886515587noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-60497767797120946702012-12-07T17:26:44.141-08:002012-12-07T17:26:44.141-08:00http://nurrahmahrasyid2.blogspot.com/2012/11/latih...http://nurrahmahrasyid2.blogspot.com/2012/11/latihan5736110042.htmlAnonymoushttps://www.blogger.com/profile/07172802010313420663noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-5302044796324468962012-11-28T19:33:09.289-08:002012-11-28T19:33:09.289-08:00http://burhankhang58.blogspot.com/2012/11/latihan5...http://burhankhang58.blogspot.com/2012/11/latihan5736110047.htmlAnonymoushttps://www.blogger.com/profile/01905684051425482431noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-51171949047238170272012-11-27T18:57:56.501-08:002012-11-27T18:57:56.501-08:00http://rosyanausman.blogspot.com/2012/11/latihan56...http://rosyanausman.blogspot.com/2012/11/latihan5636110036.htmlAnonymoushttps://www.blogger.com/profile/06478938190956913306noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-74188119707963503942012-11-09T19:37:34.660-08:002012-11-09T19:37:34.660-08:00http://rainaagrippinaa.blogspot.com/2012/11/latiha...http://rainaagrippinaa.blogspot.com/2012/11/latihan5736110032.htmlAnonymoushttps://www.blogger.com/profile/13354635438685899026noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-29377739964580203752012-02-01T11:32:51.828-08:002012-02-01T11:32:51.828-08:00Public Class Latihan5736109040
Private Sub Button...Public Class Latihan5736109040<br /><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 X As New ByIskandar.MengaturDataBaseCrystalReport<br />LAPORAN = X.AturDatabase(New Latihan5036109040, Application.StartupPath, "DATA REPORT.ACCDB")<br />Latihan5336109040.HONDA.ReportSource = LAPORAN<br />Latihan5336109040.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA}>= " & TextBox136109040.Text & ""<br />If Latihan5336109040.Visible = False Then<br />Latihan5336109040.Show()<br /><br />Else<br />Latihan5336109040.Activate() 'JIKA SUDAH MUNCUL DIBELAKANG<br />End If<br />End Sub<br />End ClassArmita Laenrehttps://www.blogger.com/profile/08770769679234750388noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-35249437849696544792012-02-01T07:52:32.611-08:002012-02-01T07:52:32.611-08:00Public Class Latihan57_36109037
Private Sub Butto...Public Class Latihan57_36109037<br /><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 X As New ByIskandar.MengaturDataBaseCrystalReport<br />LAPORAN = X.AturDatabase(New Latihan50_36109037, Application.StartupPath, "DATA REPORT.ACCDB")<br />Latihan53_36109037.HONDA.ReportSource = LAPORAN<br />Latihan53_36109037.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA}>= " & TextBox136109037.Text & ""<br />If Latihan53_36109037.Visible = False Then<br />Latihan53_36109037.Show()<br /><br />Else<br />Latihan53_36109037.Activate() 'JIKA SUDAH MUNCUL DIBELAKANG<br />End If<br />End Sub<br />End ClassJuniati Musliminhttps://www.blogger.com/profile/09845389532313263028noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-2854968842958960662012-01-29T04:42:14.327-08:002012-01-29T04:42:14.327-08:00Public Class Form5736109050
Private Sub Button...Public Class Form5736109050<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 x As New ByIskandar.MengaturDataBaseCrystalReport<br /> laporan = x.AturDatabase(New form5036109050, Application.StartupPath, "data report.accdb")<br /> 'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.<br /> Form5336109050.HONDA.ReportSource = laporan<br /> Form5336109050.HONDA.SelectionFormula = "{detailtransaksi.harga} >='" & TextBox1.Text & "'"<br /> If Form5336109050.Visible = False Then<br /> Form5336109050.Show()<br /> Else<br /> Form5336109050.Activate() 'jika sdh muncul tp dibelakang<br /> End If<br /> End Sub<br />End Classnideriahttps://www.blogger.com/profile/13906106392544956415noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-42067948642398638322012-01-29T02:13:07.618-08:002012-01-29T02:13:07.618-08:00'latihan 57
Public Class latihan57
Private Sub...'latihan 57<br />Public Class latihan57<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 x As New ByIskandar.MengaturDataBaseCrystalReport<br />laporan = x.AturDatabase(New latihan50, Application.StartupPath, "data report.accdb")<br />'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.<br />latihan53.honda.ReportSource = laporan<br />latihan53.honda.SelectionFormula = "{detailtransaksi.harga} >='" & TextBox1.Text & "'"<br />If latihan53.Visible = False Then<br />latihan53.Show()<br />Else<br />latihan53.Activate() 'jika sdh muncul tp dibelakang<br />End If<br />End Sub<br />End Classkhaeril jhihttps://www.blogger.com/profile/14116014824671660790noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-87463641015312563442012-01-20T00:03:06.778-08:002012-01-20T00:03:06.778-08:00Public Class LATIHAN_057_36109033
Private Sub...Public Class LATIHAN_057_36109033<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles honda.Click<br /> Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument()<br /><br /> Dim x As New ByIskandar.MengaturDataBaseCrystalReport<br /> laporan = x.AturDatabase(New LATIHAN_050_36109033, Application.StartupPath, "data report.accdb")<br /> 'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug<br /><br /> LATIHAN_053_36109033.Honda.ReportSource = laporan<br /><br /> LATIHAN_053_36109033.Honda.SelectionFormula = "{detailtransaksi.harga}<=" & TextBox1.Text & " ' "<br /><br /> If LATIHAN_053_36109033.Visible = False Then<br /> LATIHAN_053_36109033.Show()<br /> Else<br /> LATIHAN_053_36109033.Activate() ' jika sdh muncul tp dibelakang<br /> End If<br /><br /> End Sub<br />End ClassPratiwi Leila Safila Tahirhttps://www.blogger.com/profile/08971118818491914806noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-83015756284195655562012-01-16T18:40:23.076-08:002012-01-16T18:40:23.076-08:00Public Class Latih57_36109034
Private Sub But...Public Class Latih57_36109034<br /><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 X As New ByIskandar.MengaturDataBaseCrystalReport<br /> laporan = X.AturDatabase(New Latih50_36109034, Application.StartupPath, "data report.accdb")<br /> Latih53_36109034.HONDA.ReportSource = laporan<br /><br /> Latih53_36109034.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA}>= " & TextBox1.Text & ""<br /><br /> If Latih53_36109034.Visible = False Then<br /> Latih53_36109034.Show()<br /> Else<br /> Latih53_36109034.Activate() 'jika sudah muncul tapi dibelakang <br /> End If<br /> End Sub<br />End ClassNurhidayah Ibrahimhttps://www.blogger.com/profile/10526226168472282066noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-20841342236249211772012-01-16T07:02:43.432-08:002012-01-16T07:02:43.432-08:00Public Class Latihan_57_36109056
Private Sub ...Public Class Latihan_57_36109056<br /><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 X As New ByIskandar.MengaturDataBaseCrystalReport<br /> LAPORAN = X.AturDatabase(New Latihan_50_36109056, Application.StartupPath, "DATA REPORT.ACCDB")<br /> Latihan_53_36109056.HONDA.ReportSource = LAPORAN<br /> Latihan_53_36109056.HONDA.SelectionFormula = "{DETAILTRANSAKSI.HARGA}>= " & TextBox1_36109056.Text & ""<br /> If Latihan_53_36109056.Visible = False Then<br /> Latihan_53_36109056.Show()<br /><br /> Else<br /> Latihan_53_36109056.Activate() 'JIKA SUDAH MUNCUL DIBELAKANG<br /> End If<br /> End Sub<br />End ClassAnonymoushttps://www.blogger.com/profile/08790536198829964193noreply@blogger.com