Flashdisk Rusak jangan dibuang

Teman-teman punya Flasdisk yang rusak, gara-gar kena Mr. VIRUS, Flasdiksk ndak terbaca di OS (Sistem Operasi maksudnya choy...), Flashdisk ndak bisa diformat ulang. Tenang aja...... jangan buru-buru dibuang. Serahkan saja pada ahlinya..........(chiee.... Kayak Profesor aja..).

MITRA DATA SEJAHTERA Melayani :
* SpesialisRepair Flasdisk
* Spesialis membuat file presentasi dengan Flash Player
* Sofware Development (Mini Market, Apotek, Rumah Sakit, Sekolah, ..dll)

CP : Triyono 081804473331, mastri.08@gmail.com

Read more »

Microsoft Cetak Rekor Berkat Windows 7

San Francisco - Larisnya sistem operasi Windows 7 membuat Microsoft mencatat lonjakan laba sebesar 60 persen. Jumlah keuntungan yang mencapai US$ 6,6 miliar tercatat sebagai rekor perusahaan.

Itulah yang terungkap dalam catatan keuangan periode kuartal kedua fiskal Microsoft, yang berakhir 31 Desember 2009. Jumlah pendapatan total yang diraih mencapai US$ 19,02 miliar, peningkatan 14 persen dari periode yang sama di tahun sebelumnya.

Microsoft pun mengklaim Windows 7 adalah sistem operasi dengan penjualan tercepat dalam sejarah perusahaan. Tercatat sebanyak 60 juta lisensi Windows 7 telah terjual di seluruh dunia.

"Kami menyaksikan rekor keuntungan dan pendapatan, dipicu permintaan besar untuk Windows 7 dan PC," ucap Peter Klein, Chief Financial Officer Microsoft yang dikutip detikINET dari AFP, Jumat (29/1/2010).

Namun tak semua produk Microsoft menggapai sukses. Penjualan Microsoft Office misalnya, menurun 2,9 persen. Penjualan Xbox dan produk hiburan lain juga anjlok 9,7 persen.

Namun Microsoft optimistis menghadapi ketatnya persaingan di tahun 2010. Tahun ini, Microsoft antara lain berencana merilis software andalannya, Microsoft Office 2010. ( fyk / faw )
sumber : detik.com

Read more »

Pengumuman Dari Kampus Tercinta

Teman-temanku kelas D yang sangat saya banggakan, Ayo bangkit lagi untuk kuliah dan kuliah, terus semangat, jangan loyo....
Ini Saya sampaikan jadwal KRS -san kelas D :

1. Registrasi dimulai tanggal 1 - 5 Januari 2010 di BAUK Politeknik Indonusa Surakarta
2. Yudisium dan pengisian KRS khusus Pembimbing Akademik Bp Edy Susena MI (5) D hari Kamis, 4 Pebruari 2010 Jam 17:00-18:00
3. Kuliah semester 2 dan 5 dimulai Senin, 8 Pebruari 2010 sesuai dengan jadwal.

Mohon Sebarkan Pada teman-teman yang lain.
Terima kasih.


Sumber : vnet-edy.blogspot.com

Read more »

Contoh Source Code Membuat File Setup Aplikasi DELPHI + MySQL Menggunakan INNO SETUP

[Setup]
AppName=Sistem Pembelian Bahan Baku PT. ALBASI
AppVerName=Sistem Pembelian Bahan Baku PT. ALBASI Versi 1.0.0.50
AppPublisher=K4m4r82's Laboratory
AllowCancelDuringInstall = yes
DefaultDirName={pf}\PT ALBASI
DefaultGroupName=PT ALBASI
Compression = lzma

SolidCompression = yes
OutputBaseFilename=SetupAlbasiServer
AllowNoIcons = yes
AlwaysRestart = no
AlwaysShowComponentsList = no
DisableProgramGroupPage = yes
AppendDefaultDirName = yes
CreateUninstallRegKey = yes
DisableStartupPrompt = yes
LanguageDetectionMethod=none
ShowLanguageDialog=no
Uninstallable = yes
UninstallFilesDir={app}\uninst
UninstallDisplayIcon={app}\Albasi.exe,0
UninstallDisplayName=Sistem Pembelian Bahan Baku PT. ALBASI
WindowVisible = no
AppCopyright=Copyright © 2009. K4m4r82's Laboratory
FlatComponentsList = yes
PrivilegesRequired = admin
VersionInfoVersion=1.0.0.50
SetupIconFile=Setup.ico
WizardImageFile=SetupModern21.bmp
WizardSmallImageFile=SetupModernSmall21.bmp

[Languages]
Name: ina; MessagesFile: compiler:Indonesia.isl
Name: en; MessagesFile: compiler:Default.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: installmysql; Description: "Install MySQL"; GroupDescription: "Proses tambahan:"; Flags: checkedonce

[Files]
;Visual Basic Runtime
Source: dll&ocx\VB6STKIT.DLL; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\COMCAT.DLL; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\stdole2.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib
Source: dll&ocx\asycfilt.dll; DestDir: {sys}; Flags: uninsneveruninstall onlyifdoesntexist
Source: dll&ocx\olepro32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\oleaut32.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\msvbvm60.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist

;daftar file MySQL
Source: mysql-5.1.36-win32\bin\*; DestDir: {app}\mysql\bin; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\Docs\*; DestDir: {app}\mysql\Docs; Flags: ignoreversion; Tasks: installmysql
Source: mysql-5.1.36-win32\lib\*; DestDir: {app}\mysql\lib; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\share\*; DestDir: {app}\mysql\share; Flags: ignoreversion recursesubdirs; Tasks: installmysql
Source: mysql-5.1.36-win32\data\*; DestDir: {app}\mysql\data; Flags: ignoreversion recursesubdirs uninsneveruninstall; Tasks: installmysql
Source: mysql-5.1.36-win32\*; DestDir: {app}\mysql; Flags: ignoreversion; Tasks: installmysql

;daftar file MySQL ODBC 5.1
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.dll"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.dll"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5.lib"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc5S.lib"; DestDir: {sys}; Flags: onlyifdoesntexist
Source: "C:\Program Files\MySQL\Connector ODBC 5.1\myodbc-installer.exe"; DestDir: {sys}; Flags: onlyifdoesntexist

;My Application Runtime
Source: main\Albasi.exe.manifest; DestDir: {app}; Flags: ignoreversion
Source: main\Albasi.exe; DestDir: {app}; Flags: ignoreversion
Source: main\albasi.sql; DestDir: {app}\mysql\bin; Flags: ignoreversion
Source: main\exec.cmd; DestDir: {app}\mysql\bin; Flags: ignoreversion

Source: dll&ocx\MSMASK32.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cTreeOpt6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\Comdlg32.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalDTab6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCT2.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MyTextBox.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\LVbuttons.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalExpBar6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\MSCOMCTL.OCX; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalIml6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cPopMenu6.ocx; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\cNewMenu6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\scrrun.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\vbalMDITabs6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist
Source: dll&ocx\SSubTmr6.dll; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regserver onlyifdoesntexist

Source: dll&ocx\msado21.tlb; DestDir: {sys}; Flags: uninsneveruninstall sharedfile regtypelib

[Icons]
Name: {group}\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}
Name: {userdesktop}\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Sistem Pembelian Bahan Baku PT. ALBASI; Filename: {app}\Albasi.exe; WorkingDir: {app}; Tasks: quicklaunchicon

[INI]
Filename: {app}\mysql\my.ini; Section: mysqld; Key: basedir; String: {app}\mysql; Tasks: installmysql
Filename: {app}\mysql\my.ini; Section: mysqld; Key: datadir; String: {app}\mysql\data; Tasks: installmysql

Filename: {app}\infoProgram.ini; Section: Sistem; Key: serverName; String: "127.0.0.1"
Filename: {app}\infoProgram.ini; Section: Sistem; Key: dbName; String: "albasi"

[Run]
;install service MySQL
Filename: "{app}\mysql\bin\mysqld.exe"; Parameters: "install ""MySQL"""; StatusMsg: "Sedang menginstall service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2; Tasks: installmysql

;jalankan service MySQL
Filename: {sys}\net.exe; Parameters: "start ""MySQL"""; StatusMsg: "Sedang menjalankan service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381; Tasks: installmysql

;mendaftarkan port default mysql (3306) ke firewall
Filename: "{sys}\netsh.exe"; Parameters: "firewall add portopening TCP 3306 ""Port MySQL"""; StatusMsg: "Sedang mendaftarkan port MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{sys}\netsh.exe"; Parameters: "firewall set service type = fileandprint mode = enable"; StatusMsg: "Mengaktifkan File and Printer Sharing ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;mengganti password default root (blank). ex : masterkey
Filename: "{app}\mysql\bin\mysqladmin.exe"; Parameters: "-uroot password masterkey"; StatusMsg: "Mengganti password root"; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;menghapus user default1 (user=blank, password=blank)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""DELETE FROM mysql.user WHERE Host='localhost' AND User=''"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;menghapus user default2 (user=root, password=blank)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""DELETE FROM mysql.user WHERE Host='127.0.0.1' AND User='root'"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;set agar user root bisa login dari mesin lain (kalo diperlukan)
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""GRANT ALL PRIVILEGES ON *.* TO root@'%' IDENTIFIED BY 'masterkey'"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""FLUSH PRIVILEGES"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;membuat database kosong
Filename: "{app}\mysql\bin\mysql.exe"; Parameters: "-uroot -pmasterkey -e ""CREATE DATABASE albasi"""; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;menjalankan file batch exec.cmd untuk melakukan proses undump
Filename: "{app}\mysql\bin\exec.cmd"; Flags: runhidden; MinVersion: 0,5.01.2600sp2

;install driver myodbc
Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -a -n ""MySQL ODBC 5.1 Driver"" -t ""DRIVER=myodbc5.dll;SETUP=myodbc5S.dll"""; StatusMsg: "Tunggu sedang mendaftarkan driver MySQL Connector ODBC 5.1.5"; Flags: runhidden

[UninstallRun]
Filename: {sys}\net.exe; Parameters: "stop ""MySQL"""; StatusMsg: "Menghentikan Service MySQL ..."; Flags: runhidden; MinVersion: 0.0,4.0.1381
Filename: "{app}\mysql\bin\mysqld.exe"; Parameters: "remove ""MySQL"""; StatusMsg: "Sedang menghapus service MySQL ..."; Flags: runhidden; MinVersion: 0,5.01.2600sp2

Filename: "{sys}\myodbc-installer.exe"; Parameters: "-d -r -n ""MySQL ODBC 5.1 Driver"""; StatusMsg: "Tunggu sedang menghapus driver MySQL Connector ODBC 5.1.5"; Flags: runhidden

[UninstallDelete]
Type: files; Name: {app}\mysql\bin\*.*
Type: files; Name: {app}\mysql\Docs\*.*
Type: files; Name: {app}\mysql\lib\*.*
Type: files; Name: {app}\mysql\share\*.*

Type: files; Name: {sys}\myodbc5S.dll
Type: files; Name: {sys}\myodbc5S.lib
Type: files; Name: {sys}\myodbc5.dll
Type: files; Name: {sys}\myodbc5.lib
Type: files; Name: {sys}\myodbc-installer.exe

[Registry]
;mencatat lokasi instalasi program, ini dibutuhkan jika kita ingin membuat paket instalasi update
Root: HKCU; Subkey: "Software\PT ALBASI\SPBB"; ValueName: "installDir"; ValueType: String; ValueData: {app}; Flags: uninsdeletevalue



Sumber :http://coding4ever.wordpress.com/

Read more »

Membuat Alias Otomatis

Dibawah ini adalah Contoh Sourcecode Pembuatan alias otomatis pada pemrograman DELPHI, Cocok untuk kita yang sering-sering pindah komputer saat ngerjakan tugas-tugas delphi (maklum belum punya komputer sendiri....? , sehingga ketika Flashdisk kita tancapkan program kita langsung on, ndak usah nyeting-nyeting alias lagi.

procedure TForm1.FormCreate(Sender: TObject);
var
   AliasBaru, Path : string;
begin
   Path := ExtractFilePath (Application.ExeName) + 'db';
   AliasBaru := 'DBInventory'; // nama alias yang akan dibuat
   // untuk mengecek apakah nama alias sudah ada atau belum
   if not Session.IsAlias(AliasBaru) then
   begin
      //jika belum ada maka tambahkan nama alias
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end
   else
   begin
      // jika sudah ada, hapus dulu
      Session.DeleteAlias(AliasBaru);
      Session.AddStandardAlias (AliasBaru, Path, 'PARADOX');
   end;

   // menyimpan nama alias pada file konfigurasi
   Session.SaveConfigFile;
end;

Sumber : www.klik-kanan.com

Read more »

Laporan Aplikasi Delphi Format Excel

Adakalanya kita membutuhkan laporan data dalam bentuk format file excel, yang mana laporan tersebut biasanya merupakan hasil dari sebuah query. Agar hal tersebut bisa kita lakukan, maka kita bisa menggunakan komponen tambahan yaitu ExcelExport yang dengan mudah kita bisa tambahkan ke component pallete dengan menginsallnya melalui menu Component >> Install Packages.

Langkah-langkahnya :
1. Tambahkan komponen scExcelExport pada form yang akan ada fasilitas untuk export ke excel
2. Tambahkan sebuah button untuk tombol export. Dan ketikkan code berikut, pada event onclick button tersebut.
(Misalkan kita akan mengeksport ke excel data beban mengajar dosen).

procedure Tflapbebanajar.BEksporClick(Sender: TObject);
begin
try
scExcelExport1.ExcelVisible:=True;
scExcelExport1.LoadDefaultProperties;
scExcelExport1.Dataset:=Qbebanajar; //nama komponen query
scExcelExport1.WorksheetName:=’Beban Mengajar Dosen’; //judul sheet
scExcelExport1.ConnectTo := ctNewExcel;

scExcelExport1.HeaderText.Text:= ‘BEBAN MENGAJAR DOSEN ‘;
scExcelExport1.HeaderText.Add(’FAKULTAS SAINS DAN TEKNOLOGI’);
scExcelExport1.BeginRowTitles:=5; //mulai baris data
scExcelExport1.ExportDataset;
finally
scExcelExport1.Disconnect;
end;
end;

Read more »

Koneksi MySQL dengan Delphi Menggunakan ADO

When using "ODBC 3.51 LOCAL database":

'DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=myDatabase; USER=myUsername; PASSWORD=myPassword;OPTION=3;'

When using "ODBC 3.51 REMOTE database":

'DRIVER={MySQL ODBC 3.51 Driver}; SERVER=data.domain.com; PORT=3306; DATABASE=myDatabase; USER=myUsername; PASSWORD=myPassword; OPTION=3;'

When using "ODBC 5.0 LOCAL database":

'DRIVER={MySQL Connector/ODBC v5}; SERVER=localhost; DATABASE=myDatabase; UID=myUsername; PASSWORD=myPassword;OPTION=3;'

When using "ODBC 5.0 REMOTE database":

'DRIVER={MySQL Connector/ODBC v5}; SERVER=data.domain.com; PORT=3306; DATABASE=myDatabase; UID=myUsername; PASSWORD=myPassword;OPTION=3;'

Read more »

Sang Ibu

dakwatuna.com – Malam itu, malam tahun baru 1431 hijriah. Aku diundang untuk mengisi muhasabah di masjid Al-Ittihad Tebet Jakarta Selatan bersama seorang penyair terkemuka Bapak Taufik Ismail. Ini untuk yang kedua kalinya aku bersama Pak Taufik setelah sebelumnya aku bersama beliau diundang untuk acara muhasabah 60 tahun Bakrie di Rasuna Said. Seperti biasanya Pak Taufik membacakan puisinya. Di antara puisi yang beliau bacakan ada satu puisi tentang ibu...

ku tidak ingat secara harfiah isi puisi tersebut, tetapi aku terkesan dengan kedalaman isinya dalam menggambarkan betapa tak terhingga kasih sayang seorang ibu terhadap anaknya. Karenanya banyak para penyair menulis puisi tentang ibu. Di antara juga yang pernah saya baca D. Zawawi Imran. Aku masih ingat sebagian ungkapan yang ditulis Pak Zawawi. Di antaranya: ”Seandainya aku ikut ujian, dan aku ditanya tentang pahlawan, akan ku jawab ibuku.”
Benar, ibu adalah pahlawan. Tidak ada seorang pun yang paling berjasa kepada kemanusiaan melebihi jasa seorang ibu. Karenanya dalam Al-Qur’an Allah swt. tidak segan menceritakan perih dan lelah seorang ibu saat hamil dan menyusui. Dalam surah Luqman:14, Allah berfirman: ”Dan Kami perintahkan kepada manusia supaya (berbuat baik) kepada dua orang ibu-bapaknya; ibunya telah mengandungnya dalam keadaan lemah yang bertambah-tambah, dan menyapihnya dalam dua tahun. Bersyukurlah kepada-Ku dan kepada dua orang ibu bapakmu, hanya kepada-Kulah kembalimu.”

Perhatikan ayat ini, dibuka dengan perintah agar berbuat baik kepada ibu bapaknya, setelah itu Allah menceritakan secara khusus tentang capeknya seorang ibu ketika mengandung anaknya. Sementara capeknya ayah tidak diceritakan. Silahkan cari dalam Al-Qur’an maupun hadits kalau pernah disebut mengenai capeknya seorang ayah. Sungguh hanya sang ibu yang banyak disebut. Bahkan dalam sebuah hadits yang sangat terkenal, Rasulullah saw. ketika ditanya: ”Kepada siapa aku harus berbuat baik? Beliau tidak segan menjawab tiga kali berturut-turut agar itu dilakukan kepada ibu, lalu kepada bapak.”
Namun sayang, banyak anak begitu mudah melupakan jasa besar sang ibu. Kalau pun berbuat baik cenderung perbuatan itu semata basa-basi, datang setahun sekali menemuinya di hari raya. Basa-basi mencium tangannya dan lain sebagainya, sementara pesan-pesannya yang baik tidak dipatuhi. Banyak para ibu yang merindukan anaknya agar mentaati Allah swt. Namun banyak anak yang justeru membalas kebaikan ibunya dengan berbuat maksiat kepada-Nya. Sungguh ini suatu kedurhakaan.

Tidak ada artinya kebaikan seorang anak kepada ibunya secara material, sementara ia selalu berbuat maksiat kepada Allah. Karenanya banyak para ulama mengatakan: ”Pengabdian seorang anak yang paling baik bagi orang tuanya adalah menjadikan dirinya sebagai anak yang saleh.” Inilah rahasia hadits Rasulullah saw. yang berbunyi: ”Waladun shaalihun yad’u lahuu (anak yang shaleh yang selalu mendoakan untuk orang taunya).” Perhatiakan kata shalih dalam teks hadits tersebut. Ini untuk menegaskan bahwa hanya anak yang shalih yang benar-benar akan memberikan kebahagiaan bagi orang tuanya: bahagia secara material maupun secara spiritual. Sementara anak durhaka tidak akan pernah memberikan kebahagiaan hakiki bagi orang tuanya.
Tidak sedikit cerita masa lalu mengenai kebaikan seorang anak kepada ibunya. Di antaranya; disebutkan bahwa salah seorang anak yang shaleh pernah menggendong ibunya dari negeri kelahirannya –kalau tidak salah Yaman- ke kota Mekah untuk melaksanakan ibadah haji. Bayangkan betapa jauh perjalanan menuju kota Mekah. Dan betapa besar tenaga yang harus dikeluarkan untuk kebahagiaan sang ibu. Di manakah kini kita bisa menemukan pribadi seorang anak seperti ini?

Dalam kisah yang lain lagi disebutkan seorang anak yang shalih sedang menemani ibunya makan. Namun anak ini belum mau mengambil makanan sampai ibunya selesai. Ketika ditanya mengapa berbuat demikian? Ia menjawab: aku takut mengambil makanan yang ternyata itu disukai ibuku. Subhanallah sebuah contoh kejujuran cinta kepada sang ibu sangat nampak dalam kisah tersebut.
Di akhir tulisan ini izinkan aku menulis puisi untuk ibuku:
Ibu, bila semua orang berkata langit itu sangat tinggi
Sungguh masih lebih tinggi cintamu kepadaku
Bila semua orang berkata lautan itu sangat dalam
Sungguh masih lebih dalam kasihmu kepadaku
Bila semua orang berkata bukit itu sangat kokoh
Sungguh masih lebih kokoh perhatianmu kepadaku
Tak sanggup kata melukiskan kebaikanmu
Tak sampai nyawa membalas budi baikmu
Kecuali keshalihanku
Agar sungai keringat jerih payahmu menjadi amal jariah.


Allahu a’lam bish shawab


Sumber : www.dakwatuna.com

Read more »