Latihan_29_46110007

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

·  Ketik nama form "Latihan_29_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_29_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 GANTI_46110007.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        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
        If GANTI_46110007.Text <> T1_46110007.Text Then
            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
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & T1_46110007.Text & "', namabarang = '" & T2_46110007.Text & "', hargajual=" & Val(T3_46110007.Text) & ", jumlahbarang=" & Val(T4_46110007.Text) & " where kodebarang='" & GANTI_46110007.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        GANTI_46110007.Text = " "
        T1_46110007.Text = " "
        T2_46110007.Text = " "
        T3_46110007.Text = " "
        T4_46110007.Text = " "
    End Sub
End Class

·  Untuk menjalankan form tekan F5 


B. Deskripsi Form Latihan 29
Pada form latihan 29 ada 4 object yang digunakan yaitu Label, Text Box, Button dan GroupBox.

Object Label
Terdapat 6 label pada form latihan 29 (kode barang, (kode barang yang akan diganti datanya), kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 5 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 diganti datanya.

Object GroupBox                                                          
Ada 2 groupbox pada latihan ini. Groupbox pertama berisi rincian data lama dan groupbox kedua berisi rincian data baru.


Script Unique
Mengganti data lama dengan data baru
If GANTI_46110007.Text <> T1_46110007.Text Then
            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
End If

Even
ButtonClick

Langkah-Langkah Menjalankan Form Latihan 29
  1. Input kode barang lama pada textbox yang tersedia.
  2. Input data barang baru untuk menggantikan data barang lama pada textbox yang terserdia.
  3. Klik “Simpan” untuk menyimpan perubahan data yang telah dibuat.
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)