Sry Rejeki - Apkom 4 Tugas 15-26

Public Class TUGAS15
    Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select* from barang", SRY)
        QI2.Fill(REJEKI)
        DGV46109006.DataSource = REJEKI
        QI2.Dispose()
    End Sub
End Class

Public Class TUGAS16
    Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select* from mastertransaksi", SRY)
        QI2.Fill(REJEKI)
        DGV46109006.DataSource = REJEKI
        QI2.Dispose()
    End Sub
End Class

Public Class TUGAS17
    Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select* from detailtransaksi", SRY)
        QI2.Fill(REJEKI)
        DGV46109006.DataSource = REJEKI
        QI2.Dispose()
    End Sub
End Class

Public Class TUGAS18
    Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()
        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS19
    Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()
        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS20
    Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM (BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()
        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS21
    Dim SRY46109006 As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim SRY As New DataTable
    Dim SRY_2 As New DataTable

    Dim QI As New DataSet

    Dim REJEKI As New BindingSource
    Dim REJEKI_2 As New BindingSource

    Private Sub TUGAS21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim KI1 As New OleDb.OleDbDataAdapter
        Dim KI2 As New OleDb.OleDbDataAdapter

        KI1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", SRY46109006)
        KI1.Fill(SRY)
        KI1.Dispose()

        KI2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", SRY46109006)
        KI2.Fill(SRY_2)
        KI2.Dispose()

        QI.Tables.Add(SRY)
        QI.Tables.Add(SRY_2)

        SRY.TableName = "induk"
        SRY_2.TableName = "anak"

        QI.Relations.Add(New DataRelation("cucu", QI.Tables("induk").Columns("notrans"), QI.Tables("anak").Columns("notrans")))

        REJEKI.DataSource = QI
        REJEKI.DataMember = "induk"
        REJEKI_2.DataSource = REJEKI
        REJEKI_2.DataMember = "cucu"

        DGV146109006.DataSource = REJEKI
        DGV246109006.DataSource = REJEKI_2
    End Sub
End Class

Public Class TUGAS22
    Dim SRY46109006 As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Dim dt1 As New DataTable
    Dim dt2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource
    Dim bs2 As New BindingSource

    Private Sub TUGAS22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As New OleDb.OleDbDataAdapter
        Dim b As New OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", SRY46109006)
        a.Fill(dt1)
        a.Dispose()

        b = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, [DETAILTRANSAKSI]![UNIT]*[BARANG]![HARGAJUAL] AS JUMLAHSTANDAR, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAHREALISASI FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", SRY46109006)
        b.Fill(dt2)
        b.Dispose()

        ds.Tables.Add(dt1)
        ds.Tables.Add(dt2)

        dt1.TableName = "SRY1"
        dt2.TableName = "SRY2"

        ds.Relations.Add(New DataRelation("KIKI", ds.Tables("SRY1").Columns("notrans"), ds.Tables("SRY2").Columns("notrans")))

        bs1.DataSource = ds
        bs1.DataMember = "SRY1"
        bs2.DataSource = bs1
        bs2.DataMember = "KIKI"

        DGV146109006.DataSource = bs1
        DGV246109006.DataSource = bs2
    End Sub
End Class

Public Class TUGAS23a
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS23a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select*from mastertransaksi", SRY)
        REJEKI.Rows.Clear()
        QI2.Fill(REJEKI)
        QI2.Dispose()

        DGV46109006.DataSource = REJEKI
    End Sub

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

        TUGAS23b.JENIS46109006.Text = DGV46109006.CurrentRow.Cells("notrans").Value
        TUGAS23b.DATE46109006.Value = DGV46109006.CurrentRow.Cells("tanggaltransaksi").Value
        TUGAS23b.NOMOR46109006.Text = DGV46109006.CurrentRow.Cells("jenistransaksi").Value

        TUGAS23b.KIKI(TUGAS23b.JENIS46109006.Text)
    End Sub
End Class

Public Class TUGAS23b
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Public Sub KIKI(ByVal Q As String)
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & Q & "'", SRY)
        REJEKI.Rows.Clear()
        QI2.Fill(REJEKI)

        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS24a
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS24a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()

        DGV46109006.DataSource = REJEKI
    End Sub

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

        TUGAS24b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
        TUGAS24b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
        TUGAS24b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
        TUGAS24b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value

        TUGAS24b.KIKI(TUGAS24b.KB46109006.Text)
    End Sub
End Class

Public Class TUGAS24b
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Public Sub KIKI(ByVal Q As String)
        Dim QI2 As New OleDb.OleDbDataAdapter
        Dim KI2 As String
        KI2 = "select id, notrans, unit, harga from detailtransaksi where kodebarang = '" & Q & "'"
        QI2 = New OleDb.OleDbDataAdapter(KI2, SRY)
        QI2.Fill(REJEKI)

        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS25a
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS25a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()

        DGV46109006.DataSource = REJEKI
    End Sub

    Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
        If TUGAS25b.Visible = False Then
            TUGAS25b.Show()
        Else
            TUGAS25b.Activate()
        End If
        TUGAS25b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
        TUGAS25b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
        TUGAS25b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
        TUGAS25b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value

        TUGAS25b.KIKI(TUGAS25b.KB46109006.Text)
    End Sub
End Class

Public Class TUGAS25b
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Public Sub KIKI(ByVal Q As String)
        Dim QI2 As New OleDb.OleDbDataAdapter
        Dim KI2 As String
        KI2 = "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 = '" & Q & "'"
        QI2 = New OleDb.OleDbDataAdapter(KI2, SRY)
        QI2.Fill(REJEKI)

        DGV46109006.DataSource = REJEKI
    End Sub
End Class

Public Class TUGAS26a
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Private Sub TUGAS26a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim QI2 As New OleDb.OleDbDataAdapter
        QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
        QI2.Fill(REJEKI)
        QI2.Dispose()
        DGV46109006.DataSource = REJEKI
    End Sub

    Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
        If TUGAS26b.Visible = False Then
            TUGAS26b.Show()
        Else
            TUGAS26b.Activate()
        End If
        TUGAS26b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
        TUGAS26b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
        TUGAS26b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
        TUGAS26b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value

        TUGAS26b.KIKI(TUGAS26b.KB46109006.Text)
    End Sub
End Class

Public Class TUGAS26b
    Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim REJEKI As New DataTable

    Public Sub KIKI(ByVal Q As String)
        Dim QI2 As New OleDb.OleDbDataAdapter
        Dim QIQI As String
        QIQI = "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 = '" & Q & "'"
        QI2 = New OleDb.OleDbDataAdapter(QIQI, SRY)
        QI2.Fill(REJEKI)

        DGV46109006.DataSource = REJEKI

        Dim KI1 As Integer = 0
        Dim KI2 As Integer = 0
        For Each KI3 As DataRow In REJEKI.Rows
            KI1 += KI3("Unit")
            KI2 += KI3("Jumlah")
        Next
        TU46109006.Text = KI1
        TJ46109006.Text = KI2
    End Sub
End Class

referensi tambahan jwbn pertanyaan audit

Bagi pihak yang berkepentingan atas laporan keuangan, pada umumnya menginginkan ketepatan waktu pengungkapan laporan keuangan. Ketepatan waktu ini terkait dengan manfaat dari laporan keuangan itu sendiri dan merupakan unsur penting dalam pengambilan keputusan investasi. Jika terdapat penundaan yang tidak semestinya dalam pelaporan, maka informasi yang dihasilkan akan kehilangan relevansinya. Tahun 2008, BAPEPAM dan Lembaga Keuangan mengeluarkan lampiran Keputusan Ketua BAPEPAM dan Lembaga Keuangan Nomor: KEP-460/BL/2008 tentang kewajiban penyampaian laporan berkala yaitu bahwa perusahaan publik wajib menyampaikan laporan keuangan tahunan yang telah diaudit selambat-lambatnya sembilan puluh hari setelah tanggal laporan keuangan tahunan. Perbedaan waktu antara tanggal laporan keuangan dengan tanggal opini audit dalam laporan keuangan mengindikasikan tentang lamanya waktu penyelesaian audit yang dilakukan oleh auditor (audit delay). Penelitian ini bertujuan untuk menganalisis pengaruh laba rugi dan ukuran perusahaan terhadap audit delay. Sampel yang digunakan dalam penelitian ini adalah 15 perusahaan Property dan Real Estate yang go publik di Bursa Efek Indonesia pada tahun 2006 – 2008, Dan Sumber data berasal dari Bursa Efek Indonesia, dan Pusat Refrensi Pasar Modal. Data yang diperoleh tersebut dianalisis dengan menggunakan Uji Regresi Linier Berganda dengan alat bantu komputer, yang menggunakan program SPSS. 16.0 For Windows Dari hasil analisis dapat disimpulkan bahwa hipotesis 1 yang menyatakan bahwa laba rugi berpengaruh terhadap audit delay pada perusahaan Property dan Real Estate yang Go Publik di Bursa Efek Indonesia, terbukti kebenarannya, dan untuk hipotesis 2 yang menyatakan bahwa ukuran perusahaan berpengaruh terhadap audit delay pada perusahaan Property dan Real Estate yang Go Publik di Bursa Efek Indonesia, tidak terbukti kebenarannya

My Daily Activities

My name is Sri Rejeki. I’ve been married to my amazing husband since, September 10th, 2003. He works as lecture in some University.  We have a beautiful daughter named Khadijah who is the center of our world. She is an amazing source of entertainment.She is first grade in Elementary School now.

Along with filling the roles stay at home mom and wife, I am a current full time worker. I work as an accountant at one of the banks in my town.

I spend my days at home with my wonderful daughter, doing the mom and wife thing. I like to take pictures and share them with anyone who will look at them. I consider my self to be very inexperienced with photography. I just like to take pictures.

I get up at 4 am every morning then wake my husband to take a pray together with my daughter.  After take a pray, we take a bath then my husband invite Khadijah to go around the house by bicycle. While I am busy in the kitchen preparing breakfast for my husband and my daughter. I also prepare some snack for my husband and my daughter. They like eat snack that I make. After breakfast we go together.

My husband drive us. We take my daughter to school first. After arrive at school, my daughter always kiss our hand before go to school. Then my lovely husband drive me to the office.

At lunch time, my husband always take me to go our favorite place to eat to lunch together. Then drive me again to the office. It's no problem for my husband because my office to his university is near.After I finish my work, about 3 pm, my husband come back again to my office to take me back home. But before back home, we go to my daughter's school to take her.

After arrive at home, we take a rest in the garden. we have a beautiful garden. We always gather in this place, play with our daughter and also her friends, because she sometimes invite her friends coming to home to study.

Maghrib, we go to Mosque together. My daughter who always invite us to take a pray in the Mosque. After back to home, I go to kitchen to prepare for dinner. My husband teach our daughter. Then we take dinner together. After dinner, we gather in family room. We always evaluate our daughter's development in this time. Then we go to sleep.

I love My Family...

Motif Itu APa Yahhhhh??? baca yuk

Kata motif sering diartikan sebagai daya yang mendorong seseorang untuk melakukan sesuatu. Motif adalah sebab yang menjadi dorongan tindakan seseorang.

            Motif diartikan sebagai daya yang mendorong seseorang untuk melakukan sesuatu. Motif dapat dikatakan sebagai daya daya penggerak dari dalam diri subjek untuk melakukan aktifitas-aktifitas tertentu demi mencapai suatu tujuan. Bahkan motif dapat diartikan sebagai kondisi intern (kesiapsiagaan).berawal dari kata motif itu, maka motifasi dapat diartikan sebagai daya penggerak yang menjadi aktif. Motif menjadi aktif pada saat tertent, terutama bila kebutuhan untuk mencapai tujuan dapat dirasakan/mendesak.

Komponen utama motifasi adalah:

1. kebutuhan
2. perilaku
3. tujuan

untuk mewujudkan terjadinya belajar, motivasi mempunyai kedudukan yang sangat penting artinya bagi pebelajar.

Pada sisi pebelajar, pentingnya motivasi yaitu:

1. menyadarkan kedudukan pada awal belajar, proses, dan hasil akhir.
2. menginformasikan tentang kekuatan usaha belajar
3. mengarahkan kegiatan belajar
4. membesarkan semangat belajar
5. menyadarkan tentang adanya perjalanan belajar