Latihan_30A_46110045

Deskripsi :
Dalam form Latihan 30A hanya terdapat Datagridview dan Button.


Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

  

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “edit”. Button  “edit”  ini digunakan untuk menampilkan form latihan 30b  dan  mengedit/mengganti kode barang yang diinginkan.

Langkah-langkah penyelesaian form 30A :

1. Pilih add windows form lalu masukkan form 30A.

2. Buatlah desain untuk formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_30A_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable

    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_30A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 30b
        If Latihan_30B_46110045.Visible = False Then
            Latihan_30B_46110045.Show()
        Else
            Latihan_30B_46110045.Activate()
        End If

        'mengisi textbox yang ada pada 25b
        Latihan_30B_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("KodeBarang").Value
        Latihan_30B_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_30B_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_30B_46110045.hb46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_30B_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

 

Even :

Load

Button click

Latihan_29_46110045

Deskripsi :
Dalam form Latihan 28b hanya terdapat tiga object yaitu Label, Textbox, Button.


Object label :

Dalam form ini terdapat enam  buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

  

Object textbox :

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 29 :

1. Pilih add windows form lalu masukkan form 29.

2. Buatlah desain untuk form 29.

3. Masukkan rumus seperti ini

Public Class Latihan_29_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If ganti46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data

        If ganti46110045.Text <> kb46110045.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

                'mengosongkan text box
                kb46110045.Text = " "
                nb46110045.Text = " "
                hb46110045.Text = " "
                jb46110045.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti46110045.Text = " "
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

    End Sub
End Class
 

Script unique :

If ganti46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If berguna untuk mengganti data yang ada pada database.

 

Even :

Button click.

Latihan_28B_46110045

Deskripsi :
Dalam form Latihan 28b hanya terdapat tiga object yaitu Label, Textbox, Button.

Object label :

Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.

Object textbox :

Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 28B :

1. Pilih add windows form lalu masukkan form 28B.

2. Buatlah desain untuk form 28B.

3. Masukkan rumus seperti ini

Public Class Latihan_28B_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub save46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hj46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hj46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hj46110045.Text = " "
        jb46110045.Text = " "

        'menjalankan procedure pengambilan data
        Latihan_28A_46110045.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

Script unique :

Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()
 berguna untuk mendeklarasikan command.

Even :

Button click.
 

Latihan_28A_46110045

Deskripsi :
Dalam form Latihan 28A hanya ada Datagridview dan Button.


Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 28A :

1. Pilih add windows form lalu tambahkan form 28A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_28A_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_28A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub input46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110045.Click
        'Menampilkan form 28b
        If Latihan_28B_46110045.Visible = False Then
            Latihan_28B_46110045.Show()
        Else
            Latihan_28B_46110045.Activate()
        End If
    End Sub

    Private Sub tutup46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup46110045.Click
        Me.Close()
    End Sub
End Class

 

Even :

Load

Button click

Latihan_27_46110045

Deskripsi :
Dalam form Latihan 27 hanya terdapat tiga object yaitu Label, Textbox, Button.

Object label :

Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.

Object textbox :

Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 27 :

1. Pilih add windows form lalu tambahkan form 27.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_27_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim cari As ByIskandar.CariKeDataBaseByIskandar
    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hb46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hb46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "
    End Sub
End Class

Script unique :

If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If berguna untuk memasukkan data yang ada.

Even :

Button click. 
 

 

Latihan_26B_46110045

Deskripsi :
Dalam form Latihan 26B hanya terdapat tiga object yaitu DataGriedView, Label dan Textbox.


Object datagridview :
Dalam form ini terdapat  2 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object label :
Dalam form ini terdapat  5 buah object label yang bertuliskan Detail Transaksi, Kode Barang, Nama Barang, Harga jual dan Jumlah Barang.

Object textbox :
Dalam form ini terdapat  4 buah object textbox yang berada masing-masing di sebelah kanan label bernama Kode Barang, Nama Barang, Harga jual dan Jumlah Barang . Textbox ini berfungsi untuk menampilkan detail transaksi dari data yang ada di latihan 26A.

Langkah-langkah penyelesaian form 26B :
Masukkan rumus seperti ini
Public Class Latihan_26B_46110045

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= C:\Users\Microsoft\Documents\VB\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim robot As New DataTable

    Public Sub din(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        Dim shoell As String
        shoell = "SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
        adapter = New OleDb.OleDbDataAdapter(shoell, koneksi)
        adapter.Fill(robot)

        Dim dina As Integer = 0
        Dim dyna As Integer = 0
        For Each row As DataRow In robot.Rows
            dina += row("Unit")
            dyna += row("Jumlah")
        Next
        TU46110045.Text = dina
        TJ46110045.Text = dyna

    End Sub

    Private Sub latihan_26B_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgv46110045.DataSource = robot
    End Sub
End Class

Even :
Load.

Latihan_26A_46110045

Deskripsi :
Dalam form Latihan 26A hanya terdapat tiga object yaitu DataGriedView, Label dan Button.

Object datagridview :
Dalam form ini terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object label :
Dalam form ini terdapat  sebuah object label yang bertuliskan daftar barang.

Object button :
Dalam form ini terdapat  sebuah object label yang bertuliskan detail transaksi.Button ini berfungsi untuk menampilkan detail transaksi dari data yang ada pada latihan 26A di latihan 26B.

Langkah-langkah penyelesaian form 26A :
Masukkan rumus seperti ini
Public Class Latihan_26A_46110045
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=C:\Users\Microsoft\Documents\VB\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim data As New DataTable
    Private Sub latihan_26A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang", connect)
        data.Rows.Clear()
        adapter.Fill(data)
        adapter.Dispose()

        dgv46110045.DataSource = data

    End Sub

    Private Sub dt46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt46110045.Click
        If Latihan_26B_46110045.Visible = False Then
            Latihan_26B_46110045.Show()
        Else : Latihan_26B_46110045.Activate()
        End If

        Latihan_26B_46110045.KB46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_26B_46110045.NB46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_26B_46110045.HB46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_26B_46110045.JB46110045.Text = dgv46110045.CurrentRow.Cells("persediaanawal").Value

        Latihan_26B_46110045.din(Latihan_26B_46110045.KB46110045.Text)
    End Sub
End Class

Even:
Load
Buttonclick