Latihan_34A_46110022

Deskripsi Form Latihan_34A 46110022
Dalam form ini terdapat 3 buah object yaitu MenuStrip, StatusStrip dan DataGriedView.

Object MenuStrip
Terdapat 1 buah object MenuStrip yaitu barang.

Object  StatusStrip
Terdapat 2 buah object StatusStrip yaitu daftar barang dan input barang.

Object DataGriedView
Terdapat sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.


Script Unique
1. Untuk mmenampilkan form latihan 34B :
    If Latihan_34B_46110022.Visible = False Then
            Latihan_34B_46110022.MdiParent = Me
            Latihan_34B_46110022.Show()
        Else
            Latihan_34B_46110022.Activate()
        End If


Even
Click

Langkah-Langkah Membuat Form Latihan 34A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_34A_46110022

    Private Sub daftar46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar46110022.Click
        If Latihan_34B_46110022.Visible = False Then
            Latihan_34B_46110022.MdiParent = Me
            Latihan_34B_46110022.Show()
        Else
            Latihan_34B_46110022.Activate()
        End If
    End Sub

    Private Sub input46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110022.Click
        If Latihan_34C_46110022.Visible = False Then

            Latihan_34C_46110022.Show()
        Else
            Latihan_34C_46110022.Activate()
        End If
    End Sub

    Private Sub db46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db46110022.Click
        If Latihan_34B_46110022.Visible = False Then
      
            Latihan_34B_46110022.Show()
        Else
            Latihan_34B_46110022.Activate()
        End If

    End Sub

    Private Sub ib46110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ib46110022.Click
        If Latihan_34C_46110022.Visible = False Then

            Latihan_34C_46110022.Show()
        Else
            Latihan_34C_46110022.Activate()
        End If

    End Sub
 
    Private Sub brg46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brg46110022.Click

    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 34A seperti berikut :


     7. Klik "barang" dan kemudian pilih "daftar barang" atau "input barang" maka akan muncul form latihan 34B atau 34C.

    8. Selamat mencoba, semoga berhasil :)




Latihan_33B_46110022

Deskripsi Form Latihan_33B_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan status strip.

Object Label
Terdapat 4 object label yaitu  kode barang, nama barang, harga jual, jumlah barang.

Object Textbox
Terdapat 4 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Status Strip
Terdapat 1 buah object status strip yaitu kode barang lama.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 33B_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :


4. Input script di bawah ini :

Public Class Latihan_33B_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110022.Text & "','" & nama46110022.Text & "', " & Val(harga46110022.Text) & "," & Val(jml46110022.Text) & ")", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()

        Latihan_33A_46110022.ambildata()
    End Sub
    Private Sub ganti()

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110022.Text & "', namabarang = '" & nama46110022.Text & "', hargajual=" & Val(harga46110022.Text) & ", jumlahbarang=" & Val(jml46110022.Text) & " where kodebarang='" & kbl46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()

        Latihan_33A_46110022.ambildata()
    End Sub

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If kode46110022.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

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

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110022.Text, 1, go)

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


            kode46110022.Text = ""
            nama46110022.Text = ""
            harga46110022.Text = ""
            jml46110022.Text = ""
            Exit Sub
        End If

        If kbl46110022.Text = "-" Then
            tambah()
        Else
            ganti()
        End If

        kode46110022.Text = ""
        nama46110022.Text = ""
        harga46110022.Text = ""
        jml46110022.Text = ""

        Me.Close()
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 33B seperti berikut :



     7. Isi kolom textbox seperti contoh di atas lalu klik tombol "simpan", kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

    8. Selamat mencoba, semoga berhasil :)




Latihan_33A_46110022

Deskripsi Form Latihan_33A_46110022
Dalam form ini terdapat 3 buah object yaitu label, DataGriedView dan button.

ObjectLabel
Terdapat satu buah object label yaitu daftar barang.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 3 buah objek button (hapus, tambah dan edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat, dalam hal ini untuk menghapus, mengedit atau mengubah dan menambah data yang telah ada di database yang bersangkutan.

Script Unique

1  __

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 33A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_33A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter

        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)

        take.Rows.Clear()

        data.Fill(take)
        data.Dispose()
    End Sub

    Private Sub Latihan_33A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take
    End Sub
    Private Sub hapus46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110022.Click
        If MsgBox("are you serious??? do you want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from barang where kodebarang ='" & dgv46110022.CurrentRow.Cells("kodebarang").Value & "'", go)
        go.Open()
        cm.ExecuteNonQuery()
        go.Close()
        cm.Dispose()

        ambildata()

    End Sub

    Private Sub edit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110022.Click
        If Latihan_33B_46110022.Visible = False Then
            Latihan_33B_46110022.Show()
        Else
            Latihan_33B_46110022.Activate()
        End If


        Latihan_33B_46110022.kbl46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
    End Sub

    Private Sub tambah46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110022.Click
        If Latihan_33B_46110022.Visible = False Then
            Latihan_33B_46110022.Show()
        Else
            Latihan_33B_46110022.Activate()
        End If

        Latihan_33B_46110022.kbl46110022.Text = "-"
        Latihan_33B_46110022.kode46110022.Text = ""
        Latihan_33B_46110022.nama46110022.Text = ""
        Latihan_33B_46110022.harga46110022.Text = ""
        Latihan_33B_46110022.jml46110022.Text = ""

    End Sub
End Class

    5.   Jalankan program dengan cara mengklik start debugging seperti berikut :

    6.  Setelah menekan start debug, maka akan tampil hasil dari latihan 33A seperti berikut :




    7.  Hapus atau tambah atau ganti data dengan data yang diinginkan, kemudian klik tombol "hapus" atau "tambah" atau "edit" maka data yang ada pada database akan terganti.

    8. Selamat mencoba, semoga berhasil :)






Latihan_32C_46110022

Deskripsi Form Latihan_32C_46110022
Dalam form ini terdapat 4 buah object yaitu label, textbox, button dan status strip.

Object Label
Terdapat 4 object label yaitu  kode barang, nama barang, harga jual, jumlah barang.

Object Textbox
Terdapat 4 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Object Status Strip
Terdapat 1 buah object status strip yaitu kode barang lama.

Script Unique
 __
Even
Click

Langkah-Langkah Membuat Form Latihan 32C_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :


4. Input script di bawah ini :

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

    Private Sub save46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110022.Click
        If kb46110022.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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


        If nold46110022.Text <> kb46110022.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110022.Text, 1, go)

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


                nold46110022.Text = ""
                kb46110022.Text = ""
                nb46110022.Text = ""
                hj46110022.Text = ""
                jb46110022.Text = ""
                Exit Sub
            End If
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110022.Text & "', namabarang = '" & nb46110022.Text & "', hargajual=" & Val(hj46110022.Text) & ", jumlahbarang=" & Val(jb46110022.Text) & " where kodebarang='" & nold46110022.Text & "'", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()


        nold46110022.Text = "-"
        kb46110022.Text = ""
        nb46110022.Text = ""
        hj46110022.Text = ""
        jb46110022.Text = ""


        Latihan_32A_46110022.ambildata()


        Me.Close()
    End Sub
End Class

     5.  Jalankan program dengan cara mengklik start debugging seperti berikut :

     6. Setelah menekan start debug, maka akan tampil hasil dari latihan 32C seperti berikut :


     7. Isi kolom textbox seperti contoh di atas lalu klik tombol "simpan", kemudian hasil akan tersimpan atau ditampilkan dalam database yang bersangkutan.

    8. Selamat mencoba, semoga berhasil :)




Latihan_32B_46110022


Deskripsi Form Latihan_32B_46110022
Dalam form ini terdapat 3 buah object yaitu label, textbox dan button.

Object Label
Terdapat 4 object label yaitu kode barang, nama barang, harga jual dan jumlah barang.

Object Textbox
Terdapat 4 buah object textbox yang berfungsi untuk menginput data ke dalam database.

Object Button
Terdapat sebuah objek button (simpan) yang berfungsi untuk menjalankan rumus yang telah dibuat, dalam hal ini untuk menyimpan data yang telah diinput di textbox ke dalam database.

Script Unique
___

Even
Click

Langkah-Langkah Membuat Form Latihan 32B_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :


4. Input script di bawah ini :

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

    Private Sub simpan46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110022.Click
        If kode46110022.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

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

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

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


        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110022.Text, 1, go)

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


            kode46110022.Text = " "
            nama46110022.Text = " "
            harga46110022.Text = " "
            jml46110022.Text = " "
            Exit Sub
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110022.Text & "','" & nama46110022.Text & "', " & Val(harga46110022.Text) & "," & Val(jml46110022.Text) & ")", go)
        go.Open()
        Cm.ExecuteNonQuery()
        go.Close()
        Cm.Dispose()


        kode46110022.Text = " "
        nama46110022.Text = " "
        harga46110022.Text = " "
        jml46110022.Text = " "


        Latihan_32A_46110022.ambildata()


        Me.Close()

    End Sub
End Class


5.      Jalankan program dengan cara mengklik start debugging seperti berikut :

6.      Setelah menekan start debug, maka akan tampil hasil dari latihan 32B seperti berikut :
7.  Masukkan nilai pada kolom textbox kemudian klik tombol "simpan", maka data akan tersimpan di database yang bersangkutan. 

8.     Selamat mencoba, semoga berhasil :)



Latihan_32A_46110022

Deskripsi Form Latihan_32A_46110022
Dalam form ini terdapat 3 buah object yaitu label, DataGriedView dan button.

ObjectLabel
Terdapat satu buah object label yaitu daftar barang.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 2 buah objek button (tambah dan edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat, dalam hal ini untuk mengedit atau mengubah dan menambah data yang telah ada di database yang bersangkutan.

Script Unique

1  __

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 32A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :


4. Input script di bawah ini :

Public Class Latihan_32A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter


        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)


        take.Rows.Clear()


        data.Fill(take)
        data.Dispose()
    End Sub

    Private Sub Latihan_32A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take
    End Sub

    Private Sub tambah46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110022.Click
        If Latihan_32B_46110022.Visible = False Then
            Latihan_32B_46110022.Show()
        Else
            Latihan_32B_46110022.Activate()
        End If

        Latihan_32B_46110022.Show()
    End Sub

    Private Sub exit46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exit46110022.Click
        If Latihan_32C_46110022.Visible = False Then
            Latihan_32C_46110022.Show()
        Else
            Latihan_32C_46110022.Activate()
        End If
        Latihan_32C_46110022.Show()
        Latihan_32C_46110022.nold46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110022.kb46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110022.nb46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_32C_46110022.hj46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_32C_46110022.jb46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
    End Sub
End Class

    5.   Jalankan program dengan cara mengklik start debugging seperti berikut :

    6.  Setelah menekan start debug, maka akan tampil hasil dari latihan 32A seperti berikut :



    7.  Tambah atau ganti data dengan data yang diinginkan, kemudian klik tombol "tambah" atau "edit" maka data yang ada pada database akan terganti.

    8. Selamat mencoba, semoga berhasil :)