Latihan_37_46110022
Deskripsi Form Latihan_37 46110022
Dalam
form ini terdapat 4 buah object yaitu object textbox, label, datetimepicker dan
DataGriedView.
Object
Label
Terdapat
9 buah object label yaitu no transaksi, tanggal, jenis transaksi, kode
barang, unit,nama barang, jumlah, total dan harga.
Object
Textbox
Terdapat
8 buah object textbox yang berstatus input yang berfungsi untuk menginput data
k dalam data table.
Object
DateTimePicker
Terdapat
sebuah object datetimepicker yang digunakkan untuk menginput date pada data
table.
Object DataGriedView
Terdapat
sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam
bentuk tabel yang terdiri dari baris dan kolom.
Script Unique
__
Even
Click
Load
Langkah-Langkah Membuat Form Latihan 37_46110022
1. Buat form baru
seperti langkah berikut :
2. Input nama form
pada kolom yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form
seperti gambar berikut :
4. Input script di
bawah ini :
Public Class Latihan_37_46110022
Dim alfa 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
total46110022.Text = ttotal
End Sub
Private Sub Latihan_37_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
bojel As New
OleDb.OleDbDataAdapter
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='" & no46110022.Text & "'", alfa)
gitik.Rows.Clear()
bojel.Fill(gitik)
bojel.Dispose()
dgv46110022.DataSource = gitik
Dim
kabotcibay(2) As DataColumn
kabotcibay(0) = gitik.Columns("Kodebarang")
gitik.PrimaryKey = kabotcibay
End Sub
Private Sub kode46110022_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
kode46110022.TextChanged
If
kode46110022.Text.Length = 0 Then
Exit
Sub
End If
Dim
Pencari As New
ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("barang", "kodebarang",
kode46110022.Text, 1, alfa)
If
Pencari.JumlanBaris > 0 Then
nama46110022.Text =
Pencari.DataTablenya.Rows(0).Item(1)
Else
MsgBox("the
data is not exist")
kode46110022.Text = ""
nama46110022.Text = ""
Exit
Sub
End If
End Sub
Private Sub tambah46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah46110022.Click
If
kode46110022.Text.Length = 0 Then
MsgBox("Please,
insert the code of goods")
Exit
Sub
End If
If unit46110022.Text.Length = 0 Then
MsgBox("Please,
insert the unit of goods")
Exit
Sub
End If
If
harga46110022.Text.Length = 0 Then
MsgBox("Please,
insert the cost of goods")
Exit
Sub
End If
Dim
drlebay As DataRow
drlebay =
gitik.Rows.Find(kode46110022.Text)
If Not drlebay Is Nothing Then
MsgBox("Sorry,
the data has been exist!!! Please insert new data")
Exit
Sub
End If
gitik.Rows.Add(kode46110022.Text,
nama46110022.Text, Val(unit46110022.Text), Val(harga46110022.Text),
jml46110022.Text)
botto()
kode46110022.Text = ""
nama46110022.Text = ""
unit46110022.Text = ""
harga46110022.Text = ""
jml46110022.Text = ""
End Sub
Private Sub unit46110022_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
unit46110022.TextChanged
jenis46110022.Text = Val(unit46110022.Text)
* Val(harga46110022.Text)
End Sub
Private Sub simpan46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan46110022.Click
If
nama46110022.Text.Length = 0 Then
MsgBox("Please,
insert the Number of the transaction")
Exit
Sub
End If
If
jenis46110022.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
Dim
search As New
ByIskandar.CariKeDataBaseByIskandar
search.AturPencarianDataBase("mastertransaksi", "notrans", nama46110022.Text, 1, alfa)
If
search.JumlanBaris > 0 Then
MsgBox("the
code has been exist")
Exit
Sub
End If
Dim
kacci As New
OleDb.OleDbCommand
kacci = New
OleDb.OleDbCommand("insert into
mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('"
& nama46110022.Text & "',#"
& tgl46110022.Value.Month & "/"
& tgl46110022.Value.Day & "/"
& tgl46110022.Value.Year & "#,'"
& jenis46110022.Text & "')",
alfa)
alfa.Open()
kacci.ExecuteNonQuery()
alfa.Close()
For Each nhana As DataRow In
gitik.Rows
kacci = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
nama46110022.Text & "','"
& nhana("kodebarang") & "'," & nhana("unit") & ","
& nhana("harga") & ")", alfa)
alfa.Open()
kacci.ExecuteNonQuery()
alfa.Close()
Next
kacci.Dispose()
nama46110022.Text = ""
jenis46110022.Text = ""
gitik.Rows.Clear()
Me.Close()
End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut
:
6. Setelah menekan start debug, maka akan tampil hasil dari latihan 37 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
