Jumat, 18 November 2011

Latihan 36 APKOM 4 D3B

47 komentar:

  1. Public Class LATIHAN_036_36109056
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2422")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim biya As New OleDb.OleDbDataAdapter
    biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109056.Text & "'", CONECT)
    DT.Rows.Clear()
    biya.Fill(DT)
    DataGridView1.DataSource = DT

    biya.Dispose()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kb_36109056.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un_36109056.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr_36109056.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim bie As DataRow

    bie = DT.NewRow
    bie("KODEBARANG") = kb_36109056.Text
    bie("UNIT") = un_36109056.Text
    bie("HARGA") = hr_36109056.Text

    DT.Rows.Add(bie)


    kb_36109056.Text = ""
    un_36109056.Text = ""
    hr_36109056.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1_36109056.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox2_36109056.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109056.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109056.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109056.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109056.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox1_36109056.Text = ""
    TextBox2_36109056.Text = ""

    End Sub
    End Class

    BalasHapus
  2. Public Class LATIHAN03636109033
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=tahir")
    Dim Data As New DataTable
    Dim browse As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN03636109033_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim tiwi As New OleDb.OleDbDataAdapter
    tiwi = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109033.Text & "'", CONECT)
    Data.Rows.Clear()
    tiwi.Fill(Data)
    DataGridView1.DataSource = Data

    tiwi.Dispose()

    End Sub

    Private Sub Button136109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109033.Click
    If kb36109033.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un36109033.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr36109033.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim pratiwi As DataRow

    pratiwi = Data.NewRow
    pratiwi("KODEBARANG") = kb36109033.Text
    pratiwi("UNIT") = un36109033.Text
    pratiwi("HARGA") = hr36109033.Text

    Data.Rows.Add(pratiwi)


    kb36109033.Text = ""
    un36109033.Text = ""
    hr36109033.Text = ""


    End Sub

    Private Sub Button236109033_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109033.Click
    If TextBox136109033.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox236109033.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    browse.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109033.Text, 1, CONECT)

    If browse.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If Data.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109033.Text & "',#" & DateTimePicker136109033.Value.Date & "#," & Val(TextBox236109033.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each t As DataRow In Data.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109033.Text & "','" & t("kodebarang") & "'," & t("unit") & "," & t("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    Data.Rows.Clear()

    TextBox136109033.Text = ""
    TextBox236109033.Text = ""

    End Sub
    End Class

    BalasHapus
  3. Public Class Latihan_036_36109045
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=florista")
    'deklarasi data tabel
    Dim DT As New DataTable
    Dim kolom(3) As DataColumn
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109045.Click
    kolom(0) = DT.Columns("kodebarang")
    DT.PrimaryKey = kolom
    Dim drzany As DataRow
    drzany = DT.Rows.Find(kb_36109045.Text)
    If drzany Is Nothing Then
    drzany = DT.NewRow ' menambah baris
    drzany("KODEBARANG") = kb_36109045.Text
    drzany("UNIT") = un_36109045.Text
    drzany("HARGA") = hr_36109045.Text

    DT.Rows.Add(drzany)

    BalasHapus
  4. Else
    MsgBox("baris sudah ada")
    kb_36109045.Text = ""
    End If
    If kb_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If Val(kb_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("UNIT belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If Val(hr_36109045.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("HARGA belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If
    kb_36109045.Text = ""
    un_36109045.Text = ""
    hr_36109045.Text = ""
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109045.Click
    If TextBox1_36109045.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If


    If TextBox2_36109045.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("jenis transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If
    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109045.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109045.Text & "',#" & DateTimePicker136109045.Value.Date & "#,'" & TextBox2_36109045.Text & "')", CONECT)
    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109045.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox1_36109045.Text = ""
    TextBox2_36109045.Text = ""

    End Sub
    Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim syasa As New OleDb.OleDbDataAdapter
    syasa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109045.Text & "'", CONECT)
    DT.Rows.Clear() 'membersihkan data table
    syasa.Fill(DT) 'mengisi database ke dlm data table
    DataGridView1.DataSource = DT
    syasa.Dispose()

    End Sub
    End Class

    BalasHapus
  5. Public Class LATIHAN36035
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Private Sub LATIHAN36035_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'mendeklarasikan kendaraan
    Dim bojel As New OleDb.OleDbDataAdapter

    'Mengatur data yang akan di angkut
    bojel = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & TextBox1035.Text & "'", Jalan)

    'bersihkan data
    gitik.Rows.Clear()

    'untuk memasukkan data yg telah di angkut ke dalam datatable
    bojel.Fill(gitik)

    'untuk menampilkan isi datatable ke data grid view
    bojel.Dispose()
    DataGridView1035.DataSource = gitik

    'perintah primarykey
    Dim kabotcibay(2) As DataColumn
    kabotcibay(0) = gitik.Columns("Kodebarang")
    gitik.PrimaryKey = kabotcibay


    End Sub

    Private Sub Button1035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1035.Click
    'Memeriksa isi textbox
    If kb035.Text.Length = 0 Then
    MsgBox("Please, insert the code of goods")
    Exit Sub
    End If

    If un035.Text.Length = 0 Then
    MsgBox("Please, insert the unit of goods")
    Exit Sub
    End If

    If hr035.Text.Length = 0 Then
    MsgBox("Please, insert the cost of goods")
    Exit Sub
    End If

    'perintah pencarian data
    Dim drlebay As DataRow
    drlebay = gitik.Rows.Find(kb035.Text)
    If Not drlebay Is Nothing Then
    MsgBox("Sorry, the data has been exist!!! Please insert new data")
    Exit Sub
    End If

    'penyimpanan data ke datatable
    gitik.Rows.Add(kb035.Text, Val(un035.Text), Val(hr035.Text))

    'mengosongkan textbox
    kb035.Text = ""
    un035.Text = ""
    hr035.Text = ""
    End Sub

    BalasHapus
  6. Public Class Form3636109040
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=150991")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN036012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim biya As New OleDb.OleDbDataAdapter
    biya = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb_36109040.Text & "'", CONECT)
    DT.Rows.Clear()
    mita.Fill(DT)
    DataGridView1.DataSource = DT

    mita.Dispose()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kb_36109040.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un_36109040.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr_36109040.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim mieta As DataRow

    mieta = DT.NewRow
    mieta("KODEBARANG") = kb_36109040.Text
    mieta("UNIT") = un_36109040.Text
    mieta("HARGA") = hr_36109040.Text

    DT.Rows.Add(mieta)


    kb_36109040.Text = ""
    un_36109040.Text = ""
    hr_36109040.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1_36109040.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox2_36109040.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109040.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109040.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109040.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109040.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox1_36109040.Text = ""
    TextBox2_36109040.Text = ""

    End Sub
    End Class

    BalasHapus
  7. Private Sub Button2035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2035.Click
    'Memeriksa isi textbox
    If TextBox1035.Text.Length = 0 Then
    MsgBox("Please, insert the Number of the transaction")
    Exit Sub
    End If

    If TextBox2035.Text.Length = 0 Then
    MsgBox("Please, insert the type of the transaction")
    Exit Sub
    End If

    If gitik.Rows.Count = 0 Then
    MsgBox("the data is none")
    Exit Sub
    End If

    'Memeriksa nomor transaksi pd master transaksi
    Dim search As New ByIskandar.CariKeDataBaseByIskandar
    search.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1035.Text, 1, Jalan)
    If search.JumlanBaris > 0 Then
    MsgBox("the code has been exist")
    Exit Sub
    End If

    'Proses Penyimpanan ke tabel master transaksi
    Dim kacci As New OleDb.OleDbCommand
    kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & TextBox1035.Text & "',#" & DateTimePicker1035.Value.Month & "/" & DateTimePicker1035.Value.Day & "/" & DateTimePicker1035.Value.Year & "#,'" & TextBox2035.Text & "')", Jalan)
    Jalan.Open()
    kacci.ExecuteNonQuery()
    Jalan.Close()

    'penyimpanan isi datatable ke detail transaksi
    For Each nhana As DataRow In gitik.Rows
    kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & TextBox1035.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)
    Jalan.Open()
    kacci.ExecuteNonQuery()
    Jalan.Close()

    Next
    kacci.Dispose()

    'Mengosongkan isi text box
    TextBox1035.Text = ""
    TextBox2035.Text = ""

    'Mengosongkan baris datatable
    gitik.Rows.Clear()

    'menutup form
    Me.Close()

    End Sub
    End Class

    BalasHapus
  8. Public Class LATIHAN036_36109049
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=wirda")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN036_36109049_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wirda As New OleDb.OleDbDataAdapter
    wirda = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & Kb_36109049.Text & "'", CONECT)
    DT.Rows.Clear()
    wirda.Fill(DT)
    DataGridView1.DataSource = DT

    wirda.Dispose()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Kb_36109049.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN_36109049.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(HR_36109049.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim bie As DataRow

    bie = DT.NewRow
    bie("KODEBARANG") = Kb_36109049.Text
    bie("UNIT") = UN_36109049.Text
    bie("HARGA") = HR_36109049.Text

    DT.Rows.Add(bie)


    Kb_36109049.Text = ""
    UN_36109049.Text = ""
    HR_36109049.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1_36109049.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If

    BalasHapus
  9. Lanjutan 36

    If TextBox2_36109049.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1_36109049.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1_36109049.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2_36109049.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1_36109049.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox1_36109049.Text = ""
    TextBox2_36109049.Text = ""

    End Sub
    End Class

    BalasHapus
  10. Public Class LATIHAN03636109038
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=icha")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar


    Private Sub LATIHAN03636109038_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim Azizah As New OleDb.OleDbDataAdapter
    Azizah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109038.Text & "'", CONECT)
    DT.Rows.Clear()
    Azizah.Fill(DT)

    Azizah.Dispose()

    Dim dcp(1) As DataColumn
    dcp(0) = DT.Columns("kodebarang")
    DT.PrimaryKey = dcp

    DataGridView136109038.DataSource = DT
    End Sub


    Private Sub Button136109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button136109038.Click
    If KB36109038.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN36109038.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(HR36109038.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim Reza As DataRow
    Reza = DT.Rows.Find(KB36109038.Text)
    If Reza Is Nothing Then

    Reza = DT.NewRow ' menambah baris
    Reza("kodebarang") = KB36109038.Text
    Reza("unit") = UN36109038.Text
    Reza("harga") = HR36109038.Text
    DT.Rows.Add(Reza)
    Else
    MsgBox("KODE BARANG sudah ada")
    End If

    KB36109038.Text = ""
    UN36109038.Text = ""
    HR36109038.Text = ""
    End Sub


    Private Sub Button236109038_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button236109038.Click
    If TextBox136109038.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox236109038.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109038.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109038.Text & "',#" & DateTimePicker136109038.Value.Date & "#," & Val(TextBox236109038.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows
    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109038.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    com.Dispose()

    Next

    TextBox136109038.Text = ""
    TextBox236109038.Text = ""
    DT.Rows.Clear()

    End Sub
    End Class

    BalasHapus
  11. Public Class LATIHAN03636109032

    Dim sambung As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=jayapura")
    Dim toshiba As New DataTable
    Dim nokia As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN03636109032_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim laptop As New OleDb.OleDbDataAdapter
    laptop = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", sambung)
    toshiba.Rows.Clear()
    laptop.Fill(toshiba)
    DataGridView1.DataSource = toshiba

    laptop.Dispose()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If KB.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(HR.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim key As DataRow

    key = toshiba.NewRow
    key("KODEBARANG") = KB.Text
    key("UNIT") = UN.Text
    key("HARGA") = HR.Text

    toshiba.Rows.Add(key)


    KB.Text = ""
    UN.Text = ""
    HR.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox2.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    nokia.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, sambung)

    If nokia.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If toshiba.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", sambung)

    sambung.Open()
    com.ExecuteNonQuery()
    sambung.Close()

    For Each r As DataRow In toshiba.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", sambung)

    sambung.Open()
    com.ExecuteNonQuery()
    sambung.Close()
    com.Dispose()

    Next

    toshiba.Rows.Clear()

    TextBox1.Text = ""
    TextBox2.Text = ""

    End Sub
    End Class

    BalasHapus
  12. Public Class LATIHAN036041
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb; Jet OLEDB:Database Password=12")

    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB36109041.Text & "'", CONECT)

    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView136109041.DataSource = DT
    nisa.Dispose()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109041.Click

    If KB36109041.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN36109041.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(HR36109041.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim kolom(1) As DataColumn
    kolom(0) = DT.Columns("kodebarang")
    DT.PrimaryKey = kolom
    Dim drzany As DataRow

    drzany = DT.Rows.Find(kb36109041.Text)

    If drzany Is Nothing Then
    drzany = DT.NewRow
    drzany("KODEBARANG") = kb36109041.Text
    drzany("UNIT") = un36109041.Text
    drzany("HARGA") = hr36109041.Text

    DT.Rows.Add(drzany)


    kb36109041.Text = ""
    un36109041.Text = ""
    hr36109041.Text = ""

    Else : MsgBox("baris sudah ada")
    kb36109041.Text = ""
    End If

    KB36109041.Text = ""
    UN36109041.Text = ""
    HR36109041.Text = ""
    End Sub

    BalasHapus
  13. lanjutan 36
    Private Sub Button236109041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109041.Click

    If TextBox136109041.Text.Length = 0 Then MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox236109041.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If

    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109041.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109041.Text & "',#" & DateTimePicker1.Value.Date & "#,'" & TextBox236109041.Text & "')", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109041.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next
    DT.Rows.Clear()

    TextBox136109041.Text = ""
    TextBox236109041.Text = ""

    End Sub
    End Class

    BalasHapus
  14. Public Class LATIHAN_3636109055
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=2312")
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN_3636109055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim falah As New OleDb.OleDbDataAdapter
    falah = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109055.Text & "'", CONECT)
    DT.Rows.Clear()
    falah.Fill(DT)
    DataGridView136109055.DataSource = DT

    falah.Dispose()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kb36109055.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un36109055.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr36109055.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If

    BalasHapus
  15. lanjutan

    Dim dr As DataRow

    dr = DT.NewRow
    dr("KODEBARANG") = kb36109055.Text
    dr("UNIT") = un36109055.Text
    dr("HARGA") = hr36109055.Text

    DT.Rows.Add(dr)


    kb36109055.Text = ""
    un36109055.Text = ""
    hr36109055.Text = ""


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox136109055.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox236109055.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109055.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109055.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109055.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109055.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox136109055.Text = ""
    TextBox236109055.Text = ""

    End Sub
    End Class

    BalasHapus
  16. part 1
    Public Class LATIHAN036036109054

    'DEKLARASI CONECTION
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\berbagi\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb;Jet OLEDB:Database Password=salam")
    'deklarasi data tabel
    Dim DT As New DataTable
    Dim kolom(3) As DataColumn
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar


    Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim wawan As New OleDb.OleDbDataAdapter
    wawan = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109054.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data table
    wawan.Fill(DT) 'mengisi database ke dlm data table
    DGV136109054.DataSource = DT 'memunculkan dlm datagridview

    wawan.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109054.Click
    kolom(0) = DT.Columns("kodebarang")
    DT.PrimaryKey = kolom
    Dim drzany As DataRow
    drzany = DT.Rows.Find(kb36109054.Text)
    If drzany Is Nothing Then
    drzany = DT.NewRow ' menambah baris
    drzany("KODEBARANG") = kb36109054.Text
    drzany("UNIT") = un36109054.Text
    drzany("HARGA") = hr36109054.Text

    DT.Rows.Add(drzany)

    Else
    MsgBox("baris sudah ada")
    kb36109054.Text = ""
    End If
    If kb36109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If Val(un36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("UNIT belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If Val(hr36109054.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("HARGA belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If
    kb36109054.Text = ""
    un36109054.Text = ""
    hr36109054.Text = ""
    End Sub

    BalasHapus
  17. part 2
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109054.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If TextBox136109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("no.transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If


    If TextBox236109054.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("jenis transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109054.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109054.Text & "',#" & DateTimePicker136109054.Value.Date & "#,'" & TextBox236109054.Text & "')", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109054.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    TextBox136109054.Text = ""
    TextBox236109054.Text = ""

    End Sub

    End Class

    BalasHapus
  18. Public Class Form3636109050
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=nideria")
    Dim data As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Form3636109050_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim adapt As New OleDb.OleDbDataAdapter
    adapt = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
    data.Rows.Clear()
    adapt.Fill(data)
    adapt.Dispose()
    Dim dcp(1) As DataColumn
    dcp(0) = data.Columns("kodebarang")
    data.PrimaryKey = dcp
    DataGridView1.DataSource = data
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kb.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If

    Dim simpan As DataRow
    simpan = data.Rows.Find(kb.Text)
    If simpan Is Nothing Then
    simpan = data.NewRow
    simpan("kodebarang") = kb.Text
    simpan("unit") = un.Text
    simpan("harga") = hr.Text
    data.Rows.Add(simpan)
    Else
    MsgBox("KODE BARANG sudah ada")
    End If

    kb.Text = ""
    un.Text = ""
    hr.Text = ""
    End Sub

    BalasHapus
  19. lanjutan
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If

    If TextBox2.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If

    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If data.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In data.Rows
    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()
    Next

    TextBox1.Text = ""
    TextBox2.Text = ""
    data.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  20. Public Class LATIHAN03636109029
    'DEKLARASI CONECTION
    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database password = hapsari")
    'deklarasi data tabel
    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN03636109029_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'deklarasi adapter
    Dim CUTE As New OleDb.OleDbDataAdapter
    CUTE = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109029.Text & "'", CONNECT) 'memunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear() 'membersihkan data table
    CUTE.Fill(DT) 'mengisi database ke dlm data table

    CUTE.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake

    'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
    Dim dcp(1) As DataColumn
    dcp(0) = DT.Columns("kodebarang")
    DT.PrimaryKey = dcp

    DataGridView1.DataSource = DT 'memunculkan dlm datagridview

    End Sub

    Private Sub Button136109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109029.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If kb36109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("kode barang belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If Val(un36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("UNIT belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    If Val(hr36109029.Text) = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("HARGA belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
    Dim INDAH As DataRow
    INDAH = DT.Rows.Find(kb36109029.Text) 'untuk mencari apakah ada no.pembelian sdh ada agar tdak double
    If INDAH Is Nothing Then 'jika tidak ad ji maka lanjutkan penyimpanan

    INDAH = DT.NewRow ' menambah baris
    INDAH("kodebarang") = kb36109029.Text
    INDAH("unit") = un36109029.Text
    INDAH("harga") = hr36109029.Text
    DT.Rows.Add(INDAH)
    Else
    MsgBox("KODE BARANG sudah ada")
    End If

    kb36109029.Text = ""
    un36109029.Text = ""
    hr36109029.Text = ""
    End Sub

    BalasHapus
  21. Private Sub Button236109029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109029.Click
    'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
    If TextBox136109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("no.transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If


    If TextBox236109029.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
    MsgBox("jenis transaksi belum terisi")
    Exit Sub 'jgn lanjut ke proses berikutnya
    End If

    'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
    cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109029.Text, 1, CONNECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    'untuk memasukkan data dari visual basc ke dlm acces
    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109029.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox236109029.Text) & ")", CONNECT)

    CONNECT.Open()
    com.ExecuteNonQuery()
    CONNECT.Close()

    For Each r As DataRow In DT.Rows
    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga)values('" & TextBox136109029.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONNECT)

    CONNECT.Open()
    com.ExecuteNonQuery()
    CONNECT.Close()

    com.Dispose()

    Next

    TextBox136109029.Text = ""
    TextBox236109029.Text = ""
    DT.Rows.Clear()

    End Sub
    End Class

    BalasHapus
  22. Public Class LATIHAN03636109036
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=100191")
    Dim Data As New DataTable
    Dim browse As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub LATIHAN03636109036_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ibnu As New OleDb.OleDbDataAdapter
    ibnu = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109036.Text & "'", CONECT)
    Data.Rows.Clear()
    ibnu.Fill(Data)
    DataGridView1.DataSource = Data

    ibnu.Dispose()

    End Sub

    Private Sub Button136109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109036.Click
    If kb36109036.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(un36109036.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(hr36109036.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If


    Dim praibnu As DataRow

    praibnu = Data.NewRow
    praibnu("KODEBARANG") = kb36109036.Text
    praibnu("UNIT") = un36109036.Text
    praibnu("HARGA") = hr36109036.Text

    Data.Rows.Add(praibnu)


    kb36109036.Text = ""
    un36109036.Text = ""
    hr36109036.Text = ""


    End Sub

    Private Sub Button236109036_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button236109036.Click
    If TextBox136109036.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If


    If TextBox236109036.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If


    browse.AturPencarianDataBase("mastertransaksi", "notrans", TextBox136109036.Text, 1, CONECT)

    If browse.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If Data.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox136109036.Text & "',#" & DateTimePicker136109036.Value.Date & "#," & Val(TextBox236109036.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each t As DataRow In Data.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox136109036.Text & "','" & t("kodebarang") & "'," & t("unit") & "," & t("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    Data.Rows.Clear()

    TextBox136109036.Text = ""
    TextBox236109036.Text = ""

    End Sub
    End Class

    BalasHapus
  23. pembaharuan..

    Public Class Form3636108001
    Dim INCE As New OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=36108001")
    Dim LOVE As New DataTable
    Private Sub AI()
    Dim YNK As New OleDb.OleDbDataAdapter
    YNK = New OleDb.OleDbDataAdapter("Select Kodebarang, unit, harga FROM detailtransaksi where notrans='" & T136108001.Text & "' ", INCE)
    LOVE.Rows.Clear()
    YNK.Fill(LOVE)
    YNK.Dispose()

    DGV36108001.DataSource = LOVE
    End Sub
    Private Sub Form3636108001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AI()
    Dim PK(1) As DataColumn
    PK(0) = LOVE.Columns("KODEBARANG")
    LOVE.PrimaryKey = PK
    End Sub
    Private Sub B136108001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B136108001.Click
    If T336108001.Text.Length = 0 Then
    MsgBox("Kode Barang Belum Terisi")
    Exit Sub
    End If

    If Val(T436108001.Text) = 0 Then
    MsgBox("Unit Belum Terisi")
    Exit Sub
    End If

    If Val(T536108001.Text) = 0 Then
    MsgBox("Harga Belum Terisi")
    Exit Sub
    End If

    If LOVE.Rows.Find(T336108001.Text) Is Nothing Then
    LOVE.Rows.Add(T336108001.Text, Val(T436108001.Text), Val(T536108001.Text))
    Else
    MsgBox("Kode Barang Sudah Ada")
    End If

    T336108001.Text = ""
    T436108001.Text = ""
    T536108001.Text = ""
    End Sub
    Private Sub B236108001_Click(ByVal sender As System.Object, ByVal AULIA As System.EventArgs) Handles B236108001.Click
    If T136108001.Text.Length = 0 Then
    MsgBox("Nomor transaksi belum terisi")
    Exit Sub
    End If

    If T236108001.Text.Length = 0 Then
    MsgBox("Jenis transaksi belum terisi")
    Exit Sub
    End If

    If LOVE.Rows.Count = 0 Then
    MsgBox("Data tidak terisi")
    Exit Sub
    End If

    Dim AYI As New ByIskandar.CariKeDataBaseByIskandar
    AYI.AturPencarianDataBase("mastertransaksi", "NOTRANS", T136108001.Text, 1, INCE)

    If AYI.JumlanBaris > 0 Then
    MsgBox("Nomor transaksi tersebut sudah ada")
    Exit Sub
    End If

    Dim ANHYE As New OleDb.OleDbCommand
    Dim VENUS As String
    VENUS = "INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & T136108001.Text & "', #" & DTP36108001.Value.Date & "#, '" & T236108001.Text & "');"
    ANHYE = New OleDb.OleDbCommand(VENUS, INCE)
    INCE.Open()
    ANHYE.ExecuteNonQuery()
    INCE.Close()

    For Each ARHY As DataRow In LOVE.Rows
    Dim EGIET As String
    EGIET = "INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & T136108001.Text & "', '" & ARHY("KODEBARANG") & "', '" & ARHY("UNIT") & "', '" & ARHY("HARGA") & "');"
    ANHYE = New OleDb.OleDbCommand(EGIET, INCE)
    INCE.Open()
    ANHYE.ExecuteNonQuery()
    INCE.Close()
    Next
    ANHYE.Dispose()

    T136108001.Text = ""
    T236108001.Text = ""
    AI()
    End Sub
    End Class

    BalasHapus
  24. http://hilariusmariotonapa.blogspot.com/2012/10/prosedur-penyelesaian-latihan3636110048.html
    http://hilariusmariotonapa.blogspot.com/2012/10/deskripsi-latihan3636110048.html

    BalasHapus
  25. http://tiya-sri.blogspot.com/2012/10/latihan3636110044-aplikasi-komputer-4.html

    BalasHapus
  26. http://eminaomi.blogspot.com/2012/10/latihan3636110049.html

    BalasHapus
  27. http://nurrahmahrasyid2.blogspot.com/2012/10/latihan3636110042.html

    BalasHapus
  28. http://03melisa.blogspot.com/2012/10/latihan-36-36110051-apkom-4-d3b.html

    BalasHapus
  29. http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan3636110037.html

    BalasHapus
  30. http://benhilll.blogspot.com/2012/10/deskripsi-dan-prosedur-latihan3636110039.html

    BalasHapus
  31. http://rosyanausman.blogspot.com/2012/10/latihan3636110036.html

    BalasHapus
  32. http://hasfiahzain.blogspot.com/2012/10/latihan3636110052.html

    BalasHapus
  33. http://ilhaazzahra.blogspot.com/2012/10/latihan3636110033.html

    BalasHapus
  34. http://sriayu-36110030.blogspot.com/2012/10/diskripsi-prosedur-latihan-36.html

    BalasHapus
  35. http://ias-anakbola.blogspot.com/2012/10/latihan3636110056.html

    BalasHapus
  36. http://rainaagrippinaa.blogspot.com/2012/10/latihan3636110032.html

    BalasHapus
  37. http://rahmisuryatama05.blogspot.com/2012/10/latihan3636110040.html

    BalasHapus
  38. http://sukadriady.blogspot.com/2012/10/latihan3636110043.html

    BalasHapus
  39. http://dewiwahyuni91.blogspot.com/2012/10/latihan3636110038.html

    BalasHapus
  40. http://audryasharii.blogspot.com/2012/10/latihan3636110031.html

    BalasHapus
  41. http://andiniwarakusuma.blogspot.com/2012/10/latihan3636110034.html

    BalasHapus
  42. http://zulkiflitryputra.blogspot.com/2012/10/latihan3636110046.html

    BalasHapus
  43. http://nurhanalott.blogspot.com/2012/10/latihan3636110029.html

    BalasHapus
  44. http://www.masnurselayar.blogspot.com/2012/10/latihan-3636110055.html

    BalasHapus
  45. http://ruslancullank1.blogspot.com/2012/10/deskripsilatihan3636110054.html

    BalasHapus
  46. http://burhankhang58.blogspot.com/2012/10/latihan3636110047.html

    BalasHapus
  47. http://rizka-azisah.blogspot.com/2012/11/deskripsi-penyelesaian-latihan3636110041.html

    BalasHapus