Deskripsi Form Latihan_37_46110023
Form Latihan_37_46110023 terdapat Lima object yaitu Label, Textbox, Button, data time picker, dan Data Grid View.
Object Label
Terdapat Sembilan object label yang bertuliskan “no. transaksi”, “tanggal”, “jenis transaksi”, “kode barang”, “unit”, “harga”, "nama barang", "jumlah", dan "total".
Object TextBox
Terdapat Lima object textbox yang berstatus input dan tiga berstatus ReadOnly.
Object Button
Terdapat Dua object button yaitu Button "insert" yang digunakan untuk menginput data textbox ke tabel yang ada pada data grid view. Sedangkan button "save" digunakan untuk menyimpan data yang diinput ke database.
Object Date Time Picker
Dalam latihan ini terdapat sebuah date time picker yeng terdapat pada "Tanggal"
Dalam latihan ini terdapat sebuah date time picker yeng terdapat pada "Tanggal"
Object DataGridView
Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput
Langkah- langkah Membuat Latihan 37
- Buka project yang telah dibuat
- Pilih menu project yang ada pada menubar, lalu pilih add windows form
3. Buatlah desaign form sepertigambar berikut
4. Ganti nama pada semua objek kecuali objek label
6. setelah itu, klik kanan pada form lalu pilih view code untuk dibuatkan script:
7. maka akan muncul tampilan seperti ini:
8. kemudian input script seperti ini:
Public Class LATIHAN_37_46110023
Dim DIAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim AYU As New DataTable
Private Sub BATU()
Dim TTOTAL As Integer
For Each hasil As DataRow In AYU.Rows
TTOTAL += hasil("Jumlah")
Next
Total_46110023.Text = TTOTAL
End Sub
Private Sub Latihan_37_46110023_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'mendeklarasikan kendaraan
Dim RINDU As New OleDb.OleDbDataAdapter
'Mengatur data yang akan di angkut
RINDU = 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_46110023.Text & "'", DIAN)
'bersihkan data
AYU.Rows.Clear()
'untuk memasukkan data yg telah di angkut ke dalam datatable
RINDU.Fill(AYU)
'untuk menampilkan isi datatable ke data grid view
RINDU.Dispose()
DGV_46110023.DataSource = AYU
'perintah primarykey
Dim MEGA(2) As DataColumn
MEGA(0) = AYU.Columns("Kodebarang")
AYU.PrimaryKey = MEGA
End Sub
Private Sub KB_46110023Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46110023.Leave
If KB_46110023.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_46110023.Text, 1, DIAN)
If Pencari.JumlanBaris > 0 Then
NB_46110023.Text = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not exist")
KB_46110023.Text = ""
NB_46110023.Text = ""
Exit Sub
End If
End Sub
Private Sub INSERT_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INSERT_46110023.Click
'Memeriksa isi textbox
If KB_46110023.Text.Length = 0 Then
MsgBox("Please, insert the code of goods")
Exit Sub
End If
If Unit_46110023.Text.Length = 0 Then
MsgBox("Please, insert the unit of goods")
Exit Sub
End If
If Harga_46110023.Text.Length = 0 Then
MsgBox("Please, insert the cost of goods")
Exit Sub
End If
'perintah pencarian data
Dim CINTA As DataRow
CINTA = AYU.Rows.Find(KB_46110023.Text)
If Not CINTA Is Nothing Then
MsgBox("Sorry, the data has been exist!!! Please insert new data")
Exit Sub
End If
'penyimpanan data ke datatable
AYU.Rows.Add(KB_46110023.Text, NB_46110023.Text, Val(Unit_46110023.Text), Val(Harga_46110023.Text), Jumlah_46110023.Text)
BATU()
'mengosongkan textbox
KB_46110023.Text = ""
NB_46110023.Text = ""
Unit_46110023.Text = ""
Harga_46110023.Text = ""
Jumlah_46110023.Text = ""
End Sub
Private Sub Unit_46110023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unit_46110023.TextChanged
Jumlah_46110023.Text = Val(Unit_46110023.Text) * Val(Harga_46110023.Text)
End Sub
Private Sub Simpan_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46110023.Click
'Memeriksa isi textbox
If NT_46110023.Text.Length = 0 Then
MsgBox("Please, insert the Number of the transaction")
Exit Sub
End If
If JT_46110023.Text.Length = 0 Then
MsgBox("Please, insert the type of the transaction")
Exit Sub
End If
If AYU.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", NT_46110023.Text, 1, DIAN)
If search.JumlanBaris > 0 Then
MsgBox("the code has been exist")
Exit Sub
End If
'Proses Penyimpanan ke tabel master transaksi
Dim SABAR As New OleDb.OleDbCommand
SABAR = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & NT_46110023.Text & "',#" & DTP_46110023.Value.Month & "/" & DTP_46110023.Value.Day & "/" & DTP_46110023.Value.Year & "#,'" & JT_46110023.Text & "')", DIAN)
DIAN.Open()
SABAR.ExecuteNonQuery()
DIAN.Close()
'penyimpanan isi datatable ke detail transaksi
For Each YUYU As DataRow In AYU.Rows
SABAR = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & NT_46110023.Text & "','" & YUYU("kodebarang") & "'," & YUYU("unit") & "," & YUYU("harga") & ")", DIAN)
DIAN.Open()
SABAR.ExecuteNonQuery()
DIAN.Close()
Next
SABAR.Dispose()
'Mengosongkan isi text box
NT_46110023.Text = ""
JT_46110023.Text = ""
'Mengosongkan baris datatable
AYU.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
LANGKAH-LANGKAH MENJALANKAN LATIHAN 37
1. Setelah scriptnya jadi, jalankan program dengan mengklik start debugging yang ada pada menubar:
2. Input data yang ingin dimasukkan, secara otomatis program akan bekerja sesuai dengan apa yang diperintahkan.
3. Apabila ada kesalahan, maka program secara otomatis akan memperlihatkan letak kesalahannya.
4. Selamat mencoba.
Property :
Property TextBox ==> ReadOnly=True
even
click
load
Tidak ada komentar:
Posting Komentar