tag:blogger.com,1999:blog-5101583409018752071.post6142743344969915967..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 38 APKOM 4 D3ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger12125tag:blogger.com,1999:blog-5101583409018752071.post-65689399171013705082012-01-21T05:23:18.109-08:002012-01-21T05:23:18.109-08:00NURFAHNY
361 09 013
http://fanykecil.blogspot.com...NURFAHNY<br />361 09 013<br /><br />http://fanykecil.blogspot.com/2012/01/form-38.htmlnurfahnyhttps://www.blogger.com/profile/06045210770680863401noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-2375374947537385162012-01-10T23:58:10.653-08:002012-01-10T23:58:10.653-08:00Muhammad Harun Hamid
361 09 006
http://h4r0en.blo...Muhammad Harun Hamid<br />361 09 006<br /><br />http://h4r0en.blogspot.com/2012/01/script-visual-basic-apkomp-4-pnup_8149.htmlHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-75227340153508745982012-01-10T21:40:16.333-08:002012-01-10T21:40:16.333-08:00iwan
361 09 026
3A-D3
latihan 38 apkom4
http://...iwan <br />361 09 026<br />3A-D3<br /><br />latihan 38 apkom4<br /><br />http://iwandinejad.blogspot.com/#!/2012/01/latihan-38-apkom-4.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-10679391493530856022011-12-13T20:11:48.041-08:002011-12-13T20:11:48.041-08:00ridhayanti
36109015
Public Class Form38_39_40_361...ridhayanti<br />36109015<br /><br />Public Class Form38_39_40_36109015<br /> Dim ridha As New DataTable<br /> Dim risa As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")<br /><br /> Private Sub Form38_39_40_36109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim rs As New OleDb.OleDbDataAdapter<br /> rs = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", risa)<br /> ridha.Rows.Clear()<br /> rs.Fill(ridha)<br /> rs.Dispose()<br /><br /> DGV_36109015.DataSource = ridha<br /> End Sub<br />End Classridhacayoohttps://www.blogger.com/profile/01532550596785279111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-26490858919867804872011-12-13T20:05:08.297-08:002011-12-13T20:05:08.297-08:00ridhayanti saleh
36109015
tugas 38
http://ridhac...ridhayanti saleh<br />36109015<br /><br />tugas 38<br /><br />http://ridhacayoo-ridhaahmad.blogspot.com/2011/12/tugas-38.htmlridhacayoohttps://www.blogger.com/profile/01532550596785279111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24286665108333286112011-12-13T19:35:55.348-08:002011-12-13T19:35:55.348-08:00Private Sub simpan_36109003_Click(ByVal sender As ...Private Sub simpan_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109003.Click<br /> If nt_36109003.Text.Length = 0 Then<br /> MsgBox("nomor transaksi harus terisi")<br /> ElseIf jt_36109003.Text.Length = 0 Then<br /> MsgBox("Isi rong Jenis Transaksi na..")<br /> ElseIf anto.Rows.Count = 0 Then<br /> MsgBox("data table tidak boleh kosong")<br /> Exit Sub<br /> End If<br /><br /> arman.AturPencarianDataBase("mastertransaksi", "notrans", nt_36109003.Text, 1, ndut)<br /> If arman.JumlanBaris > 0 Then<br /> MsgBox("nomor transaksi telah ada")<br /> Exit Sub<br /> End If<br /><br /> soe = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109003.Text & "',#" & tgl_36109003.Value.Month & "/" & tgl_36109003.Value.Day & "/" & tgl_36109003.Value.Year & "#,'" & jt_36109003.Text & "')", ndut)<br /> ndut.Open()<br /> soe.ExecuteNonQuery()<br /> ndut.Close()<br /><br /> For Each x As DataRow In anto.Rows<br /> soe = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt_36109003.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ndut)<br /> ndut.Open()<br /> soe.ExecuteNonQuery()<br /> ndut.Close()<br /> Next<br /> soe.Dispose()<br /><br /> nt_36109003.Text = ""<br /> jt_36109003.Text = ""<br /><br /> anto.Rows.Clear()<br /> anra()<br /> End Sub<br /><br /> Private Sub unit_36109003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit_36109003.TextChanged<br /> jumlah_36109003.Text = Val(unit_36109003.Text) * Val(harga_36109003.Text)<br /> End Sub<br /><br /> Private Sub harga_36109003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harga_36109003.TextChanged<br /> jumlah_36109003.Text = Val(unit_36109003.Text) * Val(harga_36109003.Text)<br /> End Sub<br />End Classsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-65581378550832038562011-12-13T19:35:18.975-08:002011-12-13T19:35:18.975-08:00Private Sub kb_36109003_leave(ByVal sender As Syst...Private Sub kb_36109003_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109003.Leave<br /> If kb_36109003.Text.Length = 0 Then<br /> Exit Sub<br /> End If<br /> arman.AturPencarianDataBase("barang", "kodebarang", kb_36109003.Text, 1, ndut)<br /> If arman.JumlanBaris > 0 Then<br /> kb_36109003.Text = arman.DataTablenya.Rows(0).Item("KODEBARANG")<br /> nb_36109003.Text = arman.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> MsgBox("Kode barang tidak terdaftar")<br /> If form38_39_40_36109003.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> kb_36109003.Text = form38_39_40_36109003.dgv_36109003.CurrentRow.Cells("kodebarang").Value<br /> nb_36109003.Text = form38_39_40_36109003.dgv_36109003.CurrentRow.Cells("namabarang").Value<br /> Else<br /> kb_36109003.Text = ""<br /> End If<br /> End If<br /> End Sub<br /><br /> Private Sub kb_36109003_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36109003.TextChanged<br /> nb_36109003.Text = ""<br /> unit_36109003.Text = ""<br /> harga_36109003.Text = ""<br /> End Sub<br /><br /> Private Sub tambah_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109003.Click<br /> If kb_36109003.Text.Length = 0 Then<br /> MsgBox("kode barang tidak terisi")<br /> ElseIf Val(unit_36109003.Text) = 0 Then<br /> MsgBox("unit tidak terisi")<br /> ElseIf Val(harga_36109003.Text) = 0 Then<br /> MsgBox("harga barang tidak terisi")<br /> Exit Sub<br /> End If<br /><br /> Dim dt As DataRow<br /> dt = anto.Rows.Find(kb_36109003.Text)<br /> If dt Is Nothing Then<br /> dt = anto.NewRow<br /> dt("KODEBARANG") = kb_36109003.Text<br /> dt("NAMABARANG") = nb_36109003.Text<br /> dt("UNIT") = unit_36109003.Text<br /> dt("HARGA") = harga_36109003.Text<br /> dt("JUMLAH") = Val(jumlah_36109003.Text)<br /><br /> anto.Rows.Add(dt)<br /><br /> kb_36109003.Text = ""<br /> unit_36109003.Text = ""<br /> harga_36109003.Text = ""<br /> Else<br /> MsgBox("kode barang telah terdaftar,")<br /> End If<br /> anra()<br /> End Subsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-47335246920764163642011-12-13T19:34:34.489-08:002011-12-13T19:34:34.489-08:00Public NotInheritable Class form38_36109003
Di...Public NotInheritable Class form38_36109003<br /> Dim arman As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim anto As New DataTable<br /> Dim soe As New OleDb.OleDbCommand<br /> Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")<br /><br /> Private Sub form38_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim r As New OleDb.OleDbDataAdapter<br /> r = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & nt_36109003.Text & "'", ndut)<br /> anto.Rows.Clear()<br /> r.Fill(anto)<br /> r.Dispose()<br /><br /> dgv_36109003.DataSource = anto<br /><br /> Dim sudar(1) As DataColumn<br /> sudar(0) = anto.Columns("kodebarang")<br /> anto.PrimaryKey = sudar<br /> End Sub<br /><br /> Private Sub anra()<br /> Dim anra1 As Integer = 0<br /> For Each anra2 As DataRow In anto.Rows<br /> anra1 += anra2("JUMLAH")<br /> Next<br /> total_36109003.Text = anra1<br /> End Subsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-8669327004572199232011-12-09T17:06:45.460-08:002011-12-09T17:06:45.460-08:00RUSNANINGSI R
36109010
http://rusnaningsi.blogspo...RUSNANINGSI R<br />36109010<br /><br />http://rusnaningsi.blogspot.com/2011/12/latihan-38-apkom-4.htmlRusnaningsi Ruslanhttps://www.blogger.com/profile/06212223193729582060noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39662493774171796062011-12-03T21:31:35.972-08:002011-12-03T21:31:35.972-08:00Amelia Indahsari
361 09 023
http://heiamee.blogsp...Amelia Indahsari<br />361 09 023<br /><br />http://heiamee.blogspot.com/2011/12/form-38.htmlKim Hyo Byunghttps://www.blogger.com/profile/05101877770296065884noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-74755176823206958972011-12-02T08:37:20.679-08:002011-12-02T08:37:20.679-08:00Ismi Febriani Asyikin
3a D3
361 09 005
http://is...Ismi Febriani Asyikin<br />3a D3<br />361 09 005<br /><br /><br />http://ismifebriani.blogspot.com/2011/12/apkom-4-latihan-38.html_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-11335418657362425442011-12-02T07:04:01.051-08:002011-12-02T07:04:01.051-08:00ALWIYAH
3A-D3 / 36109009
http://alwiyah-chucha.bl...ALWIYAH<br />3A-D3 / 36109009<br /><br />http://alwiyah-chucha.blogspot.com/2011/12/latihanform38.html<br /><br />Terima Kasih PakAlwiyah Pathamhttps://www.blogger.com/profile/07815177744537803517noreply@blogger.com