Latihan_40A_36110033

A.    Object-object dalam Latihan_40A_36110033:

1.        Object Label

  Terdapat satu label (yang bertuliskan data transaksi).

2.        Object Button

Terdapat tiga object button (Hapus, Tambah, dan Edit). Tombol hapus digunakan untuk menghapus data yang dipilih pada datagridview. Tombol tambah digunakan untuk menambah data barang. Tombol edit digunakan untuk mengedit barang yang dipilih pada datagridview. Jika tombol tambah atau edit diklik, makan akan muncul form Latihan_40B_36110033.

3.        Object DataGridView

Terdapat dua object datagridview. Datagridview1 digunakan untuk menampilkan data notrans, tanggal transaksi, dan jenis transaksi. Datagridview2 digunakan untuk menampilkan notrans, kode barang, nama barang, harga, unit, dan jumlah.

B.     Script Unique:

Latihan_40A_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_40A_36110033.

C.    Even:

MUATAN()

Latihan_40A_36110033_Load

HAPUS_36110033_Click

TAMBAH_36110033_Click

EDIT_36110033_Click

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat 1Label, 2 object datagridview, dan 3 button. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi Label, textbox, statusstrip dan button sesuai dengan design pada latihan 40A berikut:

 

6.      Untuk menuliskan rumus pada latihan 40A, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_40A_36110033

    Dim BRIDGEILHA As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb")

    Dim TABELILHA1 As New DataTable

    Dim TABLEILHA2 As New DataTable

    Dim SETILHA As New DataSet

    Dim BINDINGILHA1 As New BindingSource

    Dim BINDINGILHA2 As New BindingSource

    Public Sub MUATAN()

        Dim TRUCKILHA As New OleDb.OleDbDataAdapter

        TABLEILHA2.Rows.Clear()

        TABELILHA1.Rows.Clear()

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

        "From MASTERTRANSAKSI", BRIDGEILHA)

        TRUCKILHA.Fill(TABELILHA1)

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

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

        TRUCKILHA.Fill(TABLEILHA2)

        TRUCKILHA.Dispose()

    End Sub

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

        MUATAN()

        DataG1_36110033.DataSource = TABELILHA1

        DataG2_36110033.DataSource = TABLEILHA2

        SETILHA.Tables.Add(TABELILHA1)

        SETILHA.Tables.Add(TABLEILHA2)

        TABELILHA1.TableName = "Induk"

        TABLEILHA2.TableName = "Sub"

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

        BINDINGILHA1.DataSource = SETILHA

        BINDINGILHA1.DataMember = "Induk"

        BINDINGILHA2.DataSource = BINDINGILHA1

        BINDINGILHA2.DataMember = "Relasi"

        DataG1_36110033.DataSource = BINDINGILHA1

        DataG2_36110033.DataSource = BINDINGILHA2

    End Sub

    Private Sub HAPUS_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_36110033.Click

        Dim TRUCKILHA As New OleDb.OleDbCommand

        TRUCKILHA = New OleDb.OleDbCommand("Delete * From MASTERTRANSAKSI Where NOTRANS = '" & DataG1_36110033.CurrentRow.Cells("NOTRANS").Value & "'", BRIDGEILHA)

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

            BRIDGEILHA.Open()

            TRUCKILHA.ExecuteNonQuery()

            TRUCKILHA = New OleDb.OleDbCommand("Delete * From DETAILTRANSAKSI Where NOTRANS = '" & DGV1_36110048.CurrentRow.Cells("NOTRANS").Value & "'", bridgeRio)

            TRUCKILHA.ExecuteNonQuery()

            BRIDGEILHA.Close()

            TRUCKILHA.Dispose()

        End If

        MUATAN()

    End Sub

    Private Sub TAMBAH_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_36110033.Click

        If Latihan_40B_36110033.Visible = False Then

            Latihan_40B_36110033.Show()

        Else

            Latihan_40B_36110033.Activate()

            Latihan_40B_36110033.WindowState = FormWindowState.Normal

            Latihan_40B_36110033.NLM_36110033.Text = "-"

        End If

        Latihan_40B_36110033.NT_36110033.Text = ""

        Latihan_40B_36110033.JT_36110033.Text = ""

        Latihan_40B_36110033.TOT_36110033.Text = ""

        Latihan_40B_36110033.SelectData()

        Latihan_40B_36110033.Hitung()

    End Sub

 Private Sub EDIT_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_36110033.Click

        If Latihan_40B_36110033.Visible = False Then

            Latihan_40B_36110033.Show()

        Else

            Latihan_40B_36110033.Activate()

            Latihan_40B_36110033.WindowState = FormWindowState.Normal

        End If

        Latihan_40B_36110033.NT_36110033.Text = DataG1_36110033.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110033.NLM_36110033.Text = DataG1_36110033.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110033.JT_36110033.Text = DataG1_36110033.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_40B_36110033.SelectData()

        Latihan_40B_36110033.Hitung()

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.    Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 40A selesai.