Kumpulan Puisi Guratan Hati (4)

DIPECAT

Ketika kejujuran dan kebohongan tak ada lagi sekat
Banyak langkah diayun tanpa sepakat
Yang dalam genggaman bahkan terlumat
Kebersamaan jadi asing.., gelap..kadang menyengat
Hari-hari berselubungkan was-was dan tercekat
Dalam gontai hatipun terpikat, terpikat dan terpikat..
Lalu bermuka dua menjadi beban yang makin berat
Akhirnya nekat
Walau sadar ada yang terhujat..
Dan membuat beberapa keping hati - tersayat
Akupun dipecat,
. dibuang dalam pekat,
. . . Akankah sampai akhir hayat..??
Semoga sanggup bertahan dan tetap kuat..
Menggenggam jati diri seorang Saksi, terus sebagai kiat
Walau sadar ada cacat yang melekat
Yakin kepada yang maha melihat..,
. bahwa dalam hati ini ada tobat dan masih penuh niat


TERKUCIL

Setelah sekian lama terkucil
Jiwa hampir beku dingin menggigil
Mengapa diterima kembali sepertinya musykil..??
Benarkah pintu ampunan tertutup dan jadi mustahil.. ??
Segenap langkahpun tak ada hasil
Asakupun sudah hampir ketitik nihil
Hanya namaMu dengan lirih tetap kupanggil

Namun..
Kujaga agar kasihku tak pudar..
Berjuang agar imanku tak semakin samar..
Tetap bertahan dalam perih dan rasa lapar..
Menanti secercah sinar dengan berusaha tetap tegar..
Karena kuyakin KasihNya masih berpijar..
. untuk membuka hati-hati beku,
. . menjadi terkuak lebar-lebar..
. . . menepis segala gusar..
. . . . dan mulut-mulut yang bisu,
. . . . . . kembali penuh kelakar


MAAF

Bagi setiap yang pernah kusakiti
Kumohon maaf dari dasar hati..
Bukan hasratku sengaja mendera derita..
Atau mencemplungkan kalian dalam petaka..

Aku sekedar manusia biasa..
Yang ternyata lemah dan gampang menyerah..
Bisa jadi aku memang bejat..
Namun yakinlah bahwa itu bukan tabiat..

Tapi jangan minta aku kembali..
Menggeluti hari-hari getir yang tak mungkin kujalani..
Bukan enggan.. tapi memang tak sanggup lagi
Selain kini sudah ada yang disini..
Yang harus kucintai dan kulindungi..

Hanya sebuah ide kecil tentang Tampilan Menu dalam sebuah Aplikasi vFP

Berikut ini contoh tampilan Menu dalam Aplikasi GLS@XP (General Ledger System), yang saya buat dengan cara-cara yang sangat konvensional hanya dengan memanfaatkan Form dan PageFrame plus polas-poles dikit sana-sini (PageFrame digunakan untuk tampilan SubMenu).
Sebagai gambaran, dalam contoh disamping - pada Event ThisForm.Menu2.Click (Laporan) isinya adalah:
MenuKlik="Menu2"
ThisForm.Shape1.Top=(ThisForm.MN2.Top)-8
ThisForm.Shape2.Top=(ThisForm.MN2.Top)
ThisForm.Label1.Caption=UPPER(This.Caption)
ThisForm.Menu1.ForeColor= 0
ThisForm.Menu2.ForeColor= lnColor9
ThisForm.Menu3.ForeColor= 0
ThisForm.Menu4.ForeColor= 0
ThisForm.Menu5.ForeColor= 0
This.Refresh
ThisForm.PageframeMenu.PageOutput.SetFocus
(Klik Gambar untuk melihat gambar yang lebih besar)
Sedikit Penjelasan:
1. Baris ke 1 'MenuKlik' merupakan Variable untuk mengingat Menu mana yang terakhir diKlik agar saat Form Menu dipanggil Cursor dan PageFrame akan langsung mengAktifkan Menu terakhir.
2. Baris ke 2 dan 3 untuk memindahkan Shape ke Menu Utama yang sedang Aktif
3. Baris ke empat mengganti label judul diatas PageFrame agar sama dengan Menu Utama yang sedang Aktif. (Tab PageFrame saya tutupi dengan Label judul tersebut)
4. Baris 5 s/d 9 merubah warna Font Menu Utama: yang sedang aktif dengan warna putih (lnColor9) dan yang tidak sedang dipilih berwarna default (hitam).
5. Baris 11 Untuk mengaktifkan salah satu Page dalam PageFrame yang isinya merupakan Sub Menu dari Menu yang sedang dipilih.

Saya gunakan sebuah PageFrame dengan 5 Page sesuai dengan jumlah MenuUtama.
Entry Data SubMenunya Page1, Laporan SubMenunya di Page2, Master Data SubMenunya di Page3 dst.
Selanjutnya tinggal masukkan saja perintah-perintah sesuai kebutuhan dalam masing-masing Label yang ada dalam tiap Page dalam PageFrame pada Click Event-nya.
Contoh tampilan diatas:
ThisForm.PageFrame.Page2.Label11.Click - isinya: Do Form NrcSaldo
ThisForm.PageFrame.Page2.Label12.Click - isinya: Do Form BukuPemb
ThisForm.PageFrame.Page2.Label2.Click - isinya: Do Form LapKeu
ThisForm.PageFrame.Page2.Label3.Click - isinya: Do Form Audit
ThisForm.PageFrame.Page2.Label4.Click - isinya: Do Form CashFlow
dst.
Beres dah.., kita bisa punya menu sendiri yang uniq sesuai selera kita tanpa harus terpaku pada system menu yang sudah umum digunakan.