yhuya parechu

DISKRIPSI & PROSEDUR LATIHAN 40B

07.13 |

LATIHAN_40B_36110030

Deskripsi Latihan_40B_36110030

A. Object-object dalam Latihan_40B_36110030:

1. Object Label

Terdapat empat label (yang bertuliskan no transaksi, tanggal, jenis transaksi, dan total).

2. Object Textbox

Terdapat tiga textbox (dua status input dan sat status readonly). Status input digunakan untuk memasukkan nilai no transaksi dan jenis transaksi. Status readonly digunakan untuk menampilkan total.

3. Object Button

Terdapat satu object button (Simpan). Tombol simpan digunakan untuk menyimpan data yang telah diinput ke dalam database (DATA MAJEMUK). 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 yang diinput tidak ada, maka akan muncul form Latihan_383940_36110030.

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 akan diedit atau ditambah ke dalam database. Data yang akan diedit merupakan data yang sudah dipilih pada form Latihan_40A_36110030.

6. Object StatusStrip

Terdapat satu object statustrip yang memiliki dua label (yang bertuliskan no transaksi dan -).

B. Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-LangkahLatihan_40B_36110030.

C. Even

SelectData()

Latihan_40B_36110030_Load

Hitung()

DGV_36110030_CellEndEdit

SIMPAN_36110030_Click

PROSEDUR PENYELESAIAN LATIHAN 40B

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class Latihan_40B_36110030

Dim bridgeYhuya As NewOleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath &"\datamajemuk.accdb;Jet OLEDB:Database Password=hma")

Dim tabelYhuya As New DataTable

Public Sub SelectData()

Dim truckYhuya As New OleDb.OleDbDataAdapter

truckYhuya = 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 = '" & NO_36110030.Text & "'", bridgeYhuya)

tabelYhuya.Rows.Clear()

truckYhuya.Fill(tabelYhuya)

truckYhuya.Dispose()

End Sub

Private Sub Latihan_40B_36110030_Load(ByVal senderAs Object, ByVal e As System.EventArgs) Handles Me.Load

SelectData()

DGV_36110030.DataSource = tabelYhuya

End Sub

Public Sub Hitung()

Dim Jumlah As Integer = 0

For Each row As DataGridViewRow InDGV_36110030.Rows

Jumlah = Jumlah + row.Cells("Jumlah").Value

TOTAL_36110030.Text = Jumlah

End Sub

Private Sub DGV_36110030_CellEndEdit(ByVal sender AsObject, ByVal e AsSystem.Windows.Forms.DataGridViewCellEventArgs) HandlesDGV_36110030.CellEndEdit

If e.ColumnIndex = 0 Then

DGV_36110030.CurrentRow.Cells("NAMABARANG").Value = ""

DGV_36110030.CurrentRow.Cells("UNIT").Value = 0

DGV_36110030.CurrentRow.Cells("HARGA").Value = 0

DGV_36110030.CurrentRow.Cells("JUMLAH").Value = 0

Dim Pencari As NewByIskandar.CariKeDataBaseByIskandar

Pencari.AturPencarianDataBase("BARANG","KODEBARANG", DGV_36110030.CurrentRow.Cells("KODEBARANG").Value, 1, bridgeYhuya)

If Pencari.JumlanBaris = 0 Then

MsgBox("Kode barang tersebut tidak ada")

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

DGV_36110030.CurrentRow.Cells("KODEBARANG").Value = Latihan_383940_36110030.DGV_36110030.CurrentRow.Cells("KODEBARANG").Value

DGV_36110030.CurrentRow.Cells("NAMABARANG").Value = Latihan_383940_36110030.DGV_36110030.CurrentRow.Cells("NAMABARANG").Value

Else

DGV_36110030.CurrentRow.Cells("KODEBARANG").Value = ""

End If

Exit Sub

End If

DGV_36110030.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")

ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3Then

DGV_36110030.CurrentRow.Cells("JUMLAH").Value = DGV_36110030.CurrentRow.Cells("UNIT").Value * DGV_36110030.CurrentRow.Cells("HARGA").Value

Hitung()

End If

End Sub

Private Sub SIMPAN_36110030_Click(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesSIMPAN_36110030.Click

If tabelYhuya.Rows.Count = 0 Then

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

Exit Sub

End If

If NO_36110030.Text <> NOLAMA_36110030.Text Then

Dim Periksa As NewByIskandar.CariKeDataBaseByIskandar

Periksa.AturPencarianDataBase("MASTERTRANSAKSI","NOTRANS", NO_36110030.Text, 1, bridgeYhuya)

If Periksa.JumlanBaris > 0 Then

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

Exit Sub

End If

Dim Hapus As New OleDb.OleDbCommand

Hapus = New OleDb.OleDbCommand("Delete * From MASTERTRANSAKSI Where NOTRANS = '" & NOLAMA_36110030.Text & "'", bridgeYhuya)

bridgeYhuya.Open()

Hapus.ExecuteNonQuery()

bridgeYhuya.Close()

Hapus = New OleDb.OleDbCommand("Delete * From DETAILTRANSAKSI Where NOTRANS = '" & NOLAMA_36110030.Text & "'", bridgeYhuya)

bridgeYhuya.Open()

Hapus.ExecuteNonQuery()

bridgeYhuya.Close()

Dim Ambil As New OleDb.OleDbCommand

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

"Values ('" & NO_36110030.Text & "', #" & DATE_36110030.Value.Month & "/" & DATE_36110030.Value.Day & "/" & DATE_36110030.Value.Year & "#, '" & JENIS_36110030.Text & "')", bridgeYhuya)

bridgeYhuya.Open()

Ambil.ExecuteNonQuery()

bridgeYhuya.Close()

Ambil.Dispose()