Membuat Koneksi Delphi Dan Database Microsoft Acces Menggunakan Komponen ADOConnection

ADOConnection merupakan komponen untuk membuat koneksi dengan database, komponen ini telah disediakan oleh Delphi. Komponen ini berada pada tab ADO pada component pallete. 

Sekarang saatnya mencoba melakukan koneksi dan menguji koneksi database. Pertama-tama kita buat databasenya dengan desain sebagai berikut :

Simpan database dengan nama Mahasiswa, dan nama tabel T_Mahasiswa. setelah database dibuat saatnya membuat desain form pada Delphi. berikut desain form di Delphi :

Langkah - langkah melakukan koneksi database :

1. Klik 2x komponen ADOConnection. hingga muncul tampilan seperti berikut :

2. Klik Build hingga muncul tampilan seperti dibawah. Kemudian klik Next.

  3. Kemudian klik tombol browse.

4. Kemudian tentukan dimana database yang telah dibuat disimpan. Lalu klik Open.

 

5. Selanjutnya lakukan tes koneksi dengan mengklik tombol test connection. Jika tampilan muncul seperti dibawah maka koneksi telah berhasil.

6. Klik OK. Maka muncul tampilan seperti berikut . Kemudian klik OK.

7. Selanjutnya atur properties komponen ADOConnection seperti berikut :

Pengujian koneksi database :

1. Atur nilai properties komponen DataSource seperti berikut :

2. Atur nilai properties komponen ADOTable seperti berikut :

3. Atur nilai properties komponen DBGrid seperti berikut :

4. Atur nilai properties komponen DBNavigator seprti berikut :

5. Jalankan program...

Jangan Menunggu

☼ Jangan menunggu BAHAGIA baru TERSENYUM, tapi TERSENYUMLAH, maka kamu kian BAHAGIA.

☼ Jangan menunggu KAYA baru BERSEDEKAH, tapi BERSEDEKAHLAH, maka kamu semakin KAYA.

☼ Jangan menunggu TERMOTIVASI baru BERGERAK, tapi BERGERAKLAH, maka kamu akan TERMOTIVASI.

☼ Jangan menunggu DIPEDULIKAN orang baru kamu PEDULI, tapi PEDULILAH dengan orang lain! Maka kamu akan DIPEDULIKAN.

☼ Jangan menunggu orang MEMAHAMI kamu baru kamu MEMAHAMI dia, taÞi PAHAMILAH orang itu, maka orang itu PAHAM dengan kamu.

☼ Jangan menunggu TERINSPIRASI baru MENULIS tapi MENULISLAH, maka INSPIRASI akan hadir dalam TULISANMU.

☼ Jangan menunggu PROYEK baru BEKERJA, tapi BEKERJALAH, maka PROYEK akan menunggumu.

☼ Jangan menunggu DICINTAI baru MENCINTAI, tapi belajarlah MENCINTAI, maka kamu akan DICINTAI. 

☼ Jangan menunggu banyak UANG baru HIDUP TENANG, tapi HIDUPLAH dengan TENANG. Percayalah, bukan sekadar UANG yang datang tapi juga REZEKI yang lainnya.

☼ Jangan menunggu CONTOH baru BERGERAK MENGIKUTI, tapi BERGERAKLAH maka kamu akan menjadi CONTOH YANG DIIKUTI.

☼ Jangan menunggu SUKSES baru BERSYUKUR, tapi BERSYUKURLAH, maka bertambah KESUKSESANMU.

☼ Jangan menunggu BISA baru MELAKUKAN, tapi LAKUKANLAH! Kamu pasti BISA !

So, don't wait...

 

 

Source :                                        https://www.facebook.com/#!/pages/Strawberry/327342750179

Meningkatkan keimanan kepada Allah SWT

Apa atau siapa Allah SWT ? 

“Katakanlah: Dia-lah Allah, Yang Maha Esa. Allah adalah Tuhan yang bergantung kepada-Nya segala sesuatu. Dia tiada beranak dan tidak pula diperanakkan. dan tidak ada seorangpun yang setara dengan Dia.” (QS. Al Ikhlas : 1-4)

Dimanakah Allah SWT berada ? 

“Dan apabila hamba-hamba-Ku kepadamu tentang Aku, maka sesungguhanya Aku dekat. Aku mengabulkan permohonan orang yang berdoa apabila ia berdoa kepada-Ku, maka hendaklah mereka itu memenuhi-Ku, dan hendaklah mereka itu beriman kepada-Ku agar mereka selalu berada dalam kebenaran.” (QS. Al Baqarah : 186).

"Dan sesunggunya Kami telah menciptakan manusia dan mengetahui apa yang dibisikkan oleh hatinya dan Kami lebih dekat kepadanya dari pada urat lehernya." (QS. Qaaf : 16).

Bagaimana mengenal dan memahami Allah SWT ?

“Dan mengapa mereka tidak memikirkan tentang (kejadian) diri mereka? Allah tidak menjadikan langit dan bumi dan apa yang ada di antara keduanya melainkan dengan tujuan yang benar dan waktu yang ditentu-kan. Dan sesungguhnya kebanyakan di antara manusia benar-benar ingkar akan pertemuan dengan Tuhannya.” (QS. Ar Ruum : 8)

Bagaimana cara mengabdi kepada Allah ?

“Katakanlah: Sesungguhnya shalatku dan ibadahku, hidup dan matiku hanyalah untuk Allah, Tuhan semesta alam.” (QS. Al An’am: 162)

Kenapa Allah SWT menciptakan manusia ?

“Aku ciptakan jin dan manusia semata-mata untuk menyembahKu.” (QS. Az Dzariyat: 56)

Kenapa Allah SWT menguji manusia ?

“Dia Yang Mematikan dan Menghidupkan untuk menguji siapa di antara kamu yang terbaik amalnya. Dia Maha Perkasa lagi Maha Pengampun.” (QS. Al Mulk : 2)

Algoritma, pseudocode dan flowchart

Algoritma adalah langkah-langkah logis dalam menyelesaikan suatu masalah, atau secara sederhana dalam dunia pemrograman adalah alur dari program yang akan kita buat.

Pseudocode adalah deskripsi dari algoritma pemrograman yang ditulis dengan struktur sederhana dari sebuah bahasa pemrograman yang tujuannya agar dapat dibaca oleh manusia. 

Flowchart atau diagram alir adalah representasi dari algoritma atau pseudocode kedalam bentuk diagram.

cara mudah untuk menentukan seperti apa algoritma dari program yang akan kita buat adalah dengan mengelompokkan apa-apa saja yang akan digunakan sebagai inputan, proses dan output apa yang diinginkan.

misalkan kita ingin membuat program untuk menghitung luas persegi panjang, dari sini bisa ditentukan apa saja input, proses dan output dari program tersebut.  berikut merupakan contoh algoritma, pseudocode dan flowchart :

Program menghitung luas persegi panjang

Input  : panjang dan lebar

Proses : panjang x lebar

Output : luas persegi panjang

Algoritma : 1. Masukkan panjang

                 2. Masukkan lebar

                 3. Luas Persegi panjang adalah panjang dikalikan lebar

                 4. Tampilkan luas persegi panjang

Pseudocode :  Input panjang

                      Input lebar

                      Luas = panjang x lebar

                      Print luas

Flowchart :

Implementasi kedalam program bahasa C :

#include<stdio.h>
main()
{
 int Luas, Panjang, Lebar;

printf("Masukkan Panjang = "); scanf("%i",&Panjang);
printf("Masukkan Lebar = "); scanf("%i",&Lebar);
Luas = Panjang x Lebar;
printf("Luas =  %i  ",Luas);

} 

Implementasi kedalam program Delphi :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Luas, Panjang, Lebar : real;
begin
Panjang := strtofloat(edit1.Text);
Lebar := strtofloat(edit2.Text);
Luas := Panjang * Lebar;
edit3.Text := floattostr(Luas);

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8]) then
key:=#0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8]) then
key:=#0;
end;

end.

Ngaji yukk...

Rasulullah SAW bersabda : 

"Perumpamaan orang mukmin yang membaca Al Quran bagaikan buah limau baunya harum dan rasanya lezat. Dan perumpamaan orang mukmin yang tidak membaca Al Quran bagaikan kurma rasanya lezat dan tidak berbau. Dan perumpamaan orang munafik yang membaca Al Quran bagaikan buah raihanah yang baunya harum dan rasanya pahit. Dan perumpamaan orang munafik yang tidak membaca Al Quran bagaikan buah hanzholah tidak berbau dan rasanya pahit." (HR. At Tirmidzi).

"Sebaik-baik kalian yaitu orang yang mempelajari Al Quran dan mengajarkannya." (HR. Bukhari).

"Orang yang membaca Al Quran dan ia mahir dalam membacanya maka ia akan dikumpulkan bersama malaikat yang mulia lagi berbakti." (HR. Tirmidzi).

"Bacalah Al Quran ! maka sesungguhnya ia akan datang pada hari kiamat sebagai syafaat bagi ahlinya (yaitu orang yang membaca, mempelajari dan mengamalkannya." (HR. Ahmad).

"Seringlah kalian membaca Al Quran didalam rumahmu, maka sesungguhnya rumah yang tidak pernah dibacakan Al Quran sedikit kebaikannya dan banyak kejelekannya serta sempit bagi penghuninya." (HR. Daruqutni).

"Barangsiapa yang membaca Al Quran dan mengamalkan apa yang terdapat didalamnya. Allah SWT akan mengenakan mahkota kepada kedua orang tuanya pada hari kiamat kelak. Dimana cahayanya lebih terang dari pada cahaya matahari didunia. Maka kamu tidak akan menduga bahwa ganjaran itu disebabkan dengan amalan yang seperti ini." (HR. Abu Daud).

Nafsu - nafsu yang menjadi sarang setan

1. Nafs Al-Hayawaniyyah, yaitu naluri jasad manusia yang cenderung pada kebendaan, ini merupakan dimensi dari sifat zhulm (gelap dan materialistik).

2. Nafs Al-Musawwilah, yaitu nafsu manusia yang membangkitkan khayalan menyesatkan dan menipu, nafsu ini memancarkan gambaran-gambaran yang menipu dan membawa manusia pada hasrat kesyahwatan, kecintaan terhadap harta benda, mabuk kekayaan duniawi dan lainnya.

3. Nafs Al-Ammarah, yaitu kecenderungan manusia yang mengarah pada kejahatan namun mengarah pula pada rahmat ilahi. Ini adalah sifat-sifat kesetanan serta sifat-sifat manusiawi yang mencitrai keberadaan manusia.

4. Nafs Al-lawwamah, yaitu nafsu yang mengkritik, mencela kejahatan dan membencinya. Apabila terlanjur berbuat kejahatan dia lekas menyadari dan menyesalinya.

5. Nafs Al-Mulhamah, yaitu pancaran sifat-sifat tauhid yang membawa manusia pada keyakinan tentang kebenaran ilahi. Tapi kilasan-kilasan khayalan yang lahir dari lintasan pikiran khawatir didalam hati cenderung mengganggunya.

Referensi : 

Abiraja Suhendi. 2008. Setan, Skak Mat !. Bandung : Penerbit Mizania

 

Agar siapapun menyukai anda setiap saat

1. Beradalah disekitar orang sesering mungkin, karena keakraban menumbuhkan rasa sayang, bukan rasa benci !

2. Jika hendak berbicara dengan seseorang , lakukanlah ketika suasana hatinya sedang baik, sehingga hukum pergaulan bisa berlaku. Bicarakanlah minat atau pengalaman yang sama-sama kalian pernah alami dan cobalah untuk lebih banyak mendengar, jangan terlalu banyak bicara.

3. Terapkan hukum saling menyukai jika anda menghormati atau mengagumi sesuatu yang ada pada dirinya, pastikan dia mengetahui hal itu.

4. Buatlah dia melakukan sedikit kebaikan kepada anda , tetapi pastikan bahwa hal itu tidak mengandung kesan perintah. Hal ini menciptakan motivasi tak sadar dia untuk lebih menyukai anda.

5. Bangunlah jembatan psikologis dan lakukanlah komunikasi dengan meniru gerak tubuh dan menyesuaikan diri denagn tempo dan nada bicaranya.

6. Kita tertarik pada orang-orang yang percaya diri. Tunjukkan kepercayaan diri anda dengan mampu tertawa pada diri anda sendiri dan tidak terlalu menjaga penampilan.

7. Buatlah dia merasa nyaman, jadilah orang yang penuh pengertian, baik hati, tulus dan hangat.

8. Milikilah sikap mental yang positif. kita tertarik pada orang yang antusias, bergairah, periang dan aktif.

Referensi :
David J. Lieberman, Ph.D, Agar siapa saja mau melakukan apa saja untuk anda, Halaman. 33-34)