TUGAS PEMROGRAMAN BASIS DATA (APLIKASI)

TUGAS PEMROGRAMAN BASIS DATA

BUDIYANTO           (10410100255)

NOVI RIYANTO      (10410100277)

M. IRFAN                (10410100283)

Aplikasi yang dibuat merupakan aplikasi yang berfungsi untuk maintanence data, berikut contoh form aplikasi program :

Dibawah ini akan dijelaskan beberapa source code vb.net yang akan mempermudah pemahamana kita:

1.                      Koneksi

Imports System.Data.SqlClient

Imports System.Data

Public Class Form1

    Dim sqlcon As New SqlConnection

    Dim koneksi As String = _

"Data Source=.\SQLEXPRESS;" & _

"Initial Catalog=northwind;" & _

"Integrated Security=TRUE;"

Source code di atas menjelaskan bagaimana cara mengkoneksikan ke dalam database sqlserver yang menggunakan database northwind.

2.                        Mengisi combobox

Sub isi_1()

        Dim komen As SqlCommand = New SqlCommand("select productID from products", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        'Dim da As New SqlDataAdapter

        If read.HasRows = True Then

            While (read.Read())

                Me.ComboBox1.Items.Add(Trim(read("ProductID")))

            End While

        End If

        read.Close()

    End Sub

    Sub isi_2()

        Dim komen As SqlCommand = New SqlCommand("select supplierID from products", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        'Dim da As New SqlDataAdapter

        If read.HasRows = True Then

            While (read.Read())

                Me.ComboBox2.Items.Add(Trim(read("SupplierID")))

            End While

        End If

        read.Close()

    End Sub

    Sub isi_3()

        Dim komen As SqlCommand = New SqlCommand("select CategoryID from products", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        'Dim da As New SqlDataAdapter

        If read.HasRows = True Then

            While (read.Read())

                Me.ComboBox3.Items.Add(Trim(read("CategoryID")))

            End While

        End If

        read.Close()

    End Sub

Source code diatas mejelaskan bagaimana menampilakan data combo box 1, 2, dan 3. Masing – masing combo box dipanggil dari database Products dimana dari  productID, supplierID, categoryID. Yang berarti ketika program dijalankan akan muncul ID dari masing masing kategori database.

3.                              3.  Button Display

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        Dim combox1 As Integer = ComboBox1.Text

        Dim komen As SqlCommand = New SqlCommand("select ProductName, suppliers.SupplierID, suppliers.CompanyName, categories.CategoryID, categories.CategoryName, QuantityPerUnit, UnitPrice, UnitsInStock, UnitsOnOrder, ReorderLevel, Discontinued from Products, Suppliers, categories where ProductID = '" & combox1 & "' and products.[SupplierID] = suppliers.[SupplierID] and products.categoryid = categories.categoryid ", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        While (read.Read())

            TextBox1.Text = (read.Item(0))

            ComboBox2.Text = (read.Item(1))

            Label13.Text = (read.Item(2))

            ComboBox3.Text = (read.Item(3))

            Label14.Text = (read.Item(4))

            TextBox2.Text = (read.Item(5))

            TextBox3.Text = (read.Item(6))

            TextBox4.Text = (read.Item(7))

            TextBox5.Text = (read.Item(8))

            TextBox6.Text = (read.Item(9))

            TextBox7.Text = (read.Item(10))

        End While

        read.Close()

        Button3.Enabled = True

        Button4.Enabled = True

    End Sub

Sourcode diatas menjelaskan button display yang berfungsi untuk menampilkan seluruh isi form dari database Products. Selain itu button display akan memanggil dari semua dialog form seperti productID, product name, supplierID, categoryID, quantity per unit, unit price, unit in stock, unit on order, reoerder level, discontinued untuk menampilkan hasil dari inputan user.

4.Button Insert/save

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim komen As SqlCommand = New SqlCommand("insert into products values('" & ComboBox1.Text & "','" & TextBox1.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        MsgBox("Insert Succes")

        read.Close()

    End Sub

  

Source code diatas berfungsi sebagai menginsertkan data dari dialog, jika data telah di insertkan maka akan ada pemberitahuan “insert success”. Ketika aplikasi dijalankan ketika user telah mengisi form dialog dan dilanjutkan dengan mengklik button “SAVE” maka secara otomatis data telah disimpan kedalam database.

5.Button edit/update

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim upd As Integer = ComboBox1.Text

        Dim komen As SqlCommand = New SqlCommand("update products set productname" & TextBox1.Text & "',supplierID = " & ComboBox2.Text & "',CategoryID = '" & ComboBox3.Text & "',QuantityPerUnit= '" & TextBox2.Text & "', UnitPrice= '" & TextBox3.Text & "',UnitsInStock= '" & TextBox4.Text & "',UnitsOnOrder= '" & TextBox5.Text & "',ReorderLevel= '" & TextBox6.Text & "',Discontinued= '" & TextBox7.Text & "'where (ProductID = '" & upd & "')", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        MsgBox("edit sucsess")

        read.Close()

    End Sub

   Sourcecode diatas menjelaskan bagaimana cara untuk melakukan proses edit data, proses tersebut berjalan ketika user telah mendisplay data yang kemudian akan diedit oleh user dengan button edit. Ketika data telah diedit oleh user maka akan muncul pemberitahuan bahwa “edit success”.

6. Button delete  

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim komen As SqlCommand = New SqlCommand("delete from products where productid = '" & ComboBox1.Text & "'", sqlcon)

        Dim read As SqlDataReader = komen.ExecuteReader()

        MsgBox("delete Succes")

        read.Close()

    End Sub

Source code diatas menjelaskan untuk proses delete data yang dilakukan oleh user, ketika data telah didelete maka akan muncul pemberitahuan “delete success”.

7.  Button close

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        sqlcon.Close()

        Me.Close()

    End Sub

End Class

Source code diatas menjelaskan untuk proses exit dari form aplikasi