Latihan 28

Public Class Latihan28B
Dim nini As New ByIskandar.CariKeDataBaseByIskandar
Dim rani As New OleDb.OleDbCommand
Dim nisa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")


Private Sub simpan_008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_008.Click
If kb_008.Text.Length = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If nb_008.Text.Length = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If Val(hj_008.Text) = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If Val(jb_008.Text) = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

nini.AturPencarianDataBase("Barang", "KodeBarang", kb_008.Text, 1, nisa)
If nini.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If

rani = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_008.Text & "','" & nb_008.Text & "'," & Val(hj_008.Text) & "," & Val(jb_008.Text) & ")", nisa)
nisa.Open()
rani.ExecuteNonQuery()
nisa.Close()
rani.Dispose()

kb_008.Text = ""
nb_008.Text = ""
hj_008.Text = ""
jb_008.Text = ""
End Sub

End Class

Latihan 27

Public Class Latihan27
Dim nini As New ByIskandar.CariKeDataBaseByIskandar
Dim rani As New OleDb.OleDbCommand
Dim nisa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE ='" & Application.StartupPath & "\Databarang.ACCDB'")


Private Sub simpan_008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_008.Click
If kb_008.Text.Length = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If nb_008.Text.Length = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If Val(hj_008.Text) = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

If Val(jb_008.Text) = 0 Then
MsgBox("Isi dulue itu yang kosong")
Exit Sub
End If

nini.AturPencarianDataBase("Barang", "KodeBarang", kb_008.Text, 1, nisa)
If nini.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If

rani = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_008.Text & "','" & nb_008.Text & "'," & Val(hj_008.Text) & "," & Val(jb_008.Text) & ")", nisa)
nisa.Open()
rani.ExecuteNonQuery()
nisa.Close()
rani.Dispose()

kb_008.Text = ""
nb_008.Text = ""
hj_008.Text = ""
jb_008.Text = ""
End Sub


Private Sub Latihan27_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Latihan 26

Latihan 26A

Public Class Latihan26A

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub Latihan26A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim np_36109008 As New OleDb.OleDbDataAdapter
np_36109008 = New OleDb.OleDbDataAdapter("select * From BARANG", NINI_36109008)
NINI_DT.Rows.Clear()
np_36109008.Fill(NINI_DT)
np_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT
End Sub

Private Sub button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_36109008.Click
If Latihan26B.Visible = False Then
Latihan26B.Show()
Else
Latihan26B.Activate()
End If

Latihan26B.KB_36109008.Text = DGV_36109008.CurrentRow.Cells("KODEBARANG").Value
Latihan26B.NB_36109008.Text = DGV_36109008.CurrentRow.Cells("NAMABARANG").Value
Latihan26B.HJ_36109008.Text = DGV_36109008.CurrentRow.Cells("HARGAJUAL").Value
Latihan26B.JB_36109008.Text = DGV_36109008.CurrentRow.Cells("PERSEDIAANAWAL").Value

Latihan26B.ANISA(Latihan26B.KB_36109008.Text)
End Sub
End Class

Latihan 26B

Public Class Latihan26B

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Public Sub ANISA(ByVal NISA As String)
Dim np1_36109008 As New OleDb.OleDbDataAdapter
np1_36109008 = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & NISA & "'", NINI_36109008)
NINI_DT.Rows.Clear()
np1_36109008.Fill(NINI_DT)
np1_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT

Dim nini1_36109008 As Integer
Dim nini2_36109008 As Integer
For Each queen As DataRow In NINI_DT.Rows
nini1_36109008 = nini1_36109008 + queen("Unit")
nini2_36109008 = nini2_36109008 + queen("Jumlah")
Next
TU_36109008.Text = nini1_36109008
TJ_36109008.Text = nini2_36109008
End Sub

Private Sub Latihan26B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Latihan 25

Latihan 25A

Public Class Latihan25A

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub Latihan25A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim np_36109008 As New OleDb.OleDbDataAdapter
np_36109008 = New OleDb.OleDbDataAdapter("select * From BARANG", NINI_36109008)
NINI_DT.Rows.Clear()
np_36109008.Fill(NINI_DT)
np_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT
End Sub

Private Sub button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_36109008.Click
If Latihan25B.Visible = False Then
Latihan25B.Show()
Else
Latihan25B.Activate()
End If

Latihan25B.KB_36109008.Text = DGV_36109008.CurrentRow.Cells("KODEBARANG").Value
Latihan25B.NB_36109008.Text = DGV_36109008.CurrentRow.Cells("NAMABARANG").Value
Latihan25B.HJ_36109008.Text = DGV_36109008.CurrentRow.Cells("HARGAJUAL").Value
Latihan25B.JB_36109008.Text = DGV_36109008.CurrentRow.Cells("PERSEDIAANAWAL").Value

Latihan25B.ANISA(Latihan25B.KB_36109008.Text)
End Sub
End Class

Latihan 25B

Public Class Latihan25B

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Public Sub ANISA(ByVal NISA As String)
Dim np1_36109008 As New OleDb.OleDbDataAdapter
np1_36109008 = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & NISA & "'", NINI_36109008)
NINI_DT.Rows.Clear()
np1_36109008.Fill(NINI_DT)
np1_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT
End Sub

Private Sub Latihan25B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Latihan 24

Latihan 24A

Public Class Latihan24A

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub Latihan24A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim np_36109008 As New OleDb.OleDbDataAdapter
np_36109008 = New OleDb.OleDbDataAdapter("select * From BARANG", NINI_36109008)
NINI_DT.Rows.Clear()
np_36109008.Fill(NINI_DT)
np_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT
End Sub
Private Sub button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_36109008.Click
If Latihan24B.Visible = False Then
Latihan24B.Show()
Else
Latihan24B.Activate()
End If

Latihan24B.KB_36109008.Text = DGV_36109008.CurrentRow.Cells("KODEBARANG").Value
Latihan24B.NB_36109008.Text = DGV_36109008.CurrentRow.Cells("NAMABARANG").Value
Latihan24B.HJ_36109008.Text = DGV_36109008.CurrentRow.Cells("HARGAJUAL").Value
Latihan24B.JB_36109008.Text = DGV_36109008.CurrentRow.Cells("PERSEDIAANAWAL").Value

Latihan24B.ANISA(Latihan24B.KB_36109008.Text)
End Sub
End Class

Latihan 24B

Public Class Latihan24B

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Public Sub ANISA(ByVal NISA As String)
Dim np1_36109008 As New OleDb.OleDbDataAdapter
np1_36109008 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI Where KODEBARANG='" & NISA & "'", NINI_36109008)
NINI_DT.Rows.Clear()
np1_36109008.Fill(NINI_DT)
np1_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT
End Sub

Private Sub Latihan24B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Latihan 23

latihan 23A

Public Class Latihan23A
Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub KLIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_36109008.Click
If Latihan23B.Visible = False Then
Latihan23B.Show()
Else
Latihan23B.Activate()
End If

Latihan23B.NO_36109008.Text = DGV_36109008.CurrentRow.Cells("NOTRANS").Value
Latihan23B.DTP_36109008.Value = DGV_36109008.CurrentRow.Cells("TANGGALTRANSAKSI").Value
Latihan23B.JNS_36109008.Text = DGV_36109008.CurrentRow.Cells("JENISTRANSAKSI").Value

Latihan23B.ANISA(Latihan23B.NO_36109008.Text)

End Sub

Private Sub Latihan23A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim np_36109008 As New OleDb.OleDbDataAdapter
np_36109008 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", NINI_36109008)
NINI_DT.Rows.Clear()
np_36109008.Fill(NINI_DT)
np_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT

End Sub
End Class

Latihan 23B

Public Class Latihan23B

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Public Sub ANISA(ByVal NISA As String)
Dim np1_36109008 As New OleDb.OleDbDataAdapter
np1_36109008 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI Where NOTRANS='" & NISA & "'", NINI_36109008)
NINI_DT.Rows.Clear()
np1_36109008.Fill(NINI_DT)
np1_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT

End Sub

Private Sub Latihan23B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

latihan23A & B

Public Class Latihan23A
Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Private Sub KLIK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button_36109008.Click
If Latihan23B.Visible = False Then
Latihan23B.Show()
Else
Latihan23B.Activate()
End If

Latihan23B.NO_36109008.Text = DGV_36109008.CurrentRow.Cells("NOTRANS").Value
Latihan23B.DTP_36109008.Value = DGV_36109008.CurrentRow.Cells("TANGGALTRANSAKSI").Value
Latihan23B.JNS_36109008.Text = DGV_36109008.CurrentRow.Cells("JENISTRANSAKSI").Value

Latihan23B.ANISA(Latihan23B.NO_36109008.Text)

End Sub

Private Sub Latihan23A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim np_36109008 As New OleDb.OleDbDataAdapter
np_36109008 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", NINI_36109008)
NINI_DT.Rows.Clear()
np_36109008.Fill(NINI_DT)
np_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT

End Sub
End Class

Latihan 23B

Public Class Latihan23B

Dim NINI_DT As New DataTable
Dim NINI_36109008 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

Public Sub ANISA(ByVal NISA As String)
Dim np1_36109008 As New OleDb.OleDbDataAdapter
np1_36109008 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI Where NOTRANS='" & NISA & "'", NINI_36109008)
NINI_DT.Rows.Clear()
np1_36109008.Fill(NINI_DT)
np1_36109008.Dispose()
DGV_36109008.DataSource = NINI_DT

End Sub

Private Sub Latihan23B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

12 Oktober 2011

20 tahun 3 hari sudah umur ku :)
yup,3 hari yang lalu umur telah bertambah 1 menjadi 20..happy? gak juga,untuk pertama kalinya ulang tahun tanpa papi :(
tp,sy yakin papi ikut merayakan ulang tahun kuu d surga sana #miss u dad :(

kembali seperti anak",hr ini sy bertengkar dgn satu".y sodara cwek kuu (iin)..masalah sepeleh sih,tp menyebalkan!
dy telah membuat ku marah!

d kampus bermasalah lagi dgn tugas apkom sampai air mataku mengalir..hahahaha terlalu childist :D
biarin ajjah,tp gak sia"gw nangis..tgas ternyata

IFRS :)

Sabtu, 8 Oktober 2011 terealisasi program kerja Himpunan Mahasiswa Akuntansi yaitu SEMINAR IFRS!!
Alhamdulillah sukses full :)
kurang lebih 3 bulan persiapan,alhamdulillah acara kami lancar..walaupun banyak halangan yang kami hadapi,tp semua dpt kami hadapi dengan adanya kebersamaan.

16 Februari 2011

Pagi terik,tp kok hujan??

dengan perasaan yang sangat.sangat gak enak,saya harus tetap kuat untuk menjaga papii yang terbaring lemah tak berdaya di rma sakit..

said : ya allah,,ada apa ini..? knp perasaan sy sperti ini..?
apa kau mau ambil beliau dr kami..? ya allah, klau mmng itu yang terbaik, ambillah walaupun sebenarnya sy belum siap!!

gak tega liat papii terus"an kyk gitu..
5 thun kw bertahan dengan bantuan balon D jantung mu agar kw tdak sesak untuk bernafas..
mungkin skarang saat.y kw akhiri smua apa yang telah kw rasakan

selamat jalan papii..;((
wlaupun papii sdah tidak D dunia bersama kami,tp kw akan tetap ada D hati kami terutama mamii..

ya allah, terima beliau D sisimu..
berikan dy tempat yg terbaik di sana..

mamii,,yg sabar yah..
masih ada iin,,ninii,,aco yg selalu setia temani mamii K mn pun mami mau pergi..
'
ya allah,,kuatkan kami semua..
ini adalah jalanmu,ini adalah takdir muu dan kami tidak bisa berkata tidak untuk itu..
semua yang kw lakukan kepada kami adalah yang terbaik!

we miss u dad..:*

Group Paragraph_

Current Asset

Each company have current asset. If the company have enough current asset, it means that we can make a stabilitasion in the company. Actually, current asset consist of cash, account receivable, petty cash, marchandise inventory, and etc. cash in bank if money which use to dialy activities from company, to control that money, we use petty cash. Petty cash is use to cash out, in small size, and it have to ready to use every day. Account receivable can use as investation for company, because other people have liability to our company. Besaid that, there in inventory as marchendise ready to sell so that we can get money from sales activity.

Manufacture

in manufacture company, we change raw materials to be inventory and ready to sell. In that activity do by direct and indirect labor. To make a produk there is so many expenses include overhead pabrik and other expenses.

alwiyah's group consist of 5 people :
* Hardiana
* Ismi Febriyani A
* B. Nuranisa Pertiwi
* Sri Rahmayanti A

paragRaph_English

My Radio

I like my badroom. in my badroom, there is radio. i like that because i can fun if listening music in radio and sometimes i join to sing. if i sad, i turn on radio with high volume. because i can feel calm. in my home, mostly i spend my time in my badroom with listening music. My Father bowl this radio for me. the radio not only use to listen songs but also can give us important information from several station of radio.
i like my radio.
thanks!

holiday

liburan with idung"n fans..;))

wiff iLmyeLLow n tiWiiTahir

wiff danang,,ttenn,,ilmy,,ayuu

wiff tten

wiff tiwii

hunting sana sini

auto biography

My name is Bau Nuranisa Pertiwi, but my friend’s always call me “niNii”. I was born on October 9^th 1991 in Ujung Pandang. I live at Sehati Street number 8 (A. P. Pettarani). I graduated from elementary Negeri Kompleks Ikip Makassar, junior high school 8 Makassar, vocational high school 4 Makassar, and now I take of accounting department and I lecture in Politeknik University of Makassar. I have one sister and one young brother. My sister name is Bau Nurul Sakinah. She has finished in Politeknik University of  Makassar and she look for job. My young brother name is Abdillah Fatwa. He has a student in SMK 4 Makassar tourist and travel department. My father name is Muh. Darwis, but he passed away one month ago. My mother name is Nirwana Idris. My mother job is Civil Servant. I’m secong child in my family.  My favorite hobbies is spend my time in Mall and watch TV, and reading a novel. I like holiday to the beach. Because, I can have fun. I have many best friend. In junior high school my best friend name is “imHa”. In vocational high school, I have 5 they are, ruzna,rasdiana, nadia,ayu, and wiwi  and at this campus I have many best friend.I also have a special bestfriend from child until now she is Veronika Sari Den Ka. She very kind with me. I am lucky because I have them.

                                                                                                                                    niNii^^

..AneH..

Pertemuan yg aneh,,bahkan sngat aneh mnurut ku..ahahaha
b'mula dr asal"an add org D facebook,D konfirmasi,wall to wall'an,knalan,sling tkar nmr handphone,smsan,telponan,ketemuan,sling knal 1 sm lain,dan akhir.y dkat seperti skrng..
Sepakat menjalani sebuah hubungan yg tdk t'ikat oleh status,,dan sy menganggap.y "status yg tdk jlas"..hhahaha
gak tau kpn smua ini akan b'akhir!!!
Enjoy,??
Iyalah,, "i so miss him" !!!
Selama gak ada msalah,,why not sy mnjalani smua.y,??
Jenuh,?
Bosan,?
Pastilah,,gak p'lu D ta.y..
Tp,ku yakin smua akan "indah pd waktu.y"..;)