Jumat, 12 Oktober 2012

Latihan_28B_46110045

Deskripsi :
Dalam form Latihan 28b hanya terdapat tiga object yaitu Label, Textbox, Button.

Object label :
Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.

Object textbox :
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

Object button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 28B :
1. Pilih add windows form lalu masukkan form 28B.
2. Buatlah desain untuk form 28B.
3. Masukkan rumus seperti ini
Public Class Latihan_28B_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

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

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

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

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

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

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hj46110045.Text = " "
            jb46110045.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 ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hj46110045.Text = " "
        jb46110045.Text = " "

        'menjalankan procedure pengambilan data
        Latihan_28A_46110045.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

Script unique :
Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()
 berguna untuk mendeklarasikan command.

Even :
Button click.
 

Tidak ada komentar:

Posting Komentar