LATIHAN_38_36110030
Deskripsi Latihan_38_36110030
A. Object-object dalam Latihan_38_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). 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_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.
B. Script Unique
Untuk script, silahkan lihat selengkapnya
pada Langkah-LangkahLatihan_38_36110030.
C. Even
TAMBAH_36110030_Click
Latihan_38_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 38
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_38_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_38_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")
If Latihan_383940_36110030.ShowDialog =
Windows.Forms.DialogResult.OK Then
KODE_36110030.Text = Latihan_383940_36110030.DGV_36110030.CurrentRow.Cells("KODEBARANG").Value
NAMA_36110030.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
KODE_36110030.Text = ""
End If
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