Latihan_38_36110031

Tahap Penyelesaian Latihan_38_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_38  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_38 dibawah ini:

 

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_38_36110031

Dim Audry As New OleDb.OleDbConnection("Provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DataMajemuk.accdb;Jet OLEDB:Database Password=3711")

Dim Tabel As New DataTable

Dim cari As New ByIskandar.CariKeDataBaseByIskandar

Private Sub Latihan_38_36110031_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim adapter As New OleDb.OleDbDataAdapter

adapter = New OleDb.OleDbDataAdapter("select BARANG.KODEBARANG, BARANG.NAMABARANG, UNIT, HARGA, UNIT*HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS = '" & NoTrans_36110031.Text & "'", Audry)

Tabel.Rows.Clear()

adapter.Fill(Tabel)

adapter.Dispose()

DGV_36110031.DataSource = Tabel

Dim kolom(1) As DataColumn

kolom(0) = Tabel.Columns("kodebarang")

Tabel.PrimaryKey = kolom

End Sub

Private Sub Tambah_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_36110031.Click

If Kodebarang_36110031.Text.Length = 0 Then

MsgBox("Masukan Kode Barang")

Exit Sub

End If

If Val(Unit_36110031.Text) = 0 Then

MsgBox("Masukan Unit Barang")

Exit Sub

End If

If Val(Harga_36110031.Text) = 0 Then

MsgBox("Masukan Harga Barang")

Exit Sub

End If

Dim baris As DataRow

baris = Tabel.Rows.Find(Kodebarang_36110031.Text)

If baris Is Nothing Then

baris = Tabel.NewRow

baris("KodeBarang") = Kodebarang_36110031.Text

baris("NamaBarang") = Namabarang_36110031.Text

baris("Unit") = Unit_36110031.Text

baris("Harga") = Harga_36110031.Text

baris("jumlah") = Jumlah_36110031.Text

Tabel.Rows.Add(baris)

Else

MsgBox("KODE BARANG SUDAH ADA")

End If

Kodebarang_36110031.Text = ""

Namabarang_36110031.Text = ""

Unit_36110031.Text = ""

Harga_36110031.Text = ""

Jumlah_36110031.Text = ""

jumlah()

End Sub

Private Sub Simpan_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110031.Click

If NoTrans_36110031.Text.Length = 0 Then

MsgBox("Masukan Nomor Transaksi")

Exit Sub

End If

If Jenis_36110031.Text.Length = 0 Then

MsgBox("Masukan Jenis Transaksi")

Exit Sub

End If

If Tabel.Rows.Count = 0 Then

MsgBox("Masukan datanya")

Exit Sub

End If

cari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NoTrans_36110031.Text, 1, Audry)

If cari.JumlanBaris > 0 Then

MsgBox("Nomor Transaksi sudah ada")

Exit Sub

End If

Dim COMMAND As New OleDb.OleDbCommand

COMMAND = New OleDb.OleDbCommand("insert into MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NoTrans_36110031.Text & "', #" & DTP_36110031.Value.Month & "/" & DTP_36110031.Value.Day & "/" & DTP_36110031.Value.Year & "#, '" & Jenis_36110031.Text & "')", Audry)

Audry.Open()

COMMAND.ExecuteNonQuery()

Audry.Close()

For Each X As DataRow In Tabel.Rows

COMMAND = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NoTrans_36110031.Text & "', '" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", Audry)

Audry.Open()

COMMAND.ExecuteNonQuery()

Audry.Close()

Next

COMMAND.Dispose()

NoTrans_36110031.Text = ""

Jenis_36110031.Text = ""

Tabel.Rows.Clear()

jumlah()

End Sub

Public Sub jumlah()

Dim total As Integer

For Each x As DataRow In tabel.Rows

total = total + x("JUMLAH")

Next

Total_36110031.Text = total

End Sub

Private Sub Unit_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_36110031.TextChanged

jumlah_36110031.Text = Val(Unit_36110031.Text) * Val(Harga_36110031.Text)

End Sub

Private Sub Harga_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga_36110031.TextChanged

jumlah_36110031.Text = Val(Unit_36110031.Text) * Val(Harga_36110031.Text)

End Sub

Private Sub Kodebarang_36110031_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodebarang_36110031.TextChanged

namabarang_36110031.Text = ""

Unit_36110031.Text = ""

Harga_36110031.Text = ""

End Sub

Private Sub Kodebarang_36110031_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodebarang_36110031.Leave

If Kodebarang_36110031.Text.Length = 0 Then

Exit Sub

End If

cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kodebarang_36110031.Text, 1, Audry)

If cari.JumlanBaris = 0 Then

MsgBox("Kode Barang Tersebut Tidak Ada")

If Latihan_383940_36110031.ShowDialog = Windows.Forms.DialogResult.OK Then

Kodebarang_36110031.Text = Latihan_383940_36110031.Dgv_36110031.CurrentRow.Cells("KODEBARANG").Value

namabarang_36110031.Text = Latihan_383940_36110031.Dgv_36110031.CurrentRow.Cells("NAMABARANG").Value

Else

Kodebarang_36110031.Text = ""

End If

Exit Sub

Else

namabarang_36110031.Text = cari.DataTablenya.Rows(0).Item(1)

End If

End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 

8.      Selesai

Deskripsi Latihan_38_36110031

-    Object Label

Terdapat enam  label (yang bertuliskan kode barang ada  2, kode barang yang akan diganti datanya,  nama barang, harga jual, jumlah barang)

-    Object TextBox

Terdapat delapan TextBox (lima status input dan tiga status Readonly). Status input digunakan untuk memasukkan nilai: no transaksi, jenis transaksi, kode barang, unit, dan harga. Sedangkan Status readonly digunakan untuk menampilkan nama barang, jumlah, dan total.

-    Object Button

Terdapat satu object Button yaitu Tambah dan Simpan. Button Tambah digunakan untuk digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam datatabel (yang ditampilkan pada datagridview). . Sedangkan Button Simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK). Pada latihan ini, kode barang yang diinput harus merupakan kode barang yang sudah ada pada tabel kode barang karena nama barang akan ditampilkan pada textbox readonly sesuai dengan kode barang yang diinput. Jika kode barang tidak ada, maka  akan muncul form Latihan_383940_36110031

-    Object DataGridView

Terdapat satu Object DataGridView digunakan untuk menampilkan data yang telah diinput pada kolom TextBox.

-    Object DateTimePiker

Terdapat satu Object DateTimePiker digunakan untuk menentukan Tanggal Transaksi

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…

Even

Simpan_36110031_Click

Tambah_36110031_Click

Latihan_38_36110031_Load

Unit_36110031_TextChanged

Kodebarang_36110031_TextChanged

Harga_36110031_TextChanged

Kodebarang_36110031_Leave

Property

Property TextBox ==> ReadOnly ==> True