LATIHAN_39_36110030
Deskripsi Latihan_39_36110030
A. Object-object dalam Latihan_39_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 telah diinput pada textbox. Dan juga digunakan untuk menginput kode
barang.
B. Script Unique
Untuk script, silahkan lihat selengkapnya pada Langkah-Langkah Latihan_39_36110030.
C. Even
Latihan_39_36110030_Load(
Hitung()
DGV_36110030_CellEndEdit
SIMPAN_36110030_Click
D. Property
Property TextBox ==> ReadOnly=True
PROSEDUR PENYELESAIAN LATIHAN 39
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_39_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
Private Sub Latihan_39_36110030_Load(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Me.Load
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()
DGV_36110030.DataSource = tabelYhuya
End Sub
Private Sub Hitung()
Dim Jumlah As Integer = 0
For Each row As DataGridViewRow InDGV_36110030.Rows
Jumlah = Jumlah + row.Cells("Jumlah").Value
Next
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
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 truckYhuya As New OleDb.OleDbCommand
truckYhuya = 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()
truckYhuya.ExecuteNonQuery()
bridgeYhuya.Close()
For Each row As DataRow In tabelYhuya.Rows
truckYhuya = New OleDb.OleDbCommand("Insert
Into DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) " & _
"Values ('" &
NO_36110030.Text & "', '" & row("KODEBARANG") & "', " & row("UNIT") & ", " & row("HARGA") & ")", bridgeYhuya)
bridgeYhuya.Open()
truckYhuya.ExecuteNonQuery()
bridgeYhuya.Close()
Next
truckYhuya.Dispose()
NO_36110030.Text = ""
JENIS_36110030.Text = ""
tabelYhuya.Rows.Clear()
Hitung()
End Sub
End Class
6. KEMUDIAN UJI PROGRAM
7. JIKA SUDAH
BERHASIL Save program anda
8. selesai
0 komentar:
Posting Komentar