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

Digzip.com multihost dan benar-benar gratis dan downloads

Kali ini saya akan shared tentang  digzip.com
Situs apa digzip.com ini?

Digzip ini adalah penyedia layanan untuk penyimpanan file gratis sehingga bisa di downloads siapa saja dengan gratis dan mendownloadnya dengan gratis.

    Untuk penyimpanan di Digzip.com ini ukuran maksimum untuk satu file saja bisa mencapai 1000 MB atau 1 GB tidak sama dengan host yang lain hanya memberikan 100 MB

Digzip.com multihost dan benar-benar gratis dan download kemungkinan akan sangat populer.

Digzip.com Gratis hosting file ke dua belas cermin host yang berbeda file gratis (multi host) maksimum 8 mirrors : Rapidshare.com, Megaupload.com, hotfile.com, DepositFiles.com,filefactory.com. Uploading.com. hotfile.com ziddu.com. uploatsttion.com, uploded.com, Zippyshare.com, fileserve.com, wupload.com, easyshare.com dan lainnya

Kecepatan upload dan download di digzip.com ini sangat luar biasa cepat dibandingkan yang lain.

Menyimpan file di digzip bisa di download / di unduh setiap saat dan sesering apa yang kamu mau membutuhkan. Bisa di download 24 jam. Dan tidak pernah file yang anda simpan di digzip.com  akan dihapus. Jadi akan selamanya tersimpan dan ada di digzip.com     Untuk mendownload didigzip.com ini alangkah lebih baik mengunakan browser firefox atau opera.

Digzip.com ini tidak pernah ada antrian atau tidak ada batas dan digzip ini sangat sederhana sekali dan cepat semua total gratis bro !

 Bagaimana menurut kamu mau mencoba ?

Download Free Ribbon Controls VBNET (Membuat Menu Ribbon Style Dengan Mudah)

Sudah tahu ribbon kan? Ribbon mulai diperkenalkan oleh Ms.Office 2007, dimana menu bar standard diganti total dengan menu ribbon. Untuk membuat ribbon di VB6 anda dapat gunakan CodeJock ataupun UserControl(OCX) yang lainnya. Sedangkan untuk VBNET selain menggunakan DevExpress, kita juga dapat menggunakan ini : System.Windows.Forms.Ribbon.dll. Source code original berasal dari bahasa C# dari CodeProject yang saya sudah compile menjadi DLL sehingga anda tinggal menggunakannya saja.

Jika anda ingin membuat project baru dengan menggunakan Ribbon ini, berikut langkahnya :

1.Pada tollbox kita buat Tab baru, caranya klik kanan pada toolbox, Add Tab, beri nama : Ribbon

2.Pada tab Ribbon klik kanan, Choose Items...

3.Browse ke folder ...\djiesoft_vbnet_ribon\djiesoft_vbnet_ribon\bin\Debug\System.Windows.Forms.Ribbon.dll

4.Pastikan CopyLocal = True (Klik DISINI Untuk Penjelasannya)

Pada design form, anda cukup klik add tab, panel, button, dll (sangat mudah, anda cukup edit icon icon nya saja)

Download Full Source Code

Tags:

free download ribbon vbnet, cara membua ribbon di vbnet, komponen ribbon for .net, download ribbon ocx for .net, vbnet ribbon example, contoh ribbon vbnet, membuat menu office 2007 di vbnet, membuat menu ribbon office 2013 di vbnet

Membuat Form Cetak Report/Crystal Report/Active Report (Banyak Filter/Kriteria) Dengan Mudah VBNET

Rasanya sudah hampir 1 minggu lebih saya tidak posting, karena kesibukan saya di kantor. ok, kali ini saya coba share bagaimana cara membuat coding dalam menampilkan report secara singkat dan simple. coba anda lihat form berikut ini :

Gimana banyak sekali kan kriteria nya ? biasanya para programmer paling "MALAS" untuk membuat form ini, karen pastinya akan banyak sekali "IF THEN ELSE". Nah jangan khawatir saya akan coba berbagi bagaimana membuat sintak yang simple/sederhana untuk membangun form Report seperti diatas.

OK, cara simple nya seperti ini (di tombol Preview_Click() ) :

1.Jika anda butuh query untuk Dataset, temporary dan sebagainya

Dim sql As String = ""

sql = "SELECT * FROM BARANG WHERE kd_group={0} and kd_jenis={1} and kd_satuan={2} and kd_merk={3} and kd_warna={4} and kd_ukuran={5} and tanggal_masuk {6}"

sql = String.Format(sql, _

IIf(cbo_group.Text = "ALL", "kd_group", "'" + cbo_group.Text + "'"), _

IIf(cbo_jenis.Text = "ALL", "kd_jenis", "'" + cbo_jenis.Text + "'"), _

IIf(cbo_satuan.Text = "ALL", "kd_satuan", "'" + cbo_satuan.Text + "'"), _

IIf(cbo_merk.Text = "ALL", "kd_merk", "'"+ cbo_merk.Text + "'"), _

IIf(cbo_warna.Text = "ALL", "kd_warna", "'" + cbo_warna.Text + "'"), _

IIf(cbo_ukuran.Text = "ALL", "kd_ukuran", "'" + cbo_ukuran.Text + "'"), _

IIf(chk_tglmasuk.Checked = True, "tanggal_masuk", ">='" + dtp_dari.Value + "'and tanggal_masuk<='" + dtp_sampai.Value + "'") )

2.Jika anda mengunakan CrystalReport dan ingin langsung memakai property SelectionFormula

sql = "{barang.kd_group}={0} and {barang.kd_jenis}={1} and {barang.kd_satuan}={2} and {barang.kd_merk}={3} and {barang.kd_warna}={4} and {barang.kd_ukuran}={5} and  {barang.tanggal_masuk}={6} "

sql = String.Format(sql, _

IIf(cbo_group.Text = "ALL", "{barang.kd_group}", "'" + cbo_group.Text + "'"), _

IIf(cbo_jenis.Text = "ALL", "{barang.kd_jenis}", "'" + cbo_jenis.Text + "'"), _

IIf(cbo_satuan.Text = "ALL", "{barang.kd_satuan}", "'" + cbo_satuan.Text + "'"), _

IIf(cbo_merk.Text = "ALL", "{barang.kd_merk}", "'" + cbo_merk.Text + "'"), _

IIf(cbo_warna.Text = "ALL", "{barang.kd_warna}","'" + cbo_warna.Text + "'"), _

IIf(cbo_ukuran.Text = "ALL", "{barang.kd_ukuran}", "'" + cbo_ukuran.Text + "'"), _

IIf(chk_tglmasuk.Checked = True, "{barang.tanggal_masuk}", ">='" + dtp_dari.Value + "' and {barang.tanggal_masuk}<='" + dtp_sampai.Value + "'") )

Bingung ? ini penjelasannya :
1.jika anda belum mengerti sintak Format.String(), silahkan baca postingan saya DISINI
2.jika anda belum mengerti sintak IIF, silhkan baca postingan saya DISINI
3.intinya adalah jika comboBoxnya=ALL maka query condition adalah nama field itu sendiri, jika ComboBox<>ALL maka seperti biasa.Jadi hasilnya :
A.) Jika Semua ComboBox=ALL dan Checklish=False (tidak pilih tanggal masuk), hasil query (nilai variable sql) adalah :
-Untuk SQL Pertama :

sql = "SELECT * FROM BARANG WHERE kd_group=kd_group and kd_jenis=kd_jenis and kd_satuan=kd_satuan and kd_merk=kd_merk and kd_warna=kd_warna and kd_ukuran=kd_ukuran and tanggal_masuk=tanggal_masuk"

-Untuk SQL Kedua (CrystalReport Selection Formula)
sql = "{barang.kd_group}={barang.kd_group} and {barang.kd_jenis}={barang.kd_jenis} and {barang.kd_satuan}={barang.kd_satuan} and {barang.kd_merk}={barang.kd_merk} and {barang.kd_warna}={barang.kd_warna} and {barang.kd_ukuran}={barang.kd_ukuran} and  {barang.tanggal_masuk}={barang.tanggal_masuk} "

B.) Jika salah satu atau semua ComboBox dipilih isinya (misal saya pilih group='ABC' dan jenis='PAKET' dan sisanya=ALL) dan Checklish=true (pilih tanggal masuk), hasil query (nilai variable sql) adalah :
-Untuk SQL Pertama :

sql = "SELECT * FROM BARANG WHERE kd_group='ABC' and kd_jenis='PAKET' and kd_satuan=kd_satuan and kd_merk=kd_merk and kd_warna=kd_warna and kd_ukuran=kd_ukuran and tanggal_masuk>='2013-06-07' and tanggal_masuk<='2013-06-07'"

-Untuk SQL Kedua (CrystalReport Selection Formula)

sql = "{barang.kd_group}='ABC' and {barang.kd_jenis}='PAKET' and {barang.kd_satuan}={barang.kd_satuan} and {barang.kd_merk}={barang.kd_merk} and {barang.kd_warna}={barang.kd_warna} and {barang.kd_ukuran}={barang.kd_ukuran} and  {barang.tanggal_masuk}>='2013-06-07' and {barang.tanggal_masuk}<='2013-06-07' "

Penasaran ?

coba anda praktekan sendiri , query dibawah ini :

sql = "SELECT NOBUKTI, TGL, KET FROM TRANSAKSI"
akan sama hasilnya dengan
sql = "SELECT NOBUKTI, TGL, KET FROM TRANSAKSI WHERE NOBUKTI=NOBUKTI"

Tags:

mencetak report crystal report, membuat parameter crystal report, membuat kritetia report, cara cepat membuat report, cara filter cepat, membuat ALL di combobox, membuat pilihan ALL/ semua di combobox,