Membuat Jaringan Tree di SQL

           Bagaimana jika ada kasus untuk membuat sebuah jaringan model tree di Tabel dalam satu kolom? Jawaban dari kasus diatas sangat bervariasi, untuk kali ini penulis akan memaparkannya dengan menggunakan fungsi LPAD bawaan dari SQL. Secara teknis berikut adalah contoh kasus yang pernah penulis hadapi, yaitu membuat fungsi tree untuk menampilkan data dari sistem organisasi dari sebuah institusi, bagaimana tabel yang diharapkan, gambar berikut adalah tabel yang diharapkan dan beserta script SQLnya dan penjelasannya  :

SELECT Level AS "Hirarki Data",    LPAD(' ',3*(LEVEL-1) )||a.Nama_Anak as "Nama Unit Kerja"
FROM Nama_Skema.Nama_Tabel a
CONNECT BY PRIOR  a.Kode_Anak IN (a.Kode_Induk)
START WITH a.Kode_Anak IN (SELECT a.Kode_Anak FROM Nama_Skema.Nama_Tabel
WHERE a.Kode_Induk IS NULL );

Dan berikut adalah penjelasan dari script diatas :

1. SELECT Level AS "Hirarki Data",  Maksudnya yaitu menampilkan hirarki data dengan mengaliaskan nama kolomnya dengan nama "Hirarki Data".
2. LPAD(' ',...,...), Left PAD adalah suatu fungsi yang dimiliki Query SQL yang menangani masalah hirarki data, secara umum fungsi ini digunakan untuk untuk menambahkan karakter padding ke sisi kiri string sampai panjang tertentu, dengan default karakter Pad berupa spasi.
3. LEVEL-1, adalah suatu  algoritma yang menyatakan adanya pengurangan nilai 1 terhadap data LEVEL, dalam hal ini maksudnya pada kolom Hirarki Data nilainya akan berkurang 1 jika script dijalankan.
4. 3*(LEVEL-1), maksudnya memberikan jumlah string sesuai dengan hasil dari algoritma Level-1           ( Contoh Jika hasil Level-1 adalah 1 maka jumlah string di sisi kiri string sebanyak 3 karakter.)
5. Connect By Prior adalah  Sebuah kondisi yang mengidentifikasikan mengenai hubungan antara baris induk dan baris anak secara hirarki.
6. Start With  maksudnya,  Menetukan kondisi yang mengidentifikasikan baris string untuk digunakan sebagai root string dari hirarki query.
7. " ...||a.Nama_Anak as "Nama Unit Kerja"... ", penggabungan string dengan mengaliaskan nama kolom dengan nama "Nama Unit Kerja".

Demikian Artikel mengenai membuat jaringan tree di SQL, semoga bermanfaat.. Amin

Posted By adminblog14:29

Baca Selengkapnya

Activex Control, Ms ProgressBar Control di Visual Fox Pro

Activex Control, Ms ProgressBar Control

Semoga tidak bosan dengan tema ProgressBar, dalam tulisan ini beberapa hari yang lalu penulis iseng-iseng dan sempat bertanya-tanya dalam hati “bagaimana suatu ProgressBar dapat di aktifkan melalui suatu command button, dan menampilkan pesan proses loading, apakah itu bisa…??? “, Alkhamdullilah pertanyaan tersebut terjawab setelah penulis bertanya ke paman penulis sebut saja “Uncle Google”…
Ehmm kembali ke tema diatas, konsepnya sederhana yaitu menyisipkan script dari proses progressbar dan memanggila pengaktifkan pesan tunggu, penyisipan script tersebut disisipkan di command button yang kita kehendaki, sebut saja dalam tulisan ini commandbutton dengan nama object = oCmdProsess, Procedure = Click.
Untuk scriptnya kurang lebihnya yaitu sebagai berikut :
**!** Procedure Click, oCmdProses **!**
Counter=0  &&& tipe data integer , add new property “counter”
DIME proses(100)  &&& tipe data string
**!** oPB adalah nama property dari object ProgressBar **!**
THISFORM.oPB.MIN =1
THISFORM.oPB.MAX=ALEN(proses)
THISFORM.oPB.VISIBLE = .T.
*!*    ‘Menyeting Nilai progress ke nilai minimum **!**
THISFORM.oPB.VALUE = THISFORM.oPB.MIN
*!* ‘Proses Loop **!**
FOR Counter = 1 TO 100 STEP +.001
WAIT WINDOW NOWAIT “Sedang Memproses Data…” && Pesan Tunggu
*!* ‘Menyeting Nilai inisial untuk masing-masing item di arary **!**
proses(Counter) = “”+ STR(Counter)
THISFORM.oPB.VALUE = Counter
ENDFOR
THISFORM.oPB.VISIBLE = .T. && jika .F. maka setelah progress selesai akan tidak nampak / hiden
THISFORM.oPB.VALUE = THISFORM.oPB.MIN
Semoga bermanfaat, aminn

Posted By adminblog13:19

Baca Selengkapnya

Peran Orang Tua Terhadap Kelahiran Anak Pertama

Kelahiran seorang anak merupakan suatu kebahagiaan tersendiri bagi seorang bapak dan bagi ibu yang melahirkan, hal utama yang akan diminta adalah keselamatan dan kesehatan dari anak yang dilahirkan. Tak lepas dari itu maka rasa syukur dan perlakuan mensyukuri atas nikmat dan rejeki yang

telah diberikan oleh Alloh swt tidak luput harus dilakukan, pertanyaannya yaitu dalam bentuk apa seorang bapak dan ibu dalam mensyukuri nikmat

yang sangat agung ini??

Mungkin bagi yang mendiami tanah jawa akan menjadi dilematis tersendiri dalam hal mengekspresikan rasa syukur yang begitu agung ini, kebimbangan diantara mengikuti tradisi jawa atau menjalankan syariat terhadap agama yang dianutnya. Semoga dalam kajian ini dapat memberikan pencerahan bagi bapak dan ibu yang saat ini sedang dan akan mendapatkan karunia rizki yang sangat agung ini. Berikut kajiannya :

Posted By adminblog10:15

Baca Selengkapnya

Relasi Komponen Combobox didalam Komponen dBGrid

    Sudah lama tidak memposting artikel, mungkin karena rutinitas yang begitu menelan waktu. Alkhamdullilah saat ini masih bisa diberikan kesempatan untuk memposting artikel, karena adanya permintaan dari teman yang menanyakan mungkin apa ga sich memasukan combobox di dbGrid tanpa seabreg koding-koding yang rumit??? Jawabnya insyaAlloh bisa jika dicoba.

Benar sekali setelah penulis mencoba untuk menanyakan ke mbah google yang didapat rata-rata solusi dengan seabrek koding yang memusingkan :-(, akan tetapi kali ini penulis mencoba untuk menuliskan jawaban dari pertanyaan teman penulis dengan melakukan ekperimen.

Berikut langkah-langkahnya :

1.  Sedapat mungkin koneksi komponen, datasource telah terhubung dengan baik, untuk penulis mencoba menggunakan komponen koneksi ke dB Oracle.

2. Buatlah suatu relasi dan isikan items-items di combobox yang akan ditempatkan ke dbGrid penulis menguji menggunakan dua buah combobox yaitu dengan nama cbNomor dan cbVersi dimana cbNomor nantinya akan direlasikan dengan kolom No. di dbGrid, dan cbVersi akan nantinya akan direlasikan di kolom

Posted By adminblog15:30

Baca Selengkapnya