Kali ini saya akan coba jelaskan cara penggunaan komponen JanusGrid pada VS2010 dengan menggunakan Database MySQL.
Pada tutorial ini saya anggap anda sudah mengerti bagaimana koneksi .Net dengan MySQL, oleh karena itu langsung saja kita kupas tuntas judul diatas.Pertama-tama silahkan bikin Form baru untuk mencobanya, saya asumsikan nama Form nya adalah Form1. Kemudian tarik component GridEx kedalam Form1 tersebut, dan sesuaikan ukuran grid yang anda kehendaki.
Kemudian tambahkan komponen lain sehingga tampak seperti gambar dibawah ini.
Properti komponen.
Nama | Label / Text
Texbox1 -> Label = Kode
Texbox2 -> Label = Kode
Texbox3 -> Label = Kode
Button1 -> Simpan
Button2 -> Baru
Button3 -> Tutup
GridEx -> GridTampil
Ok, jika sudah anda harus membuat atau memilih tabel yang sesuai untuk digunakan pada contoh diatas. Dan jika belum membuat silahkan eksekusi script berikut pada MySQL untuk membuat tabel nya. :
CREATE TABLE `test` (
`kode` varchar(20) DEFAULT NULL,
`nama` varchar(20) DEFAULT NULL,
`telp` varchar(20) DEFAULT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
Imports System
Imports System.Data
Imports MySql.Data.MySqlClient
Imports Janus.Windows.GridEX
Imports TesDoang.ClsConnDB
Lalu buatlah perintah untuk memuat tabel database pada Grid (janus).
Private Sub SetTabel()
Dim strSql As String = "SELECT * FROM test"
Dim dtTabel As New DataTable
dtTabel.Clear()
Try
Dim dtAdapter As New MySqlDataAdapter(strSql, ConnDB)
dtAdapter.Fill(dtTabel)
With GridTampil
.SetDataBinding(dtTabel, "")
End With
Catch ex As Exception
MsgBox("Error SetTabel" & vbCrLf & ex.Message)
Err.Clear()
End Try
End Sub
Kemudaian tambahkan root tabel dan masukan nama-nama kolom.
Pilih column pada root tabel yang baru ditambah tadi dan klik add untuk menambahkan nama kolom tabel
Tambah nama kolom, pada area yang dilingkari kemudian klik finish
ulangi untuk kolom-kolom lainya yang hendak ditampilkan pada Grid. Jika selesai dan benar maka tampilan tersebut akan seperti ini pada Form1.
ok, selesai. Memang sedikit repot, tapi jika anda mengeksplorasi fungsi-fungsi lainya JanusGrid sudah lebih dari cukup untuk membuat Grid anda tampak indah dan tentunya canggih pula. Seperti gambar dibawah ini contoh nya
Balik ke topik. Untuk mengambil nilai dari Grid tersebut anda tinggal mengambil dari properti GetValue grid tersebut. Contoh :
TextBox1.Text = GridTampil.GetValue(0).ToString
TextBox2.Text = GridTampil.GetValue(1).ToString
TextBox3.Text = GridTampil.GetValue(2).ToString
Kolom pertama dari kiri mempunyai nili index 0 (nol).
Dan perintah perintah lainya untuk tombol-tombol yang ada pada Form1 yang sudah anda buat adalah dibawah ini.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SetDefault()
End Sub
Private Sub SetDefault()
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
SetTabel()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strSql As String = "INSERT INTO test (kode,nama,telp) VALUES ('" & _
TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
Try
Dim cmd As New MySqlCommand(strSql, ConnDB)
cmd.ExecuteNonQuery()
cmd.Dispose()
ConnDBClose()
SetDefault()
MsgBox("Simpan Data Berhasil")
Catch ex As Exception
MsgBox("Wah error gan" & vbCrLf & ex.Message)
Err.Clear()
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SetDefault()
TextBox1.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Selesai sudah, maaf kalo huruf nya agak membingungkan karena keterbatasan waktu jua lah yang menyebabkan hal tersebut terjadi. Tapi kalau di copy-paste ke dalam project .Net anda pasti enak dilihat... :D
Terima kasih, semoga bermanfaat.
