VB.NET MEMBUAT FORM LOGIN

Kali ini saya mencoba untuk membuat form login yang biasanya ada pada aplikasi aplikasi bisnis. Tulisan ini adalah lanjutan dari VB.NET INSERT UPDATE DELETE SEARCH yang telah saya posting sebelumnya. Dalam postingan tersebut bahwa aplikasi yang saya buat belum mempunyai form login. Berawal dari itu saya membuat postingan ini agar pembaca bisa lebih banyak tau. Form login biasanya digunakan untuk membatasi pemakai aplikasi agar tidak sembarang masuk dalam aplikasi tersebut. Jelas bahwa semakin tinggi tingkat keamanan aplikasi maka akan semakin bagus pula kualitasnya. Saya tidak mengatakan bahwa aplikasi ini adalah berkualitas, Ini adalah pembelajaran sederhana yang saya buat untuk teman teman yang lagi belajar membuat form login. Inti dari form login ini adalah bagaimana data yang dimasukkan user ke dalam kotak isian tersedia atau tidak di dalam database, jika datanya tersedia maka seorang user berhak masuk kedalam aplikasi. Form login yang saya buat tidak memakai encrypt jadi hanya sebatas chiper text agar pembaca bisa lebih mudah untuk memahaminya. Langkah-langkahnya adalah sebagai berikut

• Buka SQL Server dan buat tabel bernama XUSER
Sebelumnya kamu harus melihat postingan saya sebelumnya seperti yang saya katakan di atas agar anda tidak keliru yaitu VB.NET INSERT UPDATE DELETE SEARCH dalam postingan tersebut saya sudah membuat database bernama CRUD dan tabel MASTER. Jadi tugas anda hanya menambahkan tabel XUSER saja CREATE TABLE XUSER ( USER_ID VARCHAR(5) PRIMARY KEY, USER_NAME VARCHAR(50) NOT NULL, PASSWORD VARCHAR(8) NOT NULL, ); Isikan beberapa nilai ke dalam tabel tersebut seperti query dibawah ini INSERT INTO XUSER VALUES ('SA','SALES','123') INSERT INTO XUSER VALUES ('QA','QUALITY','12345') INSERT INTO XUSER VALUES ('QR','QR CODE','1231')
• Buatlah desain form login seperti gambar dibawah ini

• Buatlah function untuk mencari apakah user ID ada atau tidak
Private Function GetUserID(ByVal id As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(USER_ID) FROM XUSER WHERE USER_ID = '" & id & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Kode di atas berfungsi untuk menjumlahkan user ID yang yang ada di database dengan parameter id yang ada di atas
• Buatlah function untuk mencari apakah password yang diisikan sudah benar berdasarkan user id yang kita input sebelumnya
Private Function GetPasswordByID(ByVal id As String, ByVal pass As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(*) FROM XUSER WHERE USER_ID ='" & id & "' AND PASSWORD = '" & pass & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function
• Agar lebihn lengkap, saya akan buat keseluruhan kode di bawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmLogin Private Function GetUserID(ByVal id As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(USER_ID) FROM XUSER WHERE USER_ID = '" & id & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Private Function GetPasswordByID(ByVal id As String, ByVal pass As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(*) FROM XUSER WHERE USER_ID ='" & id & "' AND PASSWORD = '" & pass & "'" Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar End Function Private Sub txtID_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtID.Validated If GetUserID(txtID.Text) > 0 Then txtPassword.Focus() Else MessageBox.Show("ID kamu belum terdaftar", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtID.Clear() txtID.Focus() End If TutupKoneksi() End Sub Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click If GetPasswordByID(txtID.Text, txtPassword.Text) > 0 Then Me.Hide() FrmBrowse.BringToFront() FrmBrowse.ShowDialog() Else MessageBox.Show("Salah, silahkan coba lagi", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtPassword.Clear() txtPassword.Focus() End If TutupKoneksi() End Sub End Class

Terimkasih sudah membaca tulisan ini, saya rasa tulisan ini tidak begitu bagus sehingga dibutuhkan kritikan dan komentar dari teman-teman agar saya bisa lebih bagus lagi dalam menyajikan sesuatu. Untuk lebih memantapkan tulisan ini maka penulis memberikan link download untuk aplikasi ini agar teman-teman bisa lebih memahami apa yang saya buat Download DISINI

VB.NET INSERT, UPDATE, DELETE, SEARCH

Halo sahabat bahasaporgramvb.blogspot.com, sesuai dengan judul artikel ini adalah membuat aplikasi insert, update, delete dan search data . Dalam tutorial ini saya membuat membuat dua form dimana form pertama adalah untuk manampilkan data dari database dan form kedua untuk input user. Saya berharap yang melihat tutorial ini sudah paham apa itu module, procedure, function dalam bahasa pemrograman khususnya visual basic.net. saya juga akan menjelaskan beberapa kode yang saya tuliskan nantinya agar pembaca dapat lebih mudah paham dengan kode yang saya tuliskan. Hasil dari aplikasi ini akan terlihat seperti gambar di bawah ini.

Langkah-langkah dalam membuat aplikasi spergi gambar di atas

• Membuat database
Buka Sql server dan buat query seperti dibawah ini untuk menciptakan database baru bernama CRUD CREATE DATABASE CRUD ON ( NAME = CRUD_DATA, FILENAME = 'D:\LIBRARY\CRUD_DATA.MDF', SIZE = 3MB, MAXSIZE = UNLIMITED, FILEGROWTH = 10MB ) LOG ON ( NAME = CRUD_LOG, FILENAME = 'D:\LIBRARY\CRUD_DATA.LDF', SIZE = 3MB, MAXSIZE = UNLIMITED, FILEGROWTH = 10MB ); Kode tersebut berfungsi untuk membuat database bernama CRUD dan meciptakan 2 file yaitu CRUD_DATA format MDF dan CRUD_LOG format LDF, dimana masing masing file tersebut memiliki unkuran awal (SIZE) adalah 3MB dan ukuran terbesarnya (MAXSIZE) tak terhingga dan masing masing file hanya boleh bertambah ukurannya (FILEGROWTH) 10MB dari MAXSIZE yang sudah ditentukan. Kebetulan untuk MAXSIZE yang kita buat di atas adalah untlimited sehingga tidak akan mempengaruhi FILEGROWTH. Untuk lebih jelasnya jika MAXSIZE di set 1GB makan file tersebut hanya bisa bertambah 10MB jadi total SIZE database nya hanya akan berukuran 1,01 GB yang bisa digunakan.
• Membuat Tabel Master
USE CRUD GO CREATE TABLE MASTER ( KODE CHAR(3) PRIMARY KEY, STATUS SMALLINT DEFAULT 0, NAMA VARCHAR(50) NOT NULL, JENIS_KELAMIN SMALLINT DEFAULT 0, ALAMAT VARCHAR(100), ); Query diatas berfungsi menciptakan tabel bernama MASTER yang akan kita gunakan sebagai penampung data dari aplikasi nantinya
• Buka visual studio, buatlah Form dengan nama frmBrowse seperti dibawah ini

Form tersebut berfungsi untuk menampilkan data master yang akan kita tarik dari database yang telah kita buat sebelumnya. Aturlah property dari masing masing control seperti gambar di atas.
• tambahkan form dengan nama FrmMaster seperti dibawah ini

• Tambahkan sebuah module dengan nama ModuleGlobal
Module ini berfungsi untuk membuat variabel variabel global dan membuat sambungan koneksi ke dalatabase CRUD yang akan kita perlukan nantinya di frmBrowse dan frmMaster sehingga dengan adanya module ini akan sangat bermanfaat karena kita tinggal memangilnya untuk digunakan dan tidak perlu di tulis berulang ulang di setiap form yang ada. Imports System.Data.SqlClient Imports System.Data Module ModuleGlobal Public Str As String Public Cn As SqlConnection Public Cmd As SqlCommand Public Da As SqlDataAdapter Public Dt As DataTable Public Ds As DataSet Public Dr As SqlDataReader Public Sub BukaKoneksi() Str = "Data Source = SERVER-PC; Initial Catalog =CRUD; User Id=SA; Password = 12345" Cn = New SqlConnection(Str) If Cn.State = ConnectionState.Closed Then Cn.Open() End If End Sub Public Sub TutupKoneksi() Cn.Close() End Sub End Module
• Buka frmBrowse dan tuliskan kode seperti dibawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmBrowse Public Sub TampilData() BukaKoneksi() If Len(Trim(txtCari.Text)) = 0 Then Str = "SELECT KODE, NAMA, ALAMAT FROM MASTER ORDER BY NAMA" Else Str = "SELECT KODE, NAMA, ALAMAT FROM MASTER WHERE NAMA LIKE '%" & txtCari.Text & "%'" End If Cmd = New SqlCommand(Str, Cn) Da = New SqlDataAdapter(Cmd) Dt = New DataTable Da.Fill(Dt) Dgv.Rows.Clear() For i As Integer = 0 To Dt.Rows.Count - 1 Dgv.Rows.Add(Dt.Rows(i).Item("KODE"), Dt.Rows(i).Item("NAMA"), Dt.Rows(i).Item("ALAMAT")) Next TutupKoneksi() End Sub Private Sub FrmBrowse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call TampilData() End Sub Private Sub txtCari_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCari.Validated Call TampilData() End Sub Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click BukaKoneksi() Dim KODE As String If Dgv.Rows.Count > 0 Then KODE = Dgv.Rows(Dgv.CurrentCell.RowIndex).Cells(0).Value If MessageBox.Show("Hapus data " & KODE, Me.Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Str = "DELETE FROM MASTER WHERE KODE = '" & KODE & "'" Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() End If End If Call TampilData() End Sub Private Sub btnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTambah.Click FrmCrud.Posisi = True FrmCrud.ShowDialog() End Sub Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click If Dgv.Rows.Count - 1 > 0 Then FrmCrud.Posisi = False FrmCrud.Nilai = Dgv.Rows(Dgv.CurrentCell.RowIndex).Cells(0).Value FrmCrud.ShowDialog() End If End Sub End Class
• Buka frmMater dan tuliskan kode seperti dibawah ini
Imports System.Data.SqlClient Imports System.Data Public Class FrmCrud Private Permission As Boolean Public Posisi As Boolean Public Nilai As String 'Deklarasi variabel untuk menampung nilai dari input user Private Kode As String Private Nama As String Private Status As Single Private JenisKelamin As Single Private Alamat As String Private Sub TampungNilai() Kode = txtKode.Text Nama = txtNama.Text Alamat = txtAlamat.Text Status = IIf(CboxAktif.Checked = True, 1, 0) JenisKelamin = IIf(CboxLakiLaki.Checked = True, 1, 0) End Sub Private Function CekKode(ByVal kode As String) As Integer Call BukaKoneksi() Str = "SELECT COUNT(KODE) FROM MASTER WHERE KODE = '" & txtKode.Text & "'" Try Cmd = New SqlCommand(Str, Cn) Return Cmd.ExecuteScalar Catch ex As Exception MessageBox.Show(ex.Message) End Try End Function Private Sub Validation() If Len(Trim(txtKode.Text)) = 0 Then txtKode.Focus() Permission = False Exit Sub End If If Len(Trim(txtNama.Text)) = 0 Then txtNama.Focus() Permission = False Exit Sub End If If CboxLakiLaki.Checked = False And CboxPerempuan.Checked = False Then MessageBox.Show("Pilih jenis kelamin", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) Permission = False Exit Sub End If Permission = True End Sub Private Sub RefreshForm() If Posisi Then txtKode.Clear() CboxAktif.Checked = False txtNama.Clear() CboxPerempuan.Checked = False CboxLakiLaki.Checked = False btnSimpan.Text = "Simpan" txtAlamat.Clear() Else Call BukaKoneksi() Str = "SELECT * FROM MASTER WHERE KODE = '" & Nilai & "'" Try Cmd = New SqlCommand(Str, Cn) Dr = Cmd.ExecuteReader Dr.Read() If Dr.HasRows Then txtKode.Text = Dr.Item("KODE") txtNama.Text = Dr.Item("NAMA") txtAlamat.Text = Dr.Item("ALAMAT") IIf(Dr.Item("STATUS") = 1, CboxAktif.Checked = True, CboxAktif.Checked = False) If Val(Dr.Item("JENIS_KELAMIN")) = 1 Then CboxLakiLaki.Checked = True Else CboxPerempuan.Checked = True End If Dr.Close() btnSimpan.Text = "Update" End If Catch ex As Exception MessageBox.Show(ex.Message.ToString) End Try End If txtKode.Focus() End Sub Private Sub FrmCrud_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call RefreshForm() End Sub Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click Call Validation() If Permission Then Call TampungNilai() If Posisi Then If CekKode(txtKode.Text) > 0 Then MessageBox.Show("Double Data", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop) txtKode.Focus() Exit Sub Else Str = "INSERT INTO MASTER " & _ "VALUES ('" & Kode & "'," & Status & ",'" & Nama & "'," & JenisKelamin & ",'" & Alamat & "')" Try Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() MessageBox.Show("Data tersimpan", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MessageBox.Show(ex.Message) End Try End If Else Str = "UPDATE MASTER SET KODE = '" & Kode & "', STATUS = " & Status & ", NAMA = '" & _ Nama & "', JENIS_KELAMIN = " & JenisKelamin & ", ALAMAT = '" & Alamat & "' WHERE KODE = '" & Nilai & "'" Try Cmd = New SqlCommand(Str, Cn) Cmd.ExecuteNonQuery() MessageBox.Show("Data telah update", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Information) Catch ex As Exception MessageBox.Show(ex.Message) End Try End If Posisi = True Call FrmBrowse.TampilData() Call RefreshForm() End If End Sub End Class

Aplikasi sudah di uji coba di komputer saya dan berjalan dengan baik, Saat ini link download untuk aplikasi ini masih belum tersedia dan dalam waktu dekat ini saya akan menyediakan link download nya. Jika diantara teman teman ingin aplikasi sederhana ini silahkan meninggalkan email di kolom komentar dibawah ini. Terimakasih

SQL Server constraint

Constraint atau batasan dalam database pada dasarnya adalah pembatasan nilai nilai yang diperbolehkan untuk diisikan dalam sebuah kolom atau kolom-kolom yang terdapat dalam sebuah tabel. Dengan menerapkan batasan-batasan dalam sebuah tabel maka dapat dipastikan hanya data data yang sesuai dengan batasan tersebut yang dapat masuk ke dalam tabel. Fungsi utama constraint adalah untuk menjamin konsistensi dan integritas data-data yang diisikan ke dalam sebuah tabel. Konstrain dapat dibuat pada level tabel atau level kolom, kecuali untuk constrain not null yang hanya dapat dibuat pada level kolom.

• Primary key
Primary key atau kunci utama dalam sebuah tabel merupakan kunci yang akan membatasi pengisian record dalam sebuah tabel agar tidak duplikat atau redundan. Syarat sebuah field di jadikan primary key harus unik dan tidak boleh nilainya kosong (NOT NULL). Berikut adalah perintah dasar untuk membuat constraint primary key CONSTRAINT PK_(NAMA-TABEL)_NAMA-KOLOM [JENIS_CONSTRAINT] (NAMA_KOLOM) contoh CAREATE TABEL JURUSAN ( KODE_JURUSAN CHAR(3) NOT NULL, NAMA_JURUSAN VARCHAR(50) NOT NULL, CONSTRAINT PK_JURUSAN_KODE_JURUSAN PRIMARY KEY(KODE_JURUSAN), ); tabel diatas sudah membentuk 1 kolom primary key yaitu KODE_JURUSAN, artinya nilai kode jurusan yang akan kita isikan tidak akan boleh sama, jika diisikan sama maka otomatis sql server akan menampilkan pesan kesalahan. oh ya primary key secara default adalah not null.

Foreign key

Foreing key atau kunci tamu merupakan kunci tamu yang digunakan sebagai penghubung satu tabel dengan tabel lainnya. Jika sebuah tabel memiliki foreing key maka tabel tersebut dapat disebut juga sebagai tabel kedua dimana tabel utamanya adalah tabel yang memiliki kolom primary key dari foreign key tersebut. Perintah untuk membuat foreign key sbb : CONSTRAINT FK_(NAMA-TABEL)_NAMA-KOLOM FOREIGN KEY (NAMA_KOLOM) REFERENCES TABEL_REFERENSI(KOLOM-REFERENSI) Contoh :

1. Membuat tabel induk
CREATE TABLE JURUSAN ( KODE_JURUSAN CHAR(3) NOT NULL, NAMA_JURUSAN VARCHAR(50) NOT NULL, CONSTRAINT PK_JURUSAN_KODE_JURUSAN PRIMARY KEY(KODE_JURUSAN), ); Tabel diatas adalah tabel induk yang akan kita referensikan ke tabel lain sehingga di hasilkan nantinya FOREIGN key Contoh CREATE TABLE MAHASISWA ( NIM CHAR(3) NOT NULL, NAMA VARCHAR(50) NOT NULL, KODE_JURUSAN CHAR(3) NOT NULL, CONSTRAINT PK_MAHASISWA_NIM PRIMARY KEY(NIM), CONSTRAINT FK_MAHASISWA_KODE_JURUSAN FOREIGN KEY(KODE_JURUSAN) REFERENCES JURUSAN(KODE_JURUSAN), ); Perharikan tabel MAHASISWA di atas, terbentuk 1 PRIMARY KEY yaitu NIM dan 1 FOREIGN KEY yaitu KODE_JURUSAN, artinya adalah nilai kolom KODE_JURUSAN yang ada di tabel MAHASISWA harus ada di tabel JURUSAN agar konsistensi data nya terjamin. Oh iya tipe data dan panjang nilainya untuk membuat foreign key harus sama dengan tipe data primary key di tabel induknya. Lihat contoh di atas tipe data untuk kolom KODE_JURUSAN di tabel JURUSAN sama dengan KODE_JURUSAN yang ada di tabel MAHASISWA.

Unique

Constraint UNIQUE merupakan sebuah constraint yang akan membatasi pengisian record yang sama kedalam sebuah kolom jika kolom tersebut diberikan constraint UNIQUE. Constraint UNIQUE hampir sama dengan PRIMARY KEY, Yaitu menjamin bahwa setiap nilai record yang ada dalam sebuah kolom UNIQUE tidak boleh ada yang sama satu sama lain. UNIQUE dapat dibuat pada level kolom ataupun level tabel. Sama dengan constraint PRIMARY KEY, FOREIGN KEY, CHECK. Penulisan: CONSTRAINT UO_NAMA-TABEL UNIQUE(NAMA-KOLOM) Contoh : CREATE TABLE PEGAWAI ( NIP CHAR(15) NOT NULL, NAMA VARCHAR(30) NOT NULL, KTP VARCHAR(30) NOT NULL, CONSTRAINT PK_PEGAWAI_NIP PRIMARY KEY(NIP), CONSTRAINT UO_KTP UNIQUE(KTP), ) Tabel diatas sudah terbentuk 1 PRIMARY KEY yaitu NIP dan 1 UNIQUE yaitu KTP. Artinya nilai yang ada dalam kolom KTP tidak boleh sama, begiru juga dengan kolom NIP nilainya tidak boleh sama karena sudah di set PRIMARY KEY.

Not null

NOT NULL merupakan constraint yang digunkan untuk menjamin pengisian record ke dalam sebuah tabel agar nilai record tersebut harus berisi data. Sebuah kolom jika diberikan constraint NOT NULL, maka kolom tersebut harus berisikan nilai untuk tiap recordnya dan tidak boleh dikosongkan. Not null hanya bisa didefenisikan dalam sebuah tabel pada level kolom dan tidak bisa pada level tabel. Perbedaan antara not null dan primary key adalah bahwa setiap kolom yang dijadikan primary key pasti NOT NULL dan tidak berlaku sebaliknya. contoh CREATE TABLE PEGAWAI ( NIP CHAR(15) NOT NULL, NAMA VARCHAR(30) NOT NULL, KTP VARCHAR(30) NOT NULL, CONSTRAINT PK_PEGAWAI_NIP PRIMARY KEY(NIP), CONSTRAINT UO_KTP UNIQUE(KTP), ); Dalam tabel diatas ada 3 kolom yang di set sebgai NOT NULL yaitu NIP, NAMA, KTP yang artinya bahawa ketiga kolom tersebut tidak boleh di kosongkan pada saat pengisian record.

Check

CHECK merupakan constraint yang memaksa pengisian record sesuai dengan kondisi yang ditetapkan. Hampir sama dengan constraint FOREIGN KEY dalam hal bagaimana mengendalikan nilai yang akan di masukkan kedalam sebuah kolom. FOREIGN KEY mendapatkan nilai yang valid dari tabel lain sementara CHECK menentukan nilai valid dari ekspresi logika yang dibuat. contoh CREATE TABLE PEGAWAI ( NIP CHAR(15) NOT NULL, NAMA VARCHAR(30) NOT NULL, KTP VARCHAR(30) NOT NULL, GAJI MONEY DEFAULT 0, CONSTRAINT PK_PEGAWAI_NIP PRIMARY KEY(NIP), CONSTRAINT UO_KTP UNIQUE(KTP), CONSTRAINT CHK_GAJI CHECK(GAJI >= 0), ); Tabel ditas untuk kolom GAJI diberikan constraint CHECK(GAJI > =0) yang artinya nilai pada saat pengisian record untuk kolom gaji harus lebih besar dari 0 contoh lain CREATE TABLE PEGAWAI ( NIP CHAR(15) NOT NULL, JENIS_KELAMIN CHAR(1) NOT NULL, CONSTRAINT CHK_JENIS_KELAMIN CHECK(JENIS_KELAMI = 'L' OR JENIS_KELAMIN ='P'), ); tabel ditas membentuk 1 constraint CHECK yaitu JENIS_KELAMIN yang artinya kolom JENIS_KELAMIN hanya bisa bernilai L atau P.

Penggunaan Trigger dalam SQL Server

Trigger dalam SQL Server

Trigger adalah T-SQL yang disimpan pada database server dan akan diaktivasi melalui event ketika melakukan statement-statement SQL (Insert, Update, Delete) pada sebuah table. Trigger dapat membantu dalam menjaga konsistensi dan integritas data.

• Create Trigger

CREATE TRIGGER <nama_trigger> ON <nama_table>|<nama_view> FOR | AFTER | INSTEAD OF [INSERT] [UPDATE] [DELETE] AS T-SQL /SQL STATEMENT

• Alter Trigger

ALTER TRIGGER <nama_trigger> ON <nama_table>|<nama_view> FOR | AFTER | INSTEAD OF [INSERT] [UPDATE] [DELETE] AS T-SQL /SQL STATEMENT

• Drop Trigger

DROP TRIGGER <nama_trigger>

• Even Pada Trigger

Nama Event	Keterangan
Afret / for Insert	Terjadi setelah insert
After / for Update	Terjadi setelah update
After / for delete	Terjadi setelah delete

Contoh insert trigger

CREATE TRIGGER trg_material_after_insert ON Material AFTER INSERT AS BEGIN PRINT 'Data telah diinsert' END

Test Driven

INSERT INTO MATERIAL VALUES('GUITAR','UNT',1,10,'SPRT',1000000,900000,850000);

Setelah data selesai ditambahkan maka trigger akan bekerja menampilkan pesan data telah di insert

SQL server select statement

Pernyataan Select Dalam SQL server

Pernyataan select dalam sql server berguna untuk menyeleksi suatu field dari tabel yang di dipilih. Seorang developer database pasti sudah terbiasa dengan perintah select Secara sederhana perintah select dapat distrukturkan seperti dibawah ini

SELECT [ALL][FIELD,FIELD] FROM [TABLE NAME] Untuk seorang newbe pasti akan bingun dengan struktur diatas, untuk itu kita akan membuat contoh kasus
nama tabel : mahasiswa

NIM	NAMA	JURUSAN
112114677	erwin pasaribu	sistem informasi
112114699	rachmat chang	akuntansi
112117878	idris lim	tekhnik informatika

Diatas terdapat 1 tabel mahasiswa, yang nantinya kita akan menyeleksi berdasarkan apa yang kita inginkan. Menyeleksi seluruh field yang ada salam tabel

• Menyeleksi seluruh field yang ada salam tabel

SELECT * FROM MAHASISWA

NIM	NAMA	JURUSAN
112114677	erwin pasaribu	sistem informasi
112114699	rahmat chang	akuntansi
112117878	idris lim	tekhnik informatika

• Menyeleksi hanya fiel nim

SELECT NIM FROM MAHASISWA

NIM
112114677
112114699
112117878

• Menyeleksi hanya NIM dan NAMA

SELECT NIM, NAMA FROM MAHASISWA

NIM	NAMA
112114677	erwin pasaribu
112114699	rahmat chang
112117878	idris lim

Untuk peryataan select sepertinya sudah sangat cukup, selanjutnya bagaimana jika kita hanya memilih nim dengan kriteria yang berbeda.Akan di bahas di postingan selanjutnya.