latihan_40A_36110036

Deskripsi latihan_40A_36110036

A.           Object Label

Terdapat Satu label yang bertuliskan data transaksi.

B.            Object button

         Terdapat tiga object button yang bertuliskan (hapus, tambah, edit). Button hapus digunakan untuk menghapus daftar barang yang dipilih pada data gridview, button tambah digunakan untuk menambah daftar barang sedangkan button edit digunakan untuk mengedit daftar barang yang dipilih pada datagridview, jika object tambah atau edit diklik maka akan muncul latihan_40B_36110036. Pada form inilah data barang yang telah dipilih pada datagridview akan ditambah atau diedit.

C.           Object data gridview

Terdapat dua data gridview yang digunakan untuk menampilkan data yang telah diinput.

D.           Script Unique

          Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan latihan_40A_36110036.

E.    Even

        latihan_40A_36110036_Load

          hapus_36110036_Click

          tambah_36110036_Click

          edit_36110036_Click

Langkah-langkah mengerjakan latihan_40A_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

       

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

          

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                   

6.    Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_40A_36110036.

Public Class latihan_40A_36110036

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

    Dim anna1 As New DataTable

    Dim anna2 As New DataTable

    Dim sena As New DataSet

    Dim bi1 As New BindingSource

    Dim bi2 As New BindingSource

    Public Sub Isi()

        Dim fika As New OleDb.OleDbDataAdapter

        anna2.Rows.Clear()

        anna1.Rows.Clear()

        fika = New OleDb.OleDbDataAdapter("Select * " & _

        "From MASTERTRANSAKSI", CONECT)

        fika.Fill(anna1)

        fika = New OleDb.OleDbDataAdapter("Select NOTRANS, DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA As JUMLAH " & _

        "From DETAILTRANSAKSI Inner Join BARANG on DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", CONECT)

        fika.Fill(anna2)

        fika.Dispose()

    End Sub

    Private Sub Latihan_40A_36110036_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Isi()

        data1_36110036.DataSource = anna1

        data2_36110036.DataSource = anna2

        sena.Tables.Add(anna1)

        sena.Tables.Add(anna2)

        anna1.TableName = "Induk"

        anna2.TableName = "Sub"

        sena.Relations.Add(New DataRelation("Relasi", sena.Tables("Induk").Columns("NOTRANS"), sena.Tables("Sub").Columns("NOTRANS")))

        bi1.DataSource = sena

        bi1.DataMember = "Induk"

        bi2.DataSource = bi1

        bi2.DataMember = "Relasi"

        data1_36110036.DataSource = bi1

        data2_36110036.DataSource = bi2

    End Sub

    Private Sub hapus_36110036_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles hapus_36110036.Click

        Dim fika As New OleDb.OleDbCommand

        fika = New OleDb.OleDbCommand("Delete * From MASTERTRANSAKSI Where NOTRANS = '" & data1_36110036.CurrentRow.Cells("NOTRANS").Value & "'", CONECT)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            CONECT.Open()

            fika.ExecuteNonQuery()

            fika = New OleDb.OleDbCommand("Delete * From DETAILTRANSAKSI Where NOTRANS = '" & data1_36110036.CurrentRow.Cells("NOTRANS").Value & "'", CONECT)

            fika.ExecuteNonQuery()

            CONECT.Close()

            fika.Dispose()

        End If

        Isi()

    End Sub

    Private Sub tambah_36110036_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tambah_36110036.Click

        If latihan_40B_36110036.Visible = False Then

            latihan_40B_36110036.Show()

        Else

            latihan_40B_36110036.Activate()

            latihan_40B_36110036.WindowState = FormWindowState.Normal

            latihan_40B_36110036.nolama_36110036.Text = "-"

        End If

        latihan_40B_36110036.no_36110036.Text = ""

        latihan_40B_36110036.jenis_36110036.Text = ""

        latihan_40B_36110036.total_36110036.Text = ""

        latihan_40B_36110036.SelectData()

        latihan_40B_36110036.Hitung()

    End Sub

    Private Sub edit_36110036_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit_36110036.Click

        If latihan_40B_36110036.Visible = False Then

            latihan_40B_36110036.Show()

        Else

            latihan_40B_36110036.Activate()

            latihan_40B_36110036.WindowState = FormWindowState.Normal

        End If

        latihan_40B_36110036.no_36110036.Text = data1_36110036.CurrentRow.Cells("NOTRANS").Value

        latihan_40B_36110036.nolama_36110036.Text = data1_36110036.CurrentRow.Cells("NOTRANS").Value

        latihan_40B_36110036.jenis_36110036.Text = data1_36110036.CurrentRow.Cells("JENISTRANSAKSI").Value

        latihan_40B_36110036.SelectData()

        latihan_40B_36110036.Hitung()

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.