Deskripsi & Prosedur Form Latihan_38_36110046
Deskripsi Form Latihan_38_36110046
Pada Form Latihan 38 terdapat 5 object, yaitu button,
label, datetimepicker, datagridview dan textbox.
Object
Pada Form
Object Button
Terdapat 2 objek button (seperti terlihat
gambar di atas)
Object Label
Terdapat 9 objek label (seperti terlihat gambar
di atas)
Object DateTimePicker
Terdapat 1 objek label (seperti terlihat
gambar di atas)
Object DataGridview
Terdapat 1 objek label (seperti terlihat
gambar di atas)
Object Textbox
Terdapat 8 objek textbox (seperti terlihat
gambar di atas)
Script Unique
-
Event
ButtonClick
TextChanged
Property
ReadOnlyProsedue Form Latihan_38_36110046
Langkah-langkah mengerjakan Latihan 38, sbb:
1.
Buka Ms. Visual Studio
2.
Klik Create Project
3.
Ketik nama file yang ingin disimpan
4.
Akan terbuka jendela pekerjaan Ms.
Visual Studio
5.
Design form dengan menggunakan tools
pada toolbox
6.
Buat objek semua objek sesuai dengan design pada
latihan 38 dengan toolbox, ikuti gambar dibawah ini:
7.
Setelah design sudah bagus, saatnya
untuk membuat script
8.
Buat script prosedur sendiri seperti
dibawah ini:
Public Class Latihan_38_36110046
Dim Connect
As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\DataMajemuk.ACCDB")
Dim Table As New DataTable
Private Sub botto()
Dim
ttotal As Integer
For Each hasil As DataRow
In Table.Rows
ttotal += hasil("Jumlah")
Next
TOTAL_36110046.Text = ttotal
End Sub
Private Sub Latihan_38_36110046_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'mendeklarasikan
kendaraan
Dim
adapter As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
adapter = 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='" & NOTRANS_36110046.Text & "'", Connect)
'bersihkan
data
Table.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
adapter.Fill(Table)
'untuk
menampilkan isi datatable ke data grid view
adapter.Dispose()
DGV_36110046.DataSource = Table
'perintah
primarykey
Dim
kolom(2) As DataColumn
kolom(0) = Table.Columns("Kodebarang")
Table.PrimaryKey = kolom
End Sub
Private Sub KB_36110046_Leave(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles KB_36110046.Leave
If
KB_36110046.Text.Length = 0 Then
Exit
Sub
End If
'mencari data
yang ada di tabel
Dim
Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang",
KB_36110046.Text, 1, Connect)
If
Pencari.JumlanBaris > 0 Then
NB_36110046.Text =
Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not exist, please choose from the this list")
If
Latihan_383940_36110046.ShowDialog = Windows.Forms.DialogResult.OK Then
KB_36110046.Text =
Latihan_383940_36110046.DGV_36110046.CurrentRow.Cells("KodeBarang").Value
NB_36110046.Text =
Latihan_383940_36110046.DGV_36110046.CurrentRow.Cells("namabarang").Value
HARGA_36110046.Text =
Latihan_383940_36110046.DGV_36110046.CurrentRow.Cells("hargajual").Value
Else
KB_36110046.Text = ""
NB_36110046.Text = ""
End
If
End If
End Sub
Private Sub TAMBAH_36110046_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles TAMBAH_36110046.Click
'Memeriksa
isi textbox
If
KB_36110046.Text.Length = 0 Then
MsgBox("Please,
insert the code of goods")
Exit
Sub
End If
If
UNIT_36110046.Text.Length = 0 Then
MsgBox("Please,
insert the unit of goods")
Exit
Sub
End If
If
HARGA_36110046.Text.Length = 0 Then
MsgBox("Please,
insert the cost of goods")
Exit
Sub
End If
'perintah
pencarian data
Dim
cari As DataRow
cari =
Table.Rows.Find(KB_36110046.Text)
If Not cari Is Nothing Then
MsgBox("Sorry,
the data has been exist!!! Please insert new data")
Exit
Sub
End If
'penyimpanan
data ke datatable
Table.Rows.Add(KB_36110046.Text,
NB_36110046.Text, Val(UNIT_36110046.Text), Val(HARGA_36110046.Text),
JUMLAH_36110046.Text)
botto()
'mengosongkan
textbox
KB_36110046.Text = ""
NB_36110046.Text = ""
UNIT_36110046.Text = ""
HARGA_36110046.Text = ""
JUMLAH_36110046.Text = ""
End Sub
Private Sub UNIT_36110046_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
UNIT_36110046.TextChanged, HARGA_36110046.TextChanged
JUMLAH_36110046.Text =
Val(UNIT_36110046.Text) * Val(HARGA_36110046.Text)
End Sub
Private Sub
SIMPAN_36110046_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
SIMPAN_36110046.Click
'Memeriksa
isi textbox
If
NOTRANS_36110046.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
JNSTRANS_36110046.Text.Length = 0 Then
MsgBox("Please,
insert the type of the transaction")
Exit
Sub
End If
If
Table.Rows.Count = 0 Then
MsgBox("the
data is none")
Exit
Sub
End If
'Memeriksa
nomor transaksi pd master transaksi
Dim
search As New
ByIskandar.CariKeDataBaseByIskandar
search.AturPencarianDataBase("mastertransaksi", "notrans", NOTRANS_36110046.Text, 1,
Connect)
If
search.JumlanBaris > 0 Then
MsgBox("the
code has been exist")
Exit
Sub
End If
'Proses
Penyimpanan ke tabel master transaksi
Dim QP As New
OleDb.OleDbCommand
QP = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& NOTRANS_36110046.Text & "',#"
& TGL_36110046.Value.Month & "/"
& TGL_36110046.Value.Day & "/"
& TGL_36110046.Value.Year & "#,'"
& JNSTRANS_36110046.Text & "')",
Connect)
Connect.Open()
QP.ExecuteNonQuery()
Connect.Close()
'penyimpanan
isi datatable ke detail transaksi
For Each baris As DataRow
In Table.Rows
QP = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
NOTRANS_36110046.Text & "','"
& baris("kodebarang") & "'," & baris("unit") & ","
& baris("harga") & ")", Connect)
Connect.Open()
QP.ExecuteNonQuery()
Connect.Close()
Next
QP.Dispose()
'Mengosongkan
isi text box
NOTRANS_36110046.Text = ""
JNSTRANS_36110046.Text = ""
'Mengosongkan
baris datatable
Table.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
9.
Silahkan jalankan program anda.
Wassalam.
Tidak ada komentar:
Posting Komentar