Deskripsi_Latihan_40A_36110054

Cara Membuat Progam/Apliaksi Latihan 40A

Dengan Software Microsoft Visual Basic 2008

Form Latihan 40A terdapat tiga object yaitu Lable,  button, dan Dategridview

Object  label
Terdapat satu object label yang diberi nama DATA TRANSAKSI.

Object  Button
Terdapat tiga buah object Button yaitu  Hapus, Tambah, Edit. Object button Hapus digunakan  untuk menghapus data yang telah dipilih pada datagridview. object button tambah digunakan untuk menambah data barang yang diinginkan. Object button edit digunakan untuk mengedit barang yang dipilih pada datagridview dan Jika tombol tambah atau edit diklik, makan akan muncul form latihan_40B_36110054

Object  DateGridView
Terdapat dua object DataGridView. object  DataGridView 1 digunakan untuk menampilkan  kolom data notrans, tanggal transaksi, dan jenis transaksi dan object DataGridView 2 digunakan untuk menampilkan kolom notrans, kode barang, nama barang, harga, unit, dan jumlah yang terdapat dalam data D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DATAMAJEMUK.accdb")

   

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 40A

Even

FromLoad

ButtonClick

( )

Langkah 1:

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2:

  Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah 3:

Rancanglah Form Seperti Gambar Berikut Berikut :

Langkah 4:

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_40A_36110054

    Dim ruslan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 35-40 DATA MAJEMUK\DATAMAJEMUK.accdb")

    Dim tabelRuslan1 As New DataTable

    Dim tabelRuslan2 As New DataTable

    Dim setRuslan As New DataSet

    Dim Binding1 As New BindingSource

    Dim Binding2 As New BindingSource

    Public Sub Isi()

        Dim ruru As New OleDb.OleDbDataAdapter

        tabelRuslan2.Rows.Clear()

        tabelRuslan1.Rows.Clear()

        ruru = New OleDb.OleDbDataAdapter("Select * " & _

        "From MASTERTRANSAKSI", ruslan)

        ruru.Fill(tabelRuslan1)

        ruru = New OleDb.OleDbDataAdapter("Select NOTRANS, DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA As JUMLAH " & _

        "From DETAILTRANSAKSI Inner Join BARANG on DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", ruslan)

        ruru.Fill(tabelRuslan2)

        ruru.Dispose()

    End Sub

    Private Sub Latihan_40A_36110054_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Isi()

        dgv1_36110054.DataSource = tabelRuslan1

        dgv2_36110054.DataSource = tabelRuslan2

        setRuslan.Tables.Add(tabelRuslan1)

        setRuslan.Tables.Add(tabelRuslan2)

        tabelRuslan1.TableName = "Induk"

        tabelRuslan2.TableName = "Sub"

        setRuslan.Relations.Add(New DataRelation("Relasi", setRuslan.Tables("Induk").Columns("NOTRANS"), setRuslan.Tables("Sub").Columns("NOTRANS")))

        Binding1.DataSource = setRuslan

        Binding1.DataMember = "Induk"

        Binding2.DataSource = Binding1

        Binding2.DataMember = "Relasi"

        dgv1_36110054.DataSource = Binding1

        dgv2_36110054.DataSource = Binding2

    End Sub

    Private Sub HAPUS_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_36110054.Click

        Dim ruru As New OleDb.OleDbCommand

        ruru = New OleDb.OleDbCommand("Delete * From MASTERTRANSAKSI Where NOTRANS = '" & dgv1_36110054.CurrentRow.Cells("NOTRANS").Value & "'", ruslan)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            ruslan.Open()

            ruru.ExecuteNonQuery()

            ruru = New OleDb.OleDbCommand("Delete * From DETAILTRANSAKSI Where NOTRANS = '" & dgv1_36110054.CurrentRow.Cells("NOTRANS").Value & "'", ruslan)

            ruru.ExecuteNonQuery()

            ruslan.Close()

            ruru.Dispose()

        End If

        Isi()

    End Sub

    Private Sub TAMBAH_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah_36110054.Click

        If Latihan_40B_36110054.Visible = False Then

            Latihan_40B_36110054.Show()

        Else

            Latihan_40B_36110054.Activate()

            Latihan_40B_36110054.WindowState = FormWindowState.Normal

            Latihan_40B_36110054.Nolama_36110054.Text = "-"

        End If

        Latihan_40B_36110054.NOtrans_36110054.Text = ""

        Latihan_40B_36110054.Jnstrans_36110054.Text = ""

        Latihan_40B_36110054.Total_36110054.Text = ""

        Latihan_40B_36110054.SelectData()

        Latihan_40B_36110054.Hitung()

    End Sub

    Private Sub EDIT_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Edit_36110054.Click

        If Latihan_40B_36110054.Visible = False Then

            Latihan_40B_36110054.Show()

        Else

            Latihan_40B_36110054.Activate()

            Latihan_40B_36110054.WindowState = FormWindowState.Normal

        End If

        Latihan_40B_36110054.NOtrans_36110054.Text = dgv1_36110054.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110054.Nolama_36110054.Text = dgv1_36110054.CurrentRow.Cells("NOTRANS").Value

        Latihan_40B_36110054.Jnstrans_36110054.Text = dgv1_36110054.CurrentRow.Cells("JENISTRANSAKSI").Value

        Latihan_40B_36110054.SelectData()

        Latihan_40B_36110054.Hitung()

    End Sub

End Class