Latihan_34C_46110038

Deskripsi Form Latihan_34C_46110038:

Form Latihan_34C_46110038 hanya terdapat 4 object yaitu Label, TextBox, Button dan Statusstrip.

Object Label

Di Latihan_34C_46110038 ada 4, kode barang, nama barang, harga jual, dan  jumlah barang

Object Textbox

Di Latihan_34C_46110038 ada 4 object textbox, status input, yang digunakan dalam menginput data.

Object Button

Di Latihan_34C_46110038  ada 1 Button, Simpan. Tombol simpan digunakan untuk menyimpan data yang telah diinput.

Object Statusstrip

Di Latihan_34C_46110038  ada 2 statusstrip yang digunakan, kode barang lama dan -. “-“akan menampilkan  kode barang yang akan diinput.

Script Unique

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

Even

Click

Cara Membuat Form Latihan_34C_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_34C_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_34C_46110038

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Kumpulan_Latihan_46110038\Kumpulan_Latihan_46110038\bin\Debug\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub tambah()

        Dim merah As New OleDb.OleDbCommand

        merah = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110038.Text & "','" & nama46110038.Text & "', " & Val(harga46110038.Text) & "," & Val(jumlah46110038.Text) & ")", conect)

        conect.Open()

        merah.ExecuteNonQuery()

        conect.Close()

        merah.Dispose()

        Latihan_34B_46110038.ambildata()

    End Sub

    Private Sub edit()

        Dim merah As New OleDb.OleDbCommand

        merah = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110038.Text & "', namabarang = '" & nama46110038.Text & "', hargajual=" & Val(harga46110038.Text) & ", jumlahbarang=" & Val(jumlah46110038.Text) & " where kodebarang='" & lama46110038.Text & "'", conect)

        conect.Open()

        merah.ExecuteNonQuery()

        conect.Close()

        merah.Dispose()

        Latihan_34B_46110038.ambildata()

    End Sub

    Private Sub simpan46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        If kode46110038.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If nama46110038.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(harga46110038.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(jumlah46110038.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If lama46110038.Text <> kode46110038.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110038.Text, 1, conect)

            If cari.JumlanBaris > 0 Then

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

                kode46110038.Text = " "

                nama46110038.Text = " "

                harga46110038.Text = " "

                jumlah46110038.Text = " "

                Exit Sub

            End If

        End If

        If lama46110038.Text = "-" Then

            tambah()

        Else

            edit()

        End If

        kode46110038.Text = " "

        nama46110038.Text = " "

        harga46110038.Text = " "

        jumlah46110038.Text = " "

        Me.Close()

    End Sub

End Class

Langkah untuk menjalankan Latihan_34C_46110038:

1.    Klik start debugging.

2. Form Latihan_34A_46110038 akan muncul. Klik Input Barang untuk menampilkan Latihan_34C_46110038.

Latihan_34B_46110038

Deskripsi Form Latihan_34B_46110038:

Form Latihan_34B_46110038 hanya terdapat 3 object yaitu Label, DataGridView, dan Button.

Object Label

Di Latihan_34B_46110038 ada 1 yaitu Daftar Barang.

Object DatGridView

Di Latihan_34B_46110038 ada 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button

Di Latihan_34B_46110038  ada 1 Button, Tambah, Edit, dan Hapus. Tombol tambah berfungsi untuk menambah data. Tombol edit digunakan untuk mengedit data. Tombol hapus untuk menghapus data yang dipilih..

Script Unique

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

Even

Load

Click

Cara Membuat Form Latihan_34B_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_34B_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_34B_46110038

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Kumpulan_Latihan_46110038\Kumpulan_Latihan_46110038\bin\Debug\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim DT As New DataTable

    Public Sub ambildata()

        Dim merah As New OleDb.OleDbDataAdapter

        merah = New OleDb.OleDbDataAdapter("SELECT* FROM barang", conect)

        DT.Rows.Clear()

        merah.Fill(DT)

        merah.Dispose()

    End Sub

    Private Sub Latihan_34b_46110038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        Data46110038.DataSource = DT

    End Sub

    Private Sub tambah46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110038.Click

        If Latihan_34C_46110038.Visible = False Then

            Latihan_34C_46110038.Show()

        Else

            Latihan_34C_46110038.Activate()

        End If

        Latihan_34C_46110038.lama46110038.Text = "-"

        Latihan_34C_46110038.kode46110038.Text = " "

        Latihan_34C_46110038.nama46110038.Text = " "

        Latihan_34C_46110038.harga46110038.Text = " "

        Latihan_34C_46110038.jumlah46110038.Text = " "

    End Sub

    Private Sub hapus46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110038.Click

        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        Dim kawan As New OleDb.OleDbCommand

        kawan = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & Data46110038.CurrentRow.Cells("Kodebarang").Value & "'", conect)

        conect.Open()

        kawan.ExecuteNonQuery()

        conect.Close()

        kawan.Dispose()

        ambildata()

    End Sub

    Private Sub edit46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110038.Click

        Latihan_34C_46110038.Show()

        Latihan_34C_46110038.lama46110038.Text = Data46110038.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110038.kode46110038.Text = Data46110038.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110038.nama46110038.Text = Data46110038.CurrentRow.Cells("namabarang").Value

        Latihan_34C_46110038.harga46110038.Text = Data46110038.CurrentRow.Cells("hargajual").Value

        Latihan_34C_46110038.jumlah46110038.Text = Data46110038.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah untuk menjalankan Latihan_34B_46110038:

1. Klik start debugging.

2.Form Latihan_34A_46110038 akan muncul. Klik Daftar Barang maka Latihan_34B_46110038 akan muncul.

Latihan_34A_46110038

Deskripsi Form Latihan_34A_46110038:

Form Latihan_34A_46110038 hanya terdapat 3 object yaitu MenuStrip, DataGriedView,  dan ToolStrip.

Object MenuStrip

Di Latihan_34A_46110038 ada 1 MenuStrip yaitu Barang.

Object DataGridView

Di Latihan_34A_46110038 ada 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Toolstrip

Di Latihan_34A_46110038  ada 2 Toolstrip yaitu Data Barang dan Input Barang.

Script Unique

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

Even

Click

Cara Membuat Form Latihan_34A_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_34A_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_34A_46110038

    Private Sub db46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db46110038.Click

        Latihan_34B_46110038.Show()

    End Sub

    Private Sub ib46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ib46110038.Click

        If Latihan_34C_46110038.Visible = False Then

            Latihan_34C_46110038.Show()

        Else

            Latihan_34C_46110038.Activate()

        End If

    End Sub

    Private Sub Daftar46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar46110038.Click

        Latihan_34B_46110038.Show()

    End Sub

    Private Sub Input46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110038.Click

        If Latihan_34C_46110038.Visible = False Then

            Latihan_34C_46110038.Show()

        Else

            Latihan_34C_46110038.Activate()

        End If

    End Sub

End Class

Langkah untuk menjalankan Latihan_34A_46110038:

1.    Klik start debugging.

2. Form Latihan_34A_46110038 akan muncul, silakan memilih Daftar barang atau Input barang untuk memunculkan table yang berasal dari Latihan_34B_46110038 dan Latihan_34C_46110038.

Latihan_33B_46110038

Deskripsi Form Latihan_33B_46110038:

Form Latihan_33B_46110038 hanya terdapat 4 object yaitu Label, TextBox, Button dan Statusstrip.

Object Label

Di Latihan_33B_46110038 ada 4, kode barang, nama barang, harga jual, dan  jumlah barang

Object Textbox

Di Latihan_33B_46110038 ada 4 object textbox, status input, yang digunakan dalam menginput data.

Object Button

Di Latihan_33B_46110038  ada 1 Button, Simpan. Tombol simpan digunakan untuk menyimpan data yang telah diinput.

Object Statusstrip

Di Latihan_33B_46110038  ada 2 statusstrip yang digunakan, kode barang lama dan -. “-“akan menampilkan  kode barang yang akan diinput.

Script Unique

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

Even

Click

Cara Membuat Form Latihan_33B_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_33A_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_33B_46110038

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Kumpulan_Latihan_46110038\Kumpulan_Latihan_46110038\bin\Debug\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub tambah()

        Dim merah As New OleDb.OleDbCommand

        merah = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode46110038.Text & "','" & nama46110038.Text & "', " & Val(harga46110038.Text) & "," & Val(jumlah46110038.Text) & ")", conect)

        conect.Open()

        merah.ExecuteNonQuery()

        conect.Close()

        merah.Dispose()

        Latihan_33A_46110038.ambildata()

    End Sub

    Private Sub edit()

        Dim merah As New OleDb.OleDbCommand

        merah = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode46110038.Text & "', namabarang = '" & nama46110038.Text & "', hargajual=" & Val(harga46110038.Text) & ", jumlahbarang=" & Val(jumlah46110038.Text) & " where kodebarang='" & lama46110038.Text & "'", conect)

        conect.Open()

        merah.ExecuteNonQuery()

        conect.Close()

        merah.Dispose()

        Latihan_33A_46110038.ambildata()

    End Sub

    Private Sub simpan46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        If kode46110038.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If nama46110038.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(harga46110038.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(jumlah46110038.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If lama46110038.Text <> kode46110038.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", kode46110038.Text, 1, conect)

            If cari.JumlanBaris > 0 Then

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

                kode46110038.Text = " "

                nama46110038.Text = " "

                harga46110038.Text = " "

                jumlah46110038.Text = " "

                Exit Sub

            End If

        End If

        If lama46110038.Text = "-" Then

            tambah()

        Else

            edit()

        End If

        kode46110038.Text = " "

        nama46110038.Text = " "

        harga46110038.Text = " "

        jumlah46110038.Text = " "

        Me.Close()

    End Sub

End Class

Langkah untuk menjalankan Latihan_33B_46110038:

1.    Klik start debugging.

2. Form Latihan_33A_46110038 akan muncul dalam bentuk Tabel. Untuk menambah dan mengedit, silakan klik tombol Tambah dan Edit maka Latihan_33B_46110038 akan muncul.