Latihan_31B_46110009

Latihan_31B_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 31B

       Pada form latihan 31A 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 1 object button (edit). Tombol edit digunakan untuk menampilkan form pengeditan data pada “Latihan_31B_46110009”.

       Object DataGridView

       Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

3.  Rumus

Public Class Latihan_30B_46110009

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

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110009.Click

        'perintah periksa data

        If Lama_46110009.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If KB_46110009.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If NB_46110009.Text.Length = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110009.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110009.Text) = 0 Then

            MsgBox("Please Insert Your Text")

            Exit Sub

        End If

        'perintah ambil data

        If Lama_46110009.Text <> KB_46110009.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110009.Text, 1, go)

            If PENCARI.JumlanBaris > 0 Then

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

                'mengosongkan text box

                Lama_46110009.Text = ""

                KB_46110009.Text = ""

                NB_46110009.Text = ""

                HJ_46110009.Text = ""

                JB_46110009.Text = ""

                Exit Sub

            End If

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110009.Text & "', namabarang = '" & NB_46110009.Text & "', hargajual=" & Val(HJ_46110009.Text) & ", jumlahbarang=" & Val(JB_46110009.Text) & " where kodebarang='" & Lama_46110009.Text & "'", go)

        go.Open()

        Cm.ExecuteNonQuery()

        go.Close()

        Cm.Dispose()

        'mengosongkan text box

        Lama_46110009.Text = ""

        KB_46110009.Text = ""

        NB_46110009.Text = ""

        HJ_46110009.Text = ""

        JB_46110009.Text = ""

        'mengambildata

        Latihan_30A_46110009.ambildata()

        'menutup form

        Me.Close()

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

End Class

Latihan_34C_46110009

Latihan_34C_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

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

3.  Rumus

Public Class Latihan_34C_46110009

    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 ('" & T1_46110009.Text & "','" & T2_46110009.Text & "', " & Val(T3_46110009.Text) & "," & Val(T4_46110009.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_34B_46110009.ambildata()

    End Sub

    Private Sub replace()

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & T1_46110009.Text & "', namabarang = '" & T2_46110009.Text & "', hargajual=" & Val(T3_46110009.Text) & ", jumlahbarang=" & Val(T4_46110009.Text) & " where kodebarang='" & GANTI_46110009.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_34B_46110009.ambildata()

    End Sub

    Private Sub SIMPAN_46110009_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110009.Click

        If T1_46110009.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If T2_46110009.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(T3_46110009.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(T4_46110009.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

        If PENCARI.JumlanBaris > 0 Then

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

            T1_46110009.Text = " "

            T2_46110009.Text = " "

            T3_46110009.Text = " "

            T4_46110009.Text = " "

            Exit Sub

        End If

        If GANTI_46110009.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        T1_46110009.Text = " "

        T2_46110009.Text = " "

        T3_46110009.Text = " "

        T4_46110009.Text = " "

        Me.Close()

    End Sub

End Class