LATIHAN_36_36110052

Latihan_36 _36110052

A.    Object-object dalam Latihan_36_36110052 :

           

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). Pada latihan ini, data yang memiliki nomor transaksi yang sama tidak dapat ditambah atau disimpan ke dalam database.

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 telah diinput pada textbox.

 

B.     Script Unique

Untuk script, dapat dilihat selengkapnya pada Langkah-langkah kerja  latihan_36_36110052

C.     Even

TAMBAH_36110052_Click

Latihan_36_36110052_Load

SIMPAN_36110052_Click

Langkah-langkah kerja  latihan_36_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_36_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_36_36110052

    Dim veve As New ByIskandar.CariKeDataBaseByIskandar

    Dim tabel As New DataTable

    Dim via As New OleDb.OleDbCommand

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

    Private Sub latihan_36_36110052_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_36110052.Text & "'", vee)

        r.Fill(tabel)

        r.Dispose()

        dgv_36110052.DataSource = tabel

        Dim sudar(1) As DataColumn

        sudar(0) = tabel.Columns("kodebarang")

        tabel.PrimaryKey = sudar

    End Sub

    Private Sub tambah_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110052.Click

        If kb_36110052.Text.Length = 0 Then

            MsgBox("kode barang tidak terisi")

        ElseIf Val(unit_36110052.Text) = 0 Then

            MsgBox("unit tidak terisi")

        ElseIf Val(harga_36110052.Text) = 0 Then

            MsgBox("harga barang tidak terisi")

            Exit Sub

        End If

        Dim dt As DataRow

        dt = tabel.Rows.Find(kb_36110052.Text)

        If dt Is Nothing Then

            dt = tabel.NewRow

            dt("KODEBARANG") = kb_36110052.Text

            dt("UNIT") = unit_36110052.Text

            dt("HARGA") = harga_36110052.Text

            tabel.Rows.Add(dt)

            kb_36110052.Text = ""

            unit_36110052.Text = ""

            harga_36110052.Text = ""

        Else

            MsgBox("kode barang telah terdaftar,")

        End If

    End Sub

    Private Sub simpan_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110052.Click

        If nt_36110052.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jt_36110052.Text.Length = 0 Then

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

        ElseIf tabel.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

        End If

        veve.AturPencarianDataBase("mastertransaksi", "notrans", nt_36110052.Text, 1, vee)

        If veve.JumlanBaris > 0 Then

            MsgBox("nomor transaksi telah ada")

            Exit Sub

        End If

        via = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36110052.Text & "',#" & tgl_36110052.Value.Month & "/" & tgl_36110052.Value.Day & "/" & tgl_36110052.Value.Year & "#,'" & jt_36110052.Text & "')", vee)

        vee.Open()

        via.ExecuteNonQuery()

        vee.Close()

        For Each x As DataRow In tabel.Rows

            via = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & nt_36110052.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", vee)

            vee.Open()

            via.ExecuteNonQuery()

            vee.Close()

        Next

        via.Dispose()

        nt_36110052.Text = ""

        jt_36110052.Text = ""

        tabel.Rows.Clear()

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI