tag:blogger.com,1999:blog-5101583409018752071.post6576523343416095092..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 36 APKOM 4 D3CLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger17125tag:blogger.com,1999:blog-5101583409018752071.post-58783443845492967352011-12-29T22:20:14.874-08:002011-12-29T22:20:14.874-08:00http://gunawanmustari.blogspot.com/2011/12/latihan...http://gunawanmustari.blogspot.com/2011/12/latihan-36.html(L).Gunawan.Mustarihttps://www.blogger.com/profile/04002846214316396260noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-64529794001931355872011-12-15T19:20:00.356-08:002011-12-15T19:20:00.356-08:00http://hantualis.blogspot.com/2011/12/form-36-apko...http://hantualis.blogspot.com/2011/12/form-36-apkom-4.htmlA. A. Gede Dalem P. Putrahttps://www.blogger.com/profile/04257259383067000123noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-27623909455749067042011-12-02T00:49:19.423-08:002011-12-02T00:49:19.423-08:00http://pute991.blogspot.com/2011/12/latihan-36.htm...http://pute991.blogspot.com/2011/12/latihan-36.htmlPute_Zonehttps://www.blogger.com/profile/16879139098125279475noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59028131908916872002011-12-01T23:33:51.801-08:002011-12-01T23:33:51.801-08:00http://derielrangers.blogspot.com/2011/12/form-36....http://derielrangers.blogspot.com/2011/12/form-36.htmladitya.Derielhttps://www.blogger.com/profile/18345720865620289243noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-32754972961777070592011-12-01T23:06:40.620-08:002011-12-01T23:06:40.620-08:00http://urimoktaviana.blogspot.com/2011/12/latihan-...http://urimoktaviana.blogspot.com/2011/12/latihan-36.html4nHyTombhttps://www.blogger.com/profile/03847522022217006398noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-51954294179069535532011-12-01T22:33:23.093-08:002011-12-01T22:33:23.093-08:00http://sarshe-sarshe.blogspot.com/2011/12/latihan0...http://sarshe-sarshe.blogspot.com/2011/12/latihan03636109060.htmlsarshehttps://www.blogger.com/profile/06051711036399551052noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-17642657309361561042011-12-01T21:06:02.878-08:002011-12-01T21:06:02.878-08:00http://valenndut.blogspot.com/2011/12/latihan-36.h...http://valenndut.blogspot.com/2011/12/latihan-36.htmlValennduthttps://www.blogger.com/profile/07994956727872982084noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-36281158973377841912011-12-01T21:03:16.132-08:002011-12-01T21:03:16.132-08:00http://elayuck.blogspot.com/2011/12/latihan-36.htm...http://elayuck.blogspot.com/2011/12/latihan-36.htmlevianty_3vhy3https://www.blogger.com/profile/13448486603779206839noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-49208744860734409452011-12-01T20:41:35.785-08:002011-12-01T20:41:35.785-08:00http://parubakcatherine.blogspot.com/2011/12/latih...http://parubakcatherine.blogspot.com/2011/12/latihan-36.htmlcatherine parubakhttps://www.blogger.com/profile/09908430394301408120noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-65138071063961998122011-12-01T19:46:54.160-08:002011-12-01T19:46:54.160-08:00(36109057)
fatma sari
http://fatmacmr.blogspot.com...(36109057)<br />fatma sari<br />http://fatmacmr.blogspot.com/2011/12/latihan-36.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-80422517372871124042011-12-01T18:58:45.214-08:002011-12-01T18:58:45.214-08:00http://winnymatarru.blogspot.com/2011/12/latihan-3...http://winnymatarru.blogspot.com/2011/12/latihan-36.htmlasnihttps://www.blogger.com/profile/11551071046802583023noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-41575840819923580782011-12-01T18:44:39.812-08:002011-12-01T18:44:39.812-08:00http://krisnasaman-teddybear.blogspot.com/2011/12/...http://krisnasaman-teddybear.blogspot.com/2011/12/latihan36.htmlKrisnaSamanhttps://www.blogger.com/profile/11914093621544159142noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-28429330206713626962011-11-29T02:10:34.124-08:002011-11-29T02:10:34.124-08:00http://kartika139.blogspot.com/2011/11/latihan-36....http://kartika139.blogspot.com/2011/11/latihan-36.htmlkartikalady_crofthttps://www.blogger.com/profile/08438783166331959612noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-57669061692977252732011-11-25T08:17:59.002-08:002011-11-25T08:17:59.002-08:00Public Class latihan_036_36109058
Dim yunha As...Public Class latihan_036_36109058<br /> Dim yunha As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")<br /> Dim dt As New DataTable<br /> Dim dr As DataRow<br /><br /> Private Sub latihan_036_36109058Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & a058.Text & "'", yunha)<br /> X.Fill(dt)<br /> X.Dispose()<br /><br /> Dim dataPrimary(1) As DataColumn<br /> dataPrimary(0) = dt.Columns("KODEBARANG")<br /> dt.PrimaryKey = dataPrimary<br /><br /> dgv1.DataSource = dt<br /> End Sub<br /><br /> Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click<br /> 'a'<br /> If c058.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(d058.Text) = 0 Then<br /> MsgBox("Masukkan Harga barang")<br /> Exit Sub<br /> End If<br /><br /> If Val(ee058.Text) = 0 Then<br /> MsgBox("Masukkan jumlah barang")<br /> Exit Sub<br /> End If<br /><br /> 'b'<br /> dr = dt.Rows.Find(c058.Text)<br /><br /> If dr Is Nothing Then<br /> dr = dt.NewRow<br /> dr("KODEBARANG") = c058.Text<br /> Else<br /> MsgBox("Maaf kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> 'c'<br /> dr = dt.NewRow<br /> dr("KODEBARANG") = c058.Text<br /> dr("UNIT") = d058.Text<br /> dr("HARGA") = ee058.Text<br /><br /> dt.Rows.Add(dr)<br /><br /> 'd'<br /> c058.Text = ""<br /> d058.Text = ""<br /> ee058.Text = ""<br /><br /> End SubYounha Sanggahttps://www.blogger.com/profile/15766300290127471581noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-60252311347241656892011-11-25T08:07:32.345-08:002011-11-25T08:07:32.345-08:00Komentar ini telah dihapus oleh pengarang.Younha Sanggahttps://www.blogger.com/profile/15766300290127471581noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-53822243355242026252011-11-22T01:07:23.286-08:002011-11-22T01:07:23.286-08:00Private Sub Simpan_Click(ByVal sender As System.Ob...Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click<br /> 'a'<br /> If NOTRANS077.Text.Length = 0 Then<br /> MsgBox("No. transaksi sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If JT077.Text.Length = 0 Then<br /> MsgBox("Jenis transaksi sudah ada")<br /> Exit Sub<br /> End If<br /><br /> 'b'<br /> If dt.Rows.Count = 0 Then<br /> MsgBox("Jumlah baris tidak terisi")<br /> Exit Sub<br /> End If<br /><br /> 'c'<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS077.Text, 1, n)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("data tersebut sudah ada")<br /> Exit Sub<br /> End If<br /><br /> 'd'<br /> Dim CM As New OleDb.OleDbCommand<br /> CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS077.Text & "', #" & DateTimePicker.Value.Month & "/" & DateTimePicker.Value.Day & "/" & DateTimePicker.Value.Year & "#, '" & JT077.Text & "')", n)<br /> n.Open()<br /> CM.ExecuteNonQuery()<br /> n.Close()<br /><br /> 'e'<br /> For Each X As DataRow In dt.Rows<br /> CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NOTRANS077.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", n)<br /> n.Open()<br /> CM.ExecuteNonQuery()<br /> n.Close()<br /> CM.Dispose()<br /> Next<br /><br /> 'f'<br /> NOTRANS077.Text = ""<br /> JT077.Text = ""<br /><br /> 'g'<br /> dt.Rows.Clear()<br /><br /> End Sub<br />End Classfirman nurhttps://www.blogger.com/profile/16272680002519818273noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-13514023410185326092011-11-22T01:06:47.514-08:002011-11-22T01:06:47.514-08:00Muhammad Nur
Public Class Latihan036077
Dim...Muhammad Nur<br /><br /><br />Public Class Latihan036077<br /><br /> Dim n As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")<br /> Dim dt As New DataTable<br /> Dim dr As DataRow<br /><br /> Private Sub Latihan36017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim X As New OleDb.OleDbDataAdapter<br /> X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & NOTRANS077.Text & "'", n)<br /> X.Fill(dt)<br /> X.Dispose()<br /><br /> Dim dataPrimary(1) As DataColumn<br /> dataPrimary(0) = dt.Columns("KODEBARANG")<br /> dt.PrimaryKey = dataPrimary<br /><br /> DGV036.DataSource = dt<br /> End Sub<br /><br /> Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click<br /> 'a'<br /> If KB077.Text.Length = 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> If Val(UNIT077.Text) = 0 Then<br /> MsgBox("Masukkan Harga barang")<br /> Exit Sub<br /> End If<br /><br /> If Val(HB077.Text) = 0 Then<br /> MsgBox("Masukkan jumlah barang")<br /> Exit Sub<br /> End If<br /><br /> 'b'<br /> dr = dt.Rows.Find(KB077.Text)<br /><br /> If dr Is Nothing Then<br /> dr = dt.NewRow<br /> dr("KODEBARANG") = KB077.Text<br /> Else<br /> MsgBox("Maaf kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> 'c'<br /> dr = dt.NewRow<br /> dr("KODEBARANG") = KB077.Text<br /> dr("UNIT") = UNIT077.Text<br /> dr("HARGA") = HB077.Text<br /><br /> dt.Rows.Add(dr)<br /><br /> 'd'<br /> KB077.Text = ""<br /> UNIT077.Text = ""<br /> HB077.Text = ""<br /><br /> End Subfirman nurhttps://www.blogger.com/profile/16272680002519818273noreply@blogger.com