Lompat ke konten Lompat ke sidebar Lompat ke footer

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

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


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