Latihan_38_46110022
Deskripsi Form Latihan_38 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 38_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_38_46110022
Dim alfa As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim ega As New DataTable
Private Sub noldi()
Dim
ttotal As Integer
For Each hasil As DataRow
In ega.Rows
ttotal += hasil("Jumlah")
Next
total46110022.Text = ttotal
End Sub
Private Sub Latihan_38_46110022_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
ayam As New
OleDb.OleDbDataAdapter
ayam = 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)
ega.Rows.Clear()
ayam.Fill(ega)
ayam.Dispose()
dgv46110022.DataSource = ega
Dim
kabotcibay(2) As DataColumn
kabotcibay(0) = ega.Columns("Kodebarang")
ega.PrimaryKey = kabotcibay
End Sub
Private Sub kode46110022_leave(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kode46110022.Leave
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, please choose from the this list")
If
Latihan_38_39_40_46110022.ShowDialog = Windows.Forms.DialogResult.OK Then
kode46110022.Text =
Latihan_38_39_40_46110022.dgv46110022.CurrentRow.Cells("KodeBarang").Value
nama46110022.Text =
Latihan_38_39_40_46110022.dgv46110022.CurrentRow.Cells("namabarang").Value
harga46110022.Text =
Latihan_38_39_40_46110022.dgv46110022.CurrentRow.Cells("hargajual").Value
Else
kode46110022.Text = ""
nama46110022.Text = ""
End
If
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 =
ega.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
ega.Rows.Add(kode46110022.Text,
nama46110022.Text, Val(unit46110022.Text), Val(harga46110022.Text),
jml46110022.Text)
noldi()
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
jml46110022.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
no46110022.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
ega.Rows.Count = 0 Then
MsgBox("the
data is none")
Exit
Sub
End If
Dim
search As New
ByIskandar.CariKeDataBaseByIskandar
search.AturPencarianDataBase("mastertransaksi", "notrans", no46110022.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 ('"
& no46110022.Text & "',#"
& tgl46110022.Value.Month & "/"
& tgl46110022.Value.Day & "/"
& tgl46110022.Value.Year & "#,'"
& jenis46110022.Text & "')",
alfa)
alfa.Open()
kacci.ExecuteNonQuery()
alfa.Close()
For Each syg As DataRow In ega.Rows
kacci = New
OleDb.OleDbCommand("insert into
detailtransaksi (notrans,kodebarang,unit,harga) values ('" &
no46110022.Text & "','" &
syg("kodebarang") & "'," & syg("unit")
& "," & syg("harga") & ")",
alfa)
alfa.Open()
kacci.ExecuteNonQuery()
alfa.Close()
Next
kacci.Dispose()
no46110022.Text = ""
jenis46110022.Text = ""
ega.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 38 seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
