Latihan_34C_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 34C

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_34C_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada TextBox sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_34C_46110043

    Dim CONECT 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 ('" & KB46110043.Text & "','" & NB46110043.Text & "', " & Val(HB46110043.Text) & "," & Val(JB46110043.Text) & ")", CONECT)

        CONECT.Open()

        Cm.ExecuteNonQuery()

        CONECT.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110043.ambildata()

    End Sub

    Private Sub replace()

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB46110043.Text & "', namabarang = '" & NB46110043.Text & "', hargajual=" & Val(HB46110043.Text) & ", jumlahbarang=" & Val(JB46110043.Text) & " where kodebarang='" & KODELAMA.Text & "'", CONECT)

        CONECT.Open()

        Cm.ExecuteNonQuery()

        CONECT.Close()

        Cm.Dispose()

        'mengambildata

        Latihan_34B_46110043.ambildata()

    End Sub

    Private Sub SIMPAN46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110043.Click

        'perintah periksa data

        If KB46110043.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB46110043.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HB46110043.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB46110043.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", KB46110043.Text, 1, CONECT)

        If PENCARI.JumlanBaris > 0 Then

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

            'mengosongkan text box

            KB46110043.Text = " "

            NB46110043.Text = " "

            HB46110043.Text = " "

            JB46110043.Text = " "

            Exit Sub

        End If

        If KODELAMA.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        'mengosongkan text box

        KB46110043.Text = " "

        NB46110043.Text = " "

        HB46110043.Text = " "

        JB46110043.Text = " "

        'menutup form

        Me.Close()

    End Sub

End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan 34C

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

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 diinput.

Object StatusStrip

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

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

ButtonClick

Langkah-Langkah Menjalankan Form Latihan 34C

1. Input data yang ingin ditambahkan ataupun dirubah, sesuai dengan perintah awal pada “Latihan_34B_46110043”.
2. Klik “Simpan” untuk menyimpan perubahan ataupun penambahan data yang telah dibuat.

Latihan_34B_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 34B

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_34B_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada DataGridView sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_34B_46110043

    Dim CONECT 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", CONECT)

        '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 Latihan34b_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        TRINITA46110043.DataSource = ambil
    End Sub

    Private Sub HAPUS46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS46110043.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 ='" & TRINITA46110043.CurrentRow.Cells("Kodebarang").Value & "'", CONECT)
        CONECT.Open()
        Cm.ExecuteNonQuery()
        CONECT.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

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

        'mengosongkan textbox 33b
        Latihan_34C_46110043.KODELAMA.Text = "-"
        Latihan_34C_46110043.KB46110043.Text = " "
        Latihan_34C_46110043.NB46110043.Text = " "
        Latihan_34C_46110043.HB46110043.Text = " "
        Latihan_34C_46110043.JB46110043.Text = " "
    End Sub

    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46110043.Click
        Latihan_34C_46110043.Show()
        'Mengisi Text Box
        Latihan_34C_46110043.KODELAMA.Text = TRINITA46110043.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110043.KB46110043.Text = TRINITA46110043.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110043.NB46110043.Text = TRINITA46110043.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110043.HB46110043.Text = TRINITA46110043.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110043.JB46110043.Text = TRINITA46110043.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. 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 Button                                                                
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_34C_46110043”. Tombol hapus digunakan untuk menghapus data tabel.


Script Unique
Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.


Even
ButtonClick
Load


Langkah-Langkah Menjalankan Form Latihan 34B
1.  Pilih dan klik salah satu tombol yang ada sesuai dengan kebutuhan.
2. Jika ingin menghapus data tabel klik tombol “Hapus”
3. Jika ingin menambah data tabel klik tombol “Tambah”
4. Jika ingin mengedit data tabel klik tombol “Edit”
1. ”

Latihan_34A_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 34A

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_34A_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada ToolStrip dan Menustrip sesuai dengan yang kita inginkan. 

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_34A_46110043


    Private Sub TSL1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTAR46110043.Click
        Latihan_34B_46110043.Show()
    End Sub

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


    End Sub

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

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

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan 34A

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

Object MenuStrip

Terdapat 1 object MenuStrip (Barang).

Object ToolStrip                                                           

Terdapat 2 object ToolStrip (Daftar Barang dan Input Barang)

Even

Load

ButtonClick

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Menjalankan Form Latihan 34A

1.      Klik “Daftar Barang” untuk menampilkan form Latihan_34B_46110043.

2.      Klik “Input Barang” untuk menampilkan form Latihan_34C_46110043.