Latihan_25A_46110055

Deskripsi Latihan 25A

Pada form latihan 25A ada 3 object yang digunakan yaitu Label, Button dan DataGridView.

Object Label
Terdapat 1 object label yaitu "Daftar Barang"

Object Button                                                              
Terdapat 1 object button (Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form “Latihan_25B_46110055”.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even  
Load

Cara  membuat Latihan 25A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 25A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_25A_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim datatable As New DataTable
    Private Sub Latihan_25A_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select*from barang", connect)
        datatable.Rows.Clear()
        feby.Fill(datatable)
        feby.Dispose()

        dgv46110055.DataSource = datatable
    End Sub

    Private Sub detail46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail46110055.Click
        If Latihan_25B_46110055.Visible = False Then
            Latihan_25B_46110055.Show()
        Else : Latihan_25B_46110055.Activate()
        End If

        Latihan_25B_46110055.kobar46110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_25B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_25B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("hargajual").Value
        Latihan_25B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110055.fby(Latihan_25B_46110055.kobar46110055.Text)
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_24B_46110055

Deskripsi Latihan 24B

Pada form latihan 24B ada 3 object yang digunakan yaitu Label, Textbox dan Data Grid View.

Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".

Object Textbox                                                              
Terdapat 3 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_24A_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even 
Load

Cara  membuat Latihan 24B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 24B”

6. Setelah itu beri teks pada label dan textbox , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :



Public Class Latihan_24B_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub fby(ByVal a As String)
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.ID, DETAILTRANSAKSI.NoTrans, DETAILTRANSAKSI.Unit, DETAILTRANSAKSI.Harga FROM DETAILTRANSAKSI where kodebarang='" & a & "'", connect)
        tabel.Rows.Clear()
        feby.Fill(tabel)
        feby.Dispose()

        dgv46110055.DataSource = tabel
    End Sub

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

    End Sub

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

    End Sub

End Class



9. Klik start debugging.

10.Maka akan muncul terlebih dahulu hasil seperti ini :

11.setelah itu klik "Detail Transaksi" maka akan muncul tampilan seperti ini :

Latihan_24A_46110055

Deskripsi Form Latihan 24A

Pada form latihan 24A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label
Terdapat 1 label pada form latihan 24A yaitu "Daftar Barang"

Object Button                                                              
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_24B_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even  
Load

Cara  membuat Latihan 24A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 24A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_24A_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Latihan_23A_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", connect)
        tabel.Rows.Clear()
        feby.Fill(tabel)
        feby.Dispose()

        dgv46110055.DataSource = tabel
    End Sub

    Private Sub detail46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail46110055.Click
        If Latihan_24B_46110055.Visible = False Then
            Latihan_24B_46110055.Show()
        Else : Latihan_24B_46110055.Activate()
        End If
        Latihan_24B_46110055.kobar46110055.Text = dgv46110055.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_24B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("harga").Value
        Latihan_24B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("unit").Value

        Latihan_24B_46110055.fby(Latihan_24B_46110055.kobar46110055.Text)

    End Sub

    Private Sub dgv46110055_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110055.CellContentClick
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_23B_46110055

Deskripsi Latihan 23B

 Pada form latihan 23B ada 3 object yang digunakan yaitu Label, Textbox dan Data Grid View.

Object Label
Terdapat 4 label pada form latihan 23B (Detail Transaksi, Nomor, Tanggal dan Jenis).

Object Textbox                                                              
Terdapat 3 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_23A_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

Membuat koneksi :
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
 
Even  
Load
CellContentClick

Cara  membuat Latihan 23B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 23B”

 

6. Setelah itu beri teks pada label dan textbox , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_23B_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub fby(ByVal A As String)
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", connect)
        tabel.Rows.Clear()
        feby.Fill(tabel)

        dgv146110055.DataSource = tabel
    End Sub

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

    End Sub

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

    End Sub
End Class


9. Klik start debugging.

10.Maka akan muncul terlebih dahulu seperti ini :

11. Setelah itu klik button "klik' maka akan muncul tampilan dibawah ini :

Latihan_23A_46110055

Deskripsi Latihan 23A

Pada form latihan 23A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label
Terdapat 1 label pada form latihan 23A (Master Transaksi).

Object Button                                                              
Terdapat 1 object button (Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form Latihan_23B_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique
Untuk menampilkan dan mengaktifkan form Latihan_23B_461100055 :

Private Sub klik46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik46110055.Click
        If Latihan_23B_46110055.Visible = False Then
            Latihan_23B_46110055.Show()
        Else : Latihan_23B_46110055.Activate()
        End If

        Latihan_23B_46110055.nomor46110055.Text = dgv46110055.CurrentRow.Cells("notrans").Value
        Latihan_23B_46110055.tgl46110055.Text = dgv46110055.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23B_46110055.jenis46110055.Text = dgv46110055.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110055.fby(Latihan_23B_46110055.nomor46110055.Text)

    End Sub

Even  
Load
ButtonClick
CellContentClick

Cara  membuat Latihan 23A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 23A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_23A_46110055

    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim tabel As New DataTable

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

        Dim feby As New OleDb.OleDbDataAdapter

        feby = New OleDb.OleDbDataAdapter("select*from mastertransaksi", connect)

        tabel.Rows.Clear()

        feby.Fill(tabel)

        feby.Dispose()

        dgv46110055.DataSource = tabel

    End Sub

    Private Sub klik46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik46110055.Click

        If Latihan_23B_46110055.Visible = False Then

            Latihan_23B_46110055.Show()

        Else : Latihan_23B_46110055.Activate()

        End If

        Latihan_23B_46110055.nomor46110055.Text = dgv46110055.CurrentRow.Cells("notrans").Value

        Latihan_23B_46110055.tgl46110055.Text = dgv46110055.CurrentRow.Cells("tanggaltransaksi").Value

        Latihan_23B_46110055.jenis46110055.Text = dgv46110055.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23B_46110055.fby(Latihan_23B_46110055.nomor46110055.Text)

    End Sub

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

    End Sub

End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_22_46110055

Deskripsi  Latihan 22

  Pada form latihan 22 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi :
Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =  " & Application.StartupPath & "\datatransaksijualbeli.accdb")


Membuat Adapter :
Dim fby1 As New OleDb.OleDbDataAdapter
        Dim fby2 As New OleDb.OleDbDataAdapter
     
Mengisi database ke datatable :
fby1.Fill(feby1)
     
Menghancurkan adapter yg telah dipakai :
fby1.Dispose()

Membuat nama lain pada datatabel :
feby1.TableName = "01"
        feby2.TableName = "02"

Membuat relationship :
fb.Relations.Add(New DataRelation("03", fb.Tables("01").Columns("notrans"), fb.Tables("02").Columns("notrans")))

Dataset menjadi datasource :
fft1.DataSource = fb
        fft1.DataMember = "01"
       
Even 
Load

Cara  membuat Latihan 22:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 22”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

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

    Dim feby1 As New DataTable
    Dim feby2 As New DataTable

    Dim fb As New DataSet

    Dim fft1 As New BindingSource
    Dim fft2 As New BindingSource

    Private Sub Latihan_22_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fby1 As New OleDb.OleDbDataAdapter
        Dim fby2 As New OleDb.OleDbDataAdapter

        fby1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
        fby1.Fill(feby1)
        fby1.Dispose()

        fby2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
        fby2.Fill(feby2)
        fby2.Dispose()

        fb.Tables.Add(feby1)
        fb.Tables.Add(feby2)

        feby1.TableName = "01"
        feby2.TableName = "02"

        fb.Relations.Add(New DataRelation("03", fb.Tables("01").Columns("notrans"), fb.Tables("02").Columns("notrans")))

        fft1.DataSource = fb
        fft1.DataMember = "01"
        fft2.DataSource = fft1
        fft2.DataMember = "03"

        dgv146110055.DataSource = fft1
        dgv246110055.DataSource = fft2
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_21_46110055

Deskripsi Latihan21

Pada form latihan 21 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi :
Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =  " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter :
Dim fby1 As New OleDb.OleDbDataAdapter
Dim fby2 As New OleDb.OleDbDataAdapter
        
Mengisi database ke datatable :
fby1.Fill(feby1)

Menghancurkan adapter yg telah dipakai :
fby1.Dispose()

Membuat nama lain pada datatabel :
feby1.TableName = "01"
        feby2.TableName = "02"

Membuat relationship :
fb.Relations.Add(New DataRelation("03", fb.Tables("01").Columns("notrans"), fb.Tables("02").Columns("notrans")))

Dataset menjadi datasoure :
fft1.DataSource = fb
        fft1.DataMember = "01"
 

Even 
Load

Cara  membuat Latihan 21:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 21”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :


Public Class Latihan_21_46110055
    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =E:\APKOM4\VB\Debug vs\Debug 2005\DataTransaksiJualBeli.accdb")

    Dim feby1 As New DataTable
    Dim feby2 As New DataTable

    Dim fb As New DataSet

    Dim fft1 As New BindingSource
    Dim fft2 As New BindingSource
    Private Sub Latihan_21_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fby1 As New OleDb.OleDbDataAdapter
        Dim fby2 As New OleDb.OleDbDataAdapter

        fby1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
        fby1.Fill(feby1)
        fby1.Dispose()

        fby1 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
        fby1.Fill(feby2)
        fby2.Dispose()

        fb.Tables.Add(feby1)
        fb.Tables.Add(feby2)

        feby1.TableName = "01"
        feby2.TableName = "02"

        fb.Relations.Add(New DataRelation("03", fb.Tables("01").Columns("notrans"), fb.Tables("02").Columns("notrans")))

        fft1.DataSource = fb
        fft1.DataMember = "01"
        fft2.DataSource = fft1
        fft2.DataMember = "03"

        dgv146110055.DataSource = fft1
        dgv246110055.DataSource = fft2
    End Sub
End Class


9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini