Istri Sedekah Pakai Duit Suami, Ustadz Abdul Somad LC MA

https://youtu.be/78RDn2UELpA

Aliran Syiah

https://youtu.be/relvSgG1dJM

Cara non aktifkan button

bagaimana untuk menonaktifkan button pada delphi misalnya ada 
button save,edit,delete,cancel . Button" tersebut akan aktif bila 
diperlukan...

kalo bisa tolong kasih contoh skrip nya sedikit ...

Thank you..

untuk koding nya sama sperti posting saya sebelumnya .. tolong ya gan ... atau ada skrip salah yg kurang mohon diperbaiki..thx/ atau perlu buat prosedur baru gak????implementation

{$R *.dfm}

procedure TForm1.tampildata;

begin

with dm.blackberry do //dm->data module

begin

sql.Clear;

sql.Add('select * from blackberry');

Active:=false;

Active:=true;

end;

end;

procedure TForm1.bersih;

begin

Edit1.Clear;

Edit2.Clear;

end;

procedure TForm1.BitBtnExitClick(Sender: TObject);

begin

if MessageDlg('Apakah anda yakin menutup form ini?',mtConfirmation,[mbYes,mbNo

],0)=mryes then Form1.Close;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

tampildata;

bersih;

end;

procedure TForm1.BitBtnSaveClick(Sender: TObject);

begin

if Length(Edit1.Text)<>4 then

begin

ShowMessage('Kode Blackberry harus 4 karakter/tidak boleh kosong !!');

Edit1.SetFocus;

exit;

end;

if Length(Edit2.Text)<1 then

begin

ShowMessage('Nama Blackberry Belum Diisi !!');

Edit2.SetFocus;

exit;

end;

if MessageDlg('Data Blackberry ingin disimpan ?',mtInformation,[mbYes,mbNo],0)=mryes then

dm.dbpakarbb.Execute('insert into blackberry values('''+Edit1.Text+''','''

+Edit2.Text+''')');

Dm.blackberry.Requery;

tampildata;

BitBtnSave.Enabled:=True;

Edit1.SetFocus;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

dm.blackberry.SQL.Clear;

dm.blackberry.SQL.Add('select * from blackberry where kd_bb='''+Edit1.Text+'''');

dm.blackberry.Open;;

if not dm.blackberry.Eof then

begin

if MessageDlg('Nama Blackberry sudah ada, ingin diedit ?',mtInformation,[mbYes,mbNo],0)=mryes then

begin

Edit2.Text:=dm.blackberry.FieldValues['nm_bb'];

Edit1.Enabled:=false;

BitBtnEdit.Enabled:=true;

BitBtnDelete.Enabled:=true;

BitBtnSave.Enabled:=false;

BitBtnCancel.Enabled:=true;

edit2.SetFocus;

end

else

begin

tampildata;

exit;

end;

end;

end;

procedure TForm1.BitBtnCancelClick(Sender: TObject);

begin

tampildata;

BitBtnSave.Enabled:=True;

Edit1.SetFocus;

end;

procedure TForm1.BitBtnEditClick(Sender: TObject);

begin

if MessageDlg('Yakin untuk diupdate ??',mtInformation,[mbYes,mbno],0)=mryes then

dm.dbpakarbb.Execute('update blackberry set nm_bb='''+Edit2.Text+''' where kd_bb='''

+Edit1.Text+'''');

dm.blackberry.Requery;

ShowMessage('Data sudah diupdate');

tampildata;

BitBtnSave.Enabled:=true;

bersih;

exit;

end;

procedure TForm1.BitBtnDeleteClick(Sender: TObject);

begin

if MessageDlg('Data Blackberry Ingin dihapus ?',mtInformation,[mbYes,mbNo],0)=mrYes then

dm.dbpakarbb.Execute('delete from blackberry where kd_bb='''+Edit1.Text+'''');

dm.blackberry.Requery;

ShowMessage('Data sudah dihapus');

tampildata;

BitBtnSave.Enabled:=True;

bersih;

exit;

end;

procedure TForm1.BitBtnRefreshClick(Sender: TObject);

var n,urutan,jkarakter:integer;

kbaru:string[4];

begin

dm.blackberry.sql.Clear;

dm.blackberry.sql.add('select * from blackberry order by kd_bb');

dm.blackberry.open;

if dm.blackberry.recordcount=0 then

n:=1

else begin

dm.blackberry.last;

urutan:=strtoint(copy(dm.blackberry.fieldvalues['kd_bb'],2,3));

n:=urutan+1;

end;

jkarakter:=length(trim(inttostr(n)));

case jkarakter of

1:kbaru:='B00'+trim(inttostr(n));

2:kbaru:='B0'+trim(inttostr(n));

3:kbaru:='B'+trim(inttostr(n));

end;

edit1.text:=kbaru;

edit1.selstart:=length(kbaru);

edit2.setfocus;

tampildata;

bitbtnsave.enabled:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Seratus Enam Puluh Kebiasaan Nabi Muhammad Saw , AS-SUNNAH – NABI MUHAMMAD SAW KEBIASAAN-KEBIASAAN NABI SAW SEKITAR SHALAT Selalu shalat sunnah fajar Meringankan shalat sunnah fajar Membaca surat Al-Ikhlas dan Al-Kafirun dalam shalat fajar (ayat lain yang dibaca Nabi dalam shalat sunnah fajar) Berbaring sejenak setelah shalat sunnah fajar Mengerjakan shalat sunnah di rumah Selalu shalat sunnah empat rakaat sebelum dhuhur Mengganti dengan empat rakaat setelah duhur jika tidak sempat shalat sebelumnya Shalat sunnah dua atau empat rakaat sebelum ashar Shalat sunnah dua rakaat sesudah maghrib Shalat sunnah setelah Isya’ Mengakhirkan shalat Isya’ Memanjangkan rakaat pertama dan memendekkan rakaat kedua Selalu shalat malam (waktu shalat malam Rasulullah saw) Menggosok gigi apabila bangun malam Membuka shalat malam dengan 2 rakat ringan Shalat malam sebelas rakaat (format shalat malam Nabi sebelas rakaat) Memanjangkan shalat malamnya Membaca surat Al-A’la, Al-Kafirun dan Al-Ikhlas dalam shalat witir Mengganti shalat malam di siang hari jika berhalangan Shalat dhuha empat rakaat Tetap duduk hingga matahari bersinar setelah shalat subuh Meluruskan shaf sebelum mulai shlaat jama’ah Mengangkat kedua tangan saat takbiratul ihram, akan ruku’ dan bangun dari ruku’ Meletakkan tangan kanan di atas tangan kiri Mengarahkan pandangan ke tempat sujud Merenggangkan kedua tangan ketika sujud hingga tampak ketiaknya yang putih Memberi isyarat dengan jari telunjuk ketika tasyahhud dan mengarahkan pandangan ke arah jari telunjuk Meringankan tasyahhud pertama Meringankan shalat jika berjama’ah Menghadap ke arah kanan makmum selesai shalat jama’ah Bersegera ke masjid begitu masuk waktu shalat Selalu memperbarui wudhu setiap kali akan shalat Tidak menshalatkan jenazah yang masih berhutang Menancapkan tombak sebagai pembatas jika shlaat di tanah lapang Mengajari shalat kepada orang yang baru masuk Islam II. KEBIASAAN-KEBIASAAN NABI SAW DI HARI JUM’AT DAN DUA HARI RAYA Membaca surat As-Sajdah dan Al-Insan dalam shalat subuh di hari Jum’at Memotong kuku dan kumis setiap hari Jum’at Mandi pada hari Jum’at Memakai pakaian terbaik untuk shalat jum’at Memendekkan khutbah Jum’at dan memanjangkan shalat Serius dalam khutbahnya dan tidak bergurau Duduk di antara dua khutbah Jum’at Membaca surat Al-A’la dan Al-Ghasyiyah dalam shalat Jum’at Shalat sunnah setelah jum’at Tidak langsung shalat sunnah setelah Jum’at Mandi sebelum berangkat shalat Id Memakai pakaian teraik ketika shalat Id Makan terlebih dahulu sebelum berangkat shalat Idul Fitri Baru makan sepulang dari melaksanakan shalat Idul Adha Shalat Id di tanah lapang Mengajak semua keluarganya ke tempat shalat Id Memperlambat pelaksanaan shalat Idul Fitri dan mempercepat pelaksanaan shalat Idul Adha Langsung shalat Id tanpa Adzan dan Iqomah Dua kali khutbah dengan diselingi duduk Pergi dan pulang melalui jalan yang berbeda Berjalan kaki menuju tempat shalat Id Membaca surat Qaaf dan Al-Qamar dalam shalat Id Menyembelih hewan kurban di tempat pelaksanaan shalat Id III. KEBIASAAN-KEBIASAAN NABI SAW DALAM MASALAH PUASA Puasa dan berbuka secara seimbang Berbuka puasa sebelum shalat maghrib Berbuka dengan korma Tetap puasa meskipun bangun dalam keadaan junub Berpuasa jika tidak mendapatkan makanan di pagi hari Membatalkan puasa sunnah jika memang ingin makan Banyak puasa di bulan sya’ban Puasa enam hari syawal Puasa hari Arafah Puasa Asyura atau sepuluh muharam Puasa hari senin dan kami Puasa tanggal 13, 14 dan 15 setiap bulan Mencium istri di siang hari IV. KEBIASAAN-KEBIASAAN NABI SAW DI BULAN RAMADHAN Memperbanyak sedekah Memperbanyak membaca Al-Qur’an Mengakhirkan waktu sahur Puasa wishal Memperbanyak shalat malam (menghidupkan malam ramadhan) I’tikaf Menghidupkan sepuluh malam terakhir dan membangunkan keluarganya Menyuruh para sahabat agar bersungguh-sungguh mencari lailatul qadar V. KEBIASAAN-KEBIASAAN NABI SAW DALAM MAKAN DAN MINUM Tidak pernah mencela makanan Tidak makan sambil bersandar Makan dan minum dengan tangan kanan Makan dengan tiga jari Menjilati jari-jemari dan tempat makan selesai makan Mengambil nafas tiga kali ketika minum Minum dengan duduk dan berdiri Mulai makan dari pinggir tempat makan Berdo’a sebelum dan sesudah makan Tidak pernah kenyang dua hari berturut-turut Tidak pernah makan di depan meja makan VI. KEBIASAAN-KEBIASAAN NABI SAW DALAM TIDURNYA Tidur dalam keadaan suci Tidur di atas bahu sebelah kanan Meletakkan tangan di bawah pipi Meniup kedua tangan dan membaca do’a lalu mengusapkannya ke badan Tidak suka tidur sebelum Isya’ Tidur pada awal malam dan bangun di sepertiga akhir Berwudlu dulu jika akan tidur dalam keadaan junub Berdo’a sebelum dan setelah bangun tidur Membaca do’a jika terjaga dari tidur Tidur matanya namun tidak tidur hatinya Menyilangkan kaki jika tidur di masjid Tidur hanya beralaskan tikar Tidak menyukai tidur tengkurap VII. KEBIASAAN-KEBIASAAN NABI SAW DALAM BEPERGIAN Berlindung kepada Allah dari beban perjalanan jika hendak bepergian Sengang bepergian pada hari kamis Senang pergi pada pagi hari Menyempatkan tidur dalam perjalanan di malam hari Melindungi diri atau menjauh jika buang haajt Berada di barisan belakang saat bepergian Bertakbir tiga kali ketika telah berada di atas kendaraan Bertakbir saat jalanan naik dan bertasbih saat jalanan menurun Berdo’a jika tiba waktu malam Berdo’a jika melihat fajar dalam perjalanan Berdo’a ketika kembali dari bepergian Mendatangi masjid terlebih dahulu saat baru tiba dan shalat dua raka’at Mengundi istri-istrinya jika bepergian Shalat di atas kendaraan Menghadap ke arah kiblat terlebih dahulu jika shalat di atas kendaraan Mendo’akan orang yang ditinggal pergi Mendo’akan orang yang akan bepergian Memberi bagian tersendiri kepada orang yang diutus pergi VIII. KEBIASAAN-KEBIASAAN NABI SAW DALAM DZIKIR DAN DO’ANYA Senang berdoa dengan do’a yang ringkas Membaca istighfar tiga kali dan berdzikir selepas shalat Membaca istighfar tujuh puluh kali hingga seratus kali setiap hari Membaca shalat dan salam atas dirinya jika masuk dan keluar dai masjid Membaca do’a di pagi dan sore hari Membaca do’a di akhir majlis Membaca do’a saat keluar rumah Berdo’a jika masuk dan keluar kamar kecil Berdoa jika memakai pakaian baru Berdo’a jika merasa sakit Berdo’a jika melihat bulna Memanjatkan do’a di saat sulit Berdo’a jiika takut pada suatu kaum adan saat bertemu musuh Berdo’a jika bertiup angin kencang IX. PERNIK-PERNIK KEBIASAAN NABI SAW Selalu mengingat Allah di setiap waktu Mengulangi perkataan hingga tiga kali dan bicara dengan suara yang jelas Selalu mendahulukan yang kanan Menutup mulut dan merendahkan suara apabial bersin Tidak menolak jika diberi minyak wangi Tidak pernah menolak hadiah Selalu memilih yang lebih mudah Bersujud syukur jika mendapat kabar gembira Bersujud tilawah jika membaca ayat sajdah Tidak datang ke rumah pada wkatu malam melainkan pada pagi dan sore hari Tidak suka berbincang-bincang setelah Isya’ Tidak senang menyimpan harta dan selalu memberi jika ada yang meminta Mengulang salam hingga tiga kali Turut mengerjakan pekerjaan rumah Pergi ke masjid Quba setiap sabtu Sangat marah jika hukum Allah dilanggar namun tidak marah jika dirinya disakiti Berubah warna mukanya jika tidak menyukai sesuatu Memilih waktu yang tepat dalam menasehati Tidak bohong dalam bergurau Berdiri apabila melihat iringan jenazah Baru mengangkat pakaian jika telah dekat dengan tanah saat buang hajat Buang air kecil dengan jongkok Bermusyawarah jika membicarakan suatu masalah yang penting Menyuruh istrinya agar memakai kain jika ingin menggaulinya dalam keadaan haidh

Seratus Enam Puluh Kebiasaan Nabi Muhammad Saw , AS-SUNNAH – NABI MUHAMMAD SAW

KEBIASAAN-KEBIASAAN NABI SAW SEKITAR SHALAT

Selalu shalat sunnah fajar
Meringankan shalat sunnah fajar
Membaca surat Al-Ikhlas dan Al-Kafirun dalam shalat fajar (ayat lain yang dibaca Nabi dalam shalat sunnah fajar)
Berbaring sejenak setelah shalat sunnah fajar
Mengerjakan shalat sunnah di rumah
Selalu shalat sunnah empat rakaat sebelum dhuhur
Mengganti dengan empat rakaat setelah duhur jika tidak sempat shalat sebelumnya
Shalat sunnah dua atau empat rakaat sebelum ashar
Shalat sunnah dua rakaat sesudah maghrib
Shalat sunnah setelah Isya’
Mengakhirkan shalat Isya’
Memanjangkan rakaat pertama dan memendekkan rakaat kedua
Selalu shalat malam (waktu shalat malam Rasulullah saw)
Menggosok gigi apabila bangun malam
Membuka shalat malam dengan 2 rakat ringan
Shalat malam sebelas rakaat (format shalat malam Nabi sebelas rakaat)
Memanjangkan shalat malamnya
Membaca surat Al-A’la, Al-Kafirun dan Al-Ikhlas dalam shalat witir
Mengganti shalat malam di siang hari jika berhalangan
Shalat dhuha empat rakaat
Tetap duduk hingga matahari bersinar setelah shalat subuh
Meluruskan shaf sebelum mulai shlaat jama’ah
Mengangkat kedua tangan saat takbiratul ihram, akan ruku’ dan bangun dari ruku’
Meletakkan tangan kanan di atas tangan kiri
Mengarahkan pandangan ke tempat sujud
Merenggangkan kedua tangan ketika sujud hingga tampak ketiaknya yang putih
Memberi isyarat dengan jari telunjuk ketika tasyahhud dan mengarahkan pandangan ke arah jari telunjuk
Meringankan tasyahhud pertama
Meringankan shalat jika berjama’ah
Menghadap ke arah kanan makmum selesai shalat jama’ah
Bersegera ke masjid begitu masuk waktu shalat
Selalu memperbarui wudhu setiap kali akan shalat
Tidak menshalatkan jenazah yang masih berhutang
Menancapkan tombak sebagai pembatas jika shlaat di tanah lapang
Mengajari shalat kepada orang yang baru masuk Islam

II. KEBIASAAN-KEBIASAAN NABI SAW DI HARI JUM’AT DAN DUA HARI RAYA

Membaca surat As-Sajdah dan Al-Insan dalam shalat subuh di hari Jum’at
Memotong kuku dan kumis setiap hari Jum’at
Mandi pada hari Jum’at
Memakai pakaian terbaik untuk shalat jum’at
Memendekkan khutbah Jum’at dan memanjangkan shalat
Serius dalam khutbahnya dan tidak bergurau
Duduk di antara dua khutbah Jum’at
Membaca surat Al-A’la dan Al-Ghasyiyah dalam shalat Jum’at
Shalat sunnah setelah jum’at
Tidak langsung shalat sunnah setelah Jum’at
Mandi sebelum berangkat shalat Id
Memakai pakaian teraik ketika shalat Id
Makan terlebih dahulu sebelum berangkat shalat Idul Fitri
Baru makan sepulang dari melaksanakan shalat Idul Adha
Shalat Id di tanah lapang
Mengajak semua keluarganya ke tempat shalat Id
Memperlambat pelaksanaan shalat Idul Fitri dan mempercepat pelaksanaan shalat Idul Adha
Langsung shalat Id tanpa Adzan dan Iqomah
Dua kali khutbah dengan diselingi duduk
Pergi dan pulang melalui jalan yang berbeda
Berjalan kaki menuju tempat shalat Id
Membaca surat Qaaf dan Al-Qamar dalam shalat Id
Menyembelih hewan kurban di tempat pelaksanaan shalat Id

III. KEBIASAAN-KEBIASAAN NABI SAW DALAM MASALAH PUASA

Puasa dan berbuka secara seimbang
Berbuka puasa sebelum shalat maghrib
Berbuka dengan korma
Tetap puasa meskipun bangun dalam keadaan junub
Berpuasa jika tidak mendapatkan makanan di pagi hari
Membatalkan puasa sunnah jika memang ingin makan
Banyak puasa di bulan sya’ban
Puasa enam hari syawal
Puasa hari Arafah
Puasa Asyura atau sepuluh muharam
Puasa hari senin dan kami
Puasa tanggal 13, 14 dan 15 setiap bulan
Mencium istri di siang hari

IV. KEBIASAAN-KEBIASAAN NABI SAW DI BULAN RAMADHAN

Memperbanyak sedekah
Memperbanyak membaca Al-Qur’an
Mengakhirkan waktu sahur
Puasa wishal
Memperbanyak shalat malam (menghidupkan malam ramadhan)
I’tikaf
Menghidupkan sepuluh malam terakhir dan membangunkan keluarganya
Menyuruh para sahabat agar bersungguh-sungguh mencari lailatul qadar

V. KEBIASAAN-KEBIASAAN NABI SAW DALAM MAKAN DAN MINUM

Tidak pernah mencela makanan
Tidak makan sambil bersandar
Makan dan minum dengan tangan kanan
Makan dengan tiga jari
Menjilati jari-jemari dan tempat makan selesai makan
Mengambil nafas tiga kali ketika minum
Minum dengan duduk dan berdiri
Mulai makan dari pinggir tempat makan
Berdo’a sebelum dan sesudah makan
Tidak pernah kenyang dua hari berturut-turut
Tidak pernah makan di depan meja makan

VI. KEBIASAAN-KEBIASAAN NABI SAW DALAM TIDURNYA

Tidur dalam keadaan suci
Tidur di atas bahu sebelah kanan
Meletakkan tangan di bawah pipi
Meniup kedua tangan dan membaca do’a lalu mengusapkannya ke badan
Tidak suka tidur sebelum Isya’
Tidur pada awal malam dan bangun di sepertiga akhir
Berwudlu dulu jika akan tidur dalam keadaan junub
Berdo’a sebelum dan setelah bangun tidur
Membaca do’a jika terjaga dari tidur
Tidur matanya namun tidak tidur hatinya
Menyilangkan kaki jika tidur di masjid
Tidur hanya beralaskan tikar
Tidak menyukai tidur tengkurap

VII. KEBIASAAN-KEBIASAAN NABI SAW DALAM BEPERGIAN

Berlindung kepada Allah dari beban perjalanan jika hendak bepergian
Sengang bepergian pada hari kamis
Senang pergi pada pagi hari
Menyempatkan tidur dalam perjalanan di malam hari
Melindungi diri atau menjauh jika buang haajt
Berada di barisan belakang saat bepergian
Bertakbir tiga kali ketika telah berada di atas kendaraan
Bertakbir saat jalanan naik dan bertasbih saat jalanan menurun
Berdo’a jika tiba waktu malam
Berdo’a jika melihat fajar dalam perjalanan
Berdo’a ketika kembali dari bepergian
Mendatangi masjid terlebih dahulu saat baru tiba dan shalat dua raka’at
Mengundi istri-istrinya jika bepergian
Shalat di atas kendaraan
Menghadap ke arah kiblat terlebih dahulu jika shalat di atas kendaraan
Mendo’akan orang yang ditinggal pergi
Mendo’akan orang yang akan bepergian
Memberi bagian tersendiri kepada orang yang diutus pergi

VIII. KEBIASAAN-KEBIASAAN NABI SAW DALAM DZIKIR DAN DO’ANYA

Senang berdoa dengan do’a yang ringkas
Membaca istighfar tiga kali dan berdzikir selepas shalat
Membaca istighfar tujuh puluh kali hingga seratus kali setiap hari
Membaca shalat dan salam atas dirinya jika masuk dan keluar dai masjid
Membaca do’a di pagi dan sore hari
Membaca do’a di akhir majlis
Membaca do’a saat keluar rumah
Berdo’a jika masuk dan keluar kamar kecil
Berdoa jika memakai pakaian baru
Berdo’a jika merasa sakit
Berdo’a jika melihat bulna
Memanjatkan do’a di saat sulit
Berdo’a jiika takut pada suatu kaum adan saat bertemu musuh
Berdo’a jika bertiup angin kencang

IX. PERNIK-PERNIK KEBIASAAN NABI SAW

Selalu mengingat Allah di setiap waktu
Mengulangi perkataan hingga tiga kali dan bicara dengan suara yang jelas
Selalu mendahulukan yang kanan
Menutup mulut dan merendahkan suara apabial bersin
Tidak menolak jika diberi minyak wangi
Tidak pernah menolak hadiah
Selalu memilih yang lebih mudah
Bersujud syukur jika mendapat kabar gembira
Bersujud tilawah jika membaca ayat sajdah
Tidak datang ke rumah pada wkatu malam melainkan pada pagi dan sore hari
Tidak suka berbincang-bincang setelah Isya’
Tidak senang menyimpan harta dan selalu memberi jika ada yang meminta
Mengulang salam hingga tiga kali
Turut mengerjakan pekerjaan rumah
Pergi ke masjid Quba setiap sabtu
Sangat marah jika hukum Allah dilanggar namun tidak marah jika dirinya disakiti
Berubah warna mukanya jika tidak menyukai sesuatu
Memilih waktu yang tepat dalam menasehati
Tidak bohong dalam bergurau
Berdiri apabila melihat iringan jenazah
Baru mengangkat pakaian jika telah dekat dengan tanah saat buang hajat
Buang air kecil dengan jongkok
Bermusyawarah jika membicarakan suatu masalah yang penting
Menyuruh istrinya agar memakai kain jika ingin menggaulinya dalam keadaan haidh

Program stringgrid pada delphi

Cara Menggunakan StringGrid di Delphi

9:24 PM · DAnish FathurRahman · 0 comments

Assalamu'alaikum, wr.wb

Contoh Program StringGrid Pada Bahasa Delphi - Sebelum membahas tentang tutorial membuat program lengkap di Delphi, sebaiknya saya akan menjelaskan beberapa komponen yang akan kita digunakan pada form program khususnya pada form transaksi. Karena inti proses dari sebuah program ada pada form ini. Sehingga saya lebih suka membuat form transaksi terlebih dahulu, sedangkan untuk input data master biasanya saya lakukan secara manual terlebih dahulu. Mungkin secara teori umum kalau dilihat dari sudut estetika dalam membuat program hal ini kurang bagus, tapi boleh dong saya berpendapat lain, hehe.

Salah satu komponen Delphi yang akan kita pakai adalah StringGrid. Apa itu StringGrid? Bagaimana cara menambahkan StringGrid di Delphi? Apakah perbedaan StringGrid dan DBGrid?. StringGrid adalah komponen Delphi yang digunakan untuk menyajikan data dalam bentuk lajur atau grid. Untuk menambahkan komponen ini pilih stringgrid pada tab Additional. Perbedaan DBGrid dan StringGrid adalah, dengan StringGrid kita akan lebih hemat memori karena setelah data ditampilkan koneksi ke databasenya langsung tertutup, sedanggan DBGrid koneksi data selalu terbuka sehingga akan menguras resource RAM. Namun saya kira dengan komputer canggih zaman sekarang hal itu agak terasa konyol kalau diperdebatkan.

Stringgrid banyak digunakan untuk membantu input data dengan ID yang sama, misalkan dalam program penjualan barang, maka kemungkinan besar satu pelanggan akan membeli lebih dari satu barang. Dengan Stringgrid kita akan terbantu untuk melakukan proses perhitungan sehingga mendapatkan total harga tanpa perlu reinput data pelanggan yang sama dari awal.

Contoh penggunaan Stringgrid di Delphi

Studi kasusnya saya ambil dari form transaksi order website. Disini kita hanya fokus Bagaimana menampilkan data ke StringGrid dan melakukan proses perhitungan. Untuk source kode lengkapnya akan saya bagikan ketika kita akan bahas form transaksi tersebut di artikel khusus (sabar bro)
www.abdusatri.comYang akan kita masukan dalam stringgrid adalah domain, harga web dan total harga yang diambil dari harga web ditambah harga hosting. Sebenarnya EditText pada total di Form diatas tidak diperlukan, hanya saja saya memakainya untuk proses penyimpanan ke database, karena saya belum berhasil menerapkan penyimpanan langsung dari stringgridnya, disini disini saya hanya memanfaatkan stringgrid untuk proses penjumlahan harga dari order website. Jika ada perubahan lagi nanti akan saya update di blog mungil ini.

1. Desain formnya seperti pada bagian kanan atas yaitu : Domain, jenis website, nama hosting, harga website, harga hosting, total harga, total pembelian atau order dan command atau tombol proses. Tambahkan komponen stringgrid dari tab additional, ganti stringgrid1 pada name object inspector menjadi sg sehingga memudahkan kita nantinya dalam penulisan coding.

Baca juga Cara Koneksi Database Acces Dengan Delphi

2. Copykan sript dibawah ini sesuai dengan postnya masing-masing. Untuk mengisi list comboboxnya silahkan tambahkan pada items tsringsnya. Rekan bisa baca disini cara menambah item pada combobox delphi.

Untuk combobox jenis website : 
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='Toko Online' then
    edit7.text:='3000000';
if combobox1.Text='Website Gnews' then
    edit7.text:='2000000';
if combobox1.Text='Blog Adsense ' then
    edit7.text:='500000';
if combobox1.Text='Blog Affiliate' then
    edit7.text:='400000';
if combobox1.Text='Blog Personal' then
    edit7.text:='200000';
end;

Coding Untuk Combobox Nama hosting : 
procedure TForm5.ComboBox2Change(Sender: TObject);
begin
if combobox2.Text='Hosgator' then
    edit8.text:='300000';
if combobox2.Text='Namecheap' then
    edit8.text:='250000';
if combobox2.Text='IDwebhost' then
    edit8.text:='250000';
if combobox2.Text='Niaga Hoster' then
    edit8.text:='200000';
if combobox2.Text='Digital Ocean' then
    edit8.text:='235000';
end;

Coding command hitung :
procedure TForm5.Button1Click(Sender: TObject);
var jasa,hosting,total:integer;
begin
jasa:=strtoint(edit7.Text);
hosting:=strtoint(edit8.Text);
total:=jasa + hosting;
edit12.Text:=inttostr(total);
end;

Coding tombol proses :
procedure TForm5.Button3Click(Sender: TObject);
var i,total: integer;
begin

sg.RowCount := sg.RowCount +1;

sg.Cells [1,sg.RowCount -1]:=edit6.Text;   
sg.Cells [2,sg.RowCount -1]:=edit7.Text;
sg.Cells [3,sg.RowCount -1]:=edit8.Text;
sg.Cells [4,sg.RowCount -1]:=inttostr (strtoint(edit7.Text) + strtoint(edit8.Text));

total :=0;
for i := 1 to sg.RowCount -1 do 
begin
sg.Cells[0,i] := inttostr(i);     
total := total + strtoint (sg.Cells[4,i]);
end;
edit9.Text := inttostr(total);
end;

Coding untuk membuat tampilan tabel ketika form dijalankan :
sg.rowcount :=1; 
sg.colcount :=5;

sg.cells [0,0] :='No';
sg.cells [1,0] :='Domain';
sg.cells [2,0] :='Harga Web';
sg.cells [3,0] :='Harga Hosting';
sg.cells [4,0] :='Jumlah';

sg.ColWidths [0]:=30;
sg.colwidths [1]:=150;
sg.colwidths [2]:=90;
sg.colwidths [3]:=90;
sg.colwidths [4]:=90;

Demikian contoh program Delphi memakai component StringGrid. Komponen lain yang akan kita pakai adalah DBLookupCombobox, yang juga akan diterapkan pada form transaksi, karena terjadi error ketika mendefenisikan dua buah Tedit dalam menampilkan data yaitu data pada Tedit untuk menampilkan data clien dan Tedit kode transaksi untuk menampilkan data secara keseluruhan dalam melakukan perubahan yang diperlukan. Baiklah pemirsa dimanapun anda berada, saya akan kembali setelah pesan-pesan berikut ini.

Mengisi String Grid Dengan Data Dari Tabel Pada Delphi

Mengisi String Grid Dengan Data Dari Tabel Pada Delphi

String Grid merupakan sebuah tampilan sederhana dari spreedsheet yang terdiri dari baris dan kolom serta cell sebagai perpotongan antara baris dan kolom, string grid pada delphi banyak digunakan untuk menampilkan data dalam format kolom. Sebenarnya ada 2 jenis Grid dalam delphi dalam delphi yaitu DBGrid yang terdapat pada panel DataControls dan StringGrid yang terdapat pada Additional. DBGrid lebih mudah untuk menampilkan data namun koneksi harus tetap terbuka ketika sedang menampilkan data dari database, sedangkan stringgrid bisa lebih menghemat memori karena setelah data ditampilkan dalam grid maka koneksi ke database bisa ditutup dan hasil tetap ditampilkan. secara sekilas stringgrid maupun dbgrid akan memberikan tampilan yang sama namun pada saat menggunakan akan sangat terasa perbedaannya. Nah untuk kali ini akan dibahas cara menampilkan data dalam tabel database kedalam striggrid sehingga ketika aplikasi dijalankan akan tampak seperti pada gambar dibawah ini.

Untuk membuat aplikasi sederhana seperti diatas dibutuhkan komponen-komponen sebagai berikut :

FormADOConnectionADOQueryStringGridPanelButton

Setelah siap berikut langkah-langkah dan coding-nya

Buat desaign tampilan seperti berikut tampak pada gambar dibawah.
Buat Koneksi ke database (MS Acces), proses koneksi memanfaatkan event onCreate pada Form Utama
Buat procedure untuk mengatur lebar kolom pada string grid dan judul kolomnya
Buat procedure untuk mengambil data dari dalam database
Buat procedure untuk menampilkan data yang telah diambil pada langkah ke-4 kedalam stringgrid.
Double klik pada tombol ‘Tampilkan Barang’ untuk menjalankan pada saat even onCLik, ketik script diantara Begin dan end pada potongan script dibawah ini !

Menggunakan StringGrid pada Delphi

StringGrid merupakan komponen visual Delphi yang digunakan menyajikan data dalam bentuk lajur atau Grid. Beberapa properti yang sering digunakan dalan komponen StringGrid diantaranya:

ColCount

Properti Colcount digunakan untuk menentukan jumlah kolom pada StringGrid

RowCount

Properti RowCount  digunakan untuk menentukan jumlah baris  pada StringGrid

FixedCols

Properti FixedCols menyataka jumlah kolom tetap (kolom judul) yang berada dikolom paling kiri dari tabel. Kolom tersebut tidak akan tergulung jika pengguna melakukan scrolling secara horispntal.

FixedRows

Properti FixedRows menyatakan jumlah baris tetap (baris judul) yang berada dikolom paling atas dari tabel. Baris tersebut tidak akan tergulung jika pengguna melakukan scrolling secara vertikal.

Cells [kolom,baris]

Properti Cells [kolom,baris]  menyatakan konten  sel pada alamat [kolom, baris]. Melalui properti Cell dapat diakses data-data pada masing-masing cell. Tipe datanya berupa string sehingga data-data non string harus dikonversi dulu sebelum dimasukkan ke dalam properti ini.

Contoh Program:

Buat lah program konversi kurs dollar terhadap rupiah dengan input berupa harga per dollar dalam rupiah. Selalnjutnya dilakukan prosesi perhitungan konversi dari 1 sd 100 dollar dalam bentuk lajur. Contoh tampilannya sebagai berikut:

Tampilan Stringrid

Penyelesaian:

Desain Form seperti tampilan berikut ini:

Form Stringgrid

Atur properti StringGrid1 sebagai berikut:

• FixedCols: 0

• ColCount: 2
• RoowCount:101

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

procedure TForm1.FormCreate(Sender: TObject);   var i:integer; begin    stringgrid1.Cells[0,0] := 'Dollar';    stringgrid1.Cells[1,0] := 'Rupiah';      for i:=1 to 100 do       stringgrid1.Cells[0,i] := inttostr(i); end;   procedure TForm1.Button1Click(Sender: TObject); var hargadollar :longint;     rupiah: longint;     i: integer; begin     hargadollar:= strtoint(edit1.Text);     for i:=1 to 100 do        begin          rupiah:=i*hargadollar;          stringgrid1.Cells[1,i]:=inttostr(rupiah);        end; end;   procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin for i:=1 to 100 do       stringgrid1.Cells[1,i] := ''; end;   procedure TForm1.Button3Click(Sender: TObject); begin    close; end;