Deskripsi dan Prosedur Latihan_36_36110039

   Deskripsi Form Latihan_36_36110039

Terdapat lima object yaitu :

1.      Object Label

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

2.      Object Datagridview

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

3.      Object Button

Terdapat dua object button yaitu 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 Textbox

Terdapat 5 object textbox yang semuanya merupakan status input yang digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga.

5.      Object DateTimePicker

Terdapat satu object datetimepicker.

   Script Unique

Scriptnya ada pada Prosedur Latihan_36_36110039 dibawah ini.

   Even

Latihan_36_36110048_Load

tambah_36110039_Click

Simpan_36110039_Click

Prosedur menjalankan Latihan_36_36110039:

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.

 

5.      Kemudian buatlah form seperti kolom dibawah ini:

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

Public Class Latihan_36_36110039

    Dim bridgehld As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb;jet oledb:database password=2301")

    Dim tabelhld As New DataTable

    Private Sub Latihan_36_36110048_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim truckhld As New OleDb.OleDbDataAdapter

        truckhld = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI where NOTRANS = '" & notrans_36110039.Text & "'", bridgehld)

        tabelhld.Rows.Clear()

        truckhld.Fill(tabelhld)

        truckhld.Dispose()

        Dim KolomPrimary(1) As DataColumn

        KolomPrimary(0) = tabelhld.Columns("KODEBARANG")

        tabelhld.PrimaryKey = KolomPrimary

        dgv_36110039.DataSource = tabelhld

    End Sub

   

    Private Sub tambah_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110039.Click

        If kobar_36110039.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If Val(unit_36110039.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Unit Barangnya")

            Exit Sub

        End If

        If Val(Harga_36110039.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        If tabelhld.Rows.Find(kobar_36110039.Text) Is Nothing Then

            tabelhld.Rows.Add(kobar_36110039.Text, Val(unit_36110039.Text), Val(Harga_36110039.Text))

        Else

            MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain!")

            Exit Sub

        End If

        kobar_36110039.Text = ""

        unit_36110039.Text = ""

        Harga_36110039.Text = ""

    End Sub

    Private Sub Simpan_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110039.Click

        If notrans_36110039.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan No Transaksinya")

            Exit Sub

        End If

        If Jtrans_36110039.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Jenis Transaksinya")

            Exit Sub

        End If

        If tabelhld.Rows.Count = 0 Then

            MsgBox("Datanya Belum Ada, Masukkan Kode Barang, Unit dan harganya")

            Exit Sub

        End If

        Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

        Periksa.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", notrans_36110039.Text, 1, bridgehld)

        If Periksa.JumlanBaris > 0 Then

            MsgBox("No Transaksi Sudah Ada, Masukkan No Transaksi yang Lain")

            Exit Sub

        End If

        Dim trukhld As New OleDb.OleDbCommand

        trukhld = New OleDb.OleDbCommand("Insert Into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) " & _

        "Values ('" & notrans_36110039.Text & "', #" & dtp_36110039.Value.Month & "/" & dtp_36110039.Value.Day & "/" & dtp_36110039.Value.Year & "#, '" & Jtrans_36110039.Text & "')", bridgehld)

        bridgehld.Open()

        trukhld.ExecuteNonQuery()

        bridgehld.Close()

        For Each row As DataRow In tabelhld.Rows

            trukhld = New OleDb.OleDbCommand("Insert Into DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) " & _

            "Values ('" & notrans_36110039.Text & "', '" & row("KODEBARANG") & "', " & row("UNIT") & ", " & row("HARGA") & ")", bridgehld)

            bridgehld.Open()

            trukhld.ExecuteNonQuery()

            bridgehld.Close()

        Next

        trukhld.Dispose()

        notrans_36110039.Text = ""

        Jtrans_36110039.Text = ""

        tabelhld.Rows.Clear()

    End Sub

End Class

7.       Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging atau tekan F5.