Latihan_32_46110001

         A.    Object-object dalam Latihan_32_46110001
pada latihan ini ada 3 form yang akan dibuat, yaitu Latihan_32a_46110001, Latihan_32b_46110001, dan Latihan_32c_46110001

I.          Latihan_32a_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 2 button, yaitu Tambah dan Edit. Tambah berfungsi untuk memunculkan Latihan_32b_46110001, sedangkan Edit berfungsi untuk memunculkan form Latihan_32c_46110001

II.          Latihan_32b_46110001

Pada form ini terdapat 3 jenis object, yaitu label, textbox, 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 Button

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

III.          Latihan_32c_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 32a, 32b dan 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_32A_46110001

 

 

II. FORM UNTUK LATIHAN_32B_46110001 

 

 

III. FORM UNTUK LATIHAN_32C_46110001

 

 

·         Berikut ini adalah rumus untuk menjalankan form di atas\

I.  SCRIPT UNTUK LATIHAN_32A_46110001

 

Public Class Latihan_32a_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 Latihan_32a_46110001Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110001.DataSource = ambil
    End Sub
    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110001.Click
        'Menampilkan form 32b
        If Latihan_32b_46110001.Visible = False Then
            Latihan_32b_46110001.Show()
        Else
            Latihan_32b_46110001.Activate()
        End If
    End Sub
    Private Sub edit_46110001load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110001.Click
        'Menampilkan form 32c
        If Latihan_32c_46110001.Visible = False Then
            Latihan_32c_46110001.Show()
        Else
            Latihan_32c_46110001.Activate()
        End If

        'mengisi textbox yang ada pada 32c
        Latihan_32c_46110001.GANTI_46110001.Text = dgv_46110001.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110001.TB1_46110001.Text = dgv_46110001.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110001.TB2_46110001.Text = dgv_46110001.CurrentRow.Cells("namabarang").Value
        Latihan_32c_46110001.TB3_46110001.Text = dgv_46110001.CurrentRow.Cells("hargajual").Value
        Latihan_32c_46110001.TB4_46110001.Text = dgv_46110001.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

II. SCRPT UNTUK LATIHAN_32B_46110001

 

Public Class Latihan_32b_46110001
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub simpan_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110001.Click
        'perintah periksa data
        If KB_46110001.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

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

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

            'mengosongkan text box
            KB_46110001.Text = " "
            TB1_46110001.Text = " "
            tb2_46110001.Text = " "
            tb3_46110001.Text = " "
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB_46110001.Text & "','" & TB1_46110001.Text & "', " & Val(tb2_46110001.Text) & "," & Val(tb3_46110001.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        KB_46110001.Text = " "
        TB1_46110001.Text = " "
        tb2_46110001.Text = " "
        tb3_46110001.Text = " "

        'menambildata
        Latihan_32a_46110001.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class 

 III. SCRIPT UNTUK LATIHAN_32C_46110001

 

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

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

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

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

        If Val(TB4_46110001.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        'perintah ambil data

        If KBL_46110001.Text <> TB1_46110001.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", TB1_46110001.Text, 1, Jalan)

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

                'mengosongkan text box
                TB1_46110001.Text = " "
                TB2_46110001.Text = " "
                TB3_46110001.Text = " "
                TB4_46110001.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & TB1_46110001.Text & "', namabarang = '" & TB2_46110001.Text & "', hargajual=" & Val(TB3_46110001.Text) & ", jumlahbarang=" & Val(TB4_46110001.Text) & " where kodebarang='" & KBL_46110001.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        GANTI_46110001.Text = "-"
        TB1_46110001.Text = " "
        TB2_46110001.Text = " "
        TB3_46110001.Text = " "
        TB4_46110001.Text = " "

        'mengambil data
        Latihan_32a_46110001.ambildata()

        '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 32A ,32B dan 32C seperti dibawah ini :

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

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