Latihan_34c_46110027

Deskripsi Form Latihan 34c

Pada form latihan 34c ada 4 object yang digunakan yaitu Label, Text Box, Button dan Statusstrip.

Object Label

Terdapat 4 label pada form latihan 34c (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object Statustrip

Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

Script Unique

-

Even 

ButtonClick

• Langkah-langkah Membuat Form 34c

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_34c  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_34c_46110027
    Dim rsty As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1_46110027.Text & "','" & t2_46110027.Text & "', " & Val(t3_46110027.Text) & "," & Val(t4_46110027.Text) & ")", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110027.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & t1_46110027.Text & "', namabarang = '" & t2_46110027.Text & "', hargajual=" & Val(t3_46110027.Text) & ", jumlahbarang=" & Val(t4_46110027.Text) & " where kodebarang='" & ganti_46110027.Text & "'", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110027.ambildata()
    End Sub

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

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

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

        If Val(t4_46110027.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", t1_46110027.Text, 1, rsty)

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

            'mengosongkan text box
            t1_46110027.Text = " "
            t2_46110027.Text = " "
            t3_46110027.Text = " "
            t4_46110027.Text = " "
            Exit Sub
        End If

        If ganti_46110027.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        t1_46110027.Text = " "
        t2_46110027.Text = " "
        t3_46110027.Text = " "
        t4_46110027.Text = " "

        'menutup form
        Me.Close()

    End Sub
End Class

6.    Klik start debugging

7. jika pada latihan_34b anda memilih button "edit" maka akan tampil sbb:

jika pada latihan_34b anda memilih button "tambah" maka akan tampil sbb:

jika pada latihan_34b anda memilih button "hapus" maka akan tampil sbb:

Latihan_34b_46110027

Deskripsi Form Latihan 34b

Pada form latihan 34b ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 1 (daftar barang).

Object Datagridview

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_34c_46110027”. Tombol hapus digunakan untuk menghapus data tabel.

Script Unique

-

Even 

Load

ButtonClick

• Langkah-langkah Membuat Form 34b

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_34b  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_34B_46110027
    Dim rsty As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim rt 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", rsty)

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

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

    End Sub

    Private Sub Latihan_34B_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv_46110027.DataSource = rt
    End Sub

    Private Sub h_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h_46110027.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv_46110027.CurrentRow.Cells("Kodebarang").Value & "'", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

    Private Sub t_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t_46110027.Click
        'Menampilkan form 33b
        If Latihan_34c_46110027.Visible = False Then
            Latihan_34c_46110027.MdiParent = Me.MdiParent
            Latihan_34c_46110027.Show()
        Else
            Latihan_34c_46110027.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_34c_46110027.ganti_46110027.Text = "-"
        Latihan_34c_46110027.t1_46110027.Text = " "
        Latihan_34c_46110027.t2_46110027.Text = " "
        Latihan_34c_46110027.t3_46110027.Text = " "
        Latihan_34c_46110027.t4_46110027.Text = " "
    End Sub

    Private Sub e_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles e_46110027.Click
        Latihan_34c_46110027.Show()
        'Mengisi Text Box
        Latihan_34c_46110027.ganti_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110027.t1_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110027.t2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value
        Latihan_34c_46110027.t3_46110027.Text = dgv_46110027.CurrentRow.Cells("hargajual").Value
        Latihan_34c_46110027.t4_46110027.Text = dgv_46110027.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

6.    Klik start debugging

7. akan tampil sbb:

Latihan_34a_46110027

Deskripsi Form Latihan 34a

Pada form latihan 34a ada 2 object yang digunakan yaitu Menu Strip dan Tool Strip

Object Menu Strip

Terdapat 1 object MenuStrip (Barang).

Object Tool Strip

Terdapat 2 object ToolStrip (Daftar Barang dan Input Barang)

Script Unique

-

Even 

Load

ButtonClick

• Langkah-langkah Membuat Form 34a

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_34a  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_34A_46110027

    Private Sub TSL_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL_46110027.Click
        Latihan_34B_46110027.Show()
    End Sub

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

    Private Sub db_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db_46110027.Click
        Latihan_34B_46110027.Show()
    End Sub

    Private Sub ib_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ib_46110027.Click
        If Latihan_34c_46110027.Visible = False Then

            Latihan_34c_46110027.Show()
        Else
            Latihan_34c_46110027.Activate()
        End If
    End Sub
End Class

6.    Klik start debugging

7. Hasilnya akan tampil setelah latihan 34b dan 34c selesai dibuat..

Latihan_33b_46110027

Deskripsi Form Latihan 33b

Pada form latihan 33b ada 4 object yang digunakan yaitu Label, Text Box, Button dan Statusstrip.

Object Label

Terdapat 4 label pada form latihan 33b (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object Statustrip

Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

Script Unique

-

Even 

ButtonClick

• Langkah-langkah Membuat Form 33b

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_33b  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_33B_46110027
    Dim rsty As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1_46110027.Text & "','" & t2_46110027.Text & "', " & Val(t3_46110027.Text) & "," & Val(t4_46110027.Text) & ")", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110027.SAYANG()

    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & t1_46110027.Text & "', namabarang = '" & t2_46110027.Text & "', hargajual=" & Val(t3_46110027.Text) & ", jumlahbarang=" & Val(t4_46110027.Text) & " where kodebarang='" & ganti_46110027.Text & "'", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110027.SAYANG()
    End Sub

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

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

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

        If Val(t4_46110027.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", t1_46110027.Text, 1, rsty)

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

            'mengosongkan text box
            t1_46110027.Text = " "
            t2_46110027.Text = " "
            t3_46110027.Text = " "
            t4_46110027.Text = " "
            Exit Sub
        End If

        If ganti_46110027.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        t1_46110027.Text = " "
        t2_46110027.Text = " "
        t3_46110027.Text = " "
        t4_46110027.Text = " "

        'menutup form
        Me.Close()
    End Sub
End Class

6.    Klik start debugging

7. jika pada latihan_33a anda memilih button "edit" maka akan tampil sbb:

jika memilih button "tambah" yang akan tampil adalah sbb:

Latihan_33a_46110027

Deskripsi Form Latihan 33a

Pada form latihan 33a ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 1 (daftar barang).

Object Datagridview

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_33B_46110027”. Tombol hapus digunakan untuk menghapus data tabel.

Script Unique

-

Even 

Load

ButtonClick

• Langkah-langkah Membuat Form 33a

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_33a  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

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

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

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

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

    End Sub

    Private Sub Latihan_33A_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        SAYANG()
        dgv_46110027.DataSource = rt
    End Sub

    Private Sub Tmbh_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh_46110027.Click
        'Menampilkan form 33b
        If Latihan_33B_46110027.Visible = False Then
            Latihan_33B_46110027.Show()
        Else
            Latihan_33B_46110027.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_33B_46110027.ganti_46110027.Text = "-"
        Latihan_33B_46110027.t1_46110027.Text = " "
        Latihan_33B_46110027.t2_46110027.Text = " "
        Latihan_33B_46110027.t3_46110027.Text = " "
        Latihan_33B_46110027.t4_46110027.Text = " "
    End Sub

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

        'mengisi textbox yang ada pada 32c
        Latihan_33B_46110027.ganti_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110027.t1_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110027.t2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110027.t3_46110027.Text = dgv_46110027.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110027.t4_46110027.Text = dgv_46110027.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub h_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h_46110027.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv_46110027.CurrentRow.Cells("Kodebarang").Value & "'", rsty)
        rsty.Open()
        Cm.ExecuteNonQuery()
        rsty.Close()
        Cm.Dispose()

        'Mengambil data kembali
        SAYANG()
    End Sub
End Class

6.    Klik start debugging

7. klik "edit" untuk mengganti data atau "tambah" untuk memasukkan data baru dan "hapus" untuk menghapus data yang salah.