Latihan_34C_46110024

DESKRIPSI FORM LATIHAN 34C

Form Latihan  ini Terdapat  empat object yaitu label, textbox, button, dan toolstrip

Object Label

Dalam form latihan ini terdapat empat label yang bertuliskan  Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang 

Object Textbox

Terdapat  empat textbox yang berstatus input

Object  Button

Dalam form ini terdapat sebuah object button yang bertuliskan simpan, untuk menyimpan data yang sudah diinput

Object ToolStrip

Dalam form ini terdapat 2 buah object toolstrip. Yang bertuliskan kode barang dan -

Script  Unique

Tidak ada script unik pada latihan ini

Even

Buttonclick

Langkah- Langkah Membuat Form Latihan  34C

1. Buka File Microsoft Visual Studio Anda  lalu pilih project--> Add windows form 

 

  2. Ganti nama sesuai dengan nama latihan 34C

 

3. Lalu pilih object yang ada di latihan 34C

 

4. Buat form sampai menghasilkan form seperti di bawah ini

 

5. Pilih Menu view klik code

 

6. Masukkan Script sebagai berikut

Pub Public Class Latihan_34C_46110024

    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 ('" & kb_45110024.Text & "','" & nb_46110024.Text & "', " & Val(hj_46110024.Text) & "," & Val(jb_46110024.Text) & ")", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_34B_46110024.ambildata()

    End Sub

    Private Sub replace()

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb_45110024.Text & "', namabarang = '" & nb_46110024.Text & "', hargajual=" & Val(hj_46110024.Text) & ", jumlahbarang=" & Val(jb_46110024.Text) & " where kodebarang='" & ganti_46110024.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        Latihan_34B_46110024.ambildata()

    End Sub

    Private Sub simpan_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110024.Click

        If kb_45110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If nb_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(hj_46110024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(jb_46110024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

        If PENCARI.JumlanBaris > 0 Then

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

            kb_45110024.Text = " "

            nb_46110024.Text = " "

            hj_46110024.Text = " "

            jb_46110024.Text = " "

            Exit Sub

        End If

        If ganti_46110024.Text = "-" Then

            tambah()

        Else

            replace()

        End If

        kb_45110024.Text = " "

        nb_46110024.Text = " "

        hj_46110024.Text = " "

        jb_46110024.Text = " "

        Me.Close()

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  34C

1. Form Latihan  34C akan jalan jika anda memilih pada menustrip ataupun toolstrip yang bertuliskan input data pada latihan 34A 
2. Ataupun mengklik  tombol tambah  atau edit pada form latihan 34B 
3. Masukkan data yang diminta ke dalam textbox yang berstatus input jika anda ingin menambahkan atau edit data yang telah ada jika anda mengklik tombol edit 
4. Simpan data yang anda masukkan dengan menklik button yang bertuliskan simpan, maka data yang anda masukkan akan tersimpan ke dalam   form latihan 34B