Membuat Program input dan edit data dengan VB.NET 2005 dan SQL Server 2005 (hampir 100% murni coding)

7:34 AM

(0) Comments



Program Input, Edit, Hapus (Manipulasi data) merupakan program standar yang selalu ada pada saat seorang programmer membuat aplikasi.

Kebisaan membuat program dari zaman Basic, Pascal, clipper, foxpro sampai ke Visual Basic 5 dan Visual Basic 6 yang selalu mengandalkan kode program dalam membangun program, bagi saya masih terbawa bawa ke era Visual yang telah didukung dengan Wizard.

Pada artikel kali ini saya coba memaparkan cara membuat program Input, Edit, Hapus dengan mengambil contoh pengolahan data supplier, hampir 100% saya pakai code program.
Contoh yang dibahas sifatnya sangat dasar sekali, jadi untuk rekan rekan yang sudah sangat berpengalaman dalam pemrograman dimohon saran dan info yang membangun demi kebaikan kemampuan programming dimasa datang.
Untuk rekan pemula mudahan mudahan artikel ini bisa membantu dalam memperdalam pengetahuan programming

Mari kita mulai saja...



Siapkan sebuah database di SQL Server 2005, pada komputer saya servernya saya beri nama ISLAM, dengan nama database GUDANG
Untuk server pembaca silahkan sesuaikan sendiri sesuai keinginan.

Kita lanjutkan
Buat table supplier dengan susunan field seperti gambar berikut :



Sekarang aktifkan Visual Basic.NET 2005 dan buat sebuah project baru namanya juga terserah anda. (saya sendiri memberi nama project ini GUDANG)

Siapkan sebuah Module baru yang berfungsi untuk membuat koneksi kedatabase atau tempat menyimpan fungsi atau prosedur yang kita butuhkan dalam pembuatan program.
Langkah pembuatan module : klik kanan nama project yang ada di Window Solution Explorer, lalu pilih Add --> Module. Secara default VB akan memberi nama Module1.


berikut ini gambar Solution Explorer :



Pada jendela Code program Module1 masukkan kode berikut :

Imports System.Data.SqlClient
Module Module1
Public Function Koneksi() As SqlConnection

Dim Conn As New SqlConnection
Conn = New SqlConnection("server=islam; database=gudang; user=sa;password=intan;")
Conn.Open()
Return Conn
End Function
End Module


Sekali lagi untuk nama server, database, user dan password sesuaikan dengan komputer yang anda pakai.


Tahap selanjutnya siapkan form baru dengan contoh disain seperti gambar berikut.



Komponen yang ada pada form terdiri dari 6 Label (text label sesuaikan dengan gambar),

6 Buah Textbox Masing masing diberi nama :

TextKode
TextNama
TextAlamat
TextTelepon
TextKontakPerson
TextEmail

6 Buah Button, masing diberi nama :

ButtonTambah
ButtonSimpan
ButtonHapus
ButtonUpdate
ButtunKeluar
Buttun1 (Loading data)

1 Buah DatagridView dengan nama GridSupplier.



Saatnya Coding…...,


Setelah semua komponen tersusun dalam Form saat kita melakukan coding program.

Pada Menu Bar, pilih menu View  Code

Pada bagian atas ketikan kode berikut untuk meng-import Class Data SQL sehingga kita bisa melakukan koneksi ke database.


Imports System.Data.SqlClient

Selanjutnya pelajari code program berikut baris perbaris sambil memperhatikan komentar kode program yang saya sisipkan pada setiap prosedur.
Kode komentar selalu diawali dengan tanda kutip satu (‘)



Public Class Supplier

‘ Siapkan variabel keneksi
Dim koneksi = Module1.Koneksi


‘Prosedur load form (aktifkan denfan double klik pada form)
Private Sub Supplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘ panggil prosedur PanggilData
PanggilData()
ButtonSimpan.Enabled = False
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
End Sub


‘Prosedur membuat datagridview memiliki warna Alternate
Sub GridBerwarna()
With Me.GridSupplier
.RowsDefaultCellStyle.BackColor = Color.BlanchedAlmond
.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
End With
End Sub


‘ Prosedur panggildata
Sub PanggilData()
Dim Adapter As New SqlDataAdapter("select * from supplier", Module1.Koneksi)
Dim dt As New DataTable("Supplier")
Adapter.Fill(dt)
GridSupplier.DataSource = dt
Call GridBerwarna()
End Sub

‘Prosedur Form kosong (berfungsi untuk mengosongkan TetxBox dangan pengaturan focus)

Sub FormKosong()
TextKode.Text = ""
TextNama.Text = ""
TextAlamat.Text = ""
TextTelepon.Text = ""
TextKontakPerson.Text = ""
TextEmail.Text = ""
TextKode.Focus()
End Sub

‘Prosedur mengaktifkan TextBox
Sub FormHidup()
TextKode.Enabled = True
TextNama.Enabled = True
TextAlamat.Enabled = True
TextTelepon.Enabled = True
TextKontakPerson.Enabled = True
TextEmail.Enabled = True
End Sub


‘Prosedure Mengatur Button dan Textbox
Sub FormNormal()
Call FormKosong()
ButtonTambah.Enabled = True
ButtonHapus.Enabled = False
ButtonSimpan.Enabled = False
ButtonKeluar.Text = "&Keluar"
End Sub


‘Prosedur untuk tambah data
Private Sub ButtonTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTambah.Click
Call FormHidup()
Call FormKosong()
Call PanggilData()
ButtonSimpan.Enabled = True
ButtonTambah.Enabled = False
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
ButtonKeluar.Text = "&Normal"
TextKode.Focus()
End Sub

‘Prosedur untuk simpan data
Private Sub ButtonSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSimpan.Click

Dim Sql As String = String.Empty

'Cek Kode
‘Uji data apakah textKode tidak kosong

If TextKode.Text <> "" Then
'Jika tidak kosong tambahkan data

Sql = "INSERT INTO Supplier(KodeSupplier,NamaSupplier,AlamatSupplier,Telepon,KontakPerson,email)" _
& " VALUES ('" & TextKode.Text & "','" & TextNama.Text & "', '" & TextAlamat.Text & "', '" _
& TextTelepon.Text & "', '" & TextKontakPerson.Text & "', '" & TextEmail.Text & "')"

‘ Periksa hati-hati tanda kutip untuk setiap variabel, salah ketik mengakibatkan query anda tidak akan terbaca.


‘ Persiapan execusi Query Insert

Dim command As New SqlCommand(Sql, Module1.Koneksi)
command.ExecuteNonQuery()
Module1.Koneksi.Close()

‘ sampaikan pesan bahwa data telah tersimpan.

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah disimpan", "Simpan data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

‘ sampaikan juga pesan jika penyimpanan gagal.

Else
MessageBox.Show("Isikan dulu data", "Simpan Gagal", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextKode.Focus()
End If

‘ Panggil prosedur FormKosong dan prosedur panggil data.


Call FormKosong()
Call PanggilData()
End Sub



‘ ini prosedur untuk mengganti tab jadi enter dan prosedur untuk mencari apakah data pada text kode sudah pernah ada atau belum untuk menghindari redudansi data.

Private Sub TextKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextKode.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If

'buat koneksi untuk pencarian data yang sudah ada

Dim Adapter As New SqlDataAdapter("SELECT * from Supplier where KodeSupplier = '" _
& TextKode.Text & "'", Module1.Koneksi)
Dim dt As New DataTable("Supplier")
Adapter.Fill(dt)

'Jika data yang dicari ada
If dt.Rows.Count <> 0 Then

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah ada, inputkan data lain", "Ditemukan data yang sama", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextKode.Text = " "

End If
GridSupplier.DataSource = dt
End Sub

‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNama.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextAlamat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextAlamat.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub

‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextTelepon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextTelepon.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextKontakPerson_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextKontakPerson.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextEmail_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextEmail.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘prosedur untuk menghapus data
Private Sub ButtonHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHapus.Click

If GridSupplier.CurrentRow.Index > -1 Then

Dim Sql As String = String.Empty

Sql = "Delete from Supplier where KodeSupplier = '" & TextKode.Text & "'"

Dim command As New SqlCommand(Sql, Module1.Koneksi)
command.ExecuteNonQuery()
Module1.Koneksi.Close()

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah dihapus", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call FormKosong()

Call PanggilData()
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
Else
MessageBox.Show("Pilih dulu data yang akan dihapus", "Tidak ada data yang akan dihapus", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub


‘prosedur untuk Update data

Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click

Dim Sql As String = String.Empty
'Cek Kode

'Update
Sql = "UPDATE Supplier SET KodeSupplier= '" & TextKode.Text & "'," _
& "NamaSupplier='" & TextNama.Text & "',AlamatSupplier = '" & TextAlamat.Text & "'," _
& "Telepon='" & TextTelepon.Text & "',KontakPerson = '" & TextKontakPerson.Text & "'," _
& "email = '" & TextEmail.Text & "' WHERE kodeSupplier = '" & TextKode.Text & "'"


Dim command As New SqlCommand(Sql, Module1.Koneksi)

command.ExecuteNonQuery()
Module1.Koneksi.Close()
MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah diupdate", "Update data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)


Call FormKosong()
Call PanggilData()
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False

End Sub

'Prosedur untuk buttonkeluar(keluar program)
Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click
If ButtonKeluar.Text = "&Keluar" Then
Me.Close()
Else
Call FormNormal()
End If
End Sub


‘prosedur untuk loading data ke dataqridview (refresh data, setelah dilakukan query

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call PanggilData()
End Sub


‘ini prosedur yang sangat berperan,karena prosedure ini akan membuat setiap cel yang kita klik pada DatagridView, maka isi dari setiap field akan dikirim kedalam textbox, sehingga kita dapat melakukan manipulasi data.
Prosedure ini mirip dengan Binding manager, Insyallah akan kita bahas pada artikel berikutnya.

Private Sub GridSupplier_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GridSupplier.CellClick

Dim i As Integer
i = GridSupplier.CurrentRow.Index
TextKode.Text = GridSupplier.Item(0, i).Value
TextNama.Text = GridSupplier.Item(1, i).Value
TextAlamat.Text = GridSupplier.Item(2, i).Value
TextTelepon.Text = GridSupplier.Item(3, i).Value
TextKontakPerson.Text = GridSupplier.Item(4, i).Value
TextEmail.Text = GridSupplier.Item(5, i).Value
ButtonHapus.Enabled = True
ButtonUpdate.Enabled = True

End Sub

End Class




Sampai disini dulu artikel tentang Program input dan edit data dengan VB.NET 2005 dan SQL Server 2005, semoga menjadi ilmu yang bermanfaat. Saya sangat mengharapkan saran komentar anda, sehingga membuat ilmu pengetahuan berkembang, Salam programming

@pri

Penghujung Juli 2008, Sarijadi, Bandung

UNDANGAN MABIT (TERBUKA UNTUK UMUM)

12:39 PM

(0) Comments


MASJID RAYA HABIBURRAHMAN PT. DIRGANTARA INDONESIA, BANDUNG


MASJID RAYA HABIBURRAHMAN salah satu masjid di Bandung yang rutin mengadakan MABIT pada minggu ke III setiap bulan, tema yang diusung beragam dan dalam ruang lingkup kajian Al Qur’an.
Ini merupakan cirikhas dari MASJID RAYA HABIBURRAHMAN selalu mengusung tema Al Qur’an karena masjid ini juga merupakan tempat berkumpulnya Santri Tahfidz Qur’an (STQ) dalam rangka menyelesaikan hafalan Al Qur’an dan menimba ilmu seputar islam dan Al Qur’an, di Masjid ini juga setiap malam minggu diadakan Qiyamu Lail 1 juz /malam bersama Santri Tahfizd Qur’an MASJID RAYA HABIBURRAHMAN.

MABIT Bulan ini mengangkat tema :


Antara Da’wah, Ma’isyah dan A’isyah….
Bagaimana Al Quran memandangnya ..??

Ikuti kajiannya bersama :

Ust. Thoriq Hidayat, Lc
KH. Abdul Aziz Abdul Rauf, Lc., Al-Hafidz.

Sabtu 19 Juli 2008 – Ahad 20 Juli 2008

Agenda :
1. Kajian Tafsir
2. Taujih Qur’ani
3. Qiyamu Lail (3 Juz/Malam)
4. Taujih Ba’dah Shubuh


Khusus untuk santri STQ MASJID RAYA HABIBURRAHMAN, kehadiran Antum sekalian sangat di tunggu sebagai tuan rumah. Malam ini juga dimulai pelajaran baru diawal semester untuk semua santri.

apri

Perawatan Kuku

11:42 AM

(1) Comments




Kuku, boleh dibilang “asesoris” yang indah di anugerahkan oleh Allah untuk makhluk khususya manusia. Disain kuku yang indah dan sempurna membuat penampilan semakin menarik.
Untuk mendapatkan kuku yang indah dan bersih diperlukan perawatan khusus, bahkan saat ini sudah ada tempat khusus untuk perawatan kuku.

Namun dalam tulisan ini saya tidak mengulas dimana tempat perawatan kuku yang bagus, cukup dengan bebarapa tips berikut anda bisa melakukan perawatan kuku sendiri dirumah. Terutama bagi ibu-ibu atau remaja putri yang ingin memiliki kuku kaki dan tangan yang bersih dan sehat.

Awal saya ingin melakukan perawatan kuku ini ketika saya pulang kerja saya lihat anak laki-laki saya Muhammad Pascal Prima dan Muhammad Arsy Prima, pulang bermain dengan kawan-kawannya diluar rumah. Saya perhatikan kaki mereka sangat kotor terutama kuku, saya ingat saya pernah membaca artikel tentang kebesihan kuku disebuah majalah wanita, saya lupa nama majalahnya… karena majalah itu saya baca sekitar tahun 1986, majalah itu milik Armahumah ibunda Nur’ain.

Semenjak membaca artikel itu saya selalu mempraktekkan tips yang ada pada artikel majalah tersebut.

Berikut langkah langkah pembersihan kuku.

Bahan dan Alat:

1. Pemotong kuku
2. Baskom kecil
3. Jeruk nipis 3 buah
4. Sikat gigi bekas
5. Pisau dapur


Pmbersihan

1. Potong dulu kuku yang akan dibersihkan
2. Siapkan air secukupnya lalu panaskan sampai suam-suam kuku. (jangan sampai mendidih.. lho….  )
3. Masukkan air yang sudah dipanaskan kedalam baskom
4. Iris iris jerusk nipis lalu peras dalam baskom yang berisi air hangat.

Setelah langkah diatas, rendam kaki anda sekitar 3 sampai 5 menit dalam air hangat yang sudah campur dengan air jeruk nipis, sambil kaki anda direndam usahakan untuk membersihkan kuku anda dengan sikat gigi bekas yang sudah disiapkan, sekali sikat juga dengan kulit jeruk nipis yang ada dalam baskom.
Pada saat kaki anda dalam baskom anda bisa memanjakan kaki anda dengan memijit dengan lembut telapak dan seluruh bagian kaki anda sebagai relaksasi.
Setelah selesai, anda bisa perhatikan kuku anda atau kuku orang-orang kesayangan anda tampak bersih… sekarang saat pemberishan badan total.. Mandi dong …

Selamat mencoba.

sumber gambar : www.kapanlagi.com
free 

counters