Latihan_32B_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_32B
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_32B_46110007" pada name kemudian click add

·  Buat form seperti berikut 

 

·   Setelah itu beri teks pada label, button dan status strip.


·   Kemudian beri nama pada semua objek, kecuali label


·  Setelah form selesai masukkan rumus seperti dibawah ini 
Public Class Latihan_32B_46110007
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub SIMPAN_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_46110007.Click
        If T1_46110007.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        If T2_46110007.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        If Val(T3_46110007.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        If Val(T4_46110007.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", T1_46110007.Text, 1, Jalan)

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

            T1_46110007.Text = " "
            T2_46110007.Text = " "
            T3_46110007.Text = " "
            T4_46110007.Text = " "
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & T1_46110007.Text & "','" & T2_46110007.Text & "', " & Val(T3_46110007.Text) & "," & Val(T4_46110007.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        T1_46110007.Text = " "
        T2_46110007.Text = " "
        T3_46110007.Text = " "
        T4_46110007.Text = " "

        Latihan_32A_46110007.ambildata()
        Me.Close()
    End Sub
End Class

·  Untuk menjalankan form tekan F5 


B. Deskripsi Form Latihan 32B
Pada form latihan 32B ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label
Terdapat 4 label pada form latihan 32B (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.

Script Unique
Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even
ButtonClick

Langkah-Langkah Menjalankan Form Latihan 32B
  1. Input data pada textbox yang tersedia sesuai dengan label yang ada.
  2. Klik “Simpan” untuk menyimpan data yang telah diinput.
  3. Selamat Mencoba (:
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)