LATIHAN_37_36110030
Deskripsi Latihan_37_36110030
A. Object-object dalam Latihan_37_36110030:
1. Object Label
Terdapat sembilan label (yang bertuliskan no transaksi, tanggal, jenis
transaksi, kode barang, nama barang, unit, harga, jumlah, dan total).
2. 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. Status readonly digunakan untuk menampilkan nama
barang, jumlah, dan total.
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). 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.
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.
B. Script Unique
Untuk script, silahkan lihat selengkapnya pada Langkah-LangkahLatihan_37_36110030.
C. Even
TAMBAH_36110030_Click
Latihan_37_36110030_Load
SIMPAN_36110030_Click
Hitung()
UNIT_36110030_TextChanged
HARGA_36110030.TextChanged
KODE_36110030_Leave
KODE_36110030_TextChanged
D. Property
Property TextBox ==> ReadOnly=True
PROSEDUR PENYELESAIAN LATIHAN 37
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_37_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_37_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()
Dim KolomPrimary(1) As DataColumn
KolomPrimary(0) = tabelYhuya.Columns("KODEBARANG")
tabelYhuya.PrimaryKey = KolomPrimary
DGV_36110030.DataSource = tabelYhuya
End Sub
Private Sub Hitung()
Dim Jumlah As Integer = 0
For Each row As DataRow In tabelYhuya.Rows
Jumlah = Jumlah + row("Jumlah")
Next
TOTAL_36110030.Text = Jumlah
End Sub
Private Sub UNIT_36110030_TextChanged(ByVal senderAs Object, ByVal e As System.EventArgs) HandlesUNIT_36110030.TextChanged, HARGA_36110030.TextChanged
JUMLAH_36110030.Text = Val(UNIT_36110030.Text) * Val(HARGA_36110030.Text)
End Sub
Private Sub KODE_36110030_Leave(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesKODE_36110030.Leave
If KODE_36110030.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As NewByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG","KODEBARANG",
KODE_36110030.Text, 1, bridgeYhuya)
If Pencari.JumlanBaris = 0 Then
MsgBox("Kode barang
tersebut tidak ada")
Exit Sub
End If
NAMA_36110030.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
End Sub
Private Sub KODE_36110030_TextChanged(ByVal senderAs Object, ByVal e As System.EventArgs) HandlesKODE_36110030.TextChanged
NAMA_36110030.Text = ""
UNIT_36110030.Text = ""
HARGA_36110030.Text = ""
End Sub
Private Sub TAMBAH_36110030_Click(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesTAMBAH_36110030.Click
If KODE_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan Kode Barangnya")
Exit Sub
End If
If NAMA_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan Nama Barangnya")
Exit Sub
End If
If Val(UNIT_36110030.Text) = 0 Then
MsgBox("Anda Harus
Masukkan Unit Barangnya")
Exit Sub
End If
If Val(HARGA_36110030.Text) = 0 Then
MsgBox("Anda Harus
Masukkan Harga Barangnya")
Exit Sub
End If
If tabelYhuya.Rows.Find(KODE_36110030.Text) IsNothing Then
tabelYhuya.Rows.Add(KODE_36110030.Text, NAMA_36110030.Text,
Val(UNIT_36110030.Text), Val(HARGA_36110030.Text), Val(JUMLAH_36110030.Text))
Else
MsgBox("Kode Barang
Sudah Ada, Masukkan Kode Barang yang Lain!")
Exit Sub
End If
KODE_36110030.Text = ""
UNIT_36110030.Text = ""
HARGA_36110030.Text = ""
Hitung()
End Sub
Private Sub SIMPAN_36110030_Click(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesSIMPAN_36110030.Click
If NO_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan No Transaksinya")
Exit Sub
End If
If JENIS_36110030.Text.Length = 0 Then
MsgBox("Anda Harus
Masukkan Jenis Transaksinya")
Exit Sub
End If
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