Latihan_27_46110037

Deskripsi Form Latihan 27

Pada Latihan ini terdapat 3 object yaitu Label, Textbox dan Button.

Object Label

Pada Latihan_ini terdapat 5 Label yaitu Pengimputan Barang; Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang.

Object Textbox

Terdapat 4 Textbox yang berstatus Input yaitu Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang.

Object Button

Terdapat 1 button yaitu tombol Simpan. Apabila tombol ini diclick maka data yang di input akan muncul pada form yang telah ditentukan

Script Unique

*  Menghubungkan Visual Basic ke Data Access

Dim cari As New ByIskandar.CariKeDataBaseByIskandar

* Mengantisipasi data yang dimasukkan tidak lengkap dan jangan lanjut ke proses selanjutnya

If Kod46110037.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

* Pencarian untuk mengantisipasi ada data yang sudah ada

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.Text, 1, conect)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

*  Memasukkan data dari visual Basic ke dalam data Access

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kod46110037.Text & "','" & NamaBarg46110037.Text & "'," & Val(Hjual46110037.Text) & "," & Val(JumBar46110037.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

Even

Load

Click

Property

Default

Langkah-Langkah Menjalankan Form Latihan 27

Click Start Debugging. Kemudian masukkan data pada semua textbox yang berstatus input, setelah itu click tombol Simpan, maka data yang di inout tersseput akan tersimpan pada file data Access yang telah diatur sebelumnya di script

Langkah-langkah Menyelesaikan Form Latihan 27

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas Latihan 27 dengan menggunakan Label, Textbox dan Button
• Ganti nama Textbox dan Button di properties-Name
• Click Kanan pada design Latihan 27, kemudian ketik script seperti dibawah ini:

Public Class LATIHAN_27_46110037

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

---------------------------------------------------------------------------

    Private Sub SIMPAN46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN46110037.Click

        If Kod46110037.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If NamaBarg46110037.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(Hjual46110037.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JumBar46110037.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kod46110037.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 BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kod46110037.Text & "','" & NamaBarg46110037.Text & "'," & Val(Hjual46110037.Text) & "," & Val(JumBar46110037.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        Kod46110037.Text = ""

        NamaBarg46110037.Text = ""

        Hjual46110037.Text = ""

        JumBar46110037.Text = ""

    End Sub

End Class

• Click Start Debugging untuk menjalankan form

Latihan_26a_dan_26b_46110037

Design Form

Setelah Debugging

Deskripsi Form Latihan 26A dan 26B

*Pada Latihan_26A_46110037 terdapat 3 object yaitu Label, DataGridVie dan Button.

*Pada Latihan_26B_46110037 terdapat 3 object yaitu Label, DataGridView dan Textbox

Object Label

*Pada Latihan_26A_46110037 terdapat 1 Label yaitu Daftar Barang

*Pada Latihan_26B_46110037 terdapat 7 Label yaitu Detail Transaksi; Kode Barang; Nama Barang; Harga Jual; Jumlah Barang; Total Unit dan Total Jumlah.

Object DataGridView

*Pada Latihan_26A_46110037 terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

*Pada Latihan_26B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_26A_46110037

Object Button

Pada Latihan_26A_46110037 terdapat 1 button yaitu tombol Detail Transaksi. Apabila tombol ini diclick maka detail dari transaksi yang dipilih akan muncul pada form Latihan_26B_46110037

Object Textbox

Pada Latihan_26B_46110037 Terdapat 6 textbox yaitu Kode Barang; Nama Barang; Harga Jual; Jumlah Barang; Total Unit dan Total Jumlah.

Script Unique

Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 26A dan 26B

Click Start Debugging. Kemudian pilih salah satu transaksi yang anda inginkan untuk melihatdetailnya kemudian click tombol Detail Transaksi maka form Latihan 26B_46110037 akan muncul dengan menampilkan detail dari transaksi yang dipilih pada Form Latihan_26A_46110037.

Langkah-langkah Menyelesaikan Form Latihan 26A dan 26B

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_26A_46110037 dan Latihan_26B_46110037) dengan menggunakan DataGridView, Label dan Button
• Ganti nama DataGridView dan Button di properties-Name,
• Click Kanan pada design Latihan_26A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_26A_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select*from barang", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub Detail46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail46110037.Click

        If LATIHAN_26B_46110037.Visible = False Then

            LATIHAN_26B_46110037.Show()

        Else : LATIHAN_26B_46110037.Activate()

        End If

        LATIHAN_26B_46110037.Kod46110037.Text = DGV46110037.CurrentRow.Cells("kodebarang").Value

        LATIHAN_26B_46110037.NamaBarg46110037.Text = DGV46110037.CurrentRow.Cells("namabarang").Value

        LATIHAN_26B_46110037.Hjual46110037.Text = DGV46110037.CurrentRow.Cells("hargajual").Value

        LATIHAN_26B_46110037.JumBar46110037.Text = DGV46110037.CurrentRow.Cells("persediaanawal").Value

        LATIHAN_26B_46110037.MUTH(LATIHAN_26B_46110037.Kod46110037.Text)

    End Sub

End Class

• Selesaikan juga Script pada Latihan_26B_46110037dengan cara:
• Pilih design form Latihan_26B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_26B_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Public Sub MUTH(ByVal A As String)

        Dim MOTOR As New OleDb.OleDbDataAdapter

        Dim MILMAN As String

        MILMAN = "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 = '" & A & "'"

        MOTOR = New OleDb.OleDbDataAdapter(MILMAN, HUBUNG)

        MOTOR.Fill(INNA)

        Dim EVA As Integer = 0

        Dim DILLA As Integer = 0

        For Each row As DataRow In INNA.Rows

            EVA += row("Unit")

            DILLA += row("Jumlah")

        Next

        TOTUN46110037.Text = EVA

        TOTJUM46110037.Text = DILLA

    End Sub

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

        DGV46110037.DataSource = INNA

    End Sub

End Class

• Click Start Debugging untuk menjalankan form

Latihan_25a_dan_25b_46110037

Design Form

Setelah Debugging

Deskripsi Form Latihan 25A dan 25B

*Pada Latihan_25A_46110037 terdapat 3 object yaitu Label, DataGridVie dan Button.

*Pada Latihan_25B_46110037 terdapat 3 object yaitu Label, DataGridView dan Textbox

Object Label

*Pada Latihan_25A_46110037 terdapat 1 Label yaitu Daftar Barang

*Pada Latihan_25B_46110037 terdapat 5 Label yaitu Detail Transaksi; Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang

Object DataGridView

*Pada Latihan_25A_46110037 terdapat 1 DataGridView yang akan menampilkan data dalam tabel yang telah dibuat di script yang merupakan data dari microsoft Access

*Pada Latihan_25B_46110037 terdapat 1 DataDridView yang akan Menampilkan detai transaksi dari data yang dipilih di Latihan_25A_46110037

Object Button

Pada Latihan_25A_46110037 terdapat 1 button yaitu tombol Detail Transaksi. Apabila tombol ini diclick maka detail dari transaksi yang dipilih akan muncul pada form Latihan_25B_46110037

Object Textbox

Pada Latihan_25B_46110037 Terdapat 4 textbox yaitu Kode Barang; Nama Barang; Harga Jual dan Jumlah Barang

Script Unique

Tidak ada script unique pada latihan ini karena scriptnya hampir sama dengan Latihan-latihan sebelumnya

Even

Load

Propertty

Default

Langkah-Langkah Menjalankan Form Latihan 25A dan 25B

Click Start Debugging. Kemudian pilih salah satu transaksi yang anda inginkan untuk melihatdetailnya kemudian click tombol Detail Transaksi maka form Latihan 25B_46110037 akan muncul dengan menampilkan detail dari transaksi yang dipilih pada Form Latihan_25A_46110037.

Langkah-langkah Menyelesaikan Form Latihan 25A dan 25B

• Buka project yang telah dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas (Latihan_25A_46110037 dan Latihan_25B_46110037) dengan menggunakan DataGridView, Label dan Button
• Ganti nama DataGridView dan Button di properties-Name,
• Click Kanan pada design Latihan_25A_46110037 lalu pilih View Code kemudian buatlah Script seperti dibawah ini:

Public Class LATIHAN_25A_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

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

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select*from barang", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        MOTOR.Dispose()

        DGV46110037.DataSource = INNA

    End Sub

    Private Sub Detail46110037_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail46110037.Click

        If LATIHAN_25B_46110037.Visible = False Then

            LATIHAN_25B_46110037.Show()

        Else : LATIHAN_25B_46110037.Activate()

        End If

        LATIHAN_25B_46110037.Kod46110037.Text = DGV46110037.CurrentRow.Cells("kodebarang").Value

        LATIHAN_25B_46110037.NamaBarg46110037.Text = DGV46110037.CurrentRow.Cells("namabarang").Value

        LATIHAN_25B_46110037.Hjual46110037.Text = DGV46110037.CurrentRow.Cells("hargajual").Value

        LATIHAN_25B_46110037.JumBar46110037.Text = DGV46110037.CurrentRow.Cells("persediaanawal").Value

        LATIHAN_25B_46110037.uly(LATIHAN_25B_46110037.Kod46110037.Text)

    End Sub

End Class

• Selesaikan juga Script pada Latihan_25B_46110037dengan cara:
• Pilih design form Latihan_25B_46110037, kemudian Click kanan dan pilih View Code, setelah itu ketik script seperti dibawah ini:

Public Class LATIHAN_25B_46110037

    Dim HUBUNG As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\POLTEK\5\Apkom (pak hasyim)\APKOM 4 a\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim INNA As New DataTable

    Public Sub uly(ByVal A As String)

        Dim MOTOR As New OleDb.OleDbDataAdapter

        MOTOR = New OleDb.OleDbDataAdapter("select*from detailtransaksi where kodebarang='" & A & "'", HUBUNG)

        INNA.Rows.Clear()

        MOTOR.Fill(INNA)

        DGV46110037.DataSource = INNA

    End Sub

End Class

• Click Start Debugging untuk menjalankan form