PEMBELIAN MENGGUNAKAN TRIGGERS PADA SQL SERVER

Assalammualaikum Wr.Wb

Untuk postingan kali ini saya akan mencoba mempraktekan fungsi Trigger di SQL. Disini saya akan mencoba apabila saya menambahkan record pada TabelBeli maka sesuai KodeBarang yang saya  masukan ke record TabelBeli akan langsung bertambah jumlah Stoknya pada TabelBarang.

Langkah pertama buat Database pada SQL Server, disini saya membuat dengan nama Trigger_Nurmala. Setelah itu buat dua tabel pada database tersebut, disini saya buat dengan nama TabelBeli dan TabelBarang.

TabelBarang

TabelBeli

Sekarang kita isi record pada TabelBarang dengan cara cara klik kanan pada TabelBarang pilih Edit Top 200 Rows, untuk pengisian TabelBeli akan menggunakan syntax sql.

Isi TabelBarang seperti dibawah ini

Setelah itu buat source code trigger nya dengan cara klik tanda + pada TabelBeli lalu klik kanan pada folder Triggers, pilih New Triggers

Isi source code pada triggers seperti dibawah ini, lalu jalankan program dengan cara klik Execute, jika semua benar maka muncul message “sukses”.

Oke Syntax Trigger sudah sukses di execute sekarang kalian tambahkan syntax untuk menampilkan isi dari kedua tabel yang tadi kalian buat, seperti ini

Sekarang waktunya menambahkan isi dari TabelBeli menggunakan syntax, sama seperti 2 gambar diatas kalian hanya perlu menambahkan syntax, memblock lalu mengexecute nya, perhatikan gambar dibawah

Screenshoot TabelBeli

Nah sekarang adalah tugas terakhir yaitu mengecek apakah stokk barang dengan kode 501 bertambah atau tidak, caranya blok semua syntax bertuliskan select*from lalu execute, Jika berhasil maka hasilnya akan seperti ini

Oke cukup sekian tutorial dari saya hari ini apabila kesalahan mohon dimaafkan. Semoga bermanfaat.

Perancangan Basis Data Menggunakan Microsoft SQL Server dan Visual Studio dari Sebuah Struk

Assalamualaikum Warohmatullahi Wabarokaatuh

Ketemu lagi di postingan saya yang selanjutnya J

Untuk kali ini sayan akan membuat postingan web dengan menggunakan sql server dan asp.net, pada aplikasi ini saya membuat data dari struk pembelanjaan obat, kemudian di normalisasikan.

Pada NF3 terdapat empat tabel, yaitu Tabel Barang, Tabel Pembelian, Tabel Transaksi, dan Tabel Transaksi Barang.

Tabel Unnormalisasi

Tabel 1NF

Tabel 2NF

Tabel 3NF

Setelah itu buat tabel-tabel pada SQL Server berdasarkan normalisasi ketiga/NF3. 

Cara membuat database(tabel) pada SQL Server :

- Klik kanan pada folder database pilih new database

- Ketik nama database yang diinginkan kemudian klik ok

- Buka folder database tersebut dan cari folder “Table”, klik kanan pada folder “Table” pilih

   new table

- Isi field-field tersebut sesuai data yang dibutuhkan kemudian save.

Ini adalah ss dari tabel-tabel tersebut

Tabel Barang

Tabel Pembelian

Tabel Transaksi

Tabel Transaksi Barang

Langkah selanjunya yaitu buat tabel pada aplikasi Visual studio 2012

Tabel yang saya ambil di SQL Server yang nantinya akan dijalankan/run melalui Visual Studio 2012 hanya satu yaitu Tabel Transaksi Barang.

Cara :

- Buka Microsoft Visual Studio

- Pilih File > New Web Site pilih ASP.NET Empity Web Site klik OK

- Klik kanan pada nama website yang sudah di buat, kemudian pilih Add > Web Form buat nama file nya kemudian pilih OK

- Buat Desain, contoh yang saya buat hanya seperti dibawah ini

Didalam desain tersebut terdapat label, textbox, button dan gridview.

Cara memasukkan data dari SQL Server nya dengan cara klik tanda panah keci disebelah kanan atas pada Gridview kemudian pilih Choose Data Source > New Data Source pilih SQL Database > OK. Pilih New Connection kemudian isi Servername. Untuk konek ke database pilih file nya di Select or enter a database name klik OK.

Setelah selesai semuanya, waktunya untuk kodiiiiiing :D

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Module Module1

    Public sqlCon As New SqlConnection

    Public Sub dbConn()

        Dim server As String

        server = "Data Source=DESKTOP-C76EJ1N;Initial Catalog=UTS;Integrated Security=True"

        sqlCon = New SqlConnection(server)

        sqlCon.Open()

    End Sub

End Module

Partial Class tabelapotek

    Inherits System.Web.UI.Page

    Dim sql As String

    Dim da As SqlDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim xReader As SqlDataReader

    Sub tampil_data()

        clear()

        dbConn()

        sql = "Select * From TabelTransaksiBarang"

        Dim da = New SqlDataAdapter(sql, sqlCon)

        Dim ds = New Data.DataSet

        ds.Reset()

        da.Fill(ds)

        GridView1.DataSource = ds.Tables(0)

    End Sub

    Sub clear()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

Source Code untuk button Insert

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        dbConn()

        Dim query As New SqlCommand("Insert Into TabelTransaksiBarang values('" & TextBox2.Text & "','" & TextBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Delete

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        dbConn()

        Dim query As New SqlCommand("Delete TabelTransaksiBarang where KodeBarang = '" & TextBox1.Text & "'", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal di Hapus", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Edit

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        dbConn()

        Dim query As New SqlCommand("Update TabelTransaksiBarang set NoTransaksi ='" & TextBox2.Text & "', Harga ='" & TextBox3.Text & "', Quantity ='" & TextBox4.Text & "', Jumlah='" & TextBox5.Text & "' where KodeBarang = '" & TextBox1.Text & "'", sqlCon)

        Dim x = query.ExecuteNonQuery()

        If x = 1 Then

            MsgBox("Data Berhasil di Edit", MsgBoxStyle.Information, "Sukses")

            tampil_data()

        Else

            MsgBox("Data Gagal di Edit", MsgBoxStyle.Critical, "Gagal")

        End If

        sqlCon.Close()

        Response.Redirect("tabelapotek.aspx")

    End Sub

Source Code untuk button Refresh

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        clear()

    End Sub

End Class

Setelah semua source code nya selesai, waktunya kita untuk melakukan proses running nya dengan cara tekan tombol F5. Maka aplikasi akan berjalan seperti dibawah ini.

Selesai.. semoga bermanfaat yaa.. :) mohon maaf apabila ada salahnya, karena saya juga baru belajar, hehe...

APLIKASI PENJUALAN/CICILAN RUMAH BERBASIS DATABASE MS.ACCES

Assalamu'alaikum...

bertemu lagi di postingan visual basic. kali ini saya akan membuat aplikasi penjualan/cicilan rumah berbasis database menggunakan Ms.Access. disini terdapat empat form,yang pertama form login, yang kedua form menu utama, yang ketiga form input, dan yang terakhir form 1. 

pertama buat tabel database

Dibawah ini adalah perancangan database yang diberi nama tabelinput

 

Form Login

Source Code :

Imports System.Data.OleDb
Public Class FormLogin
    Dim x, y

    Private Sub jalankansql(ByVal sQl As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MsgBox("Data Sudah Disimpan", vbInformation)
        Catch ex As Exception
            MsgBox("Tidak Bisa Menyimpan Data ke Database" & ex.Message)
        End Try
    End Sub

    Private Sub butmasuk_Click(sender As Object, e As EventArgs) Handles butmasuk.Click
        If textnama.Text = "" Or textsandi.Text = "" Then
            MsgBox("Data Login Belum Lengkap")
            Exit Sub
        Else
            konek()
            CMD = New OleDbCommand("select * from tablepetugas where NamaPengguna ='" & textnama.Text & "' and KataSandi ='" & textsandi.Text & "'", conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If RD.HasRows Then
                Me.Hide()
                MenuUtama.Show()
                textnama.Text = ""
                textsandi.Text = ""
            Else
                MsgBox("Kode Admin atau Password Salah !")
            End If
        End If
    End Sub

    Private Sub butkeluar_Click(sender As Object, e As EventArgs) Handles butkeluar.Click

        Dim x = MsgBox("Anda Yakin ?", MsgBoxStyle.OkCancel + MsgBoxStyle.Information, "Informasi")
        If x = vbOK Then
            Me.Close()
        End If
    End Sub

    Private Sub FormLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Form Menu Utama

 Source Code :
  Public Class MenuUtama

    Private Sub TambahToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TambahToolStripMenuItem.Click
        FormInput.Show()
        Dim DataTambah As New FormInput
        FormInput.MdiParent() = Me
        Form1.Close()
    End Sub

    Private Sub TutupToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TutupToolStripMenuItem.Click
        Dim x = MsgBox("Apakah Anda Yakin ingin Keluar?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "KONFIRMASI")
        If x = vbYes Then
            Me.Close()
            'End
        End If
    End Sub

    Private Sub PencarianToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PencarianToolStripMenuItem.Click
        Dim Datacari As New Form1
        Form1.MdiParent() = Me
        FormInput.Close()
        Form1.Show()
    End Sub

    Private Sub MenuUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class
 Form Input

Source Code :
Imports System.Data.OleDb
Public Class FormInput
    Dim x, y
    Dim simpan As String
    Dim edit As String

    Private Sub jalankansql(ByVal sQl As String)
        konek()
        Dim objcmd As New OleDb.OleDbCommand
        Try
            objcmd.Connection = conn
            objcmd.CommandType = CommandType.Text
            objcmd.CommandText = sQl
            objcmd.ExecuteNonQuery()
            objcmd.Dispose()
            MsgBox("Data Sudah Disimpan", vbInformation)
        Catch ex As Exception
            MsgBox("Tidak Bisa Menyimpan Data ke Database" & ex.Message)
        End Try
    End Sub

    Public Sub clear()
        cmbtanggal.Text = ""
        cmbbulan.Text = ""
        cmbtahun.Text = ""
        TextBox1.Text = ""
        id1.Text = ""
        id2.Text = ""
        id3.Text = ""
        harrumah.Text = ""
        tbwaktu.Text = ""
        biayaawal.Text = ""
        cicilan.Text = ""
        tanah.Text = ""
        kamar.Text = ""
        tamu.Text = ""
        klrga.Text = ""
        mushola.Text = ""
        dapur.Text = ""
        kmandi.Text = ""
        garasi.Text = ""
        gudang.Text = ""
        cbcicilan1.Text = ""
        cicilan1.Text = ""

    End Sub

    Private Sub FormInput_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For a = 1 To 31
            cmbtanggal.Items.Add(a)
        Next
        For b = 1 To 12
            cmbbulan.Items.Add(b)
        Next
        For c = 2017 To 2025
            cmbtahun.Items.Add(c)
        Next
        For d = 1 To 24
            cbcicilan1.Items.Add(d)
        Next

      End Sub

    Private Sub cmbbulan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbbulan.SelectedIndexChanged
        Select Case cmbbulan.Text
            Case 1
                bulan.Text = "Januari"
            Case 2
                bulan.Text = "Februari"
            Case 3
                bulan.Text = "Maret"
            Case 4
                bulan.Text = "April"
            Case 5
                bulan.Text = "Mei"
            Case 6
                bulan.Text = "Juni"
            Case 7
                bulan.Text = "Juli"
            Case 8
                bulan.Text = "Agustus"
            Case 9
                bulan.Text = "September"
            Case 10
                bulan.Text = "Oktober"
            Case 11
                bulan.Text = "November"
            Case 12
                bulan.Text = "Desember"
        End Select
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles bttutup.Click
        MenuUtama.Show()
        Me.Hide()
    End Sub


    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        TextBox2.Text = "A"
        tanah.Text = "50"
        kamar.Text = "4"
        tamu.Text = "1"
        klrga.Text = "2"
        dapur.Text = "1"
        kmandi.Text = "3"
        garasi.Text = "1"
        gudang.Text = "1"
        mushola.Text = "1"
        tbwaktu.Text = "24"
        harrumah.Text = "200000000"

    End Sub

    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
        TextBox2.Text = "B"
        tanah.Text = "40"
        kamar.Text = "3"
        tamu.Text = "1"
        klrga.Text = "2"
        dapur.Text = "1"
        kmandi.Text = "2"
        garasi.Text = "1"
        gudang.Text = "1"
        mushola.Text = "1"
        tbwaktu.Text = "24"
        harrumah.Text = "180000000"

    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        TextBox2.Text = "C"
        tanah.Text = "30"
        kamar.Text = "3"
        tamu.Text = "1"
        klrga.Text = "1"
        dapur.Text = "1"
        kmandi.Text = "2"
        garasi.Text = "1"
        gudang.Text = "1"
        mushola.Text = "1"
        tbwaktu.Text = "24"
        harrumah.Text = "160000000"

    End Sub

    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
        TextBox2.Text = "D"
        tanah.Text = "20"
        kamar.Text = "2"
        tamu.Text = "1"
        klrga.Text = "1"
        dapur.Text = "1"
        kmandi.Text = "1"
        garasi.Text = "1"
        gudang.Text = "1"
        mushola.Text = "0"
        tbwaktu.Text = "24"
        harrumah.Text = "140000000"

    End Sub

    Private Sub cbcicilan1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbcicilan1.SelectedIndexChanged
        Select Case cbcicilan1.Text
            Case 1
                cicilan1.Text = "23"
            Case 2
                cicilan1.Text = "22"
            Case 3
                cicilan1.Text = "21"
            Case 4
                cicilan1.Text = "20"
            Case 5
                cicilan1.Text = "19"
            Case 6
                cicilan1.Text = "18"
            Case 7
                cicilan1.Text = "17"
            Case 8
                cicilan1.Text = "16"
            Case 9
                cicilan1.Text = "15"
            Case 10
                cicilan1.Text = "14"
            Case 11
                cicilan1.Text = "13"
            Case 12
                cicilan1.Text = "12"
            Case 13
                cicilan1.Text = "11"
            Case 14
                cicilan1.Text = "10"
            Case 15
                cicilan1.Text = "9"
            Case 16
                cicilan1.Text = "8"
            Case 17
                cicilan1.Text = "7"
            Case 18
                cicilan1.Text = "6"
            Case 19
                cicilan1.Text = "5"
            Case 20
                cicilan1.Text = "4"
            Case 21
                cicilan1.Text = "3"
            Case 22
                cicilan1.Text = "2"
            Case 23
                cicilan1.Text = "1"
            Case 24
                cicilan1.Text = "0"
        End Select
    End Sub

    Private Sub cmbtahun_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbtahun.SelectedIndexChanged
        TextBox1.Text = cmbtanggal.Text + "-" + Strings.Left(bulan.Text, 3) + "-" + cmbtahun.Text
    End Sub

    Private Sub harrumah_KeyPress(sender As Object, e As KeyPressEventArgs) Handles harrumah.KeyPress
        Dim harga1, hasil As Integer
        harga1 = harrumah.Text
        hasil = (harga1 * 10) / 100
        biayaawal.Text = hasil
    End Sub

    Private Sub har1_TextChanged(sender As Object, e As EventArgs) Handles harrumah.TextChanged


    End Sub

    Private Sub tbwaktu_KeyPress(sender As Object, e As KeyPressEventArgs) Handles tbwaktu.KeyPress
        Dim harga1, hasil As Integer
        harga1 = harrumah.Text
        hasil = (harga1 * 10) / 100
        biayaawal.Text = hasil


    End Sub

    Private Sub biayaawal_KeyPress(sender As Object, e As KeyPressEventArgs) Handles biayaawal.KeyPress
        Dim harga1, harga2, harga3, hasil As Integer
        harga1 = harrumah.Text
        harga2 = tbwaktu.Text
        harga3 = biayaawal.Text
        hasil = (harga1 - harga3) / harga2
        cicilan.Text = hasil
    End Sub

    Private Sub btsimpan_Click(sender As Object, e As EventArgs) Handles btsimpan.Click
        conn.Close()
        conn.Open()
        If TextBox1.Text = "" Or id1.Text = "" Or id2.Text = "" Or id3.Text = "" Or TextBox2.Text = "" Or tanah.Text = "" Or kamar.Text = "" Or tamu.Text = "" Or klrga.Text = "" Or mushola.Text = "" Or dapur.Text = "" Or kmandi.Text = "" Or gudang.Text = "" Or gudang.Text = "" Then
            MsgBox("Data Belum Lengkap")
        End If

        simpan = "INSERT INTO tableinput (Tanggal, NoPembelian, Nama, Alamat, TipeRumah, LuasTanah, Kamar, RuangTamu, RuangKeluarga, Mushola, Dapur, KamarMandi, Garasi, Gudang) VALUES ('" & TextBox1.Text & "','" & id1.Text & "','" & id2.Text & "','" & id3.Text & "','" & TextBox2.Text & "','" & tanah.Text & "','" & kamar.Text & "','" & tamu.Text & "','" & klrga.Text & "','" & mushola.Text & "','" & dapur.Text & "','" & kmandi.Text & "','" & garasi.Text & "','" & gudang.Text & "')"
        jalankansql(simpan)
        MsgBox("Berhasil Di Simpan", vbInformation)
        clear()
        cmbtanggal.Focus()
    End Sub

    Private Sub bttambah_Click(sender As Object, e As EventArgs) Handles bttambah.Click
        clear()
    End Sub

    Private Sub btubah_Click(sender As Object, e As EventArgs) Handles btubah.Click
        conn.Close()
        conn.Open()
        edit = "UPDATE tableinput SET Tanggal ='" & TextBox1.Text & "',Nama ='" & id2.Text & "',Alamat ='" & id3.Text & "',TipeRumah ='" & TextBox2.Text & "',LuasTanah ='" & tanah.Text & "',Kamar ='" & kamar.Text & "',RuangTamu='" & tamu.Text & "',RuangKeluarga ='" & klrga.Text & "',Mushola ='" & mushola.Text & "',Dapur ='" & dapur.Text & "',KamarMandi ='" & kmandi.Text & "',Garasi ='" & garasi.Text & "',Gudang ='" & gudang.Text & "' WHERE NoPembelian=" & id1.Text & ""
        jalankansql(edit)
        MsgBox("Berhasil Di Ubah", vbInformation)
        clear()
        cmbtanggal.Focus()
    End Sub


    Private Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        Dim x As String = id1.Text
        conn.Close()
        conn.Open()

        CMD = New OleDbCommand("SELECT * FROM tableinput where NoPembelian like '%" + x + "%'", conn)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            DA = New OleDbDataAdapter("select * from tableinput where NoPembelian like '%" + x + "%'", conn)
            DS = New DataSet
            DA.Fill(DS, "Ketemu")
            TextBox1.Text = RD.Item(0)

            id2.Text = RD.Item(2)
            id3.Text = RD.Item(3)
            TextBox2.Text = RD.Item(4)
            tanah.Text = RD.Item(5)
            kamar.Text = RD.Item(6)
            tamu.Text = RD.Item(7)
            klrga.Text = RD.Item(8)
            mushola.Text = RD.Item(9)
            dapur.Text = RD.Item(10)
            kmandi.Text = RD.Item(11)
            garasi.Text = RD.Item(12)
            gudang.Text = RD.Item(13)
        Else
            id1.Text = "No Pembeli Tidak Ada"
            id1.Text = ""
            id1.Focus()
        End If
        RD.Close()
    End Sub

 
    Private Sub Label23_Click(sender As Object, e As EventArgs) Handles Label23.Click

    End Sub
End Class
Form 1/Form Datagridview

Screenshoot Database Ms.Access

 Selesai, semoga bermanfaat