Latihan 35 36110051 APKOM 4 D3B Akuntansi PNUP

A.    Object-object dalam Latihan_35_36110051 :

            1.      Object Label

Terdapat enam label (yang bertuliskan no transaksi, tanggal, jenis transaksi, kode barang, unit, dan harga).

            2.      Object Textbox

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

            3.      Object Button

Terdapat dua object button (Tambah dan Simpan). Tombol tambah digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK).

            4.      Object DateTimePicker

Terdapat satu object datetimepicker yang digunakan untuk menentukan tanggal transaksi.

5.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan data yang sudah diinput pada textbox.

 

 B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada PROSEDUR di bawah ini.

C.     Even

TAMBAH_36110051_Click

Latihan_35_36110051_Load

SIMPAN_36110051_Click

 

 

PROSEDUR :

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.       Klik menu file dan pilih New Project.

 

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

 

4.       Klik menu view dan pilih toolbox dan buatlah desain kolom seperti kolom dibawah ini:

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas:

 

Public NotInheritable Class Latihan_35_36110051

    Dim MELISSA As New ByIskandar.CariKeDataBaseByIskandar

    Dim ACI As New DataTable

    Dim ISA As New OleDb.OleDbCommand

    Dim RANTE As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")

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

        Dim r As New OleDb.OleDbDataAdapter

        r = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & nt_36110051.Text & "'", RANTE)

        r.Fill(ACI)

        r.Dispose()

        dgv_36110051.DataSource = ACI

    End Sub

    Private Sub tambah_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110051.Click

        If kb_36110051.Text.Length = 0 Then

            MsgBox("kode barang tidak terisi")

        ElseIf Val(unit_36110051.Text) = 0 Then

            MsgBox("unit tidak terisi")

        ElseIf Val(harga_36110051.Text) = 0 Then

            MsgBox("harga barang tidak terisi")

            Exit Sub

        End If

        Dim dt As DataRow

        dt = ACI.NewRow

        dt("KODEBARANG") = kb_36110051.Text

        dt("UNIT") = unit_36110051.Text

        dt("HARGA") = harga_36110051.Text

        ACI.Rows.Add(dt)

        kb_36110051.Text = ""

        unit_36110051.Text = ""

        harga_36110051.Text = ""

    End Sub

    Private Sub simpan_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110051.Click

        If nt_36110051.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jt_36110051.Text.Length = 0 Then

            MsgBox("Isi rong Jenis Transaksi na..")

        ElseIf ACI.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

        End If

        MELISSA.AturPencarianDataBase("mastertransaksi", "notrans", nt_36110051.Text, 1, RANTE)

        If MELISSA.JumlanBaris > 0 Then

            MsgBox("nomor transaksi telah ada")

            Exit Sub

        End If

        ISA = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36110051.Text & "',#" & tgl_36110051.Value.Month & "/" & tgl_36110051.Value.Day & "/" & tgl_36110051.Value.Year & "#,'" & jt_36110051.Text & "')", RANTE)

        RANTE.Open()

        ISA.ExecuteNonQuery()

        RANTE.Close()

        For Each x As DataRow In ACI.Rows

            ISA = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt_36110051.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", RANTE)

            RANTE.Open()

            ISA.ExecuteNonQuery()

            RANTE.Close()

        Next

        ISA.Dispose()

        nt_36110051.Text = ""

        jt_36110051.Text = ""

        ACI.Rows.Clear()

    End Sub

End Class

6.       Uji program dengan mengklik icon Start Debugging.