Latihan_36_36110031

Tahap Penyelesaian Latihan_36_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_36  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_36 dibawah ini:

 

 5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_36_36110031

    Dim Audry As New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=3711")

    Dim Tabel As New DataTable

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

        Dim Ias As New OleDb.OleDbDataAdapter

        Ias = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & Kodebarang_36110031.Text & "'", Audry)

        Tabel.Rows.Clear()

        Ias.Fill(Tabel)

        DGV_36110031.DataSource = Tabel

        Dim Dc(1) As DataColumn

        Dc(0) = Tabel.Columns("kodebarang")

        Tabel.PrimaryKey = Dc

    End Sub

    Private Sub Tambah_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_36110031.Click

        If Kodebarang_36110031.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If Val(Unit_36110031.Text) = 0 Then

            MsgBox("UNIT belum terisi")

            Exit Sub

        End If

        If Val(Harga_36110031.Text) = 0 Then

            MsgBox("HARGA belum terisi")

            Exit Sub

        End If

        Dim AA As DataRow

        AA = Tabel.Rows.Find(Kodebarang_36110031.Text)

        If AA Is Nothing Then

            AA = Tabel.NewRow

            AA("KODEBARANG") = Kodebarang_36110031.Text

            AA("UNIT") = Unit_36110031.Text

            AA("HARGA") = Harga_36110031.Text

            Tabel.Rows.Add(AA)

            Kodebarang_36110031.Text = ""

            Unit_36110031.Text = ""

            Harga_36110031.Text = ""

        Else

            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")

        End If

    End Sub

    Private Sub Simpan_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110031.Click

        If NoTrans_36110031.Text.Length = 0 Then

            MsgBox("no.transaksi belum terisi")

            Exit Sub

        End If

        If Jenis_36110031.Text.Length = 0 Then

            MsgBox("jenis transaksi belum terisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", NoTrans_36110031.Text, 1, Audry)

        If cari.JumlanBaris > 0 Then

            MsgBox("NO.TRANS sudah ada")

            Exit Sub

        End If

        If Tabel.Rows.Count = 0 Then

            MsgBox("data tidak tersedia")

        End If

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NoTrans_36110031.Text & "',#" & DTP_36110031.Value.Month & "/" & DTP_36110031.Value.Day & "/" & DTP_36110031.Value.Year & "#,'" & Jenis_36110031.Text & "')", Audry)

        Audry.Open()

        com.ExecuteNonQuery()

        Audry.Close()

        For Each x As DataRow In Tabel.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NoTrans_36110031.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", Audry)

            Audry.Open()

            com.ExecuteNonQuery()

            Audry.Close()

        Next

        com.Dispose()

        NoTrans_36110031.Text = ""

        Jenis_36110031.Text = ""

        Tabel.Rows.Clear()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 

8.      Selesai

Deskripsi Latihan_36_36110031

-    Object Label

Terdapat enam label (yang bertuliskan No. Transaksi, Tanggal, Jenis Transaksi, Kode barang, Unit, Harga)

-    Object TextBox

Terdapat lima textbox yang semuanya merupakan status input yang digunakan untuk memasukkan nilai: no.transaksi, jenis transaksi, kode barang, unit, dan harga.

-    Object Button

Terdapat dua object Button yaitu Tambah dan Simpan. Button Tambah digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Button simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK). Pada latihan ini, data yang memiliki nomor transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database

-     Object DataGridView

Terdapat satu Object DataGridView digunakan untuk menampilkan data yang telah diinput pada kolom TextBox.

-    Object DateTimePiker

Terdapat satu Object DateTimePiker digunakan untuk menentukan tanggal transaksi.

Script Unique

Untuk Button Tambah:

If Kodebarang_36110031.Text.Length = 0 Then

   MsgBox("kode barang belum terisi")

   Exit Sub

End If

Untuk Button Simpan:

If NoTrans_36110031.Text.Length = 0 Then

   MsgBox("no.transaksi belum terisi")

   Exit Sub

End If

Even

Simpan_36110031_Click

Tambah_36110031_Click

Latihan_36_36110031_Load