Latihan 37

Public






a =
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

dc(0) = dt.Columns(
dt.PrimaryKey = dc
dgv.DataSource = dt
Class Latihan_37_36109007Dim dt As New DataTableDim cm As New OleDb.OleDbCommandDim febri As New ByIskandar.CariKeDataBaseByIskandarDim riri As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")Private Sub Latihan_37_36109007_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim a As New OleDb.OleDbDataAdapterNew 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 ='" & txt136109007.Text & "'", riri)Dim dc(1) As DataColumn"kodebarang")End Sub


surya1 += surya2(
Private Sub surya()Dim surya1 As Integer = 0For Each surya2 As DataRow In dt.Rows"JUMLAH")Nexttxt836109007.Text = surya1
End Sub
txt736109007.Text = Val(txt536109007.Text) * Val(txt636109007.Text)
Private Sub txt536109007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt536109007.TextChangedEnd Sub
Private Sub txt336109007_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt336109007.TextChangedIf txt336109007.Text.Length = 0 ThenExit SubEnd Iffebri.AturPencarianDataBase(
"barang", "kodebarang", txt336109007.Text, 1, riri)If febri.JumlanBaris > 0 Thentxt336109007.Text = febri.DataTablenya.Rows(0).Item(
txt436109007.Text = febri.DataTablenya.Rows(0).Item(
"KODEBARANG")"NAMABARANG")ElseMsgBox(
"Kode barang itu tidak ada..")Exit SubEnd IfEnd Sub
txt436109007.Text = Private Sub txt336109007_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd.TextChanged""txt536109007.Text = ""txt536109007.Text = ""End Sub
Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.ClickIf txt336109007.Text.Length = 0 ThenMsgBox(
"Isi rong itu Kode Barang na..")Exit SubEnd IfIf Val(txt536109007.Text) = 0 ThenMsgBox(
"Isi rong itu Unit na..")Exit SubEnd IfIf Val(txt636109007.Text) = 0 ThenMsgBox(
"Isi rong itu Harga na..")Exit SubEnd If
dr = dt.Rows.Find(txt336109007.Text)
Dim dr As DataRowIf dr Is Nothing Thendr = dt.NewRow
dr(
dr(
dr(
dr(
dr(
dt.Rows.Add(dr)
txt336109007.Text = "KODEBARANG") = txt336109007.Text"NAMABARANG") = txt436109007.Text"UNIT") = Val(txt536109007.Text)"HARGA") = Val(txt636109007.Text)"JUMLAH") = Val(txt736109007.Text)""txt436109007.Text = ""txt636109007.Text = ""ElseMsgBox(
"Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")End Ifsurya()
End Sub
Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.ClickIf txt136109007.Text.Length = 0 ThenMsgBox(
"Isi rong No Transaksi na..")Exit SubEnd IfIf txt236109007.Text.Length = 0 ThenMsgBox(
"isi rong Jenis Transaksi na..")Exit SubEnd IfIf dt.Rows.Count = 0 ThenMsgBox(
"Maaf..Isi rong itu datatable na..")Exit SubEnd Iffebri.AturPencarianDataBase(
"mastertransaksi", "notrans", txt136109007.Text, 1, riri)If febri.JumlanBaris > 0 ThenMsgBox(
"Adami no trans seperti itu...")Exit SubEnd Ifcm =
riri.Open()
cm.ExecuteNonQuery()
riri.Close()

cm =
riri.Open()
cm.ExecuteNonQuery()
riri.Close()
New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txt136109007.Text & "',#" & dtp.Value.Month & "/" & dtp.Value.Day & "/" & dtp.Value.Year & "#,'" & txt336109007.Text & "')", riri)For Each x As DataRow In dt.RowsNew OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & txt136109007.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", riri)Nextcm.Dispose()
txt136109007.Text = ""txt236109007.Text = ""dt.Rows.Clear()
surya()

EndEnd Sub Class