Bekerja dengan Trigger

Assalamualaikum,

Untuk posting hari ini saya akan memberikan penjelasan mengenai apa itu TRIGGER...

TRIGGER 
merupakan sekumpulan perintah atau sintaks yang akan secara otomatis dijalankan jika terjadi operasi tertentu dalam tabel atau view. Trigger digunakan untuk memanggil satu atau beberapa perintah SQL secara otomatis sebelum atua sesudah terjadi proses INSET, UPDATE, atau DELETE atau suatu tabel.


Pada kasus yang saya buat kali ini adalah tabel barang dan tabel pembelian, dimana ketika melakukan pembelian maka akan bertambah otomatis pada stok barang yang ada..

Berikut screenshoot database dan juga tabel yang sudah dibuat beserta source code dan hasilnya :

Untuk pertama buat database pada sql server dengan nama sesuai tugas yang diberikan, contoh pada saat ini adalah "trigger"

hasil RUN pada tabel barang

 Semoga bermanfaat :) ..
Wassalamualaikum...

Perancangan Database pada sql server, web dan asp.net

Assalamualaikum wr.wb...

Untuk posting hari ini saya membuat aplikasi web dengan menggunakan sql server dan asp.net, pada aplikasi ini saya membuat data dari struk belanja dan saya membuat normalisasi dari struk tersebut, setelah terbentuk menjadi 3NF atau normalisasi ke tiga, baru lah saya buat database nya didalam sql server dan dijalankan pada visual studio.

Bentuk Normalisasi dari data :

Kemudian buat database :

1. Buka Microsoft SQL Server
2. Buat Database 'New Database'
3. Klik Tables dalam database yang baru saja dibuat 'New Table' isi sesuai kebutuhan yang diperlukan, 'save'.

Visual Studio :

1. Buka Microsoft Visual Studio
2. Buat Project, pilih 'New Project pada WEB', 'ASP.NET Empity Web Application', 'ok'.
3. Klik pada project aplikasi 'Add Web Form'
4. Buat desain sesuai kebutuhan.
5. Klik 'Toolbox' pilih 'Gridview', 'Choose Data Source', 'New', 'Database', 'New Connection', 'Change pada Data Source pilih Microsoft SQL Server', ' Ketik nama server kemudian refresh dan pilih database yang sudah dibuat'.

Berikut tampilan desain dan script coding :

Berikut Hasil Run :

Didalam aplikasi ini saya hanya membuat 1 form, yaitu form Tabel_Transaksi.

Dalam tabel ini hanya menampilkan apa saja yang dilakukan ketika transaksi pada toko tersebut.

Semoga bermanfaat :) 

Wassalamualaikum wr.wb .........

UAS Semester5_Aplikasi Pergadaian

Assalamualaikum,
Untuk tugas uas semester ini saya membuat aplikasi pegadaian, yang terhubung dengan database.

Berikut sedikit penjelasan dari aplikasi nya :
1. Form Login semua data id sudah ada pada database.
2. Form Menu Utama didalam Menu Utama terdapat Menu Customer, Laporan dan Exit.
3. Di Menu Customer terisi nama user (id login) yang menandakan karyawan yang bekerja pada hari itu. Kemudian ada data dari pelanggan dan data barang yang akan digadai serta tampilan dari data yang nantinya akan tersimpan pada database.
4. Form Laporan, pada form laporan ini hanya menampilkan hasil dari Form Customer.

Berikut tampilan desain dan source code dari Aplikasi Pegadaian :

Tampilan pada Database menggunakan Ms.Access :

Demikian project yang saya buat, Semoga bermanfaat.

Terimakasih.

Wassalamualaikum....

Invoice Go-Food Visual Studio-AutoWord dan AutoExcel

Assalamualaikum, 
Untuk memenuhi tugas dari UTS Pemrograman Visual, saya membuat aplikasi sebuah input data Go-Food.
Dari rancangan pertama yang saya buat sedikit berbeda dengan yang sudah ada.
Pada rancangan pertama saya memakai fungsi : TextBox, Button, CheckBox, ComboBox.
Saya merubahnya menjadi : TextBox, Button, ComboBox, dan RadioButton serta menambah gambar hanya pada desain.

Untuk hasil run pada saat rancangan saya membuat Form1 untuk AutoWord dan Form2 AutoExcel.
Dan untuk yang saya buat saat ini saya membaliknya Form1 untuk Excel dan Form2 untuk Word, pada intinya fungsi ini sama hanya saja penampilannya saja yang saya rubah.

Berikut ScreenShoot dari Desain :
Form1

Form2

Untuk Script Coding pada Form1 :

Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

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

        For a = 1 To 31

            cmbtgl.Items.Add(a)

        Next

        For a = 1 To 12

            cmbbln.Items.Add(a)

        Next

        For a = 2030 To 2001 Step -1

            cmbthn.Items.Add(a)

        Next

    End Sub

    Sub bersih()

        txtkepada.Clear()

        txtnomor.Clear()

        txtlokasi.Clear()

        txtrate.Clear()

        id1.Clear()

        id2.Clear()

        id3.Clear()

        id4.Clear()

        id5.Clear()

        byk1.Clear()

        byk2.Clear()

        byk3.Clear()

        byk4.Clear()

        byk5.Clear()

        hrg1.Clear()

        hrg2.Clear()

        hrg3.Clear()

        hrg4.Clear()

        hrg5.Clear()

        txtjumlah.Clear()

        txttotal.Clear()

    End Sub

    Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click

        cmbbln.Text = ""

        cmbtgl.Text = ""

        cmbthn.Text = ""

        menu1.Text = ""

        menu2.Text = ""

        menu3.Text = ""

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        menu4.Text = ""

        menu5.Text = ""

        cmbbln.Focus()

        bersih()

    End Sub

    Private Sub btnnext_Click(sender As Object, e As EventArgs) Handles btninput.Click

        Dim myExcelApp As New excel.Application

        Dim myExcelBook As excel.Workbook

        myExcelApp.Visible = True

        myExcelBook = myExcelApp.Workbooks.Open("G:\tugas uts\data.xlsx")

        myExcelApp.Range("D5").Value = txtkepada.Text()

        myExcelApp.Range("D6").Value = txtnomor.Text()

        myExcelApp.Range("D7").Value = txtlokasi.Text()

        myExcelApp.Range("K5").Value = cmbtgl.Text()

        myExcelApp.Range("L5").Value = cmbbln.Text()

        myExcelApp.Range("M5").Value = cmbthn.Text()

        myExcelApp.Range("K6").Value = txtrate.Text()

        myExcelApp.Range("B11").Value = id1.Text()

        myExcelApp.Range("C11").Value = menu1.Text()

        myExcelApp.Range("F11").Value = byk1.Text()

        myExcelApp.Range("H11").Value = hrg1.Text()

        myExcelApp.Range("B12").Value = id2.Text()

        myExcelApp.Range("C12").Value = menu2.Text()

        myExcelApp.Range("F12").Value = byk2.Text()

        myExcelApp.Range("H12").Value = hrg2.Text()

        myExcelApp.Range("B13").Value = id3.Text()

        myExcelApp.Range("C13").Value = menu3.Text()

        myExcelApp.Range("F13").Value = byk3.Text()

        myExcelApp.Range("H13").Value = hrg3.Text()

        myExcelApp.Range("B14").Value = id4.Text()

        myExcelApp.Range("C14").Value = menu4.Text()

        myExcelApp.Range("F14").Value = byk4.Text()

        myExcelApp.Range("H14").Value = hrg4.Text()

        myExcelApp.Range("B15").Value = id5.Text()

        myExcelApp.Range("C15").Value = menu5.Text()

        myExcelApp.Range("F15").Value = byk5.Text()

        myExcelApp.Range("H15").Value = hrg5.Text()

        myExcelApp.Range("N10").Value = txtjumlah.Text()

        myExcelApp.Range("N12").Value = txttotal.Text()

        myExcelBook.SaveAs("G:\tugas uts\data_1.xlsx")

    End Sub

    Private Sub btnjumlah_Click(sender As Object, e As EventArgs) Handles btnjumlah.Click

        Dim banyak1, banyak2, banyak3, banyak4, banyak5, harga1, harga2, harga3, harga4, harga5, hasil As Integer

        banyak1 = byk1.Text

        banyak2 = byk2.Text

        banyak3 = byk3.Text

        banyak4 = byk4.Text

        banyak5 = byk5.Text

        harga1 = hrg1.Text

        harga2 = hrg2.Text

        harga3 = hrg3.Text

        harga4 = hrg4.Text

        harga5 = hrg5.Text

        hasil = (banyak1 * harga1) + (banyak2 * harga2) + (banyak3 * harga3) + (banyak4 * harga4) + (banyak5 * harga5)

        txtjumlah.Text = hasil

    End Sub

    Private Sub menu1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu1.SelectedIndexChanged

        If menu1.SelectedItem = "Bakso Urat" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Mie Ayam" Then

            hrg1.Text = "15000"

        End If

        If menu1.SelectedItem = "Mie Ayam Bakso" Then

            hrg1.Text = "25000"

        End If

        If menu1.SelectedItem = "Soto Ayam" Then

            hrg1.Text = "15000"

        End If

        If menu1.SelectedItem = "Soto Daging" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg1.Text = "35000"

        End If

        If menu1.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg1.Text = "45000"

        End If

        If menu1.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg1.Text = "20000"

        End If

        If menu1.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg1.Text = "15000"

        End If

    End Sub

    Private Sub menu2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu2.SelectedIndexChanged

        If menu2.SelectedItem = "Bakso Urat" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Mie Ayam" Then

            hrg2.Text = "15000"

        End If

        If menu2.SelectedItem = "Mie Ayam Bakso" Then

            hrg2.Text = "25000"

        End If

        If menu2.SelectedItem = "Soto Ayam" Then

            hrg2.Text = "15000"

        End If

        If menu2.SelectedItem = "Soto Daging" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg2.Text = "35000"

        End If

        If menu2.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg2.Text = "45000"

        End If

        If menu2.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg2.Text = "20000"

        End If

        If menu2.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg2.Text = "15000"

        End If

    End Sub

    Private Sub menu3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu3.SelectedIndexChanged

        If menu3.SelectedItem = "Bakso Urat" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Mie Ayam" Then

            hrg3.Text = "15000"

        End If

        If menu3.SelectedItem = "Mie Ayam Bakso" Then

            hrg3.Text = "25000"

        End If

        If menu3.SelectedItem = "Soto Ayam" Then

            hrg3.Text = "15000"

        End If

        If menu3.SelectedItem = "Soto Daging" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg3.Text = "35000"

        End If

        If menu3.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg3.Text = "45000"

        End If

        If menu3.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg3.Text = "20000"

        End If

        If menu3.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg3.Text = "15000"

        End If

    End Sub

    Private Sub menu4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu4.SelectedIndexChanged

        If menu4.SelectedItem = "Bakso Urat" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Mie Ayam" Then

            hrg4.Text = "15000"

        End If

        If menu4.SelectedItem = "Mie Ayam Bakso" Then

            hrg4.Text = "25000"

        End If

        If menu4.SelectedItem = "Soto Ayam" Then

            hrg4.Text = "15000"

        End If

        If menu4.SelectedItem = "Soto Daging" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg4.Text = "35000"

        End If

        If menu4.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg4.Text = "45000"

        End If

        If menu4.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg4.Text = "20000"

        End If

        If menu4.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg4.Text = "15000"

        End If

    End Sub

    Private Sub menu5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles menu5.SelectedIndexChanged

        If menu5.SelectedItem = "Bakso Urat" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Mie Ayam" Then

            hrg5.Text = "15000"

        End If

        If menu5.SelectedItem = "Mie Ayam Bakso" Then

            hrg5.Text = "25000"

        End If

        If menu5.SelectedItem = "Soto Ayam" Then

            hrg5.Text = "15000"

        End If

        If menu5.SelectedItem = "Soto Daging" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Bebek Goreng/ Bakar" Then

            hrg5.Text = "35000"

        End If

        If menu5.SelectedItem = "Ayam Goreng/ Bakar" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Gurame Goreng/ Bakar" Then

            hrg5.Text = "45000"

        End If

        If menu5.SelectedItem = "Bawal Goreng/ Bakar" Then

            hrg5.Text = "20000"

        End If

        If menu5.SelectedItem = "Lele Goreng/ Bakar" Then

            hrg5.Text = "15000"

        End If

    End Sub

    Private Sub btntotal_Click(sender As Object, e As EventArgs) Handles btntotal.Click

        Dim hasil As Integer

        Select Case txtrate.Text

            Case 0.1

                hasil = 0.1 * txtjumlah.Text

                txttotal.Text = hasil

            Case 0.15

                hasil = 0.15 * txtjumlah.Text

                txttotal.Text = hasil

        End Select

    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        txtrate.Text = 0.1

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        txtrate.Text = 0.15

    End Sub

    Private Sub btnext_Click(sender As Object, e As EventArgs)

        Form2.Show()

        Me.Close()

    End Sub

    Private Sub btnnext_Click_1(sender As Object, e As EventArgs) Handles btnnext.Click

        Form2.Show()

        Me.Hide()

    End Sub

End Class

Untuk Script Coding pada Form2 :

Imports word = Microsoft.Office.Interop.Word

Public Class Form2

    

    Private Sub btnselesai_Click(sender As Object, e As EventArgs) Handles btnselesai.Click

        Dim Appnya As New word.Application

        Dim Dokumennya As word.Document

        Dokumennya = Appnya.Documents.Open("G:\tugas uts\hasil.docx")

        Dokumennya.Bookmarks("kepada").Select()

        Appnya.Selection.TypeText(txtkpd.Text)

        Dokumennya.Bookmarks("nomor").Select()

        Appnya.Selection.TypeText(txtnoin.Text)

        Dokumennya.Bookmarks("lokasi").Select()

        Appnya.Selection.TypeText(txtlok.Text)

        Dokumennya.Bookmarks("total").Select()

        Appnya.Selection.TypeText(txttocf.Text)

        Dokumennya.SaveAs2("G:\tugas uts\hasil1.docx")

        Appnya.Visible = True

    End Sub

    Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click

        Dim x = MsgBox("TERIMA KASIH SUDAH MELAKUKAN TRANSAKSI!", MsgBoxStyle.Information + MsgBoxStyle.Question, "INFORMASI")

            Me.Close()

            'End

    End Sub

End Class

Berikut hasil dari Run :

Semoga bermanfaat :)

Wassalamualaikum...