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

Form 38 39 40

Public Class Form38_39_40_36109023
    Dim dt As New DataTable
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")
    Private Sub Form38_39_40_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim pororo As New OleDb.OleDbDataAdapter
        pororo = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", ame)
        dt.Rows.Clear()
        pororo.Fill(dt)
        pororo.Dispose()

        dgv36109023.DataSource = dt
    End Sub
End Class

Form 39

Public Class Form39_36109023
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim ame As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Form39_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ame.Columns.Add(New DataColumn("KODEBARANG", GetType(String)))
        ame.Columns.Add(New DataColumn("NAMABARANG", GetType(String)))
        ame.Columns.Add(New DataColumn("UNIT", GetType(Double)))
        ame.Columns.Add(New DataColumn("HARGA", GetType(Integer)))
        ame.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
        dgv36109023.DataSource = ame

        Dim dcp(1) As DataColumn
        dcp(0) = ame.Columns("KODEBARANG")
        ame.PrimaryKey = dcp

        ame.Columns("UNIT").DefaultValue = 0
        ame.Columns("HARGA").DefaultValue = 0
        ame.Columns("JUMLAH").DefaultValue = 0

    End Sub
    Private Sub hitung()
        Dim pororo As Integer
        For Each r As DataGridViewRow In dgv36109023.Rows
            pororo = pororo + r.Cells("JUMLAH").Value
        Next
        dd36109023.Text = pororo

    End Sub
   
    Private Sub dgv36109023_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109023.CellEndEdit
        If e.ColumnIndex = 0 Then
            cari.AturPencarianDataBase("BARANG", "kodebarang", dgv36109023.CurrentRow.Cells("kodebarang").Value, 1, CONECT)
            If cari.JumlanBaris > 0 Then
                dgv36109023.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
                dgv36109023.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
            Else
                MsgBox("kode barang tidak tersedia")
                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
                    dgv36109023.CurrentRow.Cells("HARGA").Value = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("HARGAJUAL").Value
                Else
                    dgv36109023.CurrentRow.Cells("KODEBARANG").Value = ""
                    dgv36109023.CurrentRow.Cells("NAMABARANG").Value = ""
                End If
            End If
        End If
        If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv36109023.CurrentRow.Cells("JUMLAH").Value = dgv36109023.CurrentRow.Cells("UNIT").Value * dgv36109023.CurrentRow.Cells("HARGA").Value

        End If

        hitung()
    End Sub


    Private Sub d36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles d36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("no transaksi belum terisi")
            Exit Sub
        End If


        If cc36109023.Text.Length = 0 Then
            MsgBox("jenis transaksi belum terisi")
            Exit Sub
        End If

        If ame.Rows.Count = 0 Then
            MsgBox("data tidak tersedia")
        End If

        cari.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, CONECT)

        If cari.JumlanBaris > 0 Then
            MsgBox("kode sudah ada")
            Exit Sub
        End If
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & aa36109023.Text & "',#" & bb36109023.Value.Date & "#," & Val(cc36109023.Text) & ")", CONECT)

        CONECT.Open()
        com.ExecuteNonQuery()
        CONECT.Close()

        For Each r As DataRow In ame.Rows

            com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & aa36109023.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
            CONECT.Open()
            com.ExecuteNonQuery()
            CONECT.Close()

            com.Dispose()

        Next

        aa36109023.Text = ""
        cc36109023.Text = ""
        dd36109023.Text = ""

        ame.Rows.Clear()
        hitung()
    End Sub
End Class

YO SEOB – NO

Romans : 
 

urin jeongmal andwindago maleul hagoseo
geumanhajan yegilhago doraseongeoya
ipsul-i mak ddeollideoni chamdeon nunmul-i
kkeutnae neoreul bonaeneunge deo eoryeoweottdeongeoya
chameulsuga eobseosseo neomu seulpeoseo
ireon nareul seuseuro dallaemyeo doraseottjiman


andwae deoneun andwae
imaleul hagiga nan duryeoweo
geuraeseo neol motbongeoya
urin andwae jeongmal andwae
eochapi saranghaeseon andwineun geol ara
ijeseoya saranghaettneunde neol saranghaettneunde
neowa geotdeon geu gileseo jamshi meomchweosseo
saranghaettdeon gieokdeul-i nareul jabgoseo
heemihage jiweojyeottdeon neoui eolgeul-i
mundeuk ddeoollattdeongeoya geuraeseo meomchungeoya
chameulsuga eobseosseo neomu seulpeoseo
ireon nareul seuseuro dallaemyeo doraseottjiman
andwae deoneun andwae
imaleul hagiga nan duryeoweo
geuraeseo neol motbongeoya
urin andwae jeongmal andwae
eochapi saranghaeseon andwineun geol ara
ijeseoya saranghaettneunde neol saranghaettneunde
nan nan geujarie-seo neol bonaeneunge aniyeottdago malhaesseumyeon
doraseoseo neol butjabgo nan andwindago jabattdeoramyeon
jeongmal saranghaesseultende
andwae deoneun andwae
imaleul hagiga nan duryeoweo
geuraeseo neol motbongeoya
urin andwae jeongmal andwae
eochapi saranghaeseon andwineun geol ara
ijeseoya saranghaettneunde neol saranghaettneunde

Translate :

After you said that we won't work out
You say let's break up and turned away
My lips trembled and the tears I held back-
Letting you go was even harder

* Because I couldn't hold it in, because it was so sad
I comforted myself and turned back but

** No, no more
I'm afraid to say this
That is why I couldn't see you
We can't, we really can't
I know we couldn't love anyway
Even though I finally love you now,
Even though I loved you

I stopped on the road that I used to walk with you
The memories of us in love have held me
And your face that faintly erased
Suddenly floated up again-
That's why I stopped

* repeat

** repeat

If I say that I shouldn't have let you go at that place
If I held onto you and said that I can't do this
We would have really loved

** repeat