Latihan_35_36110033

A.    Object-object dalam Latihan_35_36110033:

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).

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

 

B.     Script Unique

Latihan_35_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_35_36110033.

C.    Even

TAMBAH_36110033_Click

Latihan_35_36110033_Load

SIMPAN_36110033_Click

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat 6 label, 5 textbox, 1 object datetimepicker, 2 object button  dan 1 object datagridview. Kemudian beri nama apa saja yang anda inginkan, selanjutnya diikuti dengan stambuk. Adapun posisi  from  sesuai dengan design pada latihan 35 berikut:

6.      Untuk menuliskan rumus pada latihan 35, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_35_36110033

    Dim BRIDGEILHA As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb")

    Dim TABELILHA As New DataTable

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

        Dim TRUCKILHA As New OleDb.OleDbDataAdapter

        TRUCKILHA = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI where NOTRANS = '" & NT_36110033.Text & "'", BRIDGEILHA)

        TABELILHA.Rows.Clear()

        TRUCKILHA.Fill(TABELILHA)

        TRUCKILHA.Dispose()

        DataG_36110033.DataSource = TABELILHA

    End Sub

    Private Sub TAMBAH_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_36110033.Click

        If KDB_36110033.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If Val(UN_36110033.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Unit Barangnya")

            Exit Sub

        End If

        If Val(HR_36110033.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        Dim Data As DataRow

        Data = TABELILHA.NewRow

        Data("KodeBarang") = KDB_36110033.Text

        Data("Unit") = UN_36110033.Text

        Data("Harga") = HR_36110033.Text

        TABELILHA.Rows.Add(Data)

        KDB_36110033.Text = ""

        UN_36110033.Text = ""

        HR_36110033.Text = ""

    End Sub

    Private Sub SIMPAN_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SIMPAN_36110033.Click

        If NT_36110033.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan No Transaksinya")

            Exit Sub

        End If

        If JT_36110033.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Jenis Transaksinya")

            Exit Sub

        End If

        If TABELILHA.Rows.Count = 0 Then

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

            Exit Sub

        End If

        Dim PERIKSAILHA As New ByIskandar.CariKeDataBaseByIskandar

        PERIKSAILHA.AturPencarianDataBase("MasterTransaksi", "Notrans", NT_36110033.Text, 1, BRIDGEILHA)

        If PERIKSAILHA.JumlanBaris > 0 Then

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

            Exit Sub

        End If

        Dim AMBIL As New OleDb.OleDbCommand

        AMBIL = New OleDb.OleDbCommand("Insert Into MasterTransaksi (NoTrans, TanggalTransaksi, JenisTransaksi) " & _

        "Values ('" & NT_36110033.Text & "', #" & DATE_36110033.Value.Month & "/" & DATE_36110033.Value.Day & "/" & DATE_36110033.Value.Year & "#, '" & JT_36110033.Text & "')", BRIDGEILHA)

        BRIDGEILHA.Open()

        AMBIL.ExecuteNonQuery()

        BRIDGEILHA.Close()

        For Each Row As DataRow In TABELILHA.Rows

            AMBIL = New OleDb.OleDbCommand("Insert Into DetailTransaksi (NoTrans, Kodebarang, Unit, Harga) Values ('" & NT_36110033.Text & "', ' " & Row("Kodebarang") & "', " & Row("Unit") & ", " & Row("Harga") & ")", BRIDGEILHA)

            BRIDGEILHA.Open()

            AMBIL.ExecuteNonQuery()

            BRIDGEILHA.Close()

        Next

        AMBIL.Dispose()

        NT_36110033.Text = ""

        JT_36110033.Text = ""

        TABELILHA.Rows.Clear()

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.    Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan  35  selesai.