Latihan_30A_dan_30B_46110037

Deskripsi Form Latihan 30A dan 30B

*Pada Latihan_30A_46110037 terdapat 3 object yaitu Label, DataGridView dan Button.

*Pada Latihan_30B_46110037 terdapat 3 object yaitu Label, Textbox dan Button.

Object DataGridView

*Pada Latihan_30A_46110037 terdapat 1 DataDridView yang akan Menampilkan file accses

Object Button

*Pada Latihan_30A_46110037 terdapat 1 button yaitu Edit. Ketika Tombol Edit di click maka Form Latihan_30B_46110037 akan muncul.

*Pada Latihan_30B_46110037 terdapat 1 button yaitu tombol Simpan. Apabila tombol ini diclick maka data yang di input akan tersimpan pada form yang telah ditentukan.

Object Label

*Pada Latihan_30A_46110037 Terdapat 1 Label yaitu Daftar Barang

*Pada Latihan_30B_46110037 terdapat 5 Label yaitu Kode Barang1; Kode Barang2; Nama Barang; Harga Jual dan Jumlah Barang.

Object Textbox

Pada Latihan_30B_46110037 Terdapat 5 Textbox yang berstatus Input yaitu Kode Barang1;  Kode Barang2; Nama Barang; Harga Jual dan Jumlah Barang.

Script Unique

Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 30A dan 30B

Click Start Debugging untuk menjalankan Script Latihan_30A_46110037, kemudian click tombol “Edit”, maka Form Latihan_30B_46110037 akan muncul, setelah itu input data pada form Latihan_30B_46110037 kemudian click tombol “Simpan”, maka data akan tersimpan pada datatable yang muncul di Latihan_30A_46110037.

Langkah-langkah Menyelesaikan Form Latihan 30A dan 30B

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_30A_46110037 dan Latihan_30B_46110037) dengan menggunakan DataGridView, Textbox, Label dan Button
• Ganti nama DataGridView, Textbox dan Button di properties-Name,
• Click Kanan pada design Latihan_30A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_30A_46110037

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim INNA As New DataTable

----------------------------------------------------------------------------

    Public Sub ambildata()

 

        Dim DELMAN As New OleDb.OleDbDataAdapter

        DELMAN = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", connect)

  

        INNA.Rows.Clear()

        DELMAN.Fill(INNA)

        DELMAN.Dispose()

    End Sub

----------------------------------------------------------------------------

    Private Sub LATIHAN_30A_46110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        DGV46110037.DataSource = INNA

    End Sub

----------------------------------------------------------------------------

    Private Sub EDIT46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46110037.Click

       

        If LATIHAN_30B_46110037.Visible = False Then

            LATIHAN_30B_46110037.Show()

        Else

            LATIHAN_30B_46110037.Activate()

        End If

        LATIHAN_30B_46110037.GANTI_46110037.Text = DGV46110037.CurrentRow.Cells("KODEBARANG").Value

        LATIHAN_30B_46110037.Kod46110037.Text = DGV46110037.CurrentRow.Cells("KODEBARANG").Value

        LATIHAN_30B_46110037.NamaBarg46110037.Text = DGV46110037.CurrentRow.Cells("NAMABARANG").Value

        LATIHAN_30B_46110037.Hjual46110037.Text = DGV46110037.CurrentRow.Cells("HARGAJUAL").Value

        LATIHAN_30B_46110037.JumBar46110037.Text = DGV46110037.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

End Class

• Selesaikan juga Script pada Latihan_30B_46110037dengan cara:
• Pilih design form Latihan_30B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_30B_46110037

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

----------------------------------------------------------------------------

    Private Sub SIMPAN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110037.Click

        If Kod46110037.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NamaBarg46110037.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(Hjual46110037.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JumBar46110037.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If GANTI_46110037.Text <> Kod46110037.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, connect)

            If cari.JumlanBaris > 0 Then

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

                Kod46110037.Text = " "

                NamaBarg46110037.Text = " "

                Hjual46110037.Text = " "

                JumBar46110037.Text = " "

                Exit Sub

            End If

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & Kod46110037.Text & "', NAMABARANG = '" & NamaBarg46110037.Text & "', HARGAJUAL=" & Val(Hjual46110037.Text) & ", JUMLAHBARANG=" & Val(JumBar46110037.Text) & " where KODEBARANG='" & GANTI_46110037.Text & "'", connect)

        connect.Open()

        Cm.ExecuteNonQuery()

        connect.Close()

        Cm.Dispose()

        GANTI_46110037.Text = " "

        Kod46110037.Text = " "

        NamaBarg46110037.Text = " "

        Hjual46110037.Text = " "

        JumBar46110037.Text = " "

        LATIHAN_30A_46110037.ambildata()

        Me.Close()

    End Sub

End Class

• Click Start Debugging untuk menjalankan form