Form
Latihan 38 terdapat lima object yaitu Lable, Textbox, Datetimepicker, button, dan Dategridview
Terdapat sembilan object label (yang bertuliskan no.transaksi, tanggal, jenis transaksi, kode barang, nama barang, unit, harga, jumlah, dan total).
Object TextBox
Terdapat delapan buah object Textbox. Dimana lima yang berstatus input dan tiga berstatus ReadOnly.
Object DateTimePicker
Terdapat sebuah object DateTimePicker yang digunakan untuk memasukkan tanggal transaksi.
Object Button
Terdapat dua buah object Button yaitu Tambah dan Simpan. object button tambah digunakan untuk menambahkan data baru ke DataBase. Sedangkan object button Simpan digunakan untuk menyimpan data baru ke DataBase.
Object DateGridView
Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.
Script Unique
Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 38
Even
FromLoad
ButtonClick
TextChanged
( )
Property
Property Windows TextBox ReadOnly = True
Form Latihan 38
Langkah-langkah
penyelesaian latihan 38:
- Buka project yang dibuat sebelumnya
- Pilih Add new item
- Setelah terbuka jendela Add new item, pilih windows form serta anda dapat mengganti nama form, dan setelah itu pilih add
- Buat form sesuai soal di atas dengan menggunakan Data Grid View, label, Button , datetimepicker, dan textbox yang terdapat dalam toolsbox
- Setelah form selesai, ubah nama DataGridView ,Button, textbox, datetimpicker, label yang terdapat dalam properties window
- Selanjutnya masukkan formula atau rumus untuk menjalan form :
Public Class latihan38_36110056
Dim yas As New
ByIskandar.CariKeDataBaseByIskandar
Dim iyas As New DataTable
Dim
jembatan As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= D:\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DataMajemuk.accdb")
Private Sub latihan38_36110056_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim bos
As New
OleDb.OleDbDataAdapter
bos = New
OleDb.OleDbDataAdapter("select barang.KODEBARANG,
barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA,
detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on
barang.kodebarang = detailtransaksi.kodebarang where notrans ='"
& nt_36110056.Text & "'",
jembatan)
iyas.Rows.Clear()
bos.Fill(iyas)
bos.Dispose()
dgv_36110056.DataSource = iyas
Dim
aa(1) As DataColumn
aa(0) = iyas.Columns("kodebarang")
iyas.PrimaryKey = aa
End Sub
Private Sub nut()
Dim
neng As Integer
= 0
For Each abang As DataRow
In iyas.Rows
neng += abang("JUMLAH")
Next
tot_36110056.Text = neng
End Sub
Private Sub tambah_36110056_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah_36110056.Click
If
kb_36110056.Text.Length = 0 Then
MsgBox("maaf
kode barang tidak ada")
ElseIf
Val(unit_36110056.Text) = 0 Then
MsgBox("maaf
unit belum terisi")
ElseIf
Val(hrg_36110056.Text) = 0 Then
MsgBox("maaf
harga barang belum terisi")
Exit
Sub
End If
Dim cu As DataRow
cu = iyas.Rows.Find(kb_36110056.Text)
If cu Is Nothing Then
cu = iyas.NewRow
cu("kodebarang")
= kb_36110056.Text
cu("namabarang")
= nb_36110056.Text
cu("unit")
= unit_36110056.Text
cu("harga")
= hrg_36110056.Text
cu("jumlah")
= jml_36110056.Text
iyas.Rows.Add(cu)
nb_36110056.Text = ""
kb_36110056.Text = ""
unit_36110056.Text = ""
hrg_36110056.Text = ""
jml_36110056.Text = ""
Else
MsgBox("maaf
barang sudah ada")
End If
nut()
End Sub
Private Sub simpan_36110056_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles simpan_36110056.Click
If
nt_36110056.Text.Length = 0 Then
MsgBox("maaf
notrans barang tidak ada")
Exit
Sub
ElseIf
jt_36110056.Text.Length = 0 Then
MsgBox("maaf
belum terisi")
Exit
Sub
ElseIf
iyas.Rows.Count = 0 Then
MsgBox("data
tidak boleh kosong")
Exit
Sub
End If
yas.AturPencarianDataBase("mastertransaksi", "notrans", nt_36110056.Text, 1,
jembatan)
If
yas.JumlanBaris > 0 Then
MsgBox("
maaf sudah ada ")
Exit
Sub
End If
Dim
issi As New
OleDb.OleDbCommand
issi = New
OleDb.OleDbCommand("insert into
MASTERTRANSAKSI(notrans, tanggaltransaksi, jenistransaksi) values ('"
& nt_36110056.Text & "', #"
& dtp_36110056.Value.Month & "/"
& dtp_36110056.Value.Day & "/"
& dtp_36110056.Value.Year & "#,'"
& jt_36110056.Text & "')",
jembatan)
jembatan.Open()
issi.ExecuteNonQuery()
jembatan.Close()
For Each r As DataRow In iyas.Rows
issi = New
OleDb.OleDbCommand("insert into
DETAILTRANSAKSI(notrans, kodebarang, unit, harga) values ('" &
nt_36110056.Text & "','" &
r("kodebarang") & "','" & r("unit")
& "','" & r("harga") & "')",
jembatan)
jembatan.Open()
issi.ExecuteNonQuery()
jembatan.Close()
Next
issi.Dispose()
iyas.Rows.Clear()
nt_36110056.Text = ""
jt_36110056.Text = ""
nut()
End Sub
Private Sub hrg_36110056_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
hrg_36110056.TextChanged
jml_36110056.Text =
Val(unit_36110056.Text) * Val(hrg_36110056.Text)
End Sub
Private Sub kb_36110056_leave(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles kb_36110056.Leave
If
kb_36110056.Text.Length = 0 Then
Exit Sub
End If
yas.AturPencarianDataBase("barang", "kodebarang",
kb_36110056.Text, 1, jembatan)
If
yas.JumlanBaris > 0 Then
kb_36110056.Text =
yas.DataTablenya.Rows(0).Item("KODEBARANG")
nb_36110056.Text =
yas.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode
barang tidak terdaftar")
End If
If
latihan383940_36110056.ShowDialog = Windows.Forms.DialogResult.OK Then
kb_36110056.Text =
latihan383940_36110056.dgv_36110056.CurrentRow.Cells("kodebarang").Value
nb_36110056.Text =
latihan383940_36110056.dgv_36110056.CurrentRow.Cells("namabarang").Value
Else
kb_36110056.Text = ""
End If
End Sub
End Class
- Selanjutnya jika ingin menjalankannya pilih Start de bungging
- Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini
Tidak ada komentar:
Posting Komentar