tag:blogger.com,1999:blog-5101583409018752071.post5238695610689411171..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 43 APKOM 4 D3BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger39125tag:blogger.com,1999:blog-5101583409018752071.post-14095721605033243452013-01-30T11:41:07.368-08:002013-01-30T11:41:07.368-08:00http://zulkiflitryputra.blogspot.com/2013/01/latih...http://zulkiflitryputra.blogspot.com/2013/01/latihan4336110046_31.htmlAnonymoushttps://www.blogger.com/profile/06374059421156758949noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50873174779652645582013-01-27T08:34:13.537-08:002013-01-27T08:34:13.537-08:00http://hasfiahzain.blogspot.com/2013/01/latihan433...http://hasfiahzain.blogspot.com/2013/01/latihan4336110052.htmlAnonymoushttps://www.blogger.com/profile/05718352479143249482noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24629517426561920552013-01-25T11:45:23.685-08:002013-01-25T11:45:23.685-08:00http://sukadriady.blogspot.com/2013/01/latihan4336...http://sukadriady.blogspot.com/2013/01/latihan433611.htmlAnonymoushttps://www.blogger.com/profile/14172649290428990971noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-75078099673906672112013-01-23T11:37:42.349-08:002013-01-23T11:37:42.349-08:00http://rahmisuryatama05.blogspot.com/2012/11/latih...http://rahmisuryatama05.blogspot.com/2012/11/latihan4336110040.htmlAnonymoushttps://www.blogger.com/profile/11787086800668587183noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-83174468869144175482012-11-27T06:17:20.780-08:002012-11-27T06:17:20.780-08:00http://rizka-azisah.blogspot.com/2012/11/deskripsi...http://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan4336110041.htmlAnonymoushttps://www.blogger.com/profile/00149478446271147366noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-91614854911175005542012-11-11T05:27:53.266-08:002012-11-11T05:27:53.266-08:00http://dewiwahyuni91.blogspot.com/2012/11/latihan4...http://dewiwahyuni91.blogspot.com/2012/11/latihan4336110038.htmlAnonymoushttps://www.blogger.com/profile/17648175423239262214noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39735397147294074722012-11-10T03:14:11.150-08:002012-11-10T03:14:11.150-08:00http://tiya-sri.blogspot.com/2012/11/latihan433611...http://tiya-sri.blogspot.com/2012/11/latihan4336110044-aplikasi-komputer-4.htmlAnonymoushttps://www.blogger.com/profile/10665191968886515587noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-72879728898986921172012-11-09T23:15:28.661-08:002012-11-09T23:15:28.661-08:00http://audryasharii.blogspot.com/2012/10/latihan43...http://audryasharii.blogspot.com/2012/10/latihan4336110031.htmlAnonymoushttps://www.blogger.com/profile/04022967926017941155noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-85851392916790142632012-11-09T06:49:40.039-08:002012-11-09T06:49:40.039-08:00http://ilhaazzahra.blogspot.com/2012/11/latihan433...http://ilhaazzahra.blogspot.com/2012/11/latihan4336110033.htmlIlaH Az Zahrahttps://www.blogger.com/profile/03759381654696028640noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-42727438112323937742012-11-08T13:37:19.713-08:002012-11-08T13:37:19.713-08:00http://hilariusmariotonapa.blogspot.com/2012/11/de...http://hilariusmariotonapa.blogspot.com/2012/11/deskripsi-latihan4336110048.html<br />http://hilariusmariotonapa.blogspot.com/2012/11/prosedur-penyelesaian-latihan4336110048.htmlAnonymoushttps://www.blogger.com/profile/01490345972859816412noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-57909047490124692572012-11-04T08:47:19.576-08:002012-11-04T08:47:19.576-08:00http://rosyanausman.blogspot.com/2012/11/latihan43...http://rosyanausman.blogspot.com/2012/11/latihan4336110036.htmlAnonymoushttps://www.blogger.com/profile/06478938190956913306noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39955760862501637112012-11-04T07:44:56.396-08:002012-11-04T07:44:56.396-08:00http://ruslancullank1.blogspot.com/2012/11/deskrip...http://ruslancullank1.blogspot.com/2012/11/deskripsilatihan4336110054.htmlAnonymoushttps://www.blogger.com/profile/07785976701250519050noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-45190326264479712882012-11-04T06:30:50.603-08:002012-11-04T06:30:50.603-08:00http://benhilll.blogspot.com/2012/11/deskripsi-dan...http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan4336110039.htmlAnonymoushttps://www.blogger.com/profile/02962008162345843047noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-14249202054178572812012-11-03T20:19:38.378-07:002012-11-03T20:19:38.378-07:00http://eminaomi.blogspot.com/2012/11/latihan433611...http://eminaomi.blogspot.com/2012/11/latihan4336110049.htmlNaomi Emilyhttps://www.blogger.com/profile/08463058196027845246noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-3041172169930517092012-11-03T06:19:49.971-07:002012-11-03T06:19:49.971-07:00http://ias-anakbola.blogspot.com/2012/11/latihan43...http://ias-anakbola.blogspot.com/2012/11/latihan4336110056.htmlAnonymoushttps://www.blogger.com/profile/13576830636941977980noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-55735986575478512072012-11-03T05:45:19.754-07:002012-11-03T05:45:19.754-07:00http://nurrahmahrasyid2.blogspot.com/2012/10/latih...http://nurrahmahrasyid2.blogspot.com/2012/10/latihan4336110042.htmlAnonymoushttps://www.blogger.com/profile/07172802010313420663noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-22773285281178859442012-10-29T03:48:56.187-07:002012-10-29T03:48:56.187-07:00http://rainaagrippinaa.blogspot.com/2012/10/latiha...http://rainaagrippinaa.blogspot.com/2012/10/latihan4336110032.htmlAnonymoushttps://www.blogger.com/profile/13354635438685899026noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-87907454101717203322012-10-28T21:15:07.026-07:002012-10-28T21:15:07.026-07:00http://reskypurwono.blogspot.com/2012/10/prosedur-...http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan4336110037.htmlAnonymoushttps://www.blogger.com/profile/07193168636379013803noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-274853320234127642012-02-05T03:32:20.097-08:002012-02-05T03:32:20.097-08:00Public Class LATIHAN_043053
Dim CONECT As New OleD...Public Class LATIHAN_043053<br />Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=praditya")<br />Dim DT As New DataTable<br />Private Sub LATIHAN_043053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />Dim dede As New OleDb.OleDbDataAdapter<br />dede = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)<br />DT.Rows.Clear()<br />nisa.Fill(DT)<br />DataGridView1.DataSource = DT<br />dede.Dispose()Dede Pradithyahttps://www.blogger.com/profile/06011164268367183303noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-5347508504495966682012-02-01T16:38:04.467-08:002012-02-01T16:38:04.467-08:00Public Class LATIHAN4336109029
Dim CONECT As N...Public Class LATIHAN4336109029<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password= hapsari")<br /> Dim data As New DataTable<br /><br /> Private Sub LATIHAN4336109029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim adapt As New OleDb.OleDbDataAdapter<br /> adapt = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT)<br /> data.Rows.Clear()<br /> adapt.Fill(data)<br /> DataGridView1.DataSource = data<br /><br /> adapt.Dispose()<br /><br /> grafik.ColumnCount = 3<br /> grafik.RowCount = data.Rows.Count<br /><br /> Dim BARIS As Integer = 0<br /><br /> For Each x As DataRow In data.Rows<br /> BARIS = BARIS + 1<br /> grafik.Row = BARIS<br /><br /> grafik.RowLabel = x("kode barang")<br /><br /> grafik.Column = 1<br /> grafik.Data = x("unit")<br /><br /> grafik.Column = 2<br /> grafik.Data = x("rata-rata harga") / 1000<br /><br /> grafik.Column = 3<br /> grafik.Data = x("JUMLAH") / 10000<br /><br /> Next<br /> End Sub<br />End ClasshApSARie ieNdaH pRaTiTishttps://www.blogger.com/profile/13091725612881746238noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-29965502747102209532012-02-01T07:01:07.695-08:002012-02-01T07:01:07.695-08:00Public Class Grafik43_36109037
Dim CONECT As N...Public Class Grafik43_36109037<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;Jet OLEDB:Database Password=2901911691")<br /> Dim data As New DataTable<br /> Private Sub Grafik43_36109037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim adapt As New OleDb.OleDbDataAdapter<br /> adapt = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces<br /> data.Rows.Clear()<br /> adapt.Fill(data)<br /> DataGridView1.DataSource = data<br /><br /> adapt.Dispose()<br /><br /> Grafik.ColumnCount = 3<br /> Grafik.RowCount = data.Rows.Count<br /><br /> Dim BARIS As Integer = 0<br /><br /> For Each x As DataRow In data.Rows<br /> BARIS = BARIS + 1<br /> Grafik.Row = BARIS<br /><br /> Grafik.RowLabel = x("kode barang")<br /><br /> Grafik.Column = 1<br /> Grafik.Data = x("unit")<br /><br /> Grafik.Column = 2<br /> Grafik.Data = x("rata-rata harga") / 100<br /><br /> Grafik.Column = 3<br /> Grafik.Data = x("JUMLAH") / 1000<br /><br /> Next<br /> End Sub<br />End ClassJuniati Musliminhttps://www.blogger.com/profile/09845389532313263028noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-12159742323223725482012-01-06T07:36:33.997-08:002012-01-06T07:36:33.997-08:00Public Class Form4336108001
Dim INCE As New Ol...Public Class Form4336108001<br /> Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\Data Grafik.accdb")<br /> Dim LV As New DataTable<br /> Private Sub Form4336108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim CE As New OleDb.OleDbDataAdapter<br /> CE = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", INCE)<br /> LV.Rows.Clear()<br /> CE.Fill(LV)<br /> DGV36108001.DataSource = LV<br /> CE.Dispose()<br /><br /> GRAFIK36108001.ColumnCount = 3<br /> GRAFIK36108001.RowCount = LV.Rows.Count<br /><br /> Dim p As Integer = 0<br /> For Each x As DataRow In LV.Rows<br /> p = p + 1<br /> GRAFIK36108001.Row = p<br /> GRAFIK36108001.RowLabel = x("Kode Barang")<br /><br /> GRAFIK36108001.Column = 1<br /> GRAFIK36108001.Data = x("Unit")<br /><br /> GRAFIK36108001.Column = 2<br /> GRAFIK36108001.Data = x("Rata-Rata Harga") / 100<br /><br /> GRAFIK36108001.Column = 3<br /> GRAFIK36108001.Data = x("Jumlah") / 1000<br /> Next<br /> End Sub<br />End ClassInce Akhriani Aulia Dulinahttps://www.blogger.com/profile/05751567152749897346noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-19574851351631435532012-01-02T22:18:55.856-08:002012-01-02T22:18:55.856-08:00Public Class Lat4336109042
'DEKLARASI CONE...Public Class Lat4336109042<br /> 'DEKLARASI CONECTION<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")<br /> 'deklarasi data tabel<br /> Dim IJAL As New DataTable<br /><br /> Private Sub Lat4336109042_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> 'deklarasi adapter<br /> Dim jal As New OleDb.OleDbDataAdapter<br /> jal = New OleDb.OleDbDataAdapter("select * from QPembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces<br /> IJAL.Rows.Clear() 'membersihkan data tabEL<br /> jal.Fill(IJAL) 'mengisi database ke dlm data table<br /> DataGridView1.DataSource = IJAL 'memunculkan dlm datagridview<br /><br /> jal.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake<br /><br /> 'menentkan jumlah baris<br /> GRAFIK.ColumnCount = 3<br /> GRAFIK.RowCount = IJAL.Rows.Count<br /><br /> 'menentukan posisi baris<br /> Dim POSISIBARIS As Integer = 0<br /><br /> For Each x As DataRow In IJAL.Rows<br /> POSISIBARIS = POSISIBARIS + 1<br /> GRAFIK.Row = POSISIBARIS<br /><br /> GRAFIK.RowLabel = x("kode barang")<br /><br /> GRAFIK.Column = 1<br /> GRAFIK.Data = x("unit")<br /><br /><br /> GRAFIK.Column = 2<br /> GRAFIK.Data = x("rata-rata harga") / 100<br /><br /><br /> GRAFIK.Column = 3<br /> GRAFIK.Data = x("JUMLAH") / 1000<br /><br /> Next<br /> End Sub<br />End ClassMuhammad Rijalhttps://www.blogger.com/profile/14527415302015255369noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-40984456750333518082012-01-01T03:57:13.786-08:002012-01-01T03:57:13.786-08:00Public Class Latihan_43_36109035
'DEKLARAS...Public Class Latihan_43_36109035<br /> 'DEKLARASI CONECTION<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb;jet OLEDB:database password=andihabibi27")<br /> 'deklarasi data tabel<br /> Dim DT As New DataTable<br /><br /> Private Sub LATIHAN_041_012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> 'deklarasi adapter<br /> Dim bibi As New OleDb.OleDbDataAdapter<br /> bibi = New OleDb.OleDbDataAdapter("select * from qpembelianperjenisbarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces<br /> DT.Rows.Clear() 'membersihkan data tabEL<br /> bibi.Fill(DT) 'mengisi database ke dlm data table<br /> DataGridView035.DataSource = DT 'memunculkan dlm datagridview<br /><br /> bibi.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake<br /><br /> 'menentkan jumlah baris<br /> Grafik035.ColumnCount = 3<br /> Grafik035.RowCount = DT.Rows.Count<br /><br /> 'menentukan posisi baris<br /> Dim POSISIBARIS As Integer = 0<br /><br /> For Each x As DataRow In DT.Rows<br /> POSISIBARIS = POSISIBARIS + 1<br /> Grafik035.Row = POSISIBARIS<br /><br /> 'memberi nama pada baris grafik dgn nama pada kolom thun.<br /> Grafik035.RowLabel = x("kode barang")<br /><br /> Grafik035.Column = 1<br /> Grafik035.Data = x("unit")<br /><br /> Grafik035.Column = 2<br /> Grafik035.Data = x("rata-rata harga") / 1000<br /><br /> Grafik035.Column = 3<br /> Grafik035.Data = x("jumlah") / 10000<br /><br /> Next<br /><br /> End Sub<br />End ClassAndi Habibihttps://www.blogger.com/profile/14761345422635074719noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-61899199072208812692011-12-27T04:55:03.425-08:002011-12-27T04:55:03.425-08:00Public Class LATIHAN4336109038
Dim CONECT As N...Public Class LATIHAN4336109038<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATA GRAFIK.accdb")<br /> 'deklarasi data tabel<br /> Dim DT As New DataTable<br /><br /> Private Sub LATIHAN4336109038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> 'deklarasi adapter<br /> Dim icha As New OleDb.OleDbDataAdapter<br /> icha = New OleDb.OleDbDataAdapter("select * from QPembelianPerJenisBarang", CONECT) 'mkemunculkan semua data dari tabel barang dlm acces<br /> DT.Rows.Clear() 'membersihkan data tabEL<br /> icha.Fill(DT) 'mengisi database ke dlm data table<br /> DataGridView1.DataSource = DT 'memunculkan dlm datagridview<br /><br /> icha.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake<br /><br /> 'menentkan jumlah baris<br /> AxMSChart1.ColumnCount = 3<br /> AxMSChart1.RowCount = DT.Rows.Count<br /><br /> 'menentukan posisi baris<br /> Dim POSISIBARIS As Integer = 0<br /><br /> For Each x As DataRow In DT.Rows<br /> POSISIBARIS = POSISIBARIS + 1<br /> AxMSChart1.Row = POSISIBARIS<br /><br /> 'memberi nama pada baris grafik dgn nama pada kolom thun.<br /> AxMSChart1.RowLabel = x("KODE BARANG")<br /><br /> AxMSChart1.Column = 1<br /> AxMSChart1.Data = x("UNIT")<br /><br /> AxMSChart1.Column = 2<br /> AxMSChart1.Data = x("RATA-RATA HARGA") / 1000<br /><br /> AxMSChart1.Column = 3<br /> AxMSChart1.Data = x("JUMLAH") / 10000<br /><br /> Next<br /><br /> End Sub<br />End ClassNurul Azizah Mhttps://www.blogger.com/profile/16272310645014906153noreply@blogger.com