FORM LATIHAN
Name : Latihan_37_46110021
Text :
|
Object
|
Properti
|
|
9
label
|
Text
: - No. Transaksi
-
Tanggal
-
Jenis Transaksi
-
Kode Barang
-
Nama Barang
-
Unit
-
Harga
-
Jumlah
-
Total
|
|
8
text box
|
Name:
- NT_46110021
-
JT_46110021
-
KB_46110021
-
NB_46110021(readonly)
-
Unit_46110021
-
Harga_46110021
-
Jumlah_46110021(read only)
-
Total_46110021(Readonly)
|
|
1
datetimepicker
|
Name:
DTP_46110021
|
|
2
button
|
Name:
- Tambah_46110021
-
Simpan_46110021
Text : -
Tambah
- Simpan
|
|
1
Datagridview
|
Name:
Showme_46110021
|
A. Pertama buka project yang anda buat, lalu pada menu bar pili add windows form…
C. Buatlah desain form seperti dengan gambar dibawah ini. Sesuaikan object yang ada dalam form dengan deskripsinya agar tidak salah memilih object.
D. Ubah nama setiap object kecuali bject label. Dengan cara mengganti “Name” di Properti bar.
E. Lalu masukkan script dibawah ini dengan klik kanan dan pilih view code.
Public Class Latihan_37_46110021
Dim
Jalan As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim gitik As New DataTable
Private Sub botto()
Dim
ttotal As Integer
For Each hasil As DataRow
In gitik.Rows
ttotal += hasil("jumlah")
Next
Total_46110021.Text = ttotal
End Sub
Private Sub Latihan37_083_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
'mendeklarasikan
kendaraan
Dim
bojel As New
OleDb.OleDbDataAdapter
'Mengatur
data yang akan di angkut
bojel = 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_46110021.Text & "'", Jalan)
'bersihkan
data
gitik.Rows.Clear()
'untuk
memasukkan data yg telah di angkut ke dalam datatable
bojel.Fill(gitik)
'untuk
menampilkan isi datatable ke data grid view
bojel.Dispose()
Showme_46110021.DataSource = gitik
'perintah
primarykey
Dim
kabotcibay(2) As DataColumn
kabotcibay(0) = gitik.Columns("Kodebarang")
gitik.PrimaryKey = kabotcibay
End Sub
Private Sub KB_Leave(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles KB_46110021.Leave
If
KB_46110021.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_46110021.Text, 1, Jalan)
If
Pencari.JumlanBaris > 0 Then
NB_46110021.Text =
Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not exist")
KB_46110021.Text = ""
NB_46110021.Text = ""
Exit
Sub
End If
End Sub
Private Sub Tambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Tambah_46110021.Click
'Memeriksa
isi textbox
If
KB_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the code of goods")
Exit
Sub
End If
If
Unit_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the unit_46110021 of goods")
Exit
Sub
End If
If
Harga_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the cost of goods")
Exit
Sub
End If
'perintah
pencarian data
Dim
drlebay As DataRow
drlebay =
gitik.Rows.Find(KB_46110021.Text)
If Not drlebay Is Nothing Then
MsgBox("Sorry,
the data has been exist!!! Please insert new data")
Exit
Sub
End If
'penyimpanan
data ke datatable
gitik.Rows.Add(KB_46110021.Text,
NB_46110021.Text, Val(Unit_46110021.Text), Val(Harga_46110021.Text),
Jumlah_46110021.Text)
botto()
'mengosongkan
textbox
KB_46110021.Text = ""
NB_46110021.Text = ""
Unit_46110021.Text = ""
Harga_46110021.Text = ""
Jumlah_46110021.Text = ""
End Sub
Private Sub unit_46110021_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
Unit_46110021.TextChanged, Harga_46110021.TextChanged
Jumlah_46110021.Text =
Val(Unit_46110021.Text) * Val(Harga_46110021.Text)
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan_46110021.Click
'Memeriksa
isi textbox
If
NT_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
JT_46110021.Text.Length = 0 Then
MsgBox("Please,
insert the type of the transaction")
Exit
Sub
End If
If
gitik.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_46110021.Text, 1, Jalan)
If
search.JumlanBaris > 0 Then
MsgBox("the
code has been exist")
Exit
Sub
End If
'Proses
Penyimpanan ke tabel master transaksi
Dim
kacci As New
OleDb.OleDbCommand
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& NT_46110021.Text & "',#"
& DTP_46110021.Value.Month & "/"
& DTP_46110021.Value.Day & "/"
& DTP_46110021.Value.Year & "#,'"
& JT_46110021.Text & "')",
Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
'penyimpanan
isi datatable ke detail transaksi
For Each nhana As DataRow
In gitik.Rows
kacci = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
NT_46110021.Text & "','" &
nhana("kodebarang") & "'," & nhana("unit") & ","
& nhana("harga") & ")", Jalan)
Jalan.Open()
kacci.ExecuteNonQuery()
Jalan.Close()
Next
kacci.Dispose()
'Mengosongkan
isi text box
NT_46110021.Text = ""
JT_46110021.Text = ""
'Mengosongkan
baris datatable
gitik.Rows.Clear()
'menutup form
Me.Close()
End Sub
End Class
New Even
Leave
Scipt Unik
'mencari data yang ada di tabel
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang", KB_46110021.Text, 1, Jalan)
If Pencari.JumlanBaris > 0 Then
NB_46110021.Text = Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the data is not exist")
KB_46110021.Text = ""
NB_46110021.Text = ""
Exit Sub
End If
LANGKAH UNTUK MENJALANKAN FORM
Untuk memudahkan pakailah navigator
A. Pilih tombol start debugging lalu pilih form Latihan_37_46110021, maka jendela Latihan_37_46110021 akan muncul
B. Isi sesuai dengan keinginan anda. lalu tekan tambah atau simpan