Latihan 36

Public






a =
a.Fill(dt)
a.Dispose()
dgv.DataSource = dt

dc(0) = dt.Columns(
dt.PrimaryKey = dc
Class Latihan_36_261_09007Dim dt As New DataTableDim riri As New OleDb.OleDbCommandDim febri As New ByIskandar.CariKeDataBaseByIskandarDim surya As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")Private Sub Latihan_36_261_09007_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim a As New OleDb.OleDbDataAdapterNew OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & txt136109007.Text & "'", surya)Dim dc(1) As DataColumn"kodebarang")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(txt436109007.Text) = 0 ThenMsgBox(
"Isi rong itu Unit na..")Exit SubEnd IfIf Val(txt536109007.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(
dt.Rows.Add(dr)
txt336109007.Text = "KODEBARANG") = txt336109007.Text"UNIT") = txt436109007.Text"HARGA") = txt536109007.Text""txt436109007.Text = ""txt536109007.Text = ""ElseMsgBox(
"Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")End IfEnd 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, surya)If febri.JumlanBaris > 0 ThenMsgBox(
"Adami notrans seperti itu")Exit SubEnd Ifriri =
surya.Open()
riri.ExecuteNonQuery()
surya.Close()

riri =
surya.Open()
riri.ExecuteNonQuery()
surya.Close()
New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txt136109007.Text & "',#" & dtp36109007.Value.Month & "/" & dtp36109007.Value.Day & "/" & dtp36109007.Value.Year & "#,'" & dtp36109007.Text & "')", surya)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") & "')", surya)Nextriri.Dispose()
txt136109007.Text = ""txt236109007.Text = ""dt.Rows.Clear()

EndEnd Sub Class