Latihan_34A_34B_dan_34C_46110037

Deskripsi Form Latihan 34A, 34B dan 34C

*Pada Latihan_34A_46110037 terdapat 3 object yaitu DataGridView dan MenuStrip.

*Pada Latihan_34B_46110037 terdapat 3 object yaitu Label dan Button.

*Pada Latihan_34C_46110037 terdapat 3 object yaitu Label, Textbox; StatusStrip dan Button.

Object DataGridView

*Pada Latihan_34A_46110037 terdapat 1 DataDridView yang akan Menampilkan data table.

Object Button

*Pada Latihan_34B_46110037 terdapat 3 button yaitu tombol Hapus, Tambah dan Edit.

*Pada Latihan_34C_46110037 terdapat 1 button yaitu tombol Simpan. Apabila tombol ini diclick maka data yang di input akan tersimpan pada form yang telah ditentukan.

Object Label

*Pada Latihan_34B_46110037  terdapat 1 Label yaitu Daftar Barang.

*Pada Latihan_34C_46110037  terdapat 4 Label yaitu Kode Barang; Nama Barang; Harga Jual

Object StatusStrip

*Pada Latihan_34C_46110037 terdapat 1 StatusStrip yaitu Kode Barang Lama

Object Textbox

*Pada Latihan_34C_46110037 Terdapat 4 Textbox yang berstatus Input yaitu Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang.

Script Unique

Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even

Load

Propertty

Default

Langkah-langkah Menyelesaikan Form Latihan 34A, 34B dan 34C

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_34A_46110037, Latihan_34B_46110037 dan Latihan_34C_46110037) dengan menggunakan DataGridView, Textbox, Label; Status Strip; MenuStrip dan Button
• Ganti nama DataGridView, Textbox, StatusStrip dan Button di properties-Name,
• Click Kanan pada design Latihan_32A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_34A_46110037

    Private Sub TSL146110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL146110037.Click

        LATIHAN_34B_46110037.Show()

    End Sub

    Private Sub TSL246110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL246110037.Click

        If LATIHAN_34C_46110037.Visible = False Then

            LATIHAN_34C_46110037.MdiParent = Me.MdiParent

            LATIHAN_34C_46110037.Show()

        Else

            LATIHAN_34C_46110037.Activate()

        End If

    End Sub

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

        LATIHAN_34B_46110037.Show()

    End Sub

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

        If LATIHAN_34C_46110037.Visible = False Then

            LATIHAN_34C_46110037.MdiParent = Me

            LATIHAN_34C_46110037.Show()

        Else

            LATIHAN_34C_46110037.Activate()

        End If

    End Sub

End Class

Selesaikan juga Script pada Latihan_34B_46110037dengan cara:

Pilih design form Latihan_34B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_34B_46110037

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim inna As New DataTable

    Public Sub ambildata()

        Dim motor As New OleDb.OleDbDataAdapter

        motor = New OleDb.OleDbDataAdapter("SELECT* FROM barang", hubung)

        inna.Rows.Clear()

        motor.Fill(inna)

        motor.Dispose()

    End Sub

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

        ambildata()

        dgv46110037.DataSource = inna

    End Sub

    Private Sub DEL46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DEL46110037.Click

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

            Exit Sub

        End If

        Dim MOBIL As New OleDb.OleDbCommand

        MOBIL = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110037.CurrentRow.Cells("Kodebarang").Value & "'", hubung)

        hubung.Open()

        MOBIL.ExecuteNonQuery()

        hubung.Close()

        MOBIL.Dispose()

        ambildata()

    End Sub

    Private Sub TAMBAH46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH46110037.Click

        If LATIHAN_34C_46110037.Visible = False Then

            LATIHAN_34C_46110037.MdiParent = Me.MdiParent

            LATIHAN_34C_46110037.Show()

        Else

            LATIHAN_34C_46110037.Activate()

        End If

        LATIHAN_34C_46110037.ganti46110037.Text = "-"

        LATIHAN_34C_46110037.Kod46110037.Text = " "

        LATIHAN_34C_46110037.NamaBarg46110037.Text = " "

        LATIHAN_34C_46110037.Hjual46110037.Text = " "

        LATIHAN_34C_46110037.JumBar46110037.Text = " "

    End Sub

    Private Sub EDIT46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46110037.Click

        LATIHAN_34C_46110037.Show()

   

        LATIHAN_34C_46110037.ganti46110037.Text = dgv46110037.CurrentRow.Cells("kodebarang").Value

        LATIHAN_34C_46110037.Kod46110037.Text = dgv46110037.CurrentRow.Cells("kodebarang").Value

        LATIHAN_34C_46110037.NamaBarg46110037.Text = dgv46110037.CurrentRow.Cells("namabarang").Value

        LATIHAN_34C_46110037.Hjual46110037.Text = dgv46110037.CurrentRow.Cells("hargajual").Value

        LATIHAN_34C_46110037.JumBar46110037.Text = dgv46110037.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

• Selesaikan juga Script pada Latihan_34C_46110037dengan cara:
• Pilih design form Latihan_34C_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_34C_46110037

    Dim hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Private Sub tambah()

        Dim MOBIL As New OleDb.OleDbCommand

        MOBIL = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & Kod46110037.Text & "','" & NamaBarg46110037.Text & "', " & Val(Hjual46110037.Text) & "," & Val(JumBar46110037.Text) & ")", hubung)

        hubung.Open()

        MOBIL.ExecuteNonQuery()

        hubung.Close()

        MOBIL.Dispose()

        LATIHAN_34B_46110037.ambildata()

    End Sub

    Private Sub replace()

  

        Dim MOBIL As New OleDb.OleDbCommand

        MOBIL = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & Kod46110037.Text & "', namabarang = '" & NamaBarg46110037.Text & "', hargajual=" & Val(Hjual46110037.Text) & ", jumlahbarang=" & Val(JumBar46110037.Text) & " where kodebarang='" & ganti46110037.Text & "'", hubung)

        hubung.Open()

        MOBIL.ExecuteNonQuery()

        hubung.Close()

        MOBIL.Dispose()

        LATIHAN_34B_46110037.ambildata()

    End Sub

    Private Sub SIMPAN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110037.Click

  

        If Kod46110037.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NamaBarg46110037.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(Hjual46110037.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JumBar46110037.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, hubung)

        If PENCARI.JumlanBaris > 0 Then

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

           

            Kod46110037.Text = " "

            NamaBarg46110037.Text = " "

            Hjual46110037.Text = " "

            JumBar46110037.Text = " "

            Exit Sub

        End If

        If ganti46110037.Text = "-" Then

            tambah()

        Else

            replace()

        End If

      

        Kod46110037.Text = " "

        NamaBarg46110037.Text = " "

        Hjual46110037.Text = " "

        JumBar46110037.Text = " "

      

        Me.Close()

    End Sub

End Class

• Click Start Debugging untuk menjalankan form