Latihan_36_46110001

Latihan_36_46110001

A. Object-object dalam Latihan_36_46110001

Deskripsi Form Latihan_36_46110001

Form Latihan 36 46110001 terdapat Lima object yaitu Label, Textbox, Button, data time picker, dan Data Grid View.

Object Label
Terdapat Enam object label yang bertuliskan “no. transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, dan “harga”.

Object TextBox

Terdapat Lima object textbox yang semuanya berstatus input.

Object Button

Terdapat Dua object button yaitu Button "insert" yang digunakan untuk menginput data textbox ke tabel yang ada pada data grid view. Sedangkan button "save" digunakan untuk menyimpan data yang diinput ke database.

Object Date Time Picker

Dalam latihan ini terdapat sebuah date time picker yeng terdapat pada "Tanggal" 

Object DataGridView

Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput

  

B. Even
click

load

C. Prosedur Penyelesaian

 Langkah pertama dalam membuat form/ latihan 36 ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

·         Buatlah form seperti gambar dibawah ini,

 

·         Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_36_46110001
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim gitik As New DataTable
    Private Sub Latihan_36_46110001Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'mendeklarasikan kendaraan
        Dim bojel As New OleDb.OleDbDataAdapter

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

        'bersihkan data
        gitik.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        bojel.Fill(gitik)

        'untuk menampilkan isi datatable ke data grid view
        bojel.Dispose()
        DGV_46110001.DataSource = gitik

        'perintah primarykey
        Dim kabotcibay(2) As DataColumn
        kabotcibay(0) = gitik.Columns("Kodebarang")
        gitik.PrimaryKey = kabotcibay


    End Sub

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

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

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

        'perintah pencarian data
        Dim drlebay As DataRow
        drlebay = gitik.Rows.Find(KB_46110001.Text)
        If Not drlebay Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        'penyimpanan data ke datatable
        gitik.Rows.Add(KB_46110001.Text, Val(Unit_46110001.Text), Val(Harga_46110001.Text))

        'mengosongkan textbox
        KB_46110001.Text = ""
        Unit_46110001.Text = ""
        Harga_46110001.Text = ""
    End Sub

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

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

        If gitik.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_46110001.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        'Proses Penyimpanan ke tabel master transaksi
        Dim kacci As New OleDb.OleDbCommand
        kacci = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110001.Text & "',#" & DTP_46110001.Value.Month & "/" & DTP_46110001.Value.Day & "/" & DTP_46110001.Value.Year & "#,'" & JT_46110001.Text & "')", Jalan)
        Jalan.Open()
        kacci.ExecuteNonQuery()
        Jalan.Close()

        'penyimpanan isi datatable ke detail transaksi
        For Each nhana As DataRow In gitik.Rows
            kacci = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110001.Text & "','" & nhana("kodebarang") & "'," & nhana("unit") & "," & nhana("harga") & ")", Jalan)
            Jalan.Open()
            kacci.ExecuteNonQuery()
            Jalan.Close()

        Next
        kacci.Dispose()

        'Mengosongkan isi text box
        NT_46110001.Text = ""
        JT_46110001.Text = ""

        'Mengosongkan baris datatable
        gitik.Rows.Clear()

        'menutup form
        Me.Close()

    End Sub
   
End Class

·         langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 36 seperti dibawah ini :

·         Setelah menekan tombol debug maka tampilan latihan 36 sebagai berikut :

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.