tag:blogger.com,1999:blog-5101583409018752071.post7395219441817654679..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 35 APKOM 4 D3CLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger17125tag:blogger.com,1999:blog-5101583409018752071.post-78250649395761617432011-12-29T22:07:59.639-08:002011-12-29T22:07:59.639-08:00http://gunawanmustari.blogspot.com/2011/12/latihan...http://gunawanmustari.blogspot.com/2011/12/latihan-35.html(L).Gunawan.Mustarihttps://www.blogger.com/profile/04002846214316396260noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-3881634035732791762011-12-15T19:19:13.505-08:002011-12-15T19:19:13.505-08:00http://hantualis.blogspot.com/2011/12/form-35-apko...http://hantualis.blogspot.com/2011/12/form-35-apkom-4.htmlA. A. Gede Dalem P. Putrahttps://www.blogger.com/profile/04257259383067000123noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-42214837231303457022011-12-02T00:46:13.414-08:002011-12-02T00:46:13.414-08:00http://pute991.blogspot.com/2011/12/latihan-35.htm...http://pute991.blogspot.com/2011/12/latihan-35.htmlPute_Zonehttps://www.blogger.com/profile/16879139098125279475noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-7310241291378651882011-12-01T23:30:58.721-08:002011-12-01T23:30:58.721-08:00http://derielrangers.blogspot.com/2011/12/latihan-...http://derielrangers.blogspot.com/2011/12/latihan-35-public-class-latihan35084.htmladitya.Derielhttps://www.blogger.com/profile/18345720865620289243noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-28444331581249671532011-12-01T23:03:27.694-08:002011-12-01T23:03:27.694-08:00http://urimoktaviana.blogspot.com/2011/12/latihan-...http://urimoktaviana.blogspot.com/2011/12/latihan-35.html4nHyTombhttps://www.blogger.com/profile/03847522022217006398noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-36822465241967370132011-12-01T22:31:02.741-08:002011-12-01T22:31:02.741-08:00http://nurulilmimustari.blogspot.com/2011/12/form-...http://nurulilmimustari.blogspot.com/2011/12/form-35.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-74382732744595487402011-12-01T22:26:47.272-08:002011-12-01T22:26:47.272-08:00http://sarshe-sarshe.blogspot.com/2011/12/latihan2...http://sarshe-sarshe.blogspot.com/2011/12/latihan2636109060.htmlsarshehttps://www.blogger.com/profile/06051711036399551052noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68379529870599912172011-12-01T21:03:07.246-08:002011-12-01T21:03:07.246-08:00http://valenndut.blogspot.com/2011/12/latihan-35.h...http://valenndut.blogspot.com/2011/12/latihan-35.htmlValennduthttps://www.blogger.com/profile/07994956727872982084noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-49792092209831718932011-12-01T20:57:10.101-08:002011-12-01T20:57:10.101-08:00http://elayuck.blogspot.com/2011/12/latihan-35.htm...http://elayuck.blogspot.com/2011/12/latihan-35.htmlevianty_3vhy3https://www.blogger.com/profile/13448486603779206839noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-40697379034485724562011-12-01T20:53:07.011-08:002011-12-01T20:53:07.011-08:00http://meylin-meylanierlangga.blogspot.com/2011/12...http://meylin-meylanierlangga.blogspot.com/2011/12/latihan-35.htmllilis mulyanihttps://www.blogger.com/profile/07761997754305615481noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-87507866299075919152011-12-01T20:38:21.698-08:002011-12-01T20:38:21.698-08:00http://parubakcatherine.blogspot.com/2011/12/latih...http://parubakcatherine.blogspot.com/2011/12/latihan-35.htmlcatherine parubakhttps://www.blogger.com/profile/09908430394301408120noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-75264732975729464802011-12-01T19:43:59.742-08:002011-12-01T19:43:59.742-08:0036109057
fatma sari
http://fatmacmr.blogspot.com/2...36109057<br />fatma sari<br />http://fatmacmr.blogspot.com/2011/12/latihan-35.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-35921419452325706202011-12-01T18:52:54.609-08:002011-12-01T18:52:54.609-08:00http://winnymatarru.blogspot.com/2011/12/latihan-3...http://winnymatarru.blogspot.com/2011/12/latihan-35.htmlasnihttps://www.blogger.com/profile/11551071046802583023noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-75166033461996761522011-12-01T18:41:30.481-08:002011-12-01T18:41:30.481-08:00http://krisnasaman-teddybear.blogspot.com/2011/12/...http://krisnasaman-teddybear.blogspot.com/2011/12/public-class-latihan3536109074-dim.htmlKrisnaSamanhttps://www.blogger.com/profile/11914093621544159142noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-31516781583459860832011-11-29T02:06:46.794-08:002011-11-29T02:06:46.794-08:00http://kartika139.blogspot.com/2011/11/latihan-35....http://kartika139.blogspot.com/2011/11/latihan-35.htmlkartikalady_crofthttps://www.blogger.com/profile/08438783166331959612noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-4261360439996807372011-11-25T08:11:02.563-08:002011-11-25T08:11:02.563-08:00Komentar ini telah dihapus oleh pengarang.Younha Sanggahttps://www.blogger.com/profile/15766300290127471581noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-28342975786306711932011-11-22T01:03:41.113-08:002011-11-22T01:03:41.113-08:00Muhammad nur
Public Class Latihan035077
Dim ...Muhammad nur<br /><br />Public Class Latihan035077<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 /><br /> Private Sub Latihan35017_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= '" & NO077.Text & "'", n)<br /> X.Fill(dt)<br /> X.Dispose()<br /> DGV035.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 /> Dim dr As DataRow<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 /> 'c'<br /> KB077.Text = ""<br /> UNIT077.Text = ""<br /> HB077.Text = ""<br /><br /> End Sub<br /><br /> Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click<br /> 'a'<br /> If NO077.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", NO077.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 ('" & NO077.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 ('" & NO077.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 /> NO077.Text = ""<br /> JT077.Text = ""<br /><br /> 'g'<br /> dt.Rows.Clear()<br /><br /><br /> End Sub<br />End Classfirman nurhttps://www.blogger.com/profile/16272680002519818273noreply@blogger.com