A. Langkah-Langkah Penyelesaian Form Latihan_40B
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_40B_46110007"
pada name kemudian click add
· Buat form seperti berikut
·
Setelah
itu beri teks pada button dan label.
·
Kemudian
beri nama pada semua objek kecuali label.
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_40B_46110007
Dim FANTY As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim TABEL As New DataTable
Dim baru(1) As DataColumn
Public Sub YUYU()
Dim TTOTAL As Integer
For
Each hasil As DataRow In TABEL.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110007.Text = TTOTAL
End Sub
Public Sub makecolumn()
'mendeklarasikan
kendaraan
Dim
BUBU As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
BUBU = New OleDb.OleDbDataAdapter("SELECT
detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga,
detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI
inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='"
& NT_46110007.Text & "'", FANTY)
'bersihkan data
TABEL.Rows.Clear()
'untuk memasukkan data yg telah di
angkut ke dalam datatable
BUBU.Fill(TABEL)
BUBU.Dispose()
'untuk
menampilkan isi datatable ke data grid view
TABEL.Columns("Kodebarang").DefaultValue
= ""
TABEL.Columns("NamaBarang").DefaultValue
= ""
TABEL.Columns("unit").DefaultValue
= 0
TABEL.Columns("harga").DefaultValue
= 0
TABEL.Columns("jumlah").DefaultValue
= 0
TABEL.Columns("NamaBarang").ReadOnly
= True
baru(0) = TABEL.Columns("kodebarang")
TABEL.PrimaryKey = baru
DGV_46110007.DataSource = TABEL
End Sub
Private Sub Latihan_40B_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
makecolumn()
End Sub
Private Sub DGV_46110007_CellEndEdit(ByVal
sender As System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DGV_46110007.CellEndEdit
'mengosongkan
data
If
e.ColumnIndex = 0 Then
DGV_46110007.CurrentRow.Cells("NamaBarang").Value
= ""
DGV_46110007.CurrentRow.Cells("Unit").Value
= 0
DGV_46110007.CurrentRow.Cells("harga").Value
= 0
DGV_46110007.CurrentRow.Cells("Jumlah").Value
= 0
'mencari
data yang ada di tabel
Dim Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang",
"kodebarang", DGV_46110007.CurrentRow.Cells("kodebarang").Value,
1, FANTY)
If Pencari.JumlanBaris > 0 Then
DGV_46110007.CurrentRow.Cells("kodebarang").Value
= Pencari.DataTablenya.Rows(0).Item(0)
DGV_46110007.CurrentRow.Cells("namabarang").Value
= Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not
found")
If
Latihan_383940_46110007.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV_46110007.CurrentRow.Cells("kodebarang").Value =
Latihan_383940_46110007.DGV_46110007.CurrentRow.Cells("KodeBarang").Value
DGV_46110007.CurrentRow.Cells("Namabarang").Value =
Latihan_383940_46110007.DGV_46110007.CurrentRow.Cells("namabarang").Value
End If
End If
'mengitung
jumlah dan total
ElseIf e.ColumnIndex = 2 Or
e.ColumnIndex = 3 Then
DGV_46110007.CurrentRow.Cells("jumlah").Value
= DGV_46110007.CurrentRow.Cells("unit").Value *
DGV_46110007.CurrentRow.Cells("harga").Value
YUYU()
End If
End Sub
Private Sub Simpan_46110007_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110007.Click
'Memeriksa
isi textbox
If NT_46110007.Text.Length = 0 Then
MsgBox("Please, insert the
Number of the transaction")
Exit Sub
End If
If JT_46110007.Text.Length = 0 Then
MsgBox("Please, insert the
type of the transaction")
Exit Sub
End If
If TABEL.Rows.Count = 0 Then
MsgBox("the data is none")
Exit Sub
End If
'Memeriksa
nomor transaksi pd master transaksi
If replace_46110007.Text <>
NT_46110007.Text Then
Dim PENCARI As New
ByIskandar.CariKeDataBaseByIskandar
PENCARI.AturPencarianDataBase("mastertransaksi",
"notrans", NT_46110007.Text, 1, FANTY)
If PENCARI.JumlanBaris > 0 Then
MsgBox("The data has been
exist please insert new data")
Exit Sub
End If
End If
'Proses
delete dan Penyimpanan ke tabel master transaksi
Dim data As Integer =
Val(replace_46110007.Text)
Dim FUFU As New OleDb.OleDbCommand
FUFU = New OleDb.OleDbCommand("delete
* from mastertransaksi where notrans='" & replace_46110007.Text & "'",
FANTY)
FANTY.Open()
FUFU.ExecuteNonQuery()
FANTY.Close()
FUFU = New OleDb.OleDbCommand("delete
* from detailtransaksi where notrans='" & replace_46110007.Text & "'",
FANTY)
FANTY.Open()
FUFU.ExecuteNonQuery()
FANTY.Close()
FUFU = New OleDb.OleDbCommand("insert
into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& NT_46110007.Text & "',#" & DTP_46110007.Value.Month
& "/" & DTP_46110007.Value.Day & "/" &
DTP_46110007.Value.Year & "#,'" & JT_46110007.Text & "')",
FANTY)
FANTY.Open()
FUFU.ExecuteNonQuery()
FANTY.Close()
'penyimpanan
isi datatable ke detail transaksi
For Each PAPA As DataRow In TABEL.Rows
FUFU = New OleDb.OleDbCommand("insert
into detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
NT_46110007.Text & "','" & PAPA("kodebarang") &
"'," & PAPA("unit") & "," & PAPA("harga")
& ")", FANTY)
FANTY.Open()
FUFU.ExecuteNonQuery()
FANTY.Close()
Next
FUFU.Dispose()
'Mengosongkan
isi text box
NT_46110007.Text = ""
JT_46110007.Text = ""
'Mengosongkan
baris datatable
TABEL.Rows.Clear()
'mengambildata
Latihan_40A_46110007.grabdata()
'menutup form
Me.Close()
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 40B
Pada form latihan 40B ada 6 object
yang digunakan yaitu Label, Text Box, Button, Date Time
Picker, Status Strip dan Data Grid View.
Object Label
Pada form ini
label yang digunakan ada 4 (no. transaksi, tanggal, jenis transaksi dan total).
Object TextBox
Pada form ini
ada 3 textbox yang digunakan (2 status input dan 1 status readonly). Status
input digunakan untuk memasukkan data. Data yang dimasukkan yaitu “no.
transaksi dan jenis transaksi”.
Object DateTimePicker
Pada latihan 40B
terdapat 1 datetimepicker. Datetimepicker digunakan dalam menginput data berupa
tahun, bulan dan tanggal.
Object
Button
Terdapat 1 object button (save).
Tombol “save” digunakan untuk menyimpan data yang telah ditambahkan ke “Data
Majemuk”.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel “Data Majemuk”.
Object
StatusStrip
Ada 2 statusstrip yang digunakan
(no transaksi dan -). “-“ nantinya akan menampilkan no transaksi.
Even
Load
ButtonClick
Script Unique
Lebih lengkap dan jelasnya silahkan dilihat pada script di atas.
Langkah-Langkah Menjalankan Form Latihan
40B
1. Setelah perintah di jalankan pada
form “Latihan_40A_46110007”, maka form ini akan muncul.
2. Input data pada tempat yang telah tersedia.
3. Setelah itu klik “save” untuk
menyimpan hasil edit/tambah data.
4. Selamat mencoba (:
Posting Komentar