tugas PBD

Nama/nim anggota kelonpok:

1. M. Afnan kurniansyah/10.41010.0268
2. M. ALi Akbar/
3. Habibi 

Tampilan awal dari form adalah sbb:

Dan setelah memilih product ID kemudian klik display, maka tampilannya sbb:

untuk koneksi dengan database menggunakan script berikut

Public koneksi_ku As String = "data source =.\sqlexpress; database =northwind; integrated security =true"

    Dim perintah As SqlCommand

    Dim reader As SqlDataReader

    Sub categoryname()

    Dim cn As New SqlConnection(koneksi_ku)

    Dim sqlRak As String = "select categoryname from categories where categoryID = '" & cmbCategoryID.Text & "'"

    cn.Open()

pengisian combo box product id sbb

Dim cn As New SqlConnection(koneksi_ku)

        Dim sqlRak As String = "select ProductID from products"

        cn.Open()

        perintah = New SqlClient.SqlCommand

        perintah.Connection = cn

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sqlRak

        reader = perintah.ExecuteReader

        While reader.Read

            cmbProductID.Items.Add(Trim(reader("ProductID")))

        End While

        reader.Close()

        perintah.Dispose()

syntax untuk mengedit product

Dim cn As New SqlConnection(koneksi_ku)

        Dim sql As String = "update products set ProductID = '" & cmbProductID.Text & "', productname = '" & txtProductName.Text & "',SupplierID = '" & cmbSupplierID.Text & "', CategoryID = '" & cmbCategoryID.Text & "', quantityperunit = '" & txtQuantity.Text & "', Unitprice = '" & txtUnitPrice.Text & "', unitsinstock = '" & txtUnitStok.Text & "', unitsonorder = '" & txtUnitOrder.Text & "', reorderlevel = '" & txtReorderLevel.Text & "', discontinued = '" & txtDiscontinued.Text & "' where productID = '" & cmbProductID.Text & "'"

        cn.Open()

        perintah = New SqlClient.SqlCommand

        perintah.Connection = cn

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        perintah.ExecuteNonQuery()

        perintah.Dispose()

        MsgBox("Data telah terupdate", MsgBoxStyle.Information, "Informasi")

Syntax untuk menginsert product

Dim cn As New SqlConnection(koneksi_ku)

        Dim sqlupdate As String = "insert into products values ('" & cmbProductID.Text & "', '" & txtProductName.Text & "', '" & cmbSupplierID.Text & "', '" & cmbCategoryID.Text & "', '" & txtQuantity.Text & "', '" & txtUnitPrice.Text & "', '" & txtUnitStok.Text & "', '" & txtUnitOrder.Text & "', '" & txtReorderLevel.Text & "', '" & txtDiscontinued.Text & "')"

        cn.Open()

        perintah = New SqlClient.SqlCommand

        perintah.Connection = cn

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sqlupdate

        perintah.ExecuteNonQuery()

        perintah.Dispose()

        MsgBox("Data telah tersimpan", MsgBoxStyle.Information, "Informasi")

Syntax untuk delete

  Dim cn As New SqlConnection(koneksi_ku)

        Dim sqlhapus As String = " delete from products where productID='" & cmbProductID.Text & "'"

        cn.Open()

        perintah.Connection = cn

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sqlhapus

        perintah.ExecuteNonQuery()

        perintah.Dispose()

        MsgBox("Data telah dihapus", MsgBoxStyle.Information, "Informasi")

ADO.Net

ADO.NET 

ADO.NET merupakan teknologi akses data terakhir dan terbaru yang disediakan oleh Microsoft. Objek ADO.NET ini berfungsi menyediakan antar muka pengrograman pada project kita dengan berbagai sumber data. Dengan kata lain pengolahan data pada database dilakukan melalui kode-kode ADO.NET ini, lalu ditampilkan pada aplikasi kita. Pada umumnya aplikasi-aplikasi memerlukan beberapa bentuk pengakses data. Microsoft ADO.NET adalah teknologi Microsoft yang dapat menyediakan antarmuka pemrograman antara aplikasi yang kita buat dengan berbagai sumber data. Model Objek ADO.NET menyediakan objek-objek, properti dan methode untuk membuat aplikasi yang dapat mengakses dan memanipulasi data.


Data Consumers

Pemakai data (data consumers) adalah aplikasi-aplikasi yang memakai data yang diekspos oleh penyedia data (data provider). ADO.NET adalah antarmuka yang dapat diprogram untuk mempergunakan data.

ADO.NET telah dirancang sebagai satu antar muka yang dibutuhkan untuk pengembangan program single dan client/server, multi tier, seperti aplikasi Data Berbasis Windows atau WEB.


Mengenal objek-objek ADO.NET

Objek ADO.NET menyediakan kemudahan dan kecepatan akses pada semua jenis data.
 

Objek Connection 

membuat hubungan antara aplikasi windows kita dan sumber data luar, seperti SQL Server atau Data MS-Access. Objek ini juga menyediakan mekanisme untuk mengadakan hubungan, melakukan pencarian dan melakukan transaksi. Ini adalah objek yang paling tinggi levelnya pada model Objek ADO.NET

Objek Command

dipergunakan untuk melakukan pencarian, termasuk parameter khsus yang dimasukkan oleh pemakai, mengakses rekaman dati sumber data. Pada umumnya, rekaman-rekaman ini dikembalikan dalam bentuk Objek Table. Objek command dibuat dari tabel basis data, query yang tersimpan atau Query Bahasa Pencarian Terstruktur/Structured Query Language (SQL).

DataAdapter
Melalui DataAdapter ini kita dapat mengambil data rekaman dengan langsung memberikan perintah SQL maupun melalui objek Command.

DataSet
Setelah record (rekaman) di hasilkan melalui DataAdapter lalu record tersebut diisikan ke dalam Dataset. Di dalam dataset sebenartnya bisa dimuat lebih dari satu table. Untuk kemudahan kita hanya mengisi DataSet dengan satu buah tabel saja.

Table
Objek Recordset tidak dipergunakan lagi pada ADO.NET sebagai gantinya kita akan memakai object Table yang terdapat di dalam Dataset untuk mengakses rekaman-rekaman yang dikembalikan dari query SQL. Anda mempergunakan Objek Table untuk menyajikan data kepada pemakai.
Objek Table ini berisi rekaman (record) yang dapat langsung dipergunakan untuk megisi gridview atau textbox. Objek table ini terdapat di dalam dataset.

Dibawah ini adalah model objek ado.net:

Connected Application

 

Dalam pengaksesan database melalui sebuah program/web pasti membutuhkan koneksi untuk menghubungkan program/web ke database. Akses ke database dengan membuka dan menutup koneksi menggunakan tools ADO.Net

2 dasar koneksi:

·         Opening connection

Sebuah method yang digunakan untuk membuka/mengkoneksikan dengan database

·         Closing connection

Sebuah method untuk menghentikan sebuah koneksi ke database.

Contoh syntax untuk SqlConnection:

Standar :

“Data Source=MyComputer; Initial Catalog=pubs; User Id=sa;Password=abcd;”

Trusted Connection :

“Data Source=MyComputer; Initial Catalog=pubs; Integrated Security=TRUE;”

OLEDBConnection

“Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\path\mydb.mdb; User Id=admin;Password=;“

OracleConnection

“Data Source=MyOracleDB; User Id=username;Password=passwd; Integrated Security=no;”

Method Sql Command :

·         ExecuteNonQuery

Berkaitan dengan Insert, Update, Delete dan Get by ID.

·         ExecuteScalar

Digunakan ketika ingin menampilkan satu nilai.

·         ExecuteReader

Digunakan ketika ingin menampilkan banyak nilai (multiple nilai).

Perilaku keorganisasian untuk SDM handal

Perilaku keorganisasian untuk SDM handal

Sumber Daya Manusia (SDM)

SDM adalah segala bentuk potensi yang dimiliki oleh manusia untuk mewujudkan tugas/perannya sebagai makhluk yang saling berintraksi (sosial), menyesuaikan diri, serta mampu mengatur diri sendiri dan seluruh potensi yang ada pada lingkungan sekitar untuk mencapai tujuan dan kesejahteraan hidup.

Perilaku keorganisasian

Perilaku keorganisasian merupakan bidang studi tentang interaksi manusia di dalam sebuah organisasi yaitu meliputi perilaku, struktur dan proses dalam organisasi.

Dalam kehidupan sehari-hari terutama dalam dunia kerja, SDM sangatlah penting. Dikarenakan semua hasil/produksi yang dihasilkan pabrik merupakan tenaga dari karyawan yang bekerja. Manusia bekerja untuk perusahaan demi mendapatkan upah untuk hidup, sedangkan perusahaan membayar karyawannya untuk bisa memproduksi barang/jasa. Oleh sebab itu antara perusahaan dengan manusia memiliki hubungan yang saling membutuhkan dan menguntungkan.

Dalam perilaku keorganisasian sifatnya agak abstrak, tidak menghasilka prinsip-prinsip yang sederhana. Kadangkala sebuah prinsip yang ada tidaklah tepat, melainkan prinsip bersifat situasional yaitu ditentukan berdasarkan faktor-faktor situasi yang ada pada saat itu.

Dalam ilmu perilaku keorganisasian untuk menciptakan SDM yang kuat dan handal, diperlukan berbagai hal yaitu:

1.      Memberikan pelatihan yang akan menambah skill/kemampuan dalam bidang yang di kerjakan setiap individu.

2.      Memberikan reward berupa pujian atau sebuah bonus apabila berprestasi dalam pekerjaannya

3.      Memberi pengarahan dalam kerjanya. Hal ini akan memberi kesan bahwa ada yang peduli terhadap dia dan performa kerjanya.

4.      Memberi tahu apabila dia melakukan hal yang salah dan memberikan solusi untuk kedepannya yang lebih baik.

Trigger

3. Trigger ( contoh, trigger Insert, Delete, Update)

Pada mulanya di buat tabel berikut

Lalu isikan data berikut

Kemudian kita buat tabel penjualan barang (masing-masing item barang berbeda tabel). Contoh dibawah adalah mebuat tabel penjualan Baju :

Biarkan tabel penjualan baju tersebut di atas kosong.

Selanjutnya buat sebuah Trigger, dimana apabila tabel penjualan diisi dengan data penjualan, maka total penjualan baju (kolom : Terjual) akan muncul di tabel barang (kolom : Total_Penjualan).

 

CREATE TRIGGER [TotalPenjualan_Baju]
ON  [dbo].[Table_penjualan]
AFTER INSERT,DELETE,UPDATE
AS
BEGIN
SET NOCOUNT ON;

DECLARE @kode int
DECLARE @jual int

SELECT @kode = kode_barang, @jual = sum(terjual) FROM Table_penjualan_baju  Group by Kode_barang

if @jual is not null
UPDATE Table_barang SET Total_penjualan = @jual WHERE kode_barang = @kode
END

Disini kita akan membuat sebuah Trigger dengan nama ‘TotalPenjualan_Baju’ di tabel Table_penjualan. Kita buat 2 buah variabel (@kode dan @jual) dimana @kode adalah nilai kolom kode_barang hasil dari query :

SELECT @kode = kode_barang, @jual = sum(terjual) FROM Table_penjualan Group by Kode_barang

dan variabel @jual, nilainya merupakan penjumlahan (sum) dari kolom ‘terjual’ pada query di atas.

Apabila variabel @jual memiliki nilai (is not null), maka akan dijalankan query berikutnya, yakni :

UPDATE Table_barang SET Total_penjualan = @jual WHERE kode_barang = @kode.

a. Apabila di tabel Table_penjualan diisi data

maka kolom ‘Total_penjualan’ di tabel ‘Table_barang’ pun akan terisi.

b. Apabila di tabel Table_penjualan dilakukan perubahan / update data (misal tadinya data di kolom ‘terjual’ adalah 5, kemudian dirubah menjadi 200)

maka kolom ‘Total_penjualan’ di tabel ‘Table_barang’ pun akan terupdate.

c. Apabila di tabel ‘Table_penjualan dilakukan penambahan / insert data baru, misal

maka kolom ‘Total_penjualan’ di tabel ‘Table_barang’ pun akan terupdate berupa hasil penjumlahan dari data-data tersebut.

Untuk data barang lain (Celana dan Kaos), kita perlu membuat tabel khusus buat masing-masing barang tersebut berikut dengan Trigger-nya.