Penggunaan Store Procedure dan Trigger pada SQL Server (UAS Lab. SMBD)

Baiklah, untuk kesempatan kali ini saya akan membagi sebuah ide sekaligus menyajikan program simpel untuk bisnis penjualan spesialisasi barang antik khususnya miniatur. Jadi disini saya akan bagikan cara pembuatan program yang bisa mendukung bisnis ini. Kebetulan saya disini hanya menggunakan tiga aplikasi yaitu Microsoft Access 2012, Microsoft SQL Server 2012, dan Microsoft Visual Studio 2012. Selamat Mencoba!

Database dan Tabel-Tabel Normalisasi

1. Tabel Pelanggan

2. Tabel Pesanan









3. Tabel Barang
















Store Procedure dan Trigger

Penggunaan dua istilah ini dimaksudkan untuk pengupdatean data dari bisnis ini seperti stok barang yang berkurang maupun bertambah :

ALTER TRIGGER [dbo].[kurangstokbarang] on [dbo].[TabelPesanan]
for insert
as
update brg set brg.Stok = brg.Stok-jual.Jumlah
from TabelBarang brg join inserted jual on brg.KodeBarang=jual.KodeBarang


ALTER PROCEDURE [dbo].[Prosedur]

 @KodeBarang Number,@NamaBarang Text,@HargaBarang Number,@KodeKategori Text,@Stok Number
AS
BEGIN
SET NOCOUNT ON
INSERT INTO TabelBarang 
(
KodeBarang,NamaBarang,HargaBarang,KodeKategori,Stok
)
VALUES
(
@KodeBarang,@NamaBarang,@HargaBarang,@KodeKategori,@Stok
)
END

Design dan Source Code












Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm1
    Inherits System.Web.UI.Page
    Public constring As String = ConfigurationManager.ConnectionStrings("DBShopConnectionString").ConnectionString
    Public oconn As New SqlConnection(constring)
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ocmd As New SqlCommand
        oconn.Open()
        ocmd.Connection = oconn
        ocmd.CommandText = "Prosedur"
        ocmd.CommandType = CommandType.StoredProcedure
        ocmd.Parameters.Add("@KodeBarang", SqlDbType.Number).Value = TextBox1.Text
        ocmd.Parameters.Add("@NamaBarang", SqlDbType.Text).Value = TextBox2.Text
        ocmd.Parameters.Add("@HargaBarang", SqlDbType.Number).Value = TextBox3.Text
        ocmd.Parameters.Add("@KodeKategori", SqlDbType.Text).Value = TextBox4.Text
        ocmd.Parameters.Add("@Stok", SqlDbType.Number).Value = TextBox5.Text
        ocmd.ExecuteNonQuery()
        MsgBox("Berhasil")
    End Sub
End Class

Terimakasih!

Alfath Dilon

1406629490