latihan_35_46110023

DESKRIPSI FORM LATIHAN 35

Pada form latihan 35 terdapat 4 object yang digunakan yaitu:

Object Label

Terdapat 6 object label yang digunakan pada form ini, yang bertuliskan  “No.Transaksi”, “Jenis Transaksi”, “Kode Barang”, “unit”, “ harga” dan “tanggal”.

Object Textbox

Terdapat 5 object textbox yang berlabelkan  “No.Transaksi”, “Jenis Transaksi”, “Kode Barang”, “unit”, “ harga”.

Object DateTimePicker

Hanya ada 1 object datetimepicker yang berlavelkan tanggal

Object Button

Terdapat 2 object button yang bertuliskan “Tambah” & “Simpan”

Object DataGridView

Pada latihan ini hanya ada 1 object datagridview  yang akan menampilkan data dalam bentuk tabel.

LANGKAH-LANGKAH MEMBUAT FORM LATIHAN 35

1.     Buka file tugas visualbasic yang pernah dibuat sebelumnya.

2.    buat form baru dengan cara pilih menu project yang ada pada menubar, lalu pilih add windows form seperti gambar berikut:

3.    setelah itu akan muncul kotak dialog seperti gambar dibawah dan ganti nama form pada kolom name sesuai dengan nama latihannya lalu pilih add

4.    setelah muncul form baru, buatlah desaign form seperti gambar ini:

5.    beri nama  pada tiap object kacuali object label dengan memilih properties windows pada toolbar options:

6.    setelah itu, klik kanan pada form lalu pilih view code untuk dibuatkan script:

7.    maka akan muncul tampilan seperti ini:

8.    kemudian input script seperti ini:

Public Class LATIHAN_35_46110023
    Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim AYU As New DataTable

    Private Sub Latihan_35_46110023_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'mendeklarasikan kendaraan
        Dim CINTA As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        CINTA = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & NT_46110023.Text & "'", YUNI)

        'bersihkan data
        AYU.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        CINTA.Fill(AYU)

        'untuk menampilkan isi datatable ke data grid view 
        CINTA.Dispose()
        DGV_46110023.DataSource = AYU
    End Sub

    Private Sub TAMBAH_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110023.Click
        'Memeriksa isi textbox
        If KB_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If UN_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If HR_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If


        'penyimpanan data ke datatable
        AYU.Rows.Add((KB_46110023.Text), Val(UN_46110023.Text), Val(HR_46110023.Text))

        'mengosongkan textbox
        KB_46110023.Text = ""
        UN_46110023.Text = ""
        HR_46110023.Text = ""
    End Sub

    Private Sub SIMPAN_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110023.Click
        'Memeriksa isi textbox
        If NT_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If JT_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If AYU.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        'Memeriksa nomor transaksi pd master transaksi
        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", NT_46110023.Text, 1, YUNI)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim RINDU As New OleDb.OleDbCommand
        RINDU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110023.Text & "',#" & DTP_46110023.Value.Month & "/" & DTP_46110023.Value.Day & "/" & DTP_46110023.Value.Year & "#,'" & JT_46110023.Text & "')", YUNI)
        YUNI.Open()
        RINDU.ExecuteNonQuery()
        YUNI.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each AKU As DataRow In AYU.Rows
            RINDU = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110023.Text & "','" & AKU("kodebarang") & "'," & AKU("unit") & "," & AKU("harga") & ")", YUNI)
            YUNI.Open()
            RINDU.ExecuteNonQuery()
            YUNI.Close()

        Next
        RINDU.Dispose()

        'Mengosongkan isi text box
        NT_46110023.Text = ""
        JT_46110023.Text = ""

        'Mengosongkan baris datatable
        AYU.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
End Class

9.    selesai

LANGKAH-LANGKAH MENJALANKAN LATIHAN 35

1.     Setelah scriptnya jadi, jalankan program dengan mengklik start debugging yang ada pada menubar:

2.    Input data yang ingin dimasukkan, secara otomatis program akan bekerja sesuai dengan apa yang diperintahkan.

3.    Apabila ada kesalahan, maka program secara otomatis akan memperlihatkan letak kesalahannya.

4.    Selamat mencoba.

Script Unique

If kode_46110023.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

=> untuk memeriksa isi textbox

Even

click

load