Categories
Microsoft Windows Software

CRUD User Interface dengan VB .Net

 

Pada artikel berikut saya ingin berbagi cerita mengenai CRUD User Interface yang terbukti efektif dan gampang digunakan paling tidak di kantor tempat saya bekerja. Seperti sudah banyak diketahui ketika kita membuat sebuah aplikasi komputer yang berhubungan dengan database, maka hampir tidak mungkin akan lepas dengan namanya CRUD (Create Read Update Delete).

Sebelumnya perkenalkan nama saya Hendrawan, dan saat ini saya tinggal di Brebes, ketikan berikut adalah tulisan pertama saya di neoteker.co.id, saya juga ingin mengucapkan banyak terima kasih untuk saudara clowner yang telah memberi saya kesempatan untuk berbagi cerita di web ini.

 

Baiklah… mari kita mulai Tutorialnya…

  • Untuk memulai pembuatan User Interface langsung saja buat sebuah project baru dengan nama “CrudUI”

Untuk catatan, dalam ketikan berikut saya menggunakan component tambahan yaitu DevExpress sebagai component pendukung dalam pembuatan Interface. Sebenarnya tanpa menggunakan DevExpress-pun component bawaan dari Visual Studio sudah mencukupi, tapi karena sudah kadung nyaman menggunakan DevExpress agak kesulitan menggunakan component bawaan Visual Studio.

  • Buat sebuah Form yang berisi component-component seperti gambar berikut :
  • Buat sebuah database dan buat sebuah tabel dengan nama “Gaji”, dengan DDL sebagai berikut :

CREATE TABLE [dbo].[Gaji] (

  [ID] int IDENTITY(1, 1) NOT NULL,

  [MasaKerja] int NOT NULL UNIQUE,

  [Besar] money NOT NULL,

  PRIMARY KEY CLUSTERED ([ID])

)

GO

Untuk catatan saya menggunakan MS SQL server sebagai DBMS-nya

Setelah semua persiapan awal selesai sekarang masuk ke bagian Write The Code. Untuk mengkoneksikan aplikasi dengan database saya mempunyai sebuah class template yang saya pakai di semua aplikasi buatan saya. Class tersebut hanya berisi code untuk membuat koneksi, dan menutup koneksi database. Untuk membuat class tersebut, buat class baru dengan nama “DbConnection”

Code untuk Class “DbConnection” bisa dilihat pada file ini.

Setelah Class DbConnection berhasil dibuat, sekarang kita akan membuat sebuah Class yang akan berfungsi memanajemen semua kegiatan yang berhubungan dengan CRUD. Buat Class baru dengan nama “GajiLogic”

Code untuk Class GajiLogic bisa dilihat pada file ini.

Sampai dengan tahap ini bagian View dan Logic sudah selesai dilakukan. Agar aplikasi dapat berinteraksi dengan pengguna maka kita harus menambahkan baris program yang akan memanggil logic yang bersesuaian dengan tombol yang dipilih oleh pengguna.

Untuk menambah data tambahkan baris berikut :

        Try

MasaKerja = Trim(TextEditMasaKerja.Text)

Besar = Trim(TextEditBesar.Text)

 

GajiLogicConnection.Data(MasaKerja, Besar)

 

If Not GajiLogicConnection.InsertData Then

DevExpress.XtraEditors.XtraMessageBox.Show(GajiLogic.ConnException.Message.ToString)

Else

DevExpress.XtraEditors.XtraMessageBox.Show(“Insert Data Berhasil”)

ClearForm()

End If

ShowDataOnGrid()

Catch ex As Exception

DevExpress.XtraEditors.XtraMessageBox.Show(“Data gagal dimasukan”)

End Try

Untuk Merubah data tambahkan baris berikut :

Try

MasaKerja = Trim(TextEditMasaKerja.Text)

Besar = Trim(TextEditBesar.Text)

 

GajiLogicConnection.Data(MasaKerja, Besar)

 

If Not GajiLogicConnection.UpdateData(Id) Then

DevExpress.XtraEditors.XtraMessageBox.Show(GajiLogic.ConnException.Message.ToString)

Else

DevExpress.XtraEditors.XtraMessageBox.Show(“Update Data Berhasil”)

ClearForm()

End If

ShowDataOnGrid()

Catch ex As Exception

DevExpress.XtraEditors.XtraMessageBox.Show(“Data gagal dimasukan”)

End Try

Untuk menghapus data tambahkan baris berikut :

Try

If DevExpress.XtraEditors.XtraMessageBox.Show(“Anda ingin menghaspus data”, “”, MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = DialogResult.OK Then

If Not GajiLogicConnection.DeleteData(Id) Then

DevExpress.XtraEditors.XtraMessageBox.Show(GajiLogic.ConnException.Message.ToString)

Else

DevExpress.XtraEditors.XtraMessageBox.Show(“Delete Data Berhasil”)

ClearForm()

End If

ShowDataOnGrid()

End If

Catch ex As Exception

DevExpress.XtraEditors.XtraMessageBox.Show(“Data gagal dimasukan”)

End Try

Untuk Code lengkap dapat didownload pada file ini.

.eof

nb : Untuk pertanyaan, kritik, pujian dll silahkan komen disini, semoga Bung Hendrawan ada waktu untuk menjawab.

One reply on “CRUD User Interface dengan VB .Net”

Leave a Reply

Your email address will not be published. Required fields are marked *