Wednesday, June 12, 2013

Sharing Everything From My Experience And Knowlegde

Sharing Everything From My Experience And Knowlegde

Memanfaatkan Property TAG dan Invisible Column untuk Menyimpan Kode/ID/Nomor/Bukti/Urut VBNET

Posted: 11 Jun 2013 10:50 PM PDT

Banyak sahabat DJIESOFT yang bertanya :
1.Bagaimana cara menyimpan kode/primary key tapi tidak ingin tampil di form (hanya nama saja) ?
2.Bagaimana cara menampilkan data tanpa kode (hanya nama saja) tapi dapat diupdate/simpan ?
3.dan pertanyaan lain yang sejenis dengan pertanyaan diatas.
Ok, jika masih bingung lihat gambar dibawah ini :
Nah, asumsinya ini adalah form karyawan : kode, nama, alamat
Nah bagaimana cara mudah dan simple untuk 'menyembunyikan' kode? agar tidak banyak SELECT QUERY hanya untuk mendapatkan kode, menggunakan varible_temp, mengunkan object yg di-visible=false, dan sebagainya. Salah satu cara yang paling mudah adalah dengan menggunakan TAG dan InVisible Column.
OK. Setiap Object di VB6 maupun VBNET Memiliki property TAG. Apa fungsinya ? adalah untuk menyimpan second information (informasi lain) pada suato object. TAG ber-type data OBJECT, jadi anda dapat menyimpan data apa saja pada property TAG ini. Contoh :
TextBox1.TAG = 99
TextBox1.TAG = "ganjil"
TextBox1.TAG = myDataTable ' (DataTable bisa masuk)
TextBox1.TAG = ListView1 ' (Listview bisa masuk)
TextBox1.TAG = myarray ' (Variable Array juga bisa masuk)

TAG ini tidak terlihat, tapi anda dapat menggunakannya secara coding seperti biasa. contoh :
MsgBox Text1.TAG
dim nilai as integer = Text1.TAG

Jadi sudah tahu maksud saya ? TAG ini kita manfaatkan untuk menyimpan Kode/ID/Nomor/Bukti/dll yang tidak ingin terlihat, contoh :
Text1.Text = "Pandji" 'nama karyawan
Text1.TAG = "K001" 'kode karwayan

Jadi pada saat CRUD data :
"INSERT INTO TB_karyawan VALUES ('"+ TxtNama.TAG +"','"+ TxtNama.Text +"','"+ TxtAlamat.Text +"')"

"UPDATE TB_karyawan SET Nama='"+ TxtNama.Text +"',Alamat='"+ TxtAlamat.Text + "' WHERE Kode='"+ TxtNama.TAG + "'"

"DELETE FROM TB_karyawan WHERE Kode='"+ TxtNama.TAG + "'"

OK, jika sudah jelas kita lanjutkan, bagaiman menampikan data-nya pada DataGridView. Tampilkan saja seperti biasa (semua kolom).Contoh :
Dim tbl As New DataTable
Using adp As NewSqlClient.SqlDataAdapter("SELECT KODE,NAMA,ALAMAT FROM TB_Karyawan", conn)
      adp.Fill(tbl)
End Using
DataGridView1.DataSource = tbl
'INI YG PENTING (INVISIBLE COLUMN)
DataGridView1.Columns(0).Visible = False
Sehingga kolom ke-0 ("KODE") tidak terlihat, dan pada saat doubleclick (data naik keatas textbox), contoh :

Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) HandlesDataGridView1.DoubleClick
     WithDataGridView1
         If.Rows.Count = 0 Then ExitSub
         TxtNama.TAG = .CurrentRow.Cells(0).Value
         TxtNama.Text = .CurrentRow.Cells(1).Value
         TxtAlamat.Text = .CurrentRow.Cells(2).Value
     End With
End Sub

Tags:
how to hide column datagridview, pengertian tag vbnet, fungsi tag vbnet, visible false datagridviewcolumn, cara hide kolom datagridview, listivew, event double click datagridview
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)