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

LIRIK SNOW WHITE – SUJU

KANJI :

I’ll keep on feelin’ everytime
心には君がいる
Baby don’t cry it’s all right now
二人でいたいよ
I’ll keep on dreamin’ everytime
I know i’ll just find your love
抱き合った　腕の中で
僕らはただひとつになって
誰もいない雪の歩道で
息が白い花びらになる
君のてのひらをそっと
握りしめてるポケット
心がゆっくり
あたたかくなるんだ
さみしさが二人試したがる
愛がどれだけ深いものか
涙の分だけ幸せになるよ
そう信じてる
I’ll keep on feelin’ everytime
心には君がいる
Baby Don`t cry it`s All right now
二人でいたいよ
I’ll keep on dreamin’ every time
I know i’ll just find your love
抱き合った　雪の中で
僕らはただ光になって
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
I know i’ll just find something
人はみんな家路を急ぐ
時はどこへ願いを運ぶ
たった一秒もきっと
神様からのプレゼント
僕らの未来の
はじまりにいるんだ
この先になにがあるとしたって
夢はほんとの答えになる
大事に思える君がいることが
僕の力さ
I’ll keep on feelin’ everytime
心には君がいる
Baby don’t cry it’s all right now
二人でいたいよ
I’ll keep on dreamin’ every time
I know i’ll just find your love
抱き合った　腕の中で
僕らはただひとつになって
ぬくもりは悲しみも
癒してくれるだろう
僕のそばを離れないで
いればいいさ
君が好きだから
I’ll keep on feelin’ everytime
心には君がいる
Baby don’t cry it’s all right now
二人でいたいよ
I’ll keep on dreamin’ every time
I know i’ll just find your love
抱き合った　雪の中で
僕らはただ光になって
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
I know i’ll just find something
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
君だけを守ってゆくよ

ROMANIZATION :

I’ll keep on feelin’ everytime
Kokoro ni wa kimigairu
Baby don’t cry it’s all right now
Futari de itai yo
I’ll keep on dreamin’ everytime
I know i’ll just find your love
Dakiatta ude no naka de
Bokuraha tada hitotsu ni natte
Daremoinai yuki no hodo o de
Iki ga shiroi hanabira ni naru
Kimi note no hi ra sotto
Nigirishime teru poketto
Kokoro ga yukkuri
Atatakaku naru nda
Samishi sa ga futari tameshita garu
Ai ga dore dake fukai mono ka
Namida no bun dake shiawase ni naru yo
So o shinji e teru
I’ll keep on feelin’ everytime
Kokoro ni wa kimigairu
Baby don’t cry it’s all right now
Futari de itai yo
I’ll keep on dreamin’ every time
I know i’ll just find your love
Dakiatta yuki no naka de
Bokuraha tada hikari ni natte
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
I know i’ll just find something
Hito wa min’na ieji o isogu
Toki wa doko e negai o hakobu
Tatta ichi byo mo kitto
Kamisama kara no purezento
Bokura no mirai no
Hajimari ni iru nda
Kono sakini nani ga aru totatte
Yume wa honto no kotae ni naru
Daiji ni omoeru kimigairu koto ga
Boku no chikara sa
I’ll keep on feelin’ everytime
Kokoro ni wa kimigairu
Baby don’t cry it’s all right now
Futari de itai yo
I’ll keep on dreamin’ every time
I know i’ll just find your love
Dakiatta ude no naka de
Bokuraha tada hitotsu ni natte
Nukumori wa kanashimi mo
Iyashite kurerudarou
Boku no soba o hanarenaide
Ireba i sa
Kimi gasuki dakara
I’ll keep on feelin’ everytime
Kokoro ni wa kimigairu
Baby don’t cry it’s all right now
Futari de itai yo
I’ll keep on dreamin’ everytime
I know i’ll just find your love
Dakiatta yuki no naka de
Bokuraha tada hikari ni natte
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
I know i’ll just find something
Ah Ah… Ah Ah…
Ah Ah… Ah Ah…
Kimidake o mamotte yuku yo

norak ver 1

K-poper nyolot, bener-bener ada ya yg namanya k-poper nyolot,sebenarnya bukan hanya nyolot juga tapi menurut gue dari cara ngomongnya,dia itu sombong..

Hari minggu(4-12-2011) kemaren gue liat cewek,dia jg k-poper tp gue il-feel sama dia karena dia nyolot banget..temennya nanya tentang dunia halluyo tapi dia jawabnya dengan NYOLOT dan GAK santai.

Meskipun kita punya pengetahuan yg lebih tentang halluyo tapi gak sampe segitunya juga jawab pertanyaan ke newbie.kasian newbie-nya klo dijawab kayak gitu..newbie-nya kan belom tau apa-apa tentang halluyo..

Emang agak menyebalkan menjawab pertanyaan dari newbie yg segudang,tapi maklumin mereka yang belum ngerti tentang halluyo..

Gak inget apa sebelum jadi k-poper senior kayak gini (?)*ciee senior,merasa senior lu?* hahaha ,lu kayak gitu juga kan.coba deh tempatin lu sebagai newbie dan saat lu nanya ke k-poper punya pengetahuan yg lebih ttg halluyo trus dijawab nyolot dan NADA yang menyebalkan,NADA yang SOK banget kayak gitu.siapa yang gak BETE dan IL-FEEL kayak gitu ( ۳˚Д˚)۳

Temennya juga oon,masih ladenin orang yang ngejawab dengan nyolot dan nada yg menyebalkan kayak gitu..gue kasian sama tuh newbie,klo gue jadi tuh newbie mending gue diam dan nyari tahu sendiri tentang halluyo,ngapain mau nanya ke orang nyolot kayak gitu..

Pesan gue buat tuh orang jadi k-poper gak usah sombong dan nyolot kayak gitu..gue perihatin sama k-poper yg kayak gitu..beneran deh gue PERIHATIN BANGET HEHEHE :)

Form 38

Public Class Form38_36109023
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form38_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = 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 = '" & aa36109023.Text & "'", ame)
        a.Fill(dt)
        a.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = dt.Columns("Kodebarang")
        dt.PrimaryKey = dc

        dgv36109023.DataSource = dt
    End Sub
    Private Sub sj()
        Dim sj1 As Integer = 0
        For Each sj2 As DataRow In dt.Rows
            sj1 += sj2("JUMLAH")
        Next
        jj36109023.Text = sj1
    End Sub

    Private Sub ff36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub gg36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub hh36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub
    Private Sub dd_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd36109023.Leave
        If dd36109023.Text.Length = 0 Then
            Exit Sub
        End If
        amelia.AturPencarianDataBase("barang", "kodebarang", dd36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            dd36109023.Text = amelia.DataTablenya.Rows(0).Item("KODEBARANG")
            ee36109023.Text = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang seperti itu tidak ada..")
            If Form38_39_40_36109023.ShowDialog = Windows.Forms.DialogResult.OK Then
                dd36109023.Text = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("kodebarang").Value
                ee36109023.Text = Form38_39_40_36109023.dgv36109023.CurrentRow.Cells("namabarang").Value
            Else
                dd36109023.Text = ""
            End If
        End If
    End Sub

    Private Sub dd36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd36109023.TextChanged
        ee36109023.Text = ""
        ff36109023.Text = ""
        gg36109023.Text = ""
    End Sub

    Private Sub ii36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii36109023.Click
        If dd36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(ff36109023.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(gg36109023.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(dd36109023.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = dd36109023.Text
            dr("NAMABARANG") = ee36109023.Text
            dr("UNIT") = ff36109023.Text
            dr("HARGA") = gg36109023.Text
            dr("JUMLAH") = hh36109023.Text

            dt.Rows.Add(dr)

            dd36109023.Text = ""
            ff36109023.Text = ""
            gg36109023.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
        End If
        sj()
    End Sub

    Private Sub kk36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu No Transaksi na..")
            Exit Sub
        End If

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

        If dt.Rows.Count = 0 Then
            MsgBox("Isi rong itu datatable na..")
            Exit Sub
        End If

        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami No Transaksi 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 = ""

        dt.Rows.Clear()
        sj()
    End Sub
End Class

Form 37

Public Class Form37_36109023
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim amelia As New ByIskandar.CariKeDataBaseByIskandar
    Dim ame As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Form37_36109023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        a = 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 ='" & aa36109023.Text & "'", ame)
        dt.Rows.Clear()
        a.Fill(dt)
        a.Dispose()

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

        dgv36109023.DataSource = dt
    End Sub
    Private Sub pororo()
        Dim pororo As Integer = 0
        For Each pororo2 As DataRow In dt.Rows
            pororo += pororo2("JUMLAH")
        Next
        jj36109023.Text = pororo
    End Sub

    Private Sub ff36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub dd36109023_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd36109023.Leave
        If dd36109023.Text.Length = 0 Then
            Exit Sub
        End If
        amelia.AturPencarianDataBase("barang", "kodebarang", dd36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            dd36109023.Text = amelia.DataTablenya.Rows(0).Item("KODEBARANG")
            ee36109023.Text = amelia.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub
    Private Sub dd36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd36109023.TextChanged
        ee36109023.Text = ""
        ff36109023.Text = ""
        gg36109023.Text = ""
    End Sub

    Private Sub ii36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii36109023.Click
        If dd36109023.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(ff36109023.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(gg36109023.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = dt.Rows.Find(dd36109023.Text)
        If dr Is Nothing Then
            dr = dt.NewRow
            dr("KODEBARANG") = dd36109023.Text
            dr("NAMABARANG") = ee36109023.Text
            dr("UNIT") = Val(ff36109023.Text)
            dr("HARGA") = Val(gg36109023.Text)
            dr("JUMLAH") = Val(hh36109023.Text)

            dt.Rows.Add(dr)

            dd36109023.Text = ""
            ff36109023.Text = ""
            gg36109023.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        pororo()
    End Sub

    Private Sub kk36109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk36109023.Click
        If aa36109023.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If cc36109023.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If dt.Rows.Count = 0 Then
            MsgBox("Maaf..Isi rong itu datatable na..")
            Exit Sub
        End If

        amelia.AturPencarianDataBase("mastertransaksi", "notrans", aa36109023.Text, 1, ame)
        If amelia.JumlanBaris > 0 Then
            MsgBox("Adami no trans 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 = ""

        dt.Rows.Clear()
        pororo()
    End Sub

    Private Sub gg36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub

    Private Sub hh36109023_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh36109023.TextChanged
        hh36109023.Text = Val(ff36109023.Text) * Val(gg36109023.Text)
    End Sub
End Class