tag:blogger.com,1999:blog-5101583409018752071.post1057128653864939378..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 40 APKOM 4 D4BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger54125tag:blogger.com,1999:blog-5101583409018752071.post-14466251095556887642012-02-07T17:15:54.513-08:002012-02-07T17:15:54.513-08:00Private Sub datagridview1_CellEndEdit(ByVal sender...Private Sub datagridview1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit<br /> If DataGridView1.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /><br /> DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""<br /> DataGridView1.CurrentRow.Cells("UNIT").Value = 0<br /> DataGridView1.CurrentRow.Cells("HARGA").Value = 0<br /> DataGridView1.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> cari.AturPencarianDataBase("barang", "kodebarang", DataGridView1.CurrentRow.Cells("KODEBARANG").Value, 1, CONECT)<br /> If cari.JumlanBaris > 0 Then<br /> DataGridView1.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""<br /> If tugas38394046109033.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> DataGridView1.CurrentRow.Cells("KODEBARANG").Value = tugas38394046109033.DataGridView146109033.CurrentRow.Cells("KODEBARANG").Value<br /> DataGridView1.CurrentRow.Cells("NAMABARANG").Value = tugas38394046109033.DataGridView146109033.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIf DataGridView1.Columns(e.ColumnIndex).Name = "UNIT" Or DataGridView1.Columns(e.ColumnIndex).Name = "HARGA" Then<br /> DataGridView1.CurrentRow.Cells("JUMLAH").Value = DataGridView1.CurrentRow.Cells("UNIT").Value * DataGridView1.CurrentRow.Cells("HARGA").Value<br /> tm3()<br /> End If<br /> End Sub<br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If StatusStrip46109033.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /> Private Sub datagridview1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError<br /> MsgBox("Terjadi sedikit kesalahan...")<br /> End Sub<br /><br /><br /><br />End ClassTaufiq Goonershttps://www.blogger.com/profile/13923624470604599688noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-83305010832948209322012-02-07T17:12:50.589-08:002012-02-07T17:12:50.589-08:00Public Class tugas40b46109033
Dim CONECT As Ne...Public Class tugas40b46109033<br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=033")<br /> Dim tofiq As New DataTable<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Public Sub tm2()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & nt46109033.Text & "'", CONECT)<br /> tofiq.Rows.Clear()<br /> a.Fill(tofiq)<br /> End Sub<br /> Public Sub tm3()<br /> Dim total As Integer = 0<br /> For Each x As DataRow In tofiq.Rows<br /> total += x("Jumlah")<br /> Next<br /> tot46109033.Text = total<br /> End Sub<br /> Private Sub tm4()<br /> If nt46109033.Text.Length = 0 Then<br /> MsgBox("Isi Notransnya..")<br /> Exit Sub<br /> End If<br /> If jt46109033.Text.Length = 0 Then<br /> MsgBox("Isi Jenis Transaksinya..")<br /> Exit Sub<br /> End If<br /> If tofiq.Rows.Count = 0 Then<br /> MsgBox("Isi datatable k..")<br /> Exit Sub<br /> End If<br /> End Sub<br /> Private Sub tambah()<br /> tm4()<br /> cari.AturPencarianDataBase("mastertransaksi", "notrans", nt46109033.Text, 1, CONECT)<br /> If cari.JumlanBaris > 0 Then<br /> MsgBox("Adami notrans seperti itu..")<br /> Exit Sub<br /> End If<br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109033.Text & "',#" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#, '" & jt46109033.Text & "')", CONECT)<br /> CONECT.Open()<br /> cm.ExecuteNonQuery()<br /> CONECT.Close()<br /><br /> For Each x As DataRow In tofiq.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nt46109033.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", CONECT)<br /> CONECT.Open()<br /> cm.ExecuteNonQuery()<br /> CONECT.Close()<br /> Next<br /> cm.Dispose()<br /> nt46109033.Text = ""<br /> jt46109033.Text = ""<br /> tot46109033.Text = ""<br /> StatusStrip46109033.Text = "-"<br /> tofiq.Rows.Clear()<br /> TUGAS40A46109033.tofiq()<br /> End SubTaufiq Goonershttps://www.blogger.com/profile/13923624470604599688noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-48109732123556708932012-02-07T10:52:12.239-08:002012-02-07T10:52:12.239-08:00Private Sub data46109026_CellEndEdit(ByVal sender ...Private Sub data46109026_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles data46109026.CellEndEdit<br /> If data46109026.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /><br /> data46109026.CurrentRow.Cells("NAMABARANG").Value = ""<br /> data46109026.CurrentRow.Cells("UNIT").Value = 0<br /> data46109026.CurrentRow.Cells("HARGA").Value = 0<br /> data46109026.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> cari.AturPencarianDataBase("barang", "kodebarang", data46109026.CurrentRow.Cells("KODEBARANG").Value, 1, CONECT)<br /> If cari.JumlanBaris > 0 Then<br /> data46109026.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> data46109026.CurrentRow.Cells("NAMABARANG").Value = ""<br /> If latihan3839400026.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> data46109026.CurrentRow.Cells("KODEBARANG").Value = latihan3839400026.DATA46109026.CurrentRow.Cells("KODEBARANG").Value<br /> data46109026.CurrentRow.Cells("NAMABARANG").Value = latihan3839400026.DATA46109026.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIf data46109026.Columns(e.ColumnIndex).Name = "UNIT" Or data46109026.Columns(e.ColumnIndex).Name = "HARGA" Then<br /> data46109026.CurrentRow.Cells("JUMLAH").Value = data46109026.CurrentRow.Cells("UNIT").Value * data46109026.CurrentRow.Cells("HARGA").Value<br /> ibhe3()<br /> End If<br /> End Sub<br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If StatusStrip46109026.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /> Private Sub data46109026_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles data46109026.DataError<br /> MsgBox("Terjadi sedikit kesalahan...")<br /> End Sub<br /><br />End ClassIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-38182707079280327552012-02-07T10:49:27.856-08:002012-02-07T10:49:27.856-08:00Public Class LATIHAN40B46109026
Dim CONECT As...Public Class LATIHAN40B46109026<br /><br /> Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=26")<br /> Dim ibeng As New DataTable<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Public Sub ibhe2()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & nomor46109026.Text & "'", CONECT)<br /> ibeng.Rows.Clear()<br /> a.Fill(ibeng)<br /> End Sub<br /> Public Sub ibhe3()<br /> Dim total As Integer = 0<br /> For Each x As DataRow In ibeng.Rows<br /> total += x("Jumlah")<br /> Next<br /> total46109026.Text = total<br /> End Sub<br /> Private Sub ibhe4()<br /> If nomor46109026.Text.Length = 0 Then<br /> MsgBox("Isi Notransnya..")<br /> Exit Sub<br /> End If<br /><br /> If jenis46109026.Text.Length = 0 Then<br /> MsgBox("Isi Jenis Transaksinya..")<br /> Exit Sub<br /> End If<br /><br /> If ibeng.Rows.Count = 0 Then<br /> MsgBox("Isi datatable k..")<br /> Exit Sub<br /> End If<br /> End Sub<br /> Private Sub tambah()<br /> ibhe4()<br /> cari.AturPencarianDataBase("mastertransaksi", "notrans", nomor46109026.Text, 1, CONECT)<br /> If cari.JumlanBaris > 0 Then<br /> MsgBox("sudah ada notrans seperti itu..")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nomor46109026.Text & "',#" & tanggal46109026.Value.Month & "/" & tanggal46109026.Value.Day & "/" & tanggal46109026.Value.Year & "#, '" & jenis46109026.Text & "')", CONECT)<br /> CONECT.Open()<br /> cm.ExecuteNonQuery()<br /> CONECT.Close()<br /><br /> For Each x As DataRow In ibeng.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nomor46109026.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", CONECT)<br /><br /> CONECT.Open()<br /> cm.ExecuteNonQuery()<br /> CONECT.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nomor46109026.Text = ""<br /> jenis46109026.Text = ""<br /> total46109026.Text = ""<br /> StatusStrip46109026.Text = "-"<br /><br /> ibeng.Rows.Clear()<br /> LATIHAN40A46109026.ibhe()<br /> End SubIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-49865436449447039982012-02-07T10:45:04.181-08:002012-02-07T10:45:04.181-08:00Private Sub Button2_Click(ByVal sender As System.O...Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If LATIHAN40B46109026.Visible = False Then<br /><br /> LATIHAN40B46109026.Show()<br /> Else<br /> LATIHAN40B46109026.Activate()<br /> End If<br /><br /> LATIHAN40B46109026.nomor46109026.Text = ""<br /> LATIHAN40B46109026.jenis46109026.Text = ""<br /> LATIHAN40B46109026.StatusStrip46109026.Text = "-"<br /><br /> LATIHAN40B46109026.ibhe2()<br /><br /> LATIHAN40B46109026.ibhe3()<br /> End Sub<br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> If LATIHAN40B46109026.Visible = False Then<br /> LATIHAN40B46109026.Show()<br /> Else<br /> LATIHAN40B46109026.Activate()<br /> End If<br /><br /> LATIHAN40B46109026.nomor46109026.Text = data146109026.CurrentRow.Cells("notrans").Value<br /> LATIHAN40B46109026.tanggal46109026.Value = data146109026.CurrentRow.Cells("tanggaltransaksi").Value<br /> LATIHAN40B46109026.jenis46109026.Text = data146109026.CurrentRow.Cells("jenistransaksi").Value<br /> LATIHAN40B46109026.StatusStrip46109026.Text = data146109026.CurrentRow.Cells("notrans").Value<br /><br /> LATIHAN40B46109026.ibhe2()<br /> LATIHAN40B46109026.ibhe3()<br /> End Sub<br /><br />End ClassIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-17706837553266635382012-02-06T04:58:28.767-08:002012-02-06T04:58:28.767-08:00dgv46109046.Columns(e.ColumnIndex).Name = "UN...dgv46109046.Columns(e.ColumnIndex).Name = "UNIT" Or dgv46109046.Columns(e.ColumnIndex).Name = "HARGA" Then<br /> dgv46109046.CurrentRow.Cells("JUMLAH").Value = dgv46109046.CurrentRow.Cells("UNIT").Value * dgv46109046.CurrentRow.Cells("HARGA").Value<br /> amhy3()<br /> End If<br /> End Sub<br /><br /> Private Sub Button146109046_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button146109046.Click<br /> If StatusStrip1.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /><br /> Private Sub dgv46109046_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv46109046.DataError<br /> MsgBox("Terjadi sedikit kesalahan...")<br /> End Sub<br />End Classasmianti rahmanhttps://www.blogger.com/profile/16701004460658315605noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-4762776859921796282012-02-06T04:57:02.685-08:002012-02-06T04:57:02.685-08:00cm = New OleDb.OleDbCommand("delete * from ma...cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & StatusStrip1.Text & "'", asmi)<br /> asmi.Open()<br /> cm.ExecuteNonQuery()<br /> asmi.Close()<br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109046.Text & "',#" & dtp46109046.Value.Month & "/" & dtp46109046.Value.Day & "/" & dtp46109046.Value.Year & "#, '" & jt46109046.Text & "')", asmi)<br /> asmi.Open()<br /> cm.ExecuteNonQuery()<br /> asmi.Close()<br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & StatusStrip1.Text & "'", asmi)<br /> asmi.Open()<br /> cm.ExecuteNonQuery()<br /> asmi.Close()<br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt46109046.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", asmi)<br /> asmi.Open()<br /> cm.ExecuteNonQuery()<br /> asmi.Close()<br /> Next<br /> cm.Dispose()<br /> nt46109046.Text = ""<br /> jt46109046.Text = ""<br /> Tot46109046.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> latihan40A_46109046.asmianti1()<br /> End Sub<br /><br /> Private Sub latihan40B_46109046_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> amhy2()<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt.Columns("kodebarang")<br /> dt.PrimaryKey = dc<br /><br /> dt.Columns("unit").DefaultValue = 0<br /> dt.Columns("harga").DefaultValue = 0<br /> dt.Columns("jumlah").DefaultValue = 0<br /><br /> dgv46109046.DataSource = dt<br /> End Sub<br /><br /> Private Sub dgv46109046_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46109046.CellEndEdit<br /> If dgv46109046.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /><br /><br /><br /> dgv46109046.CurrentRow.Cells("NAMABARANG").Value = ""<br /> dgv46109046.CurrentRow.Cells("UNIT").Value = 0<br /> dgv46109046.CurrentRow.Cells("HARGA").Value = 0<br /> dgv46109046.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> amhy.AturPencarianDataBase("barang", "kodebarang", dgv46109046.CurrentRow.Cells("KODEBARANG").Value, 1, asmi)<br /> If amhy.JumlanBaris > 0 Then<br /> dgv46109046.CurrentRow.Cells("NAMABARANG").Value = amhy.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> dgv46109046.CurrentRow.Cells("NAMABARANG").Value = ""<br /> If latihan38_39_40_46109046.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> dgv46109046.CurrentRow.Cells("KODEBARANG").Value = latihan38_39_40_46109046.dgv46109046.CurrentRow.Cells("KODEBARANG").Value<br /> dgv46109046.CurrentRow.Cells("NAMABARANG").Value = latihan38_39_40_46109046.dgv46109046.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIfasmianti rahmanhttps://www.blogger.com/profile/16701004460658315605noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-58082311617058140332012-02-06T03:15:42.384-08:002012-02-06T03:15:42.384-08:00Private Sub H46109044_Click(ByVal sender As System...Private Sub H46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H46109044.Click<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv146109044.CurrentRow.Cells("notrans").Value & "'", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv146109044.CurrentRow.Cells("notrans").Value & "'", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /> cm.Dispose()<br /> syahril1()<br /> End Sub<br /><br /> Private Sub T46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T46109044.Click<br /> If Latihan_40B_46109044.Visible = False Then<br /> Latihan_40B_46109044.Show()<br /> Else<br /> Latihan_40B_46109044.Activate()<br /> End If<br /><br /> Latihan_40B_46109044.NT46109044.Text = ""<br /> Latihan_40B_46109044.JT46109044.Text = ""<br /> Latihan_40B_46109044.ff.Text = "-"<br /><br /> Latihan_40B_46109044.syahril2()<br /> Latihan_40B_46109044.syahril3()<br /> End Sub<br /><br /> Private Sub E46109044_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E46109044.Click<br /> If Latihan_40B_46109044.Visible = False Then<br /> Latihan_40B_46109044.Show()<br /> Else<br /> Latihan_40B_46109044.Activate()<br /> End If<br /><br /> Latihan_40B_46109044.NT46109044.Text = dgv146109044.CurrentRow.Cells("notrans").Value<br /> Latihan_40B_46109044.T46109044.Value = dgv146109044.CurrentRow.Cells("tanggaltransaksi").Value<br /> Latihan_40B_46109044.JT46109044.Text = dgv146109044.CurrentRow.Cells("jenistransaksi").Value<br /> Latihan_40B_46109044.ff.Text = dgv146109044.CurrentRow.Cells("notrans").Value<br /><br /> Latihan_40B_46109044.syahril2()<br /> Latihan_40B_46109044.syahril3()<br /> End Sub<br />End ClassMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-64275256156940482072012-02-06T03:15:05.261-08:002012-02-06T03:15:05.261-08:00Public Class Latihan_40A_46109044
Dim hma As N...Public Class Latihan_40A_46109044<br /> Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")<br /> Dim dt1 As New DataTable<br /> Dim dt2 As New DataTable<br /> Dim ds As New DataSet<br /> Dim bs1 As New BindingSource<br /> Dim bs2 As New BindingSource<br /><br /> Public Sub syahril1()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> dt2.Rows.Clear()<br /> dt1.Rows.Clear()<br /> a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", hma)<br /> a.Fill(dt1)<br /> a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", hma)<br /> a.Fill(dt2)<br /> End Sub<br /><br /> Private Sub Latihan_40A_46109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> syahril1()<br /><br /> ds.Tables.Add(dt1)<br /> ds.Tables.Add(dt2)<br /><br /> dt1.TableName = "lirhas"<br /> dt2.TableName = "lirhas2"<br /><br /> ds.Relations.Add(New DataRelation("a", ds.Tables("lirhas").Columns("notrans"), ds.Tables("lirhas2").Columns("notrans")))<br /><br /> bs1.DataSource = ds<br /> bs1.DataMember = "lirhas"<br /><br /> bs2.DataSource = bs1<br /> bs2.DataMember = "a"<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt1.Columns("notrans")<br /> dt1.PrimaryKey = dc<br /><br /> dgv146109044.DataSource = bs1<br /> DGV246109044.DataSource = bs2<br /> End SubMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-88591135824637029752012-02-06T03:09:20.178-08:002012-02-06T03:09:20.178-08:00Private Sub dgv_CellEndEdit(ByVal sender As Object...Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109044.CellEndEdit<br /> If DGV46109044.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /> 'If dgv.CurrentRow.Cells(0) = "KODEBARANG" Then (rumus lain)<br /><br /> 'untuk mencari nama barang<br /> DGV46109044.CurrentRow.Cells("NAMABARANG").Value = ""<br /> DGV46109044.CurrentRow.Cells("UNIT").Value = 0<br /> DGV46109044.CurrentRow.Cells("HARGA").Value = 0<br /> DGV46109044.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> syahril.AturPencarianDataBase("barang", "kodebarang", DGV46109044.CurrentRow.Cells("KODEBARANG").Value, 1, hma)<br /> If syahril.JumlanBaris > 0 Then '(menampilkan nama barang jika kolom kode barang ditemukan oleh proses di atas<br /> DGV46109044.CurrentRow.Cells("NAMABARANG").Value = syahril.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> DGV46109044.CurrentRow.Cells("NAMABARANG").Value = ""<br /> If Latihan_38_39_40_46109044.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> DGV46109044.CurrentRow.Cells("KODEBARANG").Value = Latihan_38_39_40_46109044.DGV46109044.CurrentRow.Cells("KODEBARANG").Value<br /> DGV46109044.CurrentRow.Cells("NAMABARANG").Value = Latihan_38_39_40_46109044.DGV46109044.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIf DGV46109044.Columns(e.ColumnIndex).Name = "UNIT" Or DGV46109044.Columns(e.ColumnIndex).Name = "HARGA" Then<br /> DGV46109044.CurrentRow.Cells("JUMLAH").Value = DGV46109044.CurrentRow.Cells("UNIT").Value * DGV46109044.CurrentRow.Cells("HARGA").Value<br /> syahril3()<br /> End If<br /> End Sub<br /><br /> Private Sub ee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109044.Click<br /> If ff.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /><br /> Private Sub dgv_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DGV46109044.DataError<br /> MsgBox("Terjadi sedikit kesalahan...")<br /> End Sub<br />End ClassMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-11773248287252685622012-02-06T03:08:49.332-08:002012-02-06T03:08:49.332-08:00Public Sub edit()
syahril4()
If NT...Public Sub edit()<br /> syahril4()<br /> If NT46109044.Text <> ff.Text Then<br /> syahril.AturPencarianDataBase("mastertransaksi", "notrans", NT46109044.Text, 1, hma)<br /> If syahril.JumlanBaris > 0 Then<br /> MsgBox("Adami Notrans seperti itu,,mohon ganti..")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & ff.Text & "'", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109044.Text & "',#" & T46109044.Value.Month & "/" & T46109044.Value.Day & "/" & T46109044.Value.Year & "#, '" & JT46109044.Text & "')", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & ff.Text & "'", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & NT46109044.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /> Next<br /> cm.Dispose()<br /><br /> NT46109044.Text = ""<br /> JT46109044.Text = ""<br /> TOT46109044.Text = ""<br /> ff.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Latihan_40A_46109044.syahril1()<br /> End Sub<br /><br /> Private Sub Latihan_40B_022_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> syahril2()<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt.Columns("kodebarang")<br /> dt.PrimaryKey = dc<br /><br /> dt.Columns("unit").DefaultValue = 0<br /> dt.Columns("harga").DefaultValue = 0<br /> dt.Columns("jumlah").DefaultValue = 0<br /><br /> DGV46109044.DataSource = dt<br /> End SubMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-11382426615925927342012-02-06T03:07:10.924-08:002012-02-06T03:07:10.924-08:00Public Class Latihan_40B_46109044
Dim hma As N...Public Class Latihan_40B_46109044<br /> Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")<br /> Dim dt As New DataTable<br /> Dim syahril As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /><br /> Public Sub syahril2()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & NT46109044.Text & "'", hma)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> End Sub<br /><br /> Public Sub syahril3()<br /> Dim total As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> total += x("Jumlah")<br /> Next<br /> TOT46109044.Text = total<br /> End Sub<br /><br /> Private Sub syahril4()<br /> If NT46109044.Text.Length = 0 Then<br /> MsgBox("Isi rong itu Notransnya..")<br /> Exit Sub<br /> End If<br /><br /> If JT46109044.Text.Length = 0 Then<br /> MsgBox("Isi rong itu Jenis Transaksinya..")<br /> Exit Sub<br /> End If<br /><br /> If dt.Rows.Count = 0 Then<br /> MsgBox("Isi rong itu datatable k..")<br /> Exit Sub<br /> End If<br /> End Sub<br /><br /> Private Sub tambah()<br /> syahril4()<br /> syahril.AturPencarianDataBase("mastertransaksi", "notrans", NT46109044.Text, 1, hma)<br /> If syahril.JumlanBaris > 0 Then<br /> MsgBox("Adami notrans seperti itu..")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109044.Text & "',#" & T46109044.Value.Month & "/" & T46109044.Value.Day & "/" & T46109044.Value.Year & "#, '" & JT46109044.Text & "')", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109044.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", hma)<br /> hma.Open()<br /> cm.ExecuteNonQuery()<br /> hma.Close()<br /> Next<br /> cm.Dispose()<br /><br /> NT46109044.Text = ""<br /> JT46109044.Text = ""<br /> TOT46109044.Text = ""<br /> ff.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Latihan_40A_46109044.syahril1()<br /> End SubMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-62475102876322942312012-02-03T18:33:02.097-08:002012-02-03T18:33:02.097-08:00Private Sub tambah()
diva4()
diva....Private Sub tambah()<br /> diva4()<br /> diva.AturPencarianDataBase("mastertransaksi", "notrans", nt46109043.Text, 1, fara)<br /> If diva.JumlanBaris > 0 Then<br /> MsgBox("Adami notrans seperti itu..")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109043.Text & "',#" & dtp46109043.Value.Month & "/" & dtp46109043.Value.Day & "/" & dtp46109043.Value.Year & "#, '" & jt46109043.Text & "')", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nt46109043.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nt46109043.Text = ""<br /> jt46109043.Text = ""<br /> Tot46109043.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Form40_A_46109043.diva1()<br /> End Sub<br /><br /> Public Sub edit()<br /> diva4()<br /> If nt46109043.Text <> StatusStrip1.Text Then<br /> diva.AturPencarianDataBase("mastertransaksi", "notrans", nt46109043.Text, 1, fara)<br /> If diva.JumlanBaris > 0 Then<br /> MsgBox("Adami Notrans seperti itu,,mohon ganti..")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & StatusStrip1.Text & "'", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109043.Text & "',#" & dtp46109043.Value.Month & "/" & dtp46109043.Value.Day & "/" & dtp46109043.Value.Year & "#, '" & jt46109043.Text & "')", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & StatusStrip1.Text & "'", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt46109043.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", fara)<br /> fara.Open()<br /> cm.ExecuteNonQuery()<br /> fara.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nt46109043.Text = ""<br /> jt46109043.Text = ""<br /> Tot46109043.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Form40_A_46109043.diva1()<br /> End SubAndi Faradivahttps://www.blogger.com/profile/13815617942405082573noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-63670212598499811712012-02-02T18:04:11.120-08:002012-02-02T18:04:11.120-08:00Private Sub dgv_CellEndEdit(ByVal sender As Object...Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46109015.CellEndEdit<br /> If dgv46109015.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /><br /><br /><br /> dgv46109015.CurrentRow.Cells("NAMABARANG").Value = ""<br /> dgv46109015.CurrentRow.Cells("UNIT").Value = 0<br /> dgv46109015.CurrentRow.Cells("HARGA").Value = 0<br /> dgv46109015.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> uni.AturPencarianDataBase("barang", "kodebarang", dgv46109015.CurrentRow.Cells("KODEBARANG").Value, 1, imah)<br /> If uni.JumlanBaris > 0 Then<br /> dgv46109015.CurrentRow.Cells("NAMABARANG").Value = uni.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> dgv46109015.CurrentRow.Cells("NAMABARANG").Value = ""<br /> If Latihan383940_46109015.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> dgv46109015.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109015.dgv46109015.CurrentRow.Cells("KODEBARANG").Value<br /> dgv46109015.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109015.dgv46109015.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIf dgv46109015.Columns(e.ColumnIndex).Name = "UNIT" Or dgv46109015.Columns(e.ColumnIndex).Name = "HARGA" Then<br /> dgv46109015.CurrentRow.Cells("JUMLAH").Value = dgv46109015.CurrentRow.Cells("UNIT").Value * dgv46109015.CurrentRow.Cells("HARGA").Value<br /> uni3()<br /> End If<br /> End Sub<br /><br /> Private Sub Simpan_46109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46109015.Click<br /> If StatusStrip1.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /><br /> Private Sub dgv46109015_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv46109015.DataError<br /> MsgBox("Terjadi sedikit kesalahan...")<br /> End Sub<br />End ClassQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-75002973389159820462012-02-02T18:03:19.298-08:002012-02-02T18:03:19.298-08:00Public Sub edit()
uni4()
If nt4610...Public Sub edit()<br /> uni4()<br /> If nt46109015.Text <> StatusStrip1.Text Then<br /> uni.AturPencarianDataBase("mastertransaksi", "notrans", nt46109015.Text, 1, imah)<br /> If uni.JumlanBaris > 0 Then<br /> MsgBox("Adami Notrans seperti itu,,mohon ganti..")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & StatusStrip1.Text & "'", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109015.Text & "',#" & tgl46109015.Value.Month & "/" & tgl46109015.Value.Day & "/" & tgl46109015.Value.Year & "#, '" & jt46109015.Text & "')", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & StatusStrip1.Text & "'", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt46109015.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nt46109015.Text = ""<br /> jt46109015.Text = ""<br /> Tot46109015.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Latihan040A_46109015.uni1()<br /> End Sub<br /><br /> Private Sub Latihan040B_46109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> uni2()<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt.Columns("kodebarang")<br /> dt.PrimaryKey = dc<br /><br /> dt.Columns("unit").DefaultValue = 0<br /> dt.Columns("harga").DefaultValue = 0<br /> dt.Columns("jumlah").DefaultValue = 0<br /><br /> dgv46109015.DataSource = dt<br /> End SubQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-91444889994875309632012-02-02T18:01:24.766-08:002012-02-02T18:01:24.766-08:00Public Class Latihan040B_46109015
Dim imah As ...Public Class Latihan040B_46109015<br /> Dim imah As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;jet OLEDB:database password=015")<br /> Dim dt As New DataTable<br /> Dim uni As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /><br /> Public Sub uni2()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & nt46109015.Text & "'", imah)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> End Sub<br /><br /> Public Sub uni3()<br /> Dim total As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> total += x("Jumlah")<br /> Next<br /> Tot46109015.Text = total<br /> End Sub<br /><br /> Private Sub uni4()<br /> If nt46109015.Text.Length = 0 Then<br /> MsgBox("Isi Notransnya..")<br /> Exit Sub<br /> End If<br /><br /> If jt46109015.Text.Length = 0 Then<br /> MsgBox("Isi Jenis Transaksinya..")<br /> Exit Sub<br /> End If<br /><br /> If dt.Rows.Count = 0 Then<br /> MsgBox("Isi datatable k..")<br /> Exit Sub<br /> End If<br /> End Sub<br /><br /> Private Sub tambah()<br /> uni4()<br /> uni.AturPencarianDataBase("mastertransaksi", "notrans", nt46109015.Text, 1, imah)<br /> If uni.JumlanBaris > 0 Then<br /> MsgBox("Adami notrans seperti itu..")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109015.Text & "',#" & tgl46109015.Value.Month & "/" & tgl46109015.Value.Day & "/" & tgl46109015.Value.Year & "#, '" & jt46109015.Text & "')", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nt46109015.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nt46109015.Text = ""<br /> jt46109015.Text = ""<br /> Tot46109015.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Latihan040A_46109015.uni1()<br /> End SubQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-81079311173317336072012-02-02T17:55:50.017-08:002012-02-02T17:55:50.017-08:00Public Class Latihan40A_46109015
Dim imah As N...Public Class Latihan40A_46109015<br /> Dim imah As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;jet OLEDB:database password=015")<br /> Dim dt1 As New DataTable<br /> Dim dt2 As New DataTable<br /> Dim ds As New DataSet<br /> Dim bs1 As New BindingSource<br /> Dim bs2 As New BindingSource<br /><br /> Public Sub uni1()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> dt2.Rows.Clear()<br /> dt1.Rows.Clear()<br /> a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", imah)<br /> a.Fill(dt1)<br /> a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.aidilt, detailtransaksi.harga, detailtransaksi.aidilt*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", imah)<br /> a.Fill(dt2)<br /> End Sub<br /><br /> Private Sub Latihan40A_46109015_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> uni1()<br /><br /> ds.Tables.Add(dt1)<br /> ds.Tables.Add(dt2)<br /><br /> dt1.TableName = "aidil"<br /> dt2.TableName = "aidil2"<br /><br /> ds.Relations.Add(New DataRelation("a", ds.Tables("aidil").Columns("notrans"), ds.Tables("uni").Columns("notrans")))<br /><br /> bs1.DataSource = ds<br /> bs1.DataMember = "aidil"<br /><br /> bs2.DataSource = bs1<br /> bs2.DataMember = "a"<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt1.Columns("notrans")<br /> dt1.PrimaryKey = dc<br /><br /> dgv1_46109015.DataSource = bs1<br /> dgv2_46109015.DataSource = bs2<br /> End Sub<br /><br /> Private Sub Button1_46109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109015.Click<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_46109015.CurrentRow.Cells("notrans").Value & "'", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_46109015.CurrentRow.Cells("notrans").Value & "'", imah)<br /> imah.Open()<br /> cm.ExecuteNonQuery()<br /> imah.Close()<br /> cm.Dispose()<br /> uni1()<br /> End Sub<br /><br /> Private Sub Button2_46109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_46109015.Click<br /> If Latihan040B_46109015.Visible = False Then<br /> Latihan040B_46109015.Show()<br /> Else<br /> Latihan040B_46109015.Activate()<br /> End If<br /><br /> Latihan040B_46109015.nt46109015.Text = ""<br /> Latihan040B_46109015.jt46109015.Text = ""<br /> Latihan040B_46109015.StatusStrip1.Text = "-"<br /><br /> Latihan040B_46109015.uni2()<br /> Latihan040B_46109015.uni3()<br /> End Sub<br /><br /> Private Sub Button3_46109015_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3_46109015.Click<br /> If Latihan040B_46109015.Visible = False Then<br /> Latihan040B_46109015.Show()<br /> Else<br /> Latihan040B_46109015.Activate()<br /> End If<br /><br /> Latihan040B_46109015.nt46109015.Text = dgv1_46109015.CurrentRow.Cells("notrans").Value<br /> Latihan040B_46109015.tgl46109015.Value = dgv1_46109015.CurrentRow.Cells("tanggaltransaksi").Value<br /> Latihan040B_46109015.jt46109015.Text = dgv1_46109015.CurrentRow.Cells("jenistransaksi").Value<br /> Latihan040B_46109015.StatusStrip1.Text = dgv1_46109015.CurrentRow.Cells("notrans").Value<br /><br /> Latihan040B_46109015.uni2()<br /> Latihan040B_46109015.uni3()<br /> End Sub<br />End ClassQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-85731377073275364552012-01-03T21:08:43.891-08:002012-01-03T21:08:43.891-08:00Public Class Form40_B_46109042
Dim batari As N...Public Class Form40_B_46109042<br /> Dim batari As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=8")<br /> Dim dt As New DataTable<br /> Dim novi As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /><br /> Public Sub novi2()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & nt46109042.Text & "'", batari)<br /> dt.Rows.Clear()<br /> a.Fill(dt)<br /> End Sub<br /><br /> Public Sub novi3()<br /> Dim total As Integer = 0<br /> For Each x As DataRow In dt.Rows<br /> total += x("Jumlah")<br /> Next<br /> Tot46109042.Text = total<br /> End Sub<br /><br /> Private Sub novi4()<br /> If nt46109042.Text.Length = 0 Then<br /> MsgBox("Isi Notransnya..")<br /> Exit Sub<br /> End If<br /><br /> If jt46109042.Text.Length = 0 Then<br /> MsgBox("Isi Jenis Transaksinya..")<br /> Exit Sub<br /> End If<br /><br /> If dt.Rows.Count = 0 Then<br /> MsgBox("Isi datatable k..")<br /> Exit Sub<br /> End If<br /> End Sub<br /><br /> Private Sub tambah()<br /> novi4()<br /> novi.AturPencarianDataBase("mastertransaksi", "notrans", nt46109042.Text, 1, batari)<br /> If novi.JumlanBaris > 0 Then<br /> MsgBox("Adami notrans seperti itu..")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt46109042.Text & "',#" & dtp46109042.Value.Month & "/" & dtp46109042.Value.Day & "/" & dtp46109042.Value.Year & "#, '" & jt46109042.Text & "')", batari)<br /> batari.Open()<br /> cm.ExecuteNonQuery()<br /> batari.Close()<br /><br /> For Each x As DataRow In dt.Rows<br /> cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & nt46109042.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", batari)<br /> batari.Open()<br /> cm.ExecuteNonQuery()<br /> batari.Close()<br /> Next<br /> cm.Dispose()<br /><br /> nt46109042.Text = ""<br /> jt46109042.Text = ""<br /> Tot46109042.Text = ""<br /> StatusStrip1.Text = "-"<br /><br /> dt.Rows.Clear()<br /> Form40_A_46109042.novi1()<br /> End SubAndi Novindra Batari, SSThttps://www.blogger.com/profile/17356575802115896094noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39577053808787839012012-01-03T21:05:00.701-08:002012-01-03T21:05:00.701-08:00Public Class Form40_A_46109042
Dim batari As N...Public Class Form40_A_46109042<br /> Dim batari As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=8")<br /><br /> Dim dt1 As New DataTable<br /> Dim dt2 As New DataTable<br /> Dim ds As New DataSet<br /> Dim bs1 As New BindingSource<br /> Dim bs2 As New BindingSource<br /><br /> Public Sub novi1()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> dt2.Rows.Clear()<br /> dt1.Rows.Clear()<br /> a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", batari)<br /> a.Fill(dt1)<br /> a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", batari)<br /> a.Fill(dt2)<br /> End Sub<br /><br /> Private Sub Form40_A_46109042_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> novi1()<br /><br /> ds.Tables.Add(dt1)<br /> ds.Tables.Add(dt2)<br /><br /> dt1.TableName = "novi"<br /> dt2.TableName = "novi2"<br /><br /> ds.Relations.Add(New DataRelation("a", ds.Tables("novi").Columns("notrans"), ds.Tables("novindra2").Columns("notrans")))<br /><br /> bs1.DataSource = ds<br /> bs1.DataMember = "novi"<br /><br /> bs2.DataSource = bs1<br /> bs2.DataMember = "a"<br /><br /> Dim dc(1) As DataColumn<br /> dc(0) = dt1.Columns("notrans")<br /> dt1.PrimaryKey = dc<br /><br /> dgv146109042.DataSource = bs1<br /> dgv246109042.DataSource = bs2<br /> End Sub<br /><br /> Private Sub Button146109042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button146109042.Click<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv146109042.CurrentRow.Cells("notrans").Value & "'", batari)<br /> batari.Open()<br /> cm.ExecuteNonQuery()<br /> batari.Close()<br /><br /> cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv146109042.CurrentRow.Cells("notrans").Value & "'", batari)<br /> batari.Open()<br /> cm.ExecuteNonQuery()<br /> batari.Close()<br /> cm.Dispose()<br /> novi1()<br /> End Sub<br /><br /> Private Sub Button246109042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button246109042.Click<br /> If Form40_B_46109042.Visible = False Then<br /> Form40_B_46109042.Show()<br /> Else<br /> Form40_B_46109042.Activate()<br /> End If<br /><br /> Form40_B_46109042.nt46109042.Text = ""<br /> Form40_B_46109042.jt46109042.Text = ""<br /> Form40_B_46109042.StatusStrip1.Text = "-"<br /><br /> Form40_B_46109042.novi2()<br /> Form40_B_46109042.novi3()<br /> End Sub<br /><br /> Private Sub Button346109042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button346109042.Click<br /> If Form40_B_46109042.Visible = False Then<br /> Form40_B_46109042.Show()<br /> Else<br /> Form40_B_46109042.Activate()<br /> End If<br /><br /> Form40_B_46109042.nt46109042.Text = dgv146109042.CurrentRow.Cells("notrans").Value<br /> Form40_B_46109042.dtp46109042.Value = dgv146109042.CurrentRow.Cells("tanggaltransaksi").Value<br /> Form40_B_46109042.jt46109042.Text = dgv146109042.CurrentRow.Cells("jenistransaksi").Value<br /> Form40_B_46109042.StatusStrip1.Text = dgv146109042.CurrentRow.Cells("notrans").Value<br /><br /> Form40_B_46109042.novi2()<br /> Form40_B_46109042.novi3()<br /> End Sub<br />End ClassAndi Novindra Batari, SSThttps://www.blogger.com/profile/17356575802115896094noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68694375887664135122011-12-20T19:41:55.198-08:002011-12-20T19:41:55.198-08:00Lanjutannya....
Private Sub Button1_edit()
...Lanjutannya....<br /><br /><br />Private Sub Button1_edit()<br /> If NT46109020.Text.Length = 0 Then<br /> MsgBox("Maaf, Nomor transaksi harus diisi dulu")<br /> Exit Sub<br /> End If<br /><br /> If JT46109020.Text.Length = 0 Then<br /> MsgBox("Maaf, Jenis transaksi harus diisi dulu")<br /> Exit Sub<br /> End If<br /><br /> If DATA.Rows.Count() = 0 Then<br /> MsgBox("Maaf, Proses tidak dapat dilanjutkan")<br /> Exit Sub<br /> End If<br /><br /> If StatusStrip1.Text <> NT46109020.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT46109020.Text, 1, HUBUNG)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Nomor transaksi sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim T As New OleDb.OleDbCommand<br /> T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NT46109020.Text & "'", HUBUNG)<br /> HUBUNG.Open()<br /> T.ExecuteNonQuery()<br /> HUBUNG.Close()<br /><br /> T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT46109020.Text & "', #" & DT46109020.Value.Month & "/" & DT46109020.Value.Day & "/" & DT46109020.Value.Year & "#, '" & JT46109020.Text & "')", HUBUNG)<br /> HUBUNG.Open()<br /> T.ExecuteNonQuery()<br /> HUBUNG.Close()<br /><br /> T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NT46109020.Text & "'", HUBUNG)<br /> HUBUNG.Open()<br /> T.ExecuteNonQuery()<br /> HUBUNG.Close()<br /><br /><br /> For Each XX As DataRow In DATA.Rows<br /><br /> T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT46109020.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", HUBUNG)<br /> HUBUNG.Open()<br /> T.ExecuteNonQuery()<br /> HUBUNG.Close()<br /> T.Dispose()<br /> Next<br /><br /> StatusStrip1.Text = "-"<br /> NT46109020.Text = ""<br /> JT46109020.Text = ""<br /><br /> DATA.Rows.Clear()<br /><br /> TOTALJUMLAH()<br /> LATIHAN040A_46109020.hardiyanti()<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46109020.Click<br /> If StatusStrip1.Text = "-" Then<br /> Button1_Button2()<br /> Else<br /> Button1_edit()<br /> End If<br /> End Sub<br />End ClassMentari Hardiyantihttps://www.blogger.com/profile/17162962071772622111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-9871192390214139462011-12-20T19:41:03.216-08:002011-12-20T19:41:03.216-08:00Private Sub Button1_Button2()
If NT4610902...Private Sub Button1_Button2()<br /> If NT46109020.Text.Length = 0 Then<br /> MsgBox("Maaf, Nomor transaksi harus diisi dulu")<br /> Exit Sub<br /> End If<br /><br /> If JT46109020.Text.Length = 0 Then<br /> MsgBox("Maaf, Jenis transaksi harus diisi dulu")<br /> Exit Sub<br /> End If<br /><br /> If DATA.Rows.Count() = 0 Then<br /> MsgBox("Maaf, Proses tidak dapat dilanjutkan")<br /> Exit Sub<br /> End If<br /><br /> If StatusStrip1.Text <> NT46109020.Text Then<br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT46109020.Text, 1, HUBUNG)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("Nomor transaksi sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim T As New OleDb.OleDbCommand<br /> T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT46109020.Text & "', #" & DT46109020.Value.Month & "/" & DT46109020.Value.Day & "/" & DT46109020.Value.Year & "#, '" & JT46109020.Text & "')", HUBUNG)<br /><br /> HUBUNG.Open()<br /><br /> T.ExecuteNonQuery()<br /><br /> HUBUNG.Close()<br /><br /><br /> For Each X As DataRow In DATA.Rows<br /><br /> T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT46109020.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", HUBUNG)<br /> HUBUNG.Open()<br /> T.ExecuteNonQuery()<br /> HUBUNG.Close()<br /> T.Dispose()<br /> Next<br /><br /> StatusStrip1.Text = "-"<br /> NT46109020.Text = ""<br /> JT46109020.Text = ""<br /><br /> DATA.Rows.Clear()<br /><br /> TOTALJUMLAH()<br /><br /> LATIHAN040A_46109020.hardiyanti()<br /><br /> End SubMentari Hardiyantihttps://www.blogger.com/profile/17162962071772622111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-19348537686609936882011-12-20T19:39:36.341-08:002011-12-20T19:39:36.341-08:00Untuk Latihan40B....
Public Class LATIHAN040B_46...Untuk Latihan40B....<br /><br /><br />Public Class LATIHAN040B_46109020<br /> Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=46")<br /> Dim DATA As New DataTable<br /> Public Sub somsek()<br /> Dim adapter As New OleDb.OleDbDataAdapter<br /> adapter = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NT46109020.Text & "'", HUBUNG)<br /> DATA.Rows.Clear()<br /> adapter.Fill(DATA)<br /> End Sub<br /> Private Sub LATIHAN040B_46109020_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim dataPrimary(1) As DataColumn<br /> dataPrimary(0) = DATA.Columns("NOTRANS")<br /> DATA.PrimaryKey = dataPrimary<br /><br /> DGV46109020.DataSource = DATA<br /><br /> TOTALJUMLAH()<br /> End Sub<br /> Public Sub TOTALJUMLAH()<br /> Dim TOT As Double = 0<br /> For Each x As DataRow In DATA.Rows<br /> TOT = TOT + x("JUMLAH")<br /> Next<br /> TOT46109020.Text = TOT<br /> End Sub<br /> Private Sub DGV46109020_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV46109020.CellContentClick<br /> If DGV46109020.Columns(e.ColumnIndex).Name = "KODEBARANG" Then<br /><br /> DGV46109020.CurrentRow.Cells("NAMABARANG").Value = ""<br /> DGV46109020.CurrentRow.Cells("UNIT").Value = 0<br /> DGV46109020.CurrentRow.Cells("HARGA").Value = 0<br /> DGV46109020.CurrentRow.Cells("JUMLAH").Value = 0<br /><br /> Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV46109020.CurrentRow.Cells("KODEBARANG").Value, 1, HUBUNG)<br /><br /> If Pencari.JumlanBaris > 0 Then<br /> DGV46109020.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")<br /> Else<br /> DGV46109020.CurrentRow.Cells("KODEBARANG").Value = ""<br /> If Latihan383940_46109020.ShowDialog = Windows.Forms.DialogResult.OK Then<br /> DGV46109020.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109020.DGV46109020.CurrentRow.Cells("KODEBARANG").Value<br /> DGV46109020.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109020.DGV46109020.CurrentRow.Cells("NAMABARANG").Value<br /> End If<br /> End If<br /><br /> ElseIf DGV46109020.Columns(e.ColumnIndex).Name = "UNIT" Or DGV46109020.Columns(e.ColumnIndex).Name = "HARGA" Then<br /><br /> DGV46109020.CurrentRow.Cells("JUMLAH").Value = DGV46109020.CurrentRow.Cells("UNIT").Value * DGV46109020.CurrentRow.Cells("HARGA").Value<br /> End If<br /><br /> TOTALJUMLAH()<br /> End SubMentari Hardiyantihttps://www.blogger.com/profile/17162962071772622111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-57405635163935414352011-12-20T19:36:41.340-08:002011-12-20T19:36:41.340-08:00Lanjutannya....
Private Sub HAPUS46109020_Click...Lanjutannya....<br /><br /><br /><br />Private Sub HAPUS46109020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS46109020.Click<br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DGV46109020.CurrentRow.Cells("NOTRANS").Value & "'", HUBUNG)<br /> HUBUNG.Open()<br /> com.ExecuteNonQuery()<br /> HUBUNG.Close()<br /><br /> com = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DGV46109020.CurrentRow.Cells("NOTRANS").Value & "'", HUBUNG)<br /> HUBUNG.Open()<br /> com.ExecuteNonQuery()<br /> HUBUNG.Close()<br /><br /> com.Dispose()<br /><br /> hardiyanti()<br /> End Sub<br /><br /> Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46109020.Click<br /> If LATIHAN040B_46109020.Visible = False Then<br /> LATIHAN040B_46109020.Show()<br /> Else<br /> LATIHAN040B_46109020.Activate()<br /> End If<br /><br /> LATIHAN040B_46109020.StatusStrip1.Text = DGV246109020.CurrentRow.Cells("NOTRANS").Value<br /> LATIHAN040B_46109020.NT46109020.Text = DGV246109020.CurrentRow.Cells("NOTRANS").Value<br /> LATIHAN040B_46109020.JT46109020.Text = DGV246109020.CurrentRow.Cells("JENISTRANSAKSI").Value<br /><br /> LATIHAN040B_46109020.somsek()<br /> LATIHAN040B_46109020.TOTALJUMLAH()<br /> End Sub<br /><br /> Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH46109020.Click<br /> If LATIHAN040B_46109020.Visible = False Then<br /> LATIHAN040B_46109020.Show()<br /> Else<br /> LATIHAN040B_46109020.Activate()<br /> End If<br /><br /> LATIHAN040B_46109020.StatusStrip1.Text = "-"<br /> LATIHAN040B_46109020.NT46109020.Text = ""<br /> LATIHAN040B_46109020.JT46109020.Text = ""<br /><br /> LATIHAN040B_46109020.somsek()<br /> LATIHAN040B_46109020.TOTALJUMLAH()<br /> End Sub<br />End ClassMentari Hardiyantihttps://www.blogger.com/profile/17162962071772622111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-5649208475536232972011-12-20T19:35:49.678-08:002011-12-20T19:35:49.678-08:00Public Class LATIHAN040A_46109020
Dim HUBUNG A...Public Class LATIHAN040A_46109020<br /> Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=46")<br /> Dim TARI1 As New DataTable<br /> Dim TARI2 As New DataTable<br /> Dim DS As New DataSet<br /> Dim BS1 As New BindingSource<br /> Dim BS2 As New BindingSource<br /> Public Sub hardiyanti()<br /><br /> TARI1.Rows.Clear()<br /> TARI2.Rows.Clear()<br /><br /> Dim adapter As New OleDb.OleDbDataAdapter<br /> adapter = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", HUBUNG)<br /> adapter.Fill(TARI1)<br /><br /> adapter = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", HUBUNG)<br /> adapter.Fill(TARI2)<br /><br /> adapter.Dispose()<br /> End Sub<br /> Private Sub LATIHAN040A_46109020_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> hardiyanti()<br /><br /><br /> DS.Tables.Add(TARI1)<br /> DS.Tables.Add(TARI2)<br /><br /><br /> TARI1.TableName = "T1"<br /> TARI2.TableName = "T2"<br /><br /><br /> DS.Relations.Add(New DataRelation("X", DS.Tables("T1").Columns("NOTRANS"), DS.Tables("T2").Columns("NOTRANS")))<br /><br /><br /> BS1.DataSource = DS<br /> BS1.DataMember = "T1"<br /> BS2.DataSource = BS1<br /> BS2.DataMember = "X"<br /><br /><br /> DGV46109020.DataSource = BS1<br /> DGV246109020.DataSource = BS2<br /><br /> End SubMentari Hardiyantihttps://www.blogger.com/profile/17162962071772622111noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-73140211733640546962011-12-18T06:56:22.535-08:002011-12-18T06:56:22.535-08:00Private Sub Button1_Click(ByVal sender As System.O...Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />Dim T As New OleDb.OleDbCommand<br />T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & dgv146109052.CurrentRow.Cells("NOTRANS").Value & "'", Vero)<br />Vero.Open()<br />T.ExecuteNonQuery()<br />Vero.Close()<br /><br />T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & dgv146109052.CurrentRow.Cells("NOTRANS").Value & "'", Vero)<br />Vero.Open()<br />T.ExecuteNonQuery()<br />Vero.Close()<br /><br />T.Dispose()<br /><br />nika()<br />End Sub<br />Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br />If Latihan40B46109052.Visible = False Then<br />Latihan40B46109052.Show()<br />Else<br />Latihan40B46109052.Activate()<br />End If<br /><br />Latihan40B46109052.StatusStrip1.Text = dgv146109052.CurrentRow.Cells("NOTRANS").Value<br />Latihan40B46109052.nt46109052.Text = dgv146109052.CurrentRow.Cells("NOTRANS").Value<br />Latihan40B46109052.jt46109052.Text = dgv146109052.CurrentRow.Cells("JENISTRANSAKSI").Value<br /><br />Latihan40B46109052.faster()<br />Latihan40B46109052.TOTALJUMLAH()<br />End Sub<br /><br />Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />If Latihan40B46109052.Visible = False Then<br />Latihan40B46109052.Show()<br />Else<br />Latihan40B46109052.Activate()<br />End If<br /><br />Latihan40B46109052.StatusStrip1.Text = "-"<br />Latihan40B46109052.nt46109052.Text = ""<br />Latihan40B46109052.jt46109052.Text = ""<br /><br />Latihan40B46109052.faster()<br />Latihan40B46109052.TOTALJUMLAH()<br /><br />End Sub<br />End Classvesadekahttps://www.blogger.com/profile/08263992576077034177noreply@blogger.com