Latihan_37_46110006

Deskripsi Form Latihan_37_46110006

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

Object Label
Terdapat Sembilan object label yang bertuliskan “no. transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, “harga”, "nama barang", "jumlah", dan "total".

Object TextBox

Terdapat Lima object textbox yang berstatus input dan tiga berstatus ReadOnly.

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

Even
click

load

Property :

Property TextBox ==> ReadOnly=True

 

      Cara Membuat From Latihan 37:

        1. Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

    2. Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini.   Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_37_46110006”

      3. Buatlah desain seperti berikut :

  4. Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk   menjalankan from diatas.

 

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

    Private Sub Latihan_37_46110006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fitryAs New OleDb.OleDbDataAdapter
        fitry = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & No_46110006.Text & "'", Jalan)

        tabel.Rows.Clear()

        fitry.Fill(tabel)

        fitry.Dispose()
        dgv_46110006.DataSource = tabel

    End Sub

    Private Sub insert_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert_46110006.Click
        If kode_46110006.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

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

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

        tabel.Rows.Add((kode_46110006.Text), Val(unit_46110006.Text), Val(harga_46110006.Text))

        kode_46110006.Text = ""
        unit_46110006.Text = ""
        harga_46110006.Text = ""
    End Sub

    Private Sub seve_46110006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_46110006.Click
        If No_46110006.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

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

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

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", No_46110006.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim ff As New OleDb.OleDbCommand
        ff = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & No_46110006.Text & "',#" & tanggal_46110006.Value.Month & "/" & tanggal_46110006.Value.Day & "/" & tanggal_46110006.Value.Year & "#,'" & jenis_46110006.Text & "')", Jalan)
        Jalan.Open()
        ff.ExecuteNonQuery()
        Jalan.Close()

        For Each fitryAs DataRow In tabel.Rows
            ff = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & No_46110006.Text & "','" & fitry("kodebarang") & "'," & fitry("unit") & "," & fitry("harga") & ")", Jalan)
            Jalan.Open()
            ff.ExecuteNonQuery()
            Jalan.Close()

        Next
        ff.Dispose()

        No_46110006.Text = ""
        jenis_46110006.Text = ""

        tabel.Rows.Clear()

        Me.Close()

    End Sub
End Class

5. Uji program dengan mengklik debugging

6. Selesai