MYOB MINGGU KEEMPAT

Pada minggu keempat,seperti biasa saya akan mengulangi dalam menginput akun beserta saldo awal,data customer,supplier,persediaan,beserta saldo utang dan piutang. Kemudian menginput transaksi, dalam mengerjakan transaksi saya mengalami kebingungan makanya saya bertanya ke teman..

MYOB MINGGU KETIGA

Pada minggu yang ketiga saya memulai kelas apkom dengan mengulang untuk menginput akun beserta saldo awal,customer,supplier,dan juga saldo piutang dan utang. kemudian masuk ke transaksi, tetapi tidak semua transaksi yang saya input karena waktu yang tidak memungkinkan.

MYOB MINGGU KEDUA

Pada minggu kedua saya sudah mampu untuk menginput data supplier, costumer dan inventory tetapi belum masuk pada transaksi karena waktu yang tidak memungkinkan untuk menginput transaksi.

Drama Musikal Terbaru Kyuhyun

Setelah membintangi drama musikal "three mustekers" ..

Drama musikal terbaru kyuhyun akan segera rilis pada tanggal 28 Maret 2012 mendatang yaitu "catch me if you can" bersama key SHINee ..

Can't wait for this one ^^

Kyu jjang xD

Surat Ayah Sungmin Untuk Sungmin

Surat ini adalah surat ayah Sungmin untuk Sungmin. Surat ini dibaca pada saat Sungmin dan Ryeowook berada di Sukira.

Untuk anakku:

Untuk anakku yang selalu  di luar negeri dan sibuk dengan pekerjaannya. sepertinya aku hanya dapat mengirim pesan dukungan sebagai seorang ayah. Di masa lalu, orang-orang yang selalu memuji anak-anak mereka di sebut “lemah”. Tidak begitu yakin dari saat itu, aku juga menjadi seseorang yang suka memuji anakku sendiri.

Kamu memiliki hati yang lembut dan baik sejak masih muda, sehingga kamu selalu mendapat pukulan dari anak perempuan ketika kau masih TK ‘kan? Pernah sekali ketika kamu pulang dengan luka yang cukup besar di wajahmu. Meskipun kamu tidak mengatakan apapun, hatiku terluka. Kamu tidak tahu betapa sakit Ayah pada waktu itu ‘kan? Di waktu itu, Ibu mengirimmu untuk belajar taekwondo, dan berkat itu, putra kami mencapai level 6 di taekwondo.

Kamu bekerja keras dan tidak peduli apa yang kau lakukan sejak kecil, sehingga kau menerima banyak pujian dari guru. Aku sangat bangga dengan putraku. Sungmin-ah, ketika kamu pergi untuk casting di perusahaan, Ibumu membuatku dalam kegelapan. Ketika aku pertama kali mendengar bahwa kau terpilih, meskipun aku sedikit sedih, aku merasa bukan apa-apa ketika aku melihat seberapa baik yang kau lakukan sekarang.

Disayangkan anak kami yang terpilih dalam pekerjaan yang khusus sebagai artis, tidak mampu untuk memiliki kenangan sebagai siswa yang baik seperti orang lain. Uri-Sungmin-ie seharusnya hidup seperti anak-anak normal lainnya dan menciptakan kenangan yang baik dengan teman-temannya. Sayang sekali. Akan lebih baik jika kau dapat menghubungi teman-temanmu dan menjaga hubungan baik dengan mereka secara teratur meskipun jadwal kamu saat ini sangat sibuk. Meskipun kamu telah melakukan dengan baik sampai sekarang, Ayah akan memberikan beberapa saran. Kau memiliki mata yang cepat untuk belajar  sesuatu hal dan rasa ingin tahu yang kuat, sehingga kamu dapat menerima hal-hal baru dengan sangat mudah. Tapi ada satu hal, baru-baru ini, kau telah menjadi dekat dengan fans melalui twitter, tetapi masih ada masalah.

Gunakan kesempatan ini untuk memikirkan hal itu. Aku berpikir bahwa artis seharusnya sedikit misterius tetapi ada juga kebutuhan untuk membiarkan orang lain tahu tentang keberadaanmu. Meskipun ada banyak anggota di Super Junior, ingatlah bahwa masih ada fans yang suka dengan kejujuranmu, kerja kerasmu, kelucuanmu, kebaikanmu dan kemampuan lainnya. Ada fans yang suka melihatmu di panggung dan menjadi bahagia karena perkataan yang kamu katakan dalam siaran. Itulah yang Ayah pikirkan. Terdapat gunung-gunung kecil dan besar, ada jalan untuk naik dan turun gunung. Uri-Sungmin yang memulainya dengan menaiki sebuah gunung kecil, aku juga dapat melihat gunung lain. Kamu sekarang tertantang dengan gunung besar lainnya. Aku yakin dengan persiapan, kau juga dapat membuat ikon dimana hanya dimiliki Sungmin. Meskipun kau lelah dari jadwal luar negeri baru-baru ini, tidak peduli dimana kamu berada, selalu ingat bahwa ada keluarga, anggota lainnya dan fans dari seluruh dunia yang mencintaimu untuk menyemangati dan mendukungmu. Anakku yang tersayang, Ayah sangat bangga padamu.

Full Translation Credit by the awesome  HeequeenTing (heequeenting)

Form 40

Form 40A

Public Class Form40A_36109023

    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")
    Dim dt1 As New DataTable
    Dim dt2 As New DataTable
    Dim pororo As New DataSet
    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource
    Public Sub amelia1()
        Dim sj As New OleDb.OleDbDataAdapter
        dt2.Rows.Clear()
        dt1.Rows.Clear()
        sj = New OleDb.OleDbDataAdapter("select * from mastertransaksi", ame)
        sj.Fill(dt1)
        sj = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", ame)
        sj.Fill(dt2)
    End Sub

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

        pororo.Tables.Add(dt1)
        pororo.Tables.Add(dt2)

        dt1.TableName = "evil"
        dt2.TableName = "evil2"

        pororo.Relations.Add(New DataRelation("sj", pororo.Tables("evil").Columns("notrans"), pororo.Tables("evil2").Columns("notrans")))

        bs1.DataSource = pororo
        bs1.DataMember = "evil"

        bs2.DataSource = bs1
        bs2.DataMember = "sj"

        Dim dc(1) As DataColumn
        dc(0) = dt1.Columns("notrans")
        dt1.PrimaryKey = dc

        dgv1_36109023.DataSource = bs1
        dgv2_36109023.DataSource = bs2
    End Sub

    Private Sub aa36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aa36109023.Click
        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_36109023.CurrentRow.Cells("notrans").Value & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_36109023.CurrentRow.Cells("notrans").Value & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()
        cm.Dispose()
        amelia1()
    End Sub

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

        Form40B_36109023.aa36109023.Text = ""
        Form40B_36109023.cc36109023.Text = ""
        Form40B_36109023.ff36109023.Text = "-"

        Form40B_36109023.amelia2()
        Form40B_36109023.amelia3()
    End Sub

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

        Form40B_36109023.aa36109023.Text = dgv1_36109023.CurrentRow.Cells("notrans").Value
        Form40B_36109023.bb36109023.Value = dgv1_36109023.CurrentRow.Cells("tanggaltransaksi").Value
        Form40B_36109023.cc36109023.Text = dgv1_36109023.CurrentRow.Cells("jenistransaksi").Value
        Form40B_36109023.ff36109023.Text = dgv1_36109023.CurrentRow.Cells("notrans").Value

        Form40B_36109023.amelia2()
        Form40B_36109023.amelia3()
    End Sub
End Class

Form 40 B

Public Class Form40B_36109023
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")
    Dim dt As New DataTable
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim cm As New OleDb.OleDbCommand
    Public Sub amelia2()
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & aa36109023.Text & "'", ame)
        dt.Rows.Clear()
        pororo.Fill(dt)
    End Sub
    Public Sub amelia3()
        Dim total1 As Integer
        For Each total2 As DataGridViewRow In dgv36109023.Rows
            total1 = total1 + total2.Cells("JUMLAH").Value
        Next
        dd36109023.Text = total1
    End Sub

    Private Sub amelia4()
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Notransnya..")
            Exit Sub
        End If

        If cc36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Jenis Transaksinya..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable k..")
            Exit Sub
        End If
    End Sub
    Private Sub tambah()
        amelia4()
        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami notrans seperti itu..")
            Exit Sub
        End If

        cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#, '" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""
        ff36109023.Text = "-"

        dt.Rows.Clear()
        Form40A_36109023.amelia1()
    End Sub
    Public Sub edit()
        amelia4()
        If aa36109023.Text <> ff36109023.Text Then
            amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
            If amelia.JumlanBaris > 0 Then
                MsgBox("Adami Notrans seperti itu,,mohon ganti..")
                Exit Sub
            End If
        End If

        cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & ff36109023.Text & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Month & "/" & bb36109023.Value.Day & "/" & bb36109023.Value.Year & "#, '" & cc36109023.Text & "')", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & ff36109023.Text & "'", ame)
        ame.Open()
        cm.ExecuteNonQuery()
        ame.Close()

        For Each x As DataRow In dt.Rows
            cm = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & aa36109023.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", ame)
            ame.Open()
            cm.ExecuteNonQuery()
            ame.Close()
        Next
        cm.Dispose()

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""
        ff36109023.Text = "-"

        dt.Rows.Clear()
        Form40A_36109023.amelia1()
    End Sub
    Private Sub Form40B_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        amelia2()

        Dim bumbum(1) As DataColumn
        bumbum(0) = dt.Columns("kodebarang")
        dt.PrimaryKey = bumbum

        dt.Columns("unit").DefaultValue = 0
        dt.Columns("harga").DefaultValue = 0
        dt.Columns("jumlah").DefaultValue = 0

        dgv36109023.DataSource = dt

    End Sub
    Private Sub dgv36109023_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109023.CellEndEdit
        If dgv36109023.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

            dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
            dgv36109023.CurrentRow.Cells("UNIT").Value = 0
            dgv36109023.CurrentRow.Cells("HARGA").Value = 0
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = 0

            amelia.AturPencarianDataBase("barang", "kodebarang", dgv36109023.CurrentRow.Cells("KODEBARANG").Value, 1, ame)
            If amelia.JumlanBaris > 0 Then
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
                If Form38_39_40_36109023.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv36109023.CurrentRow.Cells("KODEBARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("KODEBARANG").Value
                    dgv36109023.CurrentRow.Cells("NAMABARANG").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf dgv36109023.Columns(e.ColumnIndex).Name = "UNIT" Or dgv36109023.Columns(e.ColumnIndex).Name = "HARGA" Then
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = dgv36109023.CurrentRow.Cells("UNIT").Value * dgv36109023.CurrentRow.Cells("HARGA").Value
            amelia3()
        End If
    End Sub
    Private Sub ee36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ee36109023.Click
        If ff36109023.Text = "-" Then
            tambah()
        Else
            edit()
        End If
    End Sub
    Private Sub dgv36109023_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv36109023.DataError
        MsgBox("Terjadi sedikit kesalahan...")
    End Sub
End Class

MV Oppa Has Risen - Eunhae

MV Oppa has risen is OUT. Meskipun merupakan gabungan dari beberapa performance dari Super Show 4 kemarin tapi yaa udah biasa lah klo MV suju digituin -_- SM gituu looh hahahahaha xD Let's check this out Eunhae is So Real kekekkeke