Latihan_28B_46110007

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

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

·  Buat form seperti berikut 
 

·    Setelah itu beri teks pada label dan button

·    Kemudian beri nama pada semua objek, kecuali label


·  Setelah form selesai masukkan rumus seperti dibawah ini 
Public Class Latihan_28B_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_28A_46110007.ambildata()
        Me.Close()
    End Sub
End Class

·  Untuk menjalankan form tekan F5 


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

Object Label
Terdapat 5 label pada form latihan 28B (penginputan data, kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button                                                                
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.

Langkah-Langkah Menjalankan Form Latihan 28B
  1. Input data pada textbox yang telah tersedia.
  2. Klik “SIMPAN” untuk menyimpan data yang telah diinput, secara otomatis data yang telah tersimpan akan mucul pada form Latihan_28A_46110007.
  3. Selamat mencoba (:

Even
ButtonClick
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)