Sabtu, 29 Oktober 2011

Matakuliah Apkom 4 Latihan 23-26 D3C

Silahkan Kumpul disini
Diposting oleh di

26 komentar:

  1. Trioo Wijaya4 November 2011 pukul 03.20

    Form 25A-B

    Public Class Form25A
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksijualbeli.ACCDB")
    Dim Ember As New DataTable
    Private Sub Form25A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Mendeklarasikan kendaraan
    Dim mobil As New OleDb.OleDbDataAdapter

    'Mengatur data yang akan diangkut
    mobil = New OleDb.OleDbDataAdapter("SELECT* from barang", Jalan)

    'Untuk memasukkan data yang telah diangkut kedalam datatable
    mobil.Fill(Ember)

    'Untuk memasukkan data yang telah diangkut kedalam datatable
    DGV_071.DataSource = Ember
    mobil.Dispose()
    End Sub

    Private Sub tombol_071_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tombol_071.Click
    'menampilkan form 25b
    If Form25B.Visible = False Then
    Form25B.Show()
    Else
    Form25B.Activate()
    End If

    'mengisi textbox yang ada pada form 25b
    Form25B.Tabel1_071.Text = DGV_071.CurrentRow.Cells("kodebarang").Value
    Form25B.Tabel2_071.Text = DGV_071.CurrentRow.Cells("namabarang").Value
    Form25B.Tabel3_071.Text = DGV_071.CurrentRow.Cells("hargajual").Value
    Form25B.Tabel4_071.Text = DGV_071.CurrentRow.Cells("persediaanawal").Value

    'menjalankan procedure pengambilan data
    Form25B.trio()
    End Sub
    End Class


    Form 25B
    Public Class Form25B
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksijualbeli.ACCDB")
    Dim Ember As New DataTable
    Public Sub trio()
    'Mendeklarasikan kendaraan
    Dim mobil As New OleDb.OleDbDataAdapter

    'Mengatur data yang akan diangkut
    mobil = New OleDb.OleDbDataAdapter("SELECT Mastertransaksi.Notrans, Mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, mastertransaksi.keterangan, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM mastertransaksi Inner join Detailtransaksi on mastertransaksi.notrans = detailtransaksi.notrans where kodebarang='" & Tabel1_071.Text & "'", Jalan)

    'bersihkan data dulu sebelum isi data lain
    Ember.Rows.Clear()

    'Untuk memasukkan data yang telah diangkut kedalam datatable
    mobil.Fill(Ember)
    mobil.Dispose()
    End Sub

    Private Sub Form25B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    trio()
    DGV_071.DataSource = Ember
    End Sub
    End Class

    BalasHapus
  2. aditya.Deriel4 November 2011 pukul 03.27

    FITRAH ADITYA (36109084)
    FORM 23A-B

    FORM 23A
    Public Class latihan_23a_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Private Sub latihan_23a_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B As New OleDb.OleDbDataAdapter
    B = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", A)
    B.Fill(datatabel1)
    dgva_084.DataSource = datatabel1
    End Sub
    Private Sub klik_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_084.Click
    If latihan_23b_084.Visible = False Then
    latihan_23b_084.Show()
    Else
    latihan_23b_084.Activate()
    End If
    latihan_23b_084.Show()
    latihan_23b_084.nmr_084.Text = dgva_084.CurrentRow.Cells("NOTRANS").Value
    latihan_23b_084.dtp_084.Value = dgva_084.CurrentRow.Cells("TANGGALTRANSAKSI").Value
    latihan_23b_084.jns_084.Text = dgva_084.CurrentRow.Cells("JENISTRANSAKSI").Value
    latihan_23b_084.Deriel()
    End Sub
    End Class

    FORM 23B
    Public Class latihan_23b_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub Deriel()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI Where NOTRANS = '" & nmr_084.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub
    Private Sub latihan_23b_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgvb_084.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  3. aditya.Deriel4 November 2011 pukul 03.33

    FORM 24A-B
    FORM 24A
    Public Class latihan_24a_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_24a_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    dgv_084.DataSource = datatabel1

    End Sub

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

    latihan_24b_084.Show()
    latihan_24b_084.kb_084.Text = dgv_084.CurrentRow.Cells("KODEBARANG").Value
    latihan_24b_084.nb_084.Text = dgv_084.CurrentRow.Cells("NAMABARANG").Value
    latihan_24b_084.hj_084.Text = dgv_084.CurrentRow.Cells("HARGAJUAL").Value
    latihan_24b_084.jb_084.Text = dgv_084.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_24b_084.Deriel()

    End Sub
    End Class

    FORM 24B
    Public Class latihan_24b_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub Deriel()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select BARANG.NAMABARANG, BARANG.PERSEDIAANAWAL, BARANG.HARGAJUAL From BARANG where KODEBARANG = '" & kb_084.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()

    End Sub
    Private Sub latihan_24b_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv_084.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  4. aditya.Deriel4 November 2011 pukul 03.36

    FORM 25A-B
    FORM 25A
    Public Class latihan_25a_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_25a_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    dgv_084.DataSource = datatabel1

    End Sub

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

    latihan_25b_084.Show()
    latihan_25b_084.kb_084.Text = dgv_084.CurrentRow.Cells("KODEBARANG").Value
    latihan_25b_084.nb_084.Text = dgv_084.CurrentRow.Cells("NAMABARANG").Value
    latihan_25b_084.hj_084.Text = dgv_084.CurrentRow.Cells("HARGAJUAL").Value
    latihan_25b_084.jb_084.Text = dgv_084.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_25b_084.Deriel()

    End Sub
    End Class


    FORM 25B
    Public Class latihan_25b_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub Deriel()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kb_084.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()

    End Sub
    Private Sub latihan_25b_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv_084.DataSource = datatabel1

    End Sub
    End Class

    BalasHapus
  5. aditya.Deriel4 November 2011 pukul 03.38

    FORM 26A-B
    FORM 26A
    Public Class latihan_26a_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_26a_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    dgv_084.DataSource = datatabel1

    End Sub

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

    latihan_26b_084.Show()
    latihan_26b_084.kb_084.Text = dgv_084.CurrentRow.Cells("KODEBARANG").Value
    latihan_26b_084.nb_084.Text = dgv_084.CurrentRow.Cells("NAMABARANG").Value
    latihan_26b_084.hj_084.Text = dgv_084.CurrentRow.Cells("HARGAJUAL").Value
    latihan_26b_084.jb_084.Text = dgv_084.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_26b_084.Deriel()
    latihan_26b_084.Perhitungan()
    End Sub
    End Class


    FORM 26B
    Public Class latihan_26b_084
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub Deriel()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kb_084.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub
    Public Sub Perhitungan()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each x As DataRow In datatabel1.Rows
    TU = TU + x("UNIT")
    TOTAL = TOTAL + x("JUMLAH")
    Next
    tu_084.Text = TU
    tj_084.Text = TOTAL

    End Sub
    Private Sub latihan_26b_084_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv_084.DataSource = datatabel1

    End Sub
    End Class

    BalasHapus
  6. feby windriani4 November 2011 pukul 04.13

    FORM 25A-B

    FORM25A
    Public Class latihan_25a_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_25a_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    DataGridView_064.DataSource = datatabel1
    End Sub

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

    latihan_25b_064.Show()
    latihan_25b_064.kb064.Text = DataGridView_064.CurrentRow.Cells("KODEBARANG").Value
    latihan_25b_064.nb064.Text = DataGridView_064.CurrentRow.Cells("NAMABARANG").Value
    latihan_25b_064.hj064.Text = DataGridView_064.CurrentRow.Cells("HARGAJUAL").Value
    latihan_25b_064.jb064.Text = DataGridView_064.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_25b_064.feby()
    End Sub
    End Class


    FORM 25B
    Public Class latihan_25b_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable


    Public Sub feby()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kb064.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Private Sub latihan_25b_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView_064.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  7. feby windriani4 November 2011 pukul 04.26

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  8. asni4 November 2011 pukul 06.09

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  9. asni4 November 2011 pukul 06.18

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  10. asni4 November 2011 pukul 06.24

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  11. asni4 November 2011 pukul 06.31

    FORM 24B
    Public Class latihan_24b_068
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable


    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select BARANG.NAMABARANG, BARANG.PERSEDIAANAWAL, BARANG.HARGAJUAL From BARANG where KODEBARANG = '" & kobar.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()

    End Sub
    End Class
    FORM 25A-25B
    Public Class latihan_25a_068
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Private Sub latihan_25a_068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    DataGridView1.DataSource = datatabel1

    End Sub

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

    latihan_25b_068.Show()
    latihan_25b_068.kobar.Text = DataGridView1.CurrentRow.Cells("KODEBARANG").Value
    latihan_25b_068.nabar.Text = DataGridView1.CurrentRow.Cells("NAMABARANG").Value
    latihan_25b_068.harjul.Text = DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
    latihan_25b_068.jumbar.Text = DataGridView1.CurrentRow.Cells("PERSEDIAANAWAL").Value
    latihan_25b_068.INA()

    End Sub
    End Class

    Public Class latihan_25b_068
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kobar.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()

    End Sub


    Private Sub latihan_25b_068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = datatabel1


    End Sub
    End Class

    End Class

    BalasHapus
  12. asni4 November 2011 pukul 06.34

    FORM 26A-26B
    Public Class latihan_26a_068
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")


    Private Sub latihan_26a_068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    DataGridView1.DataSource = datatabel1

    End Sub

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

    latihan_26b_068.Show()
    latihan_26b_068.kobar.Text = DataGridView1.CurrentRow.Cells("KODEBARANG").Value
    latihan_26b_068.nabar.Text = DataGridView1.CurrentRow.Cells("NAMABARANG").Value
    latihan_26b_068.hajul.Text = DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
    latihan_26b_068.jumbar.Text = DataGridView1.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_26b_068.INA()
    latihan_26b_068.Perhitungan()

    End Sub
    End Class
    Public Class latihan_26b_068
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kobar.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Public Sub Perhitungan()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each x As DataRow In datatabel1.Rows
    TU = TU + x("UNIT")
    TOTAL = TOTAL + x("JUMLAH")
    Next
    totalunit.Text = TU
    totaljumlah.Text = TOTAL
    End Sub


    Private Sub latihan_26b_068_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  13. aditya.Deriel4 November 2011 pukul 07.02

    FORM 23A-B

    FORM 23A
    Public Class latihan_23a_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_23a_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B As New OleDb.OleDbDataAdapter
    B = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", A)
    B.Fill(datatabel1)
    DataGridView_064.DataSource = datatabel1
    End Sub

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

    latihan_23b_064.Show()
    latihan_23b_064.Nomor_064.Text = DataGridView_064.CurrentRow.Cells("NOTRANS").Value
    latihan_23b_064.tgl_064.Value = DataGridView_064.CurrentRow.Cells("TANGGALTRANSAKSI").Value
    latihan_23b_064.jns_064.Text = DataGridView_064.CurrentRow.Cells("JENISTRANSAKSI").Value

    latihan_23b_064.feby()
    End Sub
    End Class

    FORM 23B
    Public Class latihan_23b_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub feby()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.ID, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA From DETAILTRANSAKSI Where NOTRANS = '" & Nomor_064.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Private Sub latihan_23b_026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView_064.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  14. aditya.Deriel4 November 2011 pukul 07.04

    FORM 24A-B

    FORM 24A
    Public Class latihan_24a_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_24a_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    DataGridView_064.DataSource = datatabel1
    End Sub

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

    latihan_24b_064.Show()
    latihan_24b_064.kb064.Text = DataGridView_064.CurrentRow.Cells("KODEBARANG").Value
    latihan_24b_064.nb064.Text = DataGridView_064.CurrentRow.Cells("NAMABARANG").Value
    latihan_24b_064.hj064.Text = DataGridView_064.CurrentRow.Cells("HARGAJUAL").Value
    latihan_24b_064.Text = DataGridView_064.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_24b_064.feby()
    End Sub
    End Class

    FORM 24B
    Public Class latihan_24b_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub feby()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select BARANG.NAMABARANG, BARANG.PERSEDIAANAWAL, BARANG.HARGAJUAL From BARANG where KODEBARANG = '" & kb064.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Private Sub latihan_24b_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView_064.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  15. aditya.Deriel4 November 2011 pukul 07.05

    FORM 26A-B

    FORM 26A
    Public Class latihan_26a_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_26a_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    DataGridView_064.DataSource = datatabel1
    End Sub

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

    latihan_26b_064.Show()
    latihan_26b_064.kb064.Text = DataGridView_064.CurrentRow.Cells("KODEBARANG").Value
    latihan_26b_064.nb064.Text = DataGridView_064.CurrentRow.Cells("NAMABARANG").Value
    latihan_26b_064.hj064.Text = DataGridView_064.CurrentRow.Cells("HARGAJUAL").Value
    latihan_26b_064.jb064.Text = DataGridView_064.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan_26b_064.feby()
    latihan_26b_064.hitung()
    End Sub
    End Class

    FORM 26B
    Public Class latihan_26b_064
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub feby()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kb064.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Public Sub hitung()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each x As DataRow In datatabel1.Rows
    TU = TU + x("UNIT")
    TOTAL = TOTAL + x("JUMLAH")
    Next
    tu064.Text = TU
    tj064.Text = TOTAL
    End Sub

    Private Sub latihan_26b_064_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView_064.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  16. yudhaseven4 November 2011 pukul 08.08

    Public Class latihan24b069
    Dim danang As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim prayudha As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select BARANG.NAMABARANG, BARANG.PERSEDIAANAWAL, BARANG.HARGAJUAL From BARANG where KODEBARANG = '" & kobar.Text & "'", danang)
    prayudha.Rows.Clear()
    X.Fill(prayudha)
    X.Dispose()
    End Sub

    Private Sub latihan24b_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgva.DataSource = prayudha
    End Sub
    End Class

    Public Class latihan_25a_069
    Dim danang As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub latihan_25a_069_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim prayudha As New DataTable
    Dim prayudha1 As New OleDb.OleDbDataAdapter
    prayudha1 = New OleDb.OleDbDataAdapter("Select * From BARANG", danang)
    prayudha1.Fill(prayudha)
    dgva.DataSource = prayudha

    End Sub

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

    dgva.Show()
    latihan25b069.kobar.Text = dgva.CurrentRow.Cells("KODEBARANG").Value
    latihan25b069.nabar.Text = dgva.CurrentRow.Cells("NAMABARANG").Value
    latihan25b069.harju.Text = dgva.CurrentRow.Cells("HARGAJUAL").Value
    latihan25b069.jumbar.Text = dgva.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan25b069.INA()

    End Sub
    End Class

    Public Class latihan25b069
    Dim danang As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim prayudha As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kobar.Text & "'", danang)
    prayudha.Rows.Clear()
    X.Fill(prayudha)
    X.Dispose()
    End Sub

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

    End Sub
    End Class

    BalasHapus
  17. yudhaseven4 November 2011 pukul 08.14

    Public Class latihan_26a_069
    Dim danang As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan26A017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim prayudha As New DataTable
    Dim prayudha1 As New OleDb.OleDbDataAdapter
    prayudha1 = New OleDb.OleDbDataAdapter("Select * From BARANG", danang)
    prayudha1.Fill(prayudha)
    dgva.DataSource = prayudha
    End Sub

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

    latihan26b.Show()
    latihan26b.kobar.Text = dgva.CurrentRow.Cells("KODEBARANG").Value
    latihan26b.nabar.Text = dgva.CurrentRow.Cells("NAMABARANG").Value
    latihan26b.harju.Text = dgva.CurrentRow.Cells("HARGAJUAL").Value
    latihan26b.jumbar.Text = dgva.CurrentRow.Cells("PERSEDIAANAWAL").Value

    latihan26b.INA()
    latihan26b.Perhitungan()
    End Sub
    End Class

    Public Class latihan26b
    Dim danang As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim prayudha As New DataTable

    Public Sub INA()
    Dim a As New OleDb.OleDbDataAdapter
    a = 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 = '" & kobar.Text & "'", danang)
    prayudha.Rows.Clear()
    a.Fill(prayudha)
    a.Dispose()
    End Sub

    Public Sub Perhitungan()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each x As DataRow In prayudha.Rows
    TU = TU + x("UNIT")
    TOTAL = TOTAL + x("JUMLAH")
    Next
    TOTALUNIT.Text = TU
    TOTALJUM.Text = TOTAL
    End Sub

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

    End Sub
    End Class

    BalasHapus
  18. catherine parubak5 November 2011 pukul 07.10

    Public Class Form23
    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Datatansaksi.ACCDB")

    Private Sub Form23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim cat As New OleDb.OleDbDataAdapter
    cat = New OleDb.OleDbDataAdapter("select & from Mastertransaksi", cute)
    cat.Fill(datatabel1)
    DataGridView1.DataSource = datatabel1

    End Sub
    End Class




    Public Class Form23B
    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataTransaksiJualBeli.ACCDB")
    Dim datatabel1 As New DataTable
    Public Sub cat()
    Dim I As New OleDb.OleDbDataAdapter
    I = New OleDb.OleDbDataAdapter("Select Detailtransaksi.ID, Detailtrasaksi.Kodebarang, Detailtransaksi.Unit, Detailtransaksi.Harga From DetailTransaksi Where NoTrans = '" & a_079.Text & "'", cute)
    datatabel1.Rows.Clear()
    I.Fill(datatabel1)
    I.Dispose()

    End Sub
    Private Sub Form23B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = datatabel1

    End Sub
    End Class

    BalasHapus
  19. catherine parubak5 November 2011 pukul 07.12

    Public Class Form25
    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub Form25_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim ct1 As New OleDb.OleDbDataAdapter
    ct1 = New OleDb.OleDbDataAdapter("Select * from Barang", cute)
    ct1.Fill(datatabel1)
    DataGridView1.DataSource = datatabel1

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Form25B.Visible = False Then
    Form24B.Show()
    Else
    Form25B.Activate()

    End If
    Form25B.Show()
    Form25B.Kodebarang_079.Text = DataGridView1.CurrentRow.Cells("Kodebarang").Value
    Form25B.Namabarang_079.Text = DataGridView1.CurrentRow.Cells("Namabarang").Value
    Form25B.Hargajual_079.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value
    Form25B.Jumlah_079.Text = DataGridView1.CurrentRow.Cells("PersediaanAwal").Value

    Form25B.cat()

    End Sub
    End Class


    Public Class Form25B

    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub cat()
    Dim I As New OleDb.OleDbDataAdapter
    I = New OleDb.OleDbDataAdapter("Select MasterTransaksi.Notrans, MasterTransasksi.TanggalTransaksi, MasterTransaksi.JenisTransaksi, MasterTransaksi.Keterangan, DetailTransaski.Unit, DetailTransaksi.Harga, DetailTransaksi.Unit*DetailTransaksi.Harga As Jumlah From DetailTransaksi INNER Join MasterTransaksi ON DetailTransaksi.Notrans=MasterTransaksi.Notrans where Kodebarang = '" & Kodebarang_079.Text & "'", cute)
    datatabel1.Rows.Clear()
    I.Fill(datatabel1)
    I.Dispose()

    End Sub

    Private Sub Form25B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = datatabel1

    End Sub
    End Class

    BalasHapus
  20. catherine parubak5 November 2011 pukul 07.14

    Public Class Form26
    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Form26_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim ct1 As New OleDb.OleDbDataAdapter
    ct1 = New OleDb.OleDbDataAdapter("select * from Barang", cute)
    ct1.Fill(datatabel1)
    DataGridView1.DataSource = datatabel1
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If Form26B.Visible = False Then
    Form26B.Show()
    Else
    Form26B.Activate()

    End If

    Form26B.Show()
    Form26B.Kodebarang_079.Text = DataGridView1.CurrentRow.Cells("Kodebarang").Value
    Form26B.Namabarang_079.Text = DataGridView1.CurrentRow.Cells("Namabarang").Value
    Form26B.Hargajual_079.Text = DataGridView1.CurrentRow.Cells("Hargajual").Value
    Form26B.Jumlah_079.Text = DataGridView1.CurrentRow.Cells("PersediaanAwal").Value

    Form26B.cat()
    Form26B.hitung()

    End Sub
    End Class



    Public Class Form26B
    Dim cute As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & Application.StartupPath & "\DatatransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable
    Public Sub cat()
    Dim I As New OleDb.OleDbDataAdapter
    I = New OleDb.OleDbDataAdapter("select Master.Notrans, MasterTransaksi.Tanggaltransaksi, MasterTransaksi.JenisTransaksi.Keterangan, Detailtransaksi.Unit, DetailTransaksi.Harga, DetailTransaksi.Unit*DetailTransaksi.Harga As Jumlah From DetailTransaksi INNER Join MasterTransaksi ON DetailTransaksi.Notrans=MasterTransaksi.Notrans Where Kodebarang = '" & Kodebarang_079.Text & "'", cute)
    datatabel1.Rows.Clear()
    I.Fill(datatabel1)
    I.Dispose()

    End Sub
    Public Sub hitung()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each i As DataRow In datatabel1.Rows
    TU = TU + i("Unit")
    TOTAL = TOTAL + i("Jumlah")

    Next
    Totalunit_079.Text = TU
    Totaljumlah_079.Text = TOTAL
    End Sub
    Private Sub Form26B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DataGridView1.DataSource = datatabel1

    End Sub
    End Class

    BalasHapus
  21. (L).Gunawan.Mustari6 November 2011 pukul 16.38

    23 A-B


    Public Class Latihan23A
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan23_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B As New OleDb.OleDbDataAdapter
    B = New OleDb.OleDbDataAdapter("Select * From mastertransaksi", A)
    B.Fill(datatabel1)
    dgv070.DataSource = datatabel1
    End Sub

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

    Latihan23B.Show()
    Latihan23B.nomor070.Text = dgv070.CurrentRow.Cells("notrans").Value
    Latihan23B.date070.Value = dgv070.CurrentRow.Cells("tanggaltransaksi").Value
    Latihan23B.jenis070.Text = dgv070.CurrentRow.Cells("jenistransaksi").Value

    Latihan23B.INA()
    End Sub
    End Class


    Public Class Latihan23B
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select detailtransaksi.id, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga From detailtransaksi Where notrans = '" & nomor070.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

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

    End Sub
    End Class

    BalasHapus
  22. (L).Gunawan.Mustari6 November 2011 pukul 16.42

    24 A-B

    Public Class Latihan24A
    Dim A 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 datatabel1 As New DataTable
    Dim gm As New OleDb.OleDbDataAdapter
    gm = New OleDb.OleDbDataAdapter("Select * From barang", A)
    gm.Fill(datatabel1)
    dgv070.DataSource = datatabel1
    End Sub


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

    Latihan24B.Show()
    Latihan24B.kb070.Text = dgv070.CurrentRow.Cells("kodebarang").Value
    Latihan24B.nb070.Text = dgv070.CurrentRow.Cells("namabarang").Value
    Latihan24B.hj070.Text = dgv070.CurrentRow.Cells("hargajual").Value
    Latihan24B.jb070.Text = dgv070.CurrentRow.Cells("persediaanawal").Value

    Latihan24B.INA()
    End Sub
    End Class


    Public Class Latihan24B
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim by As New OleDb.OleDbDataAdapter
    by = New OleDb.OleDbDataAdapter("Select barang.kodebarang, barang.namabarang, barang.persediaanawal, barang.hargajual From barang where kodebarang = '" & kb070.Text & "'", A)
    datatabel1.Rows.Clear()
    by.Fill(datatabel1)
    by.Dispose()
    End Sub

    Private Sub Latihan24B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv070.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  23. (L).Gunawan.Mustari6 November 2011 pukul 16.46

    25 A-B

    Public Class Latihan25A
    Dim A 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 datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    dgv070.DataSource = datatabel1
    End Sub

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

    Latihan25B.Show()
    Latihan25B.kb070.Text = dgv070.CurrentRow.Cells("kodebarang").Value
    Latihan25B.nb070.Text = dgv070.CurrentRow.Cells("namabarang").Value
    Latihan25B.hj070.Text = dgv070.CurrentRow.Cells("hargajual").Value
    Latihan25B.jb070.Text = dgv070.CurrentRow.Cells("persediaanawal").Value

    Latihan25B.INA()

    End Sub
    End Class


    Public Class Latihan25B
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()

    Dim by As New OleDb.OleDbDataAdapter
    by = 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 = '" & kb070.Text & "'", A)
    datatabel1.Rows.Clear()
    by.Fill(datatabel1)
    by.Dispose()

    End Sub

    Private Sub Latihan25B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv070.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  24. (L).Gunawan.Mustari6 November 2011 pukul 16.49

    26 A-B

    Public Class Latihan26A
    Dim A 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 datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From barang", A)
    B1.Fill(datatabel1)
    dgv070.DataSource = datatabel1
    End Sub

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

    Latihan26B.Show()
    Latihan26B.kb070.Text = dgv070.CurrentRow.Cells("kodebarang").Value
    Latihan26B.nb070.Text = dgv070.CurrentRow.Cells("namabarang").Value
    Latihan26B.hj070.Text = dgv070.CurrentRow.Cells("hargajual").Value
    Latihan26B.jb070.Text = dgv070.CurrentRow.Cells("persediaanawal").Value

    Latihan26B.INA()
    Latihan26B.Perhitungan()
    End Sub
    End Class


    Public Class Latihan26B
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & kb070.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Public Sub Perhitungan()
    Dim tu As Integer
    Dim tj As Integer
    For Each x As DataRow In datatabel1.Rows
    tu = tu + x("unit")
    tj = tj + x("jumlah")
    Next
    tu070.Text = TU
    tj070.Text = tj
    End Sub

    Private Sub Latihan26B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dgv070.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus
  25. firman nur10 November 2011 pukul 20.05

    latihan 24b
    Public Class LATIHAN024B077
    Dim n As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = New OleDb.OleDbDataAdapter("Select BARANG.NAMABARANG, BARANG.PERSEDIAANAWAL, BARANG.HARGAJUAL From BARANG where KODEBARANG = '" & TextBox1077.Text & "'", n)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Private Sub LATIHAN024B077_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dvg024b.DataSource = datatabel1
    End Sub
    End Class

    latihan 25a
    Public Class LATIHAN025A077
    Dim n As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan025A077_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", n)
    B1.Fill(datatabel1)
    dvg01a.DataSource = datatabel1
    End Sub

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

    LATIHAN025B077.Show()
    LATIHAN025B077.TextBox1077.Text = dvg01a.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN025B077.TextBox2077.Text = dvg01a.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN025B077.TextBox3077.Text = dvg01a.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN025B077.TextBox4077.Text = dvg01a.CurrentRow.Cells("PERSEDIAANAWAL").Value

    LATIHAN025B077.INA()
    End Sub
    End Class

    latihan 25b
    Public Class LATIHAN025B077
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & TextBox1077.Text & "'", A)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()

    End Sub

    Private Sub Latihan025B077_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dvg02b.DataSource = datatabel1
    End Sub

    End Class

    BalasHapus
  26. firman nur10 November 2011 pukul 20.06

    latihan 26a
    Public Class LATIHAN026A077
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")

    Private Sub Latihan026A077_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim datatabel1 As New DataTable
    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
    B1.Fill(datatabel1)
    dvg01a.DataSource = datatabel1
    End Sub

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

    LATIHAN026B077.Show()
    LATIHAN026B077.TextBox1077.Text = dvg01a.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN026B077.TextBox2077.Text = dvg01a.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN026B077.TextBox3077.Text = dvg01a.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN026B077.TextBox4077.Text = dvg01a.CurrentRow.Cells("PERSEDIAANAWAL").Value

    LATIHAN026B077.INA()
    LATIHAN026B077.Perhitungan()
    End Sub
    End Class

    latihan 26b
    Public Class LATIHAN026B077
    Dim n As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
    Dim datatabel1 As New DataTable

    Public Sub INA()
    Dim X As New OleDb.OleDbDataAdapter
    X = 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 = '" & TextBox1077.Text & "'", n)
    datatabel1.Rows.Clear()
    X.Fill(datatabel1)
    X.Dispose()
    End Sub

    Public Sub Perhitungan()
    Dim TU As Integer
    Dim TOTAL As Integer
    For Each x As DataRow In datatabel1.Rows
    TU = TU + x("UNIT")
    TOTAL = TOTAL + x("JUMLAH")
    Next
    TextBox5077.Text = TU
    TextBox6077.Text = TOTAL
    End Sub

    Private Sub Latihan026B077_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    dvg02b.DataSource = datatabel1
    End Sub
    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)