Latihan_34_46110001

A.OBJECT-OBJECT PADA LATIHAN_34_46110001
Pada latihan ini ada 3 form yang akan dibuat, yaitu Latihan_34a_46110001, Latihan_34b_46110001, dan Latihan_34c_46110001

  I.    Latihan_34a_46110001

Pada form ini terdapat 3 jenis object, yaitu label, datagridview, dan toolstrip

A.    Object Label.

Pada form ini, terdapat 1 label yang bertuliskan “Barang”

B.      Object Datagridview

Pada form ini terdapat 1 datagrid view yang akan memunculkan datatable yang berasal dari data base.

C.     Object Toolstrip

Pada form ini, terdapat 2 Toolstrip, yaitu Daftar barang dan Input Barang. Daftar Barang akan memunculkan jendela Latihan_34b_46110001 dan input barang akan menampilkan jendela Latihan_34c_46110001

  II.   Latihan_34b_46110001

Pada form ini terdapat 3 jenis object, yaitu label, datagridview, dan button

A.     Object Label.

Pada form ini, terdapat 1 label yang bertuliskan “Daftar Barang”

B.     Object Datagridview

Pada form ini terdapat 1 datagrid view yang akan memunculkan datatable yang berasal dari data base.

C.     Object Button

Pada form ini, terdapat 3 button, yaitu Hapus, Tambah dan Edit. Tambah dan edit berfungsi untuk memunculkan Latihan_34c_46110001, sedangkan tombol hapus berfungsi untuk menghapus data yang dipilih.

  III.          Latihan_34c_46110001

Pada form ini terdapat 4 jenis object, yaitu label, Textbox satusstrip dan button

A.       Object Label.

Pada form ini, terdapat 4 label yaitu Kode barang, Nama Barang, Harga jual, dan Jumlah barang

B.       Object TextBox

Terdapat 4 text box yang berfungsi sebagai tempat untuk menginput data

C.       Object Statusstrip

Terdapat 2 status strip yaitu kode barang dan -

D.       Object Button

Terdapat 1 button yaitu simpan yang berfungsi untuk menyimpan data yang telah dimasukkan ke dalam text box

B.     Script Unique

         Pada form ini tidak terdapat script unique

C.     Even

Button Click

D.    Cara Penyelesaian

Langkah pertama dalam membuat form/ latihan 34a, 34b dan 34 c ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

·         Buatlah form seperti gambar dibawah ini,

I.  FORM UNTUK LATIHAN_34A_46110001

II. FORM UNTUK LATIHAN_34B_46110001 

III. FORM UNTUK LATIHAN_34C_46110001

·         Berikut ini adalah rumus untuk menjalankan form di atas\

I.  SCRIPT UNTUK LATIHAN_34A_46110001

Public Class latihan_34a_46110001

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftarbarang_46110001.Click
        Latihan_34b_46110001.Show()
    End Sub

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


    End Sub

    Private Sub daftarbarang_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftarbarang_46110001.Click
        Latihan_34b_46110001.Show()
    End Sub

    Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles inputbarang_46110001.Click
        If Latihan_34c_46110001.Visible = False Then

            Latihan_34c_46110001.Show()
        Else
            Latihan_34c_46110001.Activate()
        End If
    End Sub

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


    End Sub
End Class 

II. SCRPT UNTUK LATIHAN_34B_46110001

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

    Private Sub delete_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete_46110001.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_46110001.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

    Private Sub tambah_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110001.Click
        'Menampilkan form 33b
        If Latihan_34c_46110001.Visible = False Then
            Latihan_34c_46110001.MdiParent = Me.MdiParent
            Latihan_34c_46110001.Show()
        Else
            Latihan_33b_46110001.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_34c_46110001.ganti_46110001.Text = "-"
        Latihan_34c_46110001.T1_46110001.Text = " "
        Latihan_34c_46110001.T2_46110001.Text = " "
        Latihan_34c_46110001.T3_46110001.Text = " "
        Latihan_34c_46110001.T4_46110001.Text = " "
    End Sub

    Private Sub EDit_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDit_46110001.Click
        Latihan_34c_46110001.Show()
        'Mengisi Text Box
        Latihan_34c_46110001.ganti_46110001.Text = dgv_46110001.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110001.T1_46110001.Text = dgv_46110001.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110001.T2_46110001.Text = dgv_46110001.CurrentRow.Cells("namabarang").Value
        Latihan_34c_46110001.T3_46110001.Text = dgv_46110001.CurrentRow.Cells("hargajual").Value
        Latihan_34c_46110001.T4_46110001.Text = dgv_46110001.CurrentRow.Cells("JumlahBarang").Value

    End Sub
End Class

 III. SCRIPT UNTUK LATIHAN_34C_46110001

Public Class Latihan_34c_46110001
    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 ('" & T1_46110001.Text & "','" & T2_46110001.Text & "', " & Val(T3_46110001.Text) & "," & Val(T4_46110001.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34b_46110001.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & T1_46110001.Text & "', namabarang = '" & T2_46110001.Text & "', hargajual=" & Val(T3_46110001.Text) & ", jumlahbarang=" & Val(T4_46110001.Text) & " where kodebarang='" & ganti_46110001.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34b_46110001.ambildata()
    End Sub

    Private Sub SAVE_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46110001.Click
        'perintah periksa data
        If T1_46110001.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If T2_46110001.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(T3_46110001.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            T1_46110001.Text = " "
            T2_46110001.Text = " "
            T3_46110001.Text = " "
            T4_46110001.Text = " "
            Exit Sub
        End If

        If ganti_46110001.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        T1_46110001.Text = " "
        T2_46110001.Text = " "
        T3_46110001.Text = " "
        T4_46110001.Text = " "

        'menutup form
        Me.Close()

    End Sub
   

End Class

langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini: 

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 34A ,34B dan 34C seperti dibawah ini :

·         Setelah menekan tombol debug maka tampilan latihan 34A ,34B dan 34C sebagai berikut :

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.

·