Latihan 12 Apkom 4

Form Latihan 12 ==> Semoga bisa membantu anda (created by sani)


'BAGIAN DEKLARASI
Dim DTNISA As New DataTable

Private Sub Latihan012012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'saat di debug muncul colom2 yg dibuat
DTNISA.Columns.Add(New DataColumn("NO PEMBELIAN", GetType(String))) 'untuk teks
DTNISA.Columns.Add(New DataColumn("TGL PEMBELIAN", GetType(Date))) 'untuk tgl
DTNISA.Columns.Add(New DataColumn("NAMA BARANG", GetType(String)))
DTNISA.Columns.Add(New DataColumn("HARGA/UNIT", GetType(Double))) 'untuk angka
DTNISA.Columns.Add(New DataColumn("UNIT", GetType(Integer))) 'untuk angka
DTNISA.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
DataGridView1.DataSource = DTNISA
'datagridwiew digunakan untuk menampilkan tabel yg sdh dibuat jika tdk maka tabel tdk akn muncul

'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
Dim dcp(1) As DataColumn
dcp(0) = DTNISA.Columns("NO PEMBELIAN")
DTNISA.PrimaryKey = dcp
End Sub

Private Sub hu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hu.TextChanged, u.TextChanged
'MENGHITUNG TEXTBOX JUMLAH
j.Text = Val(hu.Text) * Val(u.Text)

End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
Dim drzany As DataRow
drzany = DTNISA.Rows.Find(nopem.Text) 'untuk mencari apakah ada no.pembelian sdh ada agar tdak double
If drzany Is Nothing Then 'jika tidak ad ji maka lanjutkan penyimpanan

drzany = DTNISA.NewRow ' menambah baris
drzany("NO PEMBELIAN") = nopem.Text
drzany("TGL PEMBELIAN") = dtp.Text
drzany("NAMA BARANG") = nb.Text
drzany("HARGA/UNIT") = Val(hu.Text)
drzany("UNIT") = Val(u.Text)
drzany("JUMLAH") = Val(j.Text)
DTNISA.Rows.Add(drzany)

nopem.Text = ""
nb.Text = ""
hu.Text = ""
u.Text = ""
j.Text = ""
Else
MsgBox("nomor sudah ada")

End If
ZANZAN()
End Sub


Private Sub t1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t1.Click
Dim drzany As DataRow
If Val(TextBox8.Text) <= DTNISA.Rows.Count Then ' jika databaris yg diminta lebih kecil dari jumlh baris maka


drzany = DTNISA.Rows(Val(TextBox8.Text) - 1)

nopem.Text = drzany("NO PEMBELIAN")
dtp.Text = drzany("TGL PEMBELIAN")
nb.Text = drzany("NAMA BARANG")
hu.Text = drzany("HARGA/UNIT")
u.Text = drzany("UNIT")
j.Text = drzany("JUMLAH")
Else
MsgBox("nomor tidak terdaftar")

End If
TextBox8.Text = ""

End Sub

Private Sub h1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h1.Click
Dim drzany As DataRow
drzany = DTNISA.Rows(Val(TextBox8.Text) - 1)

If Val(TextBox8.Text) <= DTNISA.Rows.Count Then

drzany.Delete()

Else
MsgBox("data tidak terdaftar")

End If
TextBox8.Text = ""
ZANZAN()

nopem.Text = ""
nb.Text = ""
hu.Text = ""
u.Text = ""
j.Text = ""

End Sub

Private Sub t2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t2.Click
' jika b'dasrkan nopem maka dicari dulu dlm datagridview datanya
Dim drzany As DataRow
drzany = DTNISA.Rows.Find(TextBox9.Text)

If Not drzany Is Nothing Then ' jika ada

nopem.Text = drzany("NO PEMBELIAN")
dtp.Text = drzany("TGL PEMBELIAN")
nb.Text = drzany("NAMA BARANG")
hu.Text = drzany("HARGA/UNIT")
u.Text = drzany("UNIT")
j.Text = drzany("JUMLAH")

Else
MsgBox("nomor tidak terdaftar")

End If
TextBox9.Text = ""
End Sub

Private Sub h2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h2.Click
Dim drzany As DataRow
drzany = DTNISA.Rows.Find(TextBox9.Text) 'untuk menghapus jg dicari dlu datanya dlm data gridview

If Not drzany Is Nothing Then ' artinya jika ada
drzany.Delete()
Else
MsgBox("nomor tidak terdaftar")

End If
TextBox9.Text = ""
ZANZAN()

nopem.Text = ""
nb.Text = ""
hu.Text = ""
u.Text = ""
j.Text = ""

End Sub

Private Sub t3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t3.Click

Dim drzany As DataRow
drzany = DTNISA.DefaultView(BindingContext(DTNISA).Position).Row

nopem.Text = drzany("NO PEMBELIAN")
dtp.Value = drzany("TGL PEMBELIAN")
nb.Text = drzany("NAMA BARANG")
hu.Text = drzany("HARGA/UNIT")
u.Text = drzany("UNIT")
j.Text = drzany("JUMLAH")
End Sub

Private Sub h3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h3.Click
Dim drzany As DataRow
drzany = DTNISA.DefaultView(BindingContext(DTNISA).Position).Row
drzany.Delete()
ZANZAN()
nopem.Text = ""
nb.Text = ""
hu.Text = ""
u.Text = ""
j.Text = ""

End Sub

Private Sub ZANZAN()
Dim CANTIK As Integer
Dim manis As Integer
For Each r As DataRow In DTNISA.Rows
CANTIK = CANTIK + r("UNIT")
manis = manis + r("JUMLAH")
Next
TU.Text = CANTIK
TOT.Text = manis
End Sub