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
