Latihan_34A_46110006

Deskripsi Form Latihan_34A_46110006

Dalam form Latihan 34A terdapat Object MenuStrip dan Objek ToolStrip

Object MenuStrip
Terdapat 1 MenuStrip yang berfungsi untuk merancang menu pada saat runtime, yang terdiri atas "Barang" dan memiliki sub menu "Daftar Barang" dan "Input Barang"

Objek ToolStrip
Terdapat 1 ToolStrip yang berfungsi untuk meletakkan toolbar control, yang terdiri atas "Daftra Barang" dan "Input Barang"

Even
click

Cara Membuat From Latihan 34A :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.      Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_34A_46110006”

3.      Buatlah desain seperti berikut :

       

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_34A_46110006
    Private Sub TSL1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL1.Click
        Latihan_34B_46110006.Show()
    End Sub

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

    Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang.Click
        Latihan_34B_46110006.Show()
    End Sub

    Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBarang.Click
        If Latihan_34C_46110006.Visible = False Then
            Latihan_34C_46110006.Show()
        Else
            Latihan_34C_46110006.Activate()
        End If
    End Sub
End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING. pilih DAFTAR BARANG atau INPUT BARANG yang ingin ditampilkan.

2.      Selamat Mencoba.

Latihan_34C_46110006

Deskripsi Form Latihan_34C_46110006

Pada form latihan 34C ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 4 label pada form latihan 34C (Kode Barang, Nama Barang, Harga Jual, Jumlah Barang).

Object TextBox                                                             

Terdapat 4 object textbox pada latihan 34C,dimana textbox ini berstatus input dan hasilnya akan menampilkan detail data barang yang telah diinput.

Objec Button

Terdapat 1 object Button yaitu SIMPAN berfungsi untuk menampilkan Data Barang yang telah diinput.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

 

Even

Button Click

Cara Membuat From Latihan 34C :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.      Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_34C_46110006”

3.      Buatlah desain seperti berikut :

       

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_34C_46110006

    Dim Jalan 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 ('" & KB_46110006.Text & "','" & NB_46110006.Text & "', " & Val(HJ_46110006.Text) & "," & Val(JB_46110006.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110006.ambildata()

    End Sub

    Private Sub replace()

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110006.Text & "', namabarang = '" & NB_46110006.Text & "', hargajual=" & Val(HJ_46110006.Text) & ", jumlahbarang=" & Val(JB_46110006.Text) & " where kodebarang='" & ganti_46110006.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110006.ambildata()

    End Sub

    Private Sub SIMPAN_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110006.Click

        'perintah periksa data

        If KB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110006.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", KB_46110006.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box

            KB_46110006.Text = " "

            NB_46110006.Text = " "

            HJ_46110006.Text = " "

            JB_46110006.Text = " "

            Exit Sub

        End If

        If ganti_46110006.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        'mengosongkan text box

        KB_46110006.Text = " "

        NB_46110006.Text = " "

        HJ_46110006.Text = " "

        JB_46110006.Text = " "

        'menutup form

        Me.Close()

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING. pilih tombol SIMPAN setelah menginput data barang.

2.      Selamat Mencoba.

Latihan_34B_46110006

Deskripsi Form Latihan_34B_46110006

Pada form latihan 34B ada 2 object yang digunakan yaitu DataGridView dan Button.

Object DataGridView

Object DataGridView berfungsi untuk menampilkan data tabel.

Objec Button

Terdapat 3 object Button yaitu HAPUS, TAMBAH, EDIT dimana tombol HAPUS berfungsi untuk menghapus data yang telah ada pada data barang. Tombol TAMBAH berfungsi untuk menambah data baru pada data barang. EDIT berfungsi untuk mengedit data yang telah diinput atau yang telah tersimpan pada data barang untuk mengganti data baru.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

Even

Load

Button Click

Cara Membuat From Latihan 34B :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.      Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_34B_46110006”

3.      Buatlah desain seperti berikut :

       

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_34B_46110006

    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_34B_46110006_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        DGV_46110006.DataSource = ambil

    End Sub

    Private Sub HAPUS_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_46110006.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_46110006.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'Mengambil data kembali

        ambildata()

    End Sub

    Private Sub TAMBAH_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110006.Click

        'Menampilkan form 33b

        If Latihan_34C_46110006.Visible = False Then

            Latihan_34C_46110006.MdiParent = Me.MdiParent

            Latihan_34C_46110006.Show()

        Else

            Latihan_33B_46110006.Activate()

        End If

        'mengosongkan textbox 33b

        Latihan_34C_46110006.ganti_46110006.Text = "-"

        Latihan_34C_46110006.KB_46110006.Text = " "

        Latihan_34C_46110006.NB_46110006.Text = " "

        Latihan_34C_46110006.HJ_46110006.Text = " "

        Latihan_34C_46110006.JB_46110006.Text = " "

    End Sub

    Private Sub EDIT_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110006.Click

        Latihan_34C_46110006.Show()

        'Mengisi Text Box

        Latihan_34C_46110006.ganti_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110006.KB_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110006.NB_46110006.Text = DGV_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_34C_46110006.HJ_46110006.Text = DGV_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_34C_46110006.JB_46110006.Text = DGV_46110006.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING. pilih tombol HAPUS untuk menghapus data barang, TAMBAH untuk menambah data barang, EDIT untuk mengedit data barang.

2.      Selamat Mencoba.

Latihan_33B_46110006

Deskripsi Form Latihan_33B_46110006

Pada form latihan 33B ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 4 label pada form latihan 31B (Kode Barang, Nama Barang, Harga Jual, Jumlah Barang).

Object TextBox                                                             

Terdapat 4 object textbox pada latihan 31B,dimana textbox ini berstatus input dan hasilnya akan menampilkan detail data barang yang telah diinput.

Objec Button

Terdapat 1 object Button yaitu SIMPAN berfungsi untuk menampilkan Data Barang yang telah diinput.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

 

Even

Button Click

     Cara Membuat From Latihan 33B :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.     Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_33B_46110006”

3.      Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.     

   

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_33B_46110006

    Dim Jalan 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 ('" & KB_46110006.Text & "','" & NB_46110006.Text & "', " & Val(HJ_46110006.Text) & "," & Val(JB_46110006.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_33A_46110006.ambildata()

    End Sub

    Private Sub replace()

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110006.Text & "', namabarang = '" & NB_46110006.Text & "', hargajual=" & Val(HJ_46110006.Text) & ", jumlahbarang=" & Val(JB_46110006.Text) & " where kodebarang='" & ganti_46110006.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_33A_46110006.ambildata()

    End Sub

    Private Sub SIMPAN_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        If KB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB_46110006.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110006.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110006.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            KB_46110006.Text = " "

            NB_46110006.Text = " "

            HJ_46110006.Text = " "

            JB_46110006.Text = " "

            Exit Sub

        End If

        If ganti_46110006.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        KB_46110006.Text = " "

        NB_46110006.Text = " "

        HJ_46110006.Text = " "

        JB_46110006.Text = " "

        Me.Close()

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING, ketika form ditampilkan input data barang yang diinginkan.lalu pilh SIMPAN untuk menyimpan.

2.      Selamat Mencoba.