Ebiet G Ade - Elegi Besok Pagi

Ebiet G Ade - Elegi Besok Pagi

Intro : D E A D A E
E A D A E
A      E     D          A
Izinkanlah kukecup kenigmu
D           A     Bm     E
Bukan hanya ada didalam angan
A      E      D         A
Esok pagi kau buka jendela
D           A    E              A  D
Kan kau dapati seikat kembang merah
A         E  D          A
Engkau tahu aku mulai bosan
D          A    Bm       E
Bercumbu dengan bayang-bayang
A         E  D         A
Bantulah aku temukan diri
D           A     E       A  A7
Manyambut pagi membuang sepi
D      E  A      D   Bm
Izinkanlah aku kenang
E          A   A7
sejenak perjalanan oh oh oh oh….
D       E  A         D Bm
Dan biarkan kumengerti
F#m            E     Bm D  E
Apa yang tersimpan dimatamu oh oh…….
A       E     D          A
Barangkali di tengah telaga
D        A    Bm       E
Ada tersisa butiran cinta
A       E    D         A
Dan semoga kerinduan ini
D             A     E       A
Bukan jadi mimpi di atas mimpi
D      E  A       D  Bm
Izinkanlah aku rindu
E         A    A7
Pada hitam rambutmu oh oh oh oh……
D       E   A        D   Bm
Dan biarkan ku bernyanyi
F#m         E    Bm D  E
Demi hati yang risau ini oh oh……
A       E     D          A
Barangkali di tengah telaga
D        A    Bm       E
Ada tersisa butiran cinta
A       E    D         A
Dan semoga kerinduan ini
D             A     E       A
Bukan jadi mimpi di atas mimpi

Read More..

Agnes Monica - Bukan Milikmu Lagi

Agnes Monica - Bukan Milikmu Lagi

Intro: C (2x)

C C#
Takkan bisa diriku seperti yang kau mau
C C#
Karma diriku bukan milikmu lagi

Intr : C C# C Bbm C C# C C#

C C#
yang takkan pernah terhapus
C Bbm
dan tak terlupakan dari dirimu
C C#
lelaki yang pernah bersamaku
C C#
dan mencintaiku sepenuh hatimu

Bridge:
G# Cm
tapi ternyata kau pergi tinggalkan
Fm C
diriku cintaku dan seluruh mimpiku

Reff:
Fm Bbm
kau takkan bisa jadikan diriku
C#
seperti yang kau mau
C
karna kubukan milikmu
Fm Bbm C#
aku adalah wanita yang pernah kau sakiti
C
tapi kau tau ku bukan milikmu lagi

C
takkan bisa diriku
C#
seperti yang kau mau

C C#
takkan pernah kusesali
C Bbm
dan aku ragukan keputusan ini
C C# C
sebab hidup takkan berhenti sampai disini
C#
hanya karna dirimu

kembali ke bridge

Fm Bb
kau takkan bisa jadikan diriku
C#
seperti yang kau mau
C
karna kubukan milikmu
Fm Bbm C#
aku adalah wanita yang pernah kau sakiti
C
tapi kau tau ku bukan milikmu
Fm Bb
kau takkan bisa jadikan diriku
C#
seperti yang kau mau
C
karna kubukan milikmu
Fm Bbm C#
aku adalah wanita yang pernah kau sakiti
C
tapi kau tau kau bukan milikku lagi

Interlude: C# – Bb – C – Bb – (4x) C – Bb – C – Bb – C -
C – C# – C – Bbm – C – C# – C – C#- G#

kembali ke bridge

Fm Bbm
kau takkan bisa jadikan diriku
C#
seperti yang kau mau
C
karna kubukan milikmu
Fm Bbm C#
aku adalah wanita yang pernah kau sakiti
C
tapi kau tau ku bukan milikmu
Fm Bb
kau takkan bisa jadikan diriku
C#
seperti yang kau mau
C
karna kubukan milikmu
Fm Bbm C#
aku adalah wanita yang pernah kau sakiti
C
tapi kau tau ku bukan milikmu lagi

Read More..

Adelle - SKYFALL

Adelle - SkyFall

INTRO
Am     F     D     Dm  x3
CM7add6   E

VERSE 1
     Am        F   D
This is the end 
Dm                   Am       F    D
Hold your breath and count to ten 
Dm             Am       F     D
Feel the Earth move and then 
Dm            CM7add6  E
Hear my heart burst again 

        Am        F    D
For this is the end 
     Dm                     Am    F   D
I've drowned and dreamt this moment 
   Dm        Am    F    D
So overdue I owe them 
Dm              CM7add6  E
Swept away I'm stolen 

CHORUS
        Am
Let the sky fall 
Am/G     F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5 Esus E
And face it all together 

        Am
Let the sky fall 
Am/G    F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5  
And face it all together 
Esus E   Am    F    D    Dm
At Skyfall 
       Am    F    D    Dm
At Skyfall

VERSE 2
           Am           F    D
Skyfall is where we start 
  Dm                 Am             F    D
A thousand miles and poles apart 
     Dm                  Am       F     
Where worlds collide and days are dark 
               D                Dm
You may have my number, you can take my name 
Cm7add6                E
But you'll never have my heart 

CHORUS 2
        Am
Let the sky fall 
Am/G     F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5 Esus E
And face it all together 

        Am
Let the sky fall 
Am/G    F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5  
And face it all together 
Esus E   Am
At Skyfall

(hold the Am)

BRIDGE
             Am
Where you go I go
     Esus/B  CM7add6
What you see I see 
             D                      Am
I know i'll never be me without the security 
        F
of your loving arms 
F/E     D
Keeping me from harm 
        Bb7b5
Put your hand in my hand 
          E
And we'll stand 

CHORUS 3
        Am
Let the sky fall 
Am/G     F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5 Esus E
And face it all together 

        Am
Let the sky fall 
Am/G    F
When it crumbles 
F/E     D
We will stand tall 
D/C         Bm7b5  
And face it all together 
Esus E   Am
At Skyfall

               Am/G  F       F/E   D
Let the sky fall 
      D/C    Bm7b5               
We will stand tall  
Esus E  Am     Am/G F     F/E  D      Caug7         B7sus4/A
At skyfall-------

Read More..

Maroon 5 - One More Night

Maroon 5 - One More Night

Intro: Bm, A ,Em

Ooh, oh oh oh, ooh ooh ooh ooh
Ooh, oh oh oh, ooh ooh ooh ooh

Verse 1:

             Bm                            A       Em
You and I go hard at each other like we're going to war
             Bm                                 A           Em
You and I go rough, we keep throwing things and slamming the door
             Bm                       A            Em                                     
You and I get so damn dysfunctional we start keeping score
              Bm                              A         Em
You and I get sick, yeah I know that we can't do this no more

Chorus:

    Bm                                           A             Em
But baby there you go again, there you go again, making me love you
           Bm                            A         Em
And I stop using my head, using my head, let it all go
    Bm                                   A        Em
Now you're stuck on my body, on my body, like a tatoo
    Bm                                      A             Em
And now I'm feeling stupid, feeling stupid, coming back to you

Hook:

     Bm                    A           Em
So I cross my heart and I hope to die
          Bm                  A        Em
That I'll only stay with you one more night
      Bm                A           Em
And I know I said it a milion times
         Bm                  A        Em
But I'll only stay with you one more night

Verse 2:

             Bm                            A       Em
Try to tell you no, but my body keeps on telling you yes
             Bm                                 A           Em
Try to tell you stop, but your lipstick's got me so out of breath
             Bm                       A            Em       
I'll be waking up in the morning, probably hating myself
              Bm                              A     Em
I'll be waking up feelin' satisfied, guilty as hell

Chorus:

    Bm                                           A             Em
But baby there you go again, there you go again, making me love you
           Bm                            A         Em
And I stop using my head, using my head, let it all go
    Bm                                   A        Em
Now you're stuck on my body, on my body, like a tatoo
    Bm                                      A             Em
And now I'm feeling stupid, feeling stupid, coming back to you

Hook:

     Bm                    A           Em
So I cross my heart and I hope to die
          Bm                  A        Em
That I'll only stay with you one more night
      Bm                A           Em
And I know I said it a milion times
         Bm                  A        Em
But I'll only stay with you one more night

         Bm              A    Em
(ooh, oh oh oh, ooh ooh ooh ooh)
         Bm              A    Em
Yeah baby give me one more night
         Bm              A    Em
(ooh, oh oh oh, ooh ooh ooh ooh)
         Bm              A    Em
Yeah baby give me one more night
         Bm              A    Em
(ooh, oh oh oh, ooh ooh ooh ooh)
         Bm              A    Em
Yeah baby give me one more night

Chorus: (Strum Once For Each Chord)

    Bm                                           A             Em
But baby there you go again, there you go again, making me love you
           Bm                            A         Em
And I stop using my head, using my head, let it all go
    Bm                                   A        Em
Now you're stuck on my body, on my body, like a tatoo

Hook(2x):

     Bm                    A           Em
So I cross my heart and I hope to die
          Bm                  A        Em
That I'll only stay with you one more night
      Bm                A           Em
And I know I said it a milion times
         Bm                  A        Em
But I'll only stay with you one more night

     Bm                    A           Em
So I cross my heart and I hope to die
          Bm                  A        Em
That I'll only stay with you one more night
      Bm                A           Em
And I know I said it a milion times
         Bm                  A        Em
But I'll only stay with you one more night

         Bm              A    Em
Yeah baby give me one more night

Read More..

Solid State Drive

Sejarah

Riwayat penyimpanan data tanpa menggunakan komponen bergerak ini sebenarnya sudah dimulai sejak akhir 1960-an dan awal tahun 1970-an. Kala itu, SSD dibuat untuk komputer super buatan IBM yaitu Amdahl dan Cray. Namun mahalnya harga yang harus dibayar, membuat SSD tidak bisa diproduksi secara masal karena tidak ekonomis (saat itu hanya dibuat jika ada pesanan).
Proyek SSD kemudian dimulai lagi dengan kehadiran SSD yang dibuat oleh StorageTek pada akhir 1970-an. Di awal tahun 1980-an, Santa Clara Systems memperkenalkan BatRam, sebuah memori berbentuk serangkaian chip RAM dengan kapasitas total sebesar 1 megabit (125 kilo byte) yang berfungsi mengemulasikan hard-disk, suatu media penyimpanan yang cukup besar kala itu, karena MS-DOS versi 1.0 hanya mendukung media penyimpanan maksimal sebesar 160 kilo byte saja. Dalam paketnya, memori ini dilengkapi dengan baterai isi ulang. Baterai ini berfungsi menyimpan data saat rangkaian RAM tidak mendapatkan pasokan daya listrik (misalnya saat komputer dimatikan).
Pada tahun 1995, M-Systems memperkenalkan SSD berbasis flash memory. SSD ini kemudian secara luas dipakai oleh kalangan militer dan industri angkasa luar Amerika Serikat sebagai pengganti fungsi hard-disk konvensional. Semenjak itu, SSD semakin berkembang sehingga berbentuk dalam perangkat yang kita kenal sekarang dan mulai diproduksi secara masal sehingga saat ini harganya semakin terjangkau (meskipun hard-disk biasa masih jauh lebih murah).

Fitur dan Teknologi

Dari sisi sifatnya, SSD dapat digolongkan menjadi dua, yaitu berbasis flash dan berbasis DRAM (Dynamic Random Access Memory).
Di pasaran saat ini banyak kita temui teknologi SSD berbasis flash, misalnya Flash Disk, Secure Digital (SD Card), Micro SD Card, Multi Media Card (MMC) dan Compact Flash (CF). Sementara SSD dengan ukuran fisik sebesar hard-disk konvensional, yaitu ukuran 1,8 inci dan 2,5 inci dengan kapasitas hingga diatas 128 GB, sejak tahun 2008 sudah mulai populer di pasaran seiring dengan harganya yang makin terjangkau.
SSD berbasis flash memanfaatkan sejumlah kecil DRAM untuk cache yang dipakai untuk menyimpan informasi tentang penempatan blok data serta informasi wear levelling (sebuah teknik untuk memperpanjang usia pemakaian memori berbasis flash). Sementara pada SSD dengan kinerja tinggi biasanya juga dilengkapi dengan penyimpanan daya listrik sementara (energy storage). Komponen ini umumnya disusun dari rangkaian kapasitor atau baterai yang berfungsi untuk memindahkan data dari cache SSD ke flash memory saat komputer dimatikan/ mati mendadak (jika berbasis kapasitor) atau untuk menyimpan data sementara dalam cache (jika menggunakan baterai).

SSD Berbasis Flash

Data dalam SSD berbasis flash biasanya disimpan dalam sel memori pada chip. Dalam kelompok ini ada dua macam jenis sel memori yang umum digunakan, yaitu jenis MLC (Multi Level Cell) dan SLC (Single Level Cell).
SSD jenis MLC biasanya lebih murah dibandingkan dengan yang berbasis SLC. Hal ini disebabkan MLC menyimpan data sebesar 3 bit atau lebih setiap selnya, sedangkan untuk SLC hanya 1 bit saja, sehingga biaya per giga byte-nya menjadi lebih rendah.
Sedangkan SSD jenis SLC berharga lebih mahal,namun tipe ini memiliki kelebihan tersendiri jika dibandingkan dengan jenis MLC, yaitu kecepatan transfer data yang lebih tinggi, konsumsi daya yang lebih rendah dan daya tahan sel memori yang lebih lama. Salah satu penyebab mahalnya harga SLC ini adalah ongkos pembuatan yang lebih tinggi per giga byte-nya mengingat SSD jenis SLC hanya mampu menyimpan data dengan jumlah yang lebih sedikit per selnya.

SSD Berbasis DRAM

SSD dengan teknologi ini memiliki kecepatan akses data yang sangat tinggi (umumnya kurang dari 1 mili detik). Perangkat ini biasanya dilengkapi dengan baterai internal dan sistem penyimpanan data cadangan untuk memastikan tetap adanya data dalam SSD saat komputer dimatikan atau mati mendadak. Dalam kondisi ini, baterai dalam SSD akan memasok daya bagi rangkaian sel untuk menyalin semua informasi dari DRAM ke perangkat penyimpanan cadangan. Saat komputer dinyalakan lagi, semua informasi ini akan dikembalikan lagi ke DRAM.

Kelebihan SSD Dibandingkan Hard-disk Konvensional

Ada banyak kelebihan Solid State Drive jika dibandingkan dengan hard-disk konvensional, diantaranya adalah:

• 1. Waktu mulai bekerja (start-up) yang lebih cepat. Hal ini berdampak pada akses data yang lebih tinggi, keterlambatan/ penundaan membaca data (latency) yang lebih rendah dan waktu pencarian data (seek time) yang jauh lebih cepat.
• 2. Tidak memiliki bising/ dengung (noise) mengingat tidak adanya komponen yang bergerak.
• 3. Lebih hemat daya listrik, meskipun untuk SSD berbasis DRAM masih diperlukan catu daya yang cukup tinggi, namun jika dibandingkan dengan hard-disk konvensional masih jauh lebih hemat energi.
• 4. Lebih kebal terhadap guncangan, getaran, dan temperatur yang tinggi.
• 5. Dengan kapasitas penyimpanan yang sama, SSD memiliki bobot yang lebih ringan dan ukuran fisik yang lebih ramping jika dibandingkan dengan hard-disk biasa (khususnya saat ini hingga ukuran penyimpanan 256 GB) sehingga lebih portable untuk notebook dan mobile external storage.
• 6. Karena dapat menyimpan data meskipun catu daya tidak ada, kelak teknologi SSD ini jika digabungkan dengan teknologi Memristor (Memory Transistor) membuka kemungkinan tercapainya pembuatan sebuah komputer yang dapat dihidup-matikan layaknya sebuah televisi, sehingga istilah start-up, shut down, hang, blue screen dan sejenisnya hanya menjadi catatan sejarah untuk anak cucu kita

 Sumber : http://id.wikipedia.org

Read More..

Pembuatan Database Dengan Delphi

Delphi menyediakan 3 cara untuk menghubungkan aplikasi kita dengan database
1. menggunakan ADO engine
2. Menggunakan db Express
3. Menggunakan BDE (Borland Database Engine)
ADO engine merupakan standar konektifitas database dalam delphi. Ia bisa berhubungan dengan berbagai database asal dalam komputer tersebut memiliki driver yang sesuai. Kelemahan ADO ia lebih lambat dari pada BDE.
Untuk dbExpress jarang digunakan, ia lebih dikembangkan untuk mengakses database yang beda platform, misalkan untuk mengakses database di sistem Unix atau Linux.
BDE merupakan library khusus yang disediakan oleh borland (pembuat delphi) untuk mengakses database. Kelebihan BDE ia lebih cepat dari pada ADO ataupun engine lainnya. Tetapi saat ini BDE sudah mulai ditinggalkan, meski begitu BDE masih mampu memenuhi program yang akan kita buat. Standar dalam membuat aplikasi ini kita menggunakan BDE.
Standar DBMS
Aplikasi yang akan kita bangun akan menggunakan MS sql server dari microsoft
Membuat DSN untuk database SQL server dalam Sistem Operasi Windows XP
Misalkan kita belum memiliki DSN untuk aplikasi kita, maka kita bisa membuatnya, dengan cara:
1. Masuk ke control panel | Administrsion tool | ODBC driver
2. klik tab system DSN
3. klik tombol add
4. dalam driver list, pilih SQL server ( bukan MSSQL) klik finish
5. kemudian masukkan nama dari DSN yang akan kita buat, pilih servernya kemudian klik next
6. pilih with SQL server autenticationartinya verifikasi password akan dilakukan melalui SQL server. Kemudian tuliskan user dan password kita yang ada dalam SQL server, Klik next
7. klik next,next,next dan test koneksi dengan klik tombol test connection
Koneksi sukses dilakukan
Membuat aplikasi
untuk mengakses datatabse kita memiliki 2 cara yaitu dengan menggunakan table dan query. Untuk bahasan yang pertama kita akan menggunakan table
1. Buat project baru
2. taruh komponen dari palet BDE yaitu : database dan table
3. klik dua kali komponen database, maka akan ditemui window parameter dari database
4. isikan box nama=koneksi
combobox driver name=SQL server (bukan MSSQL server)
5. isikan parameternya sbb (pada box parameter override)
Database Name : nama_database_kita (dalam hal ini ktp)
user name : user name kita di SQL server (dalam hal ini sa)
DSN ODBC : nama DSN yang baru saja kita buat (dalam hal ini myDSN)
password :
6. aktifkan database pada properti connected=true
7. Taruh komponen Table1 dan Query1 ke dalam form dari palete BDE
8. hubungkan komponen Table1 dengan komponen database dengan cara:
Set property databasename dari komponen table pada window property.
Pilih table dari database yang akan ditampilkan, dengan cara set property tablename dari komponen table (dalam hal ini nama tabelnya wilayah)
9. Kemudian untuk menampilkan data,kita membutuhkan komponen data source dari palete DataAccess, taruh di form. Set properti datasource dataset=table1
10. Taruh DB grid dari palete DataControl, set properti datasource=datasource1, maka data dari table (dalam hal ini nm table adalah wilayah) akan tampil pada DBGrid
Aktifkan properti Table1 menjadi true
11. Tampilan dari DBgrid
Alternatif menampilkan data dengan komponen Query, caranya sbb:
1. Masih dalam form yang sama, taruh komponen query dan sebuah datasource dan sebuah Dbgrid lagi
2. Set properti Query databasename=databasenya(dalam hal ini adalah koneksi)
set properti Query SQL=’select kd_wilayah,nama_wilayah from wilayah’
set properti active=true
3. Pada Datasource2, set properti dataset=Query1, maka data tersebut akan
tampil di DBGrid yang kedua, Data yang di Dbgrid 1 dan DBGrid2 sama persis, hanya saja cara mengaksesnya yang berbeda
Catatan:
penggunaan komponen tabel dan komponen Query bisa memiliki hasil yang sama, tetapi penggunaan query akan menjadi lebih fleksibel, karena semua perintah untuk berinteraksi dengan database akan di lakukan dengan SQL command line
Jika kita banyak menggunakan komponen untuk mengakses database, sebaikkya penggunaan datasourcenya berbanding lurus, jik 2 query, sebaikknya kita menggunakan 2 datasource
Contoh aplikasi yang menggunakan Query untuk berinteraksi dengan database
1. taruh 2 edit dan 1 button untuk menambahkan data ke dalam databse
2. klik double button1, kemudian isikan kode berikut
//perintah untuk menyisipkan data
Qery1.SQL.Clear;
Query1.SQL.text:=’insert into wilayah (kd_wilayah,nama_wilayah) values (:parKd_wilayah,:parNama_wilayah)’;
Query1.Prepare;
Query1.ParamByName(‘parKd_Wilayah).asString:=edit1.text;
Query1.ParamByName(‘parNama_wilayah).asString:=edit2.text;
Query1.ExecSQL;
//perintah untuk merefersh lagi
Query1.SQL.Clear;
Query1.SQL.Text:=’select *from wilayah’;
Query1.Open;


Bersumber dari : http://blog.uad.ac.id/ida/2011/12/21/pemrograman-database-pada-delphi/

Read More..

Pengertian Interbase

Interbase adalah sebuah relational database management system (RDBMS) yang mampu melakukan pemrosesan transaksi dengan cepat dan menggunakan data secara bersama baik dalam lingkungan singel user ataupun multi user.
Interbase menggunakan sebuah data definition language (DDL) untuk mendefinisikan berbagai objek database yang berisi informasi mengenai struktur database beserta datanya. Objek-objek ini sering juga disebut sebagai “metadata”.

Sebagaimana MySQL, Interbase juga memiliki kemampuan mengelola data skala enterprise. Meskipun penggunanya tidak sebanyak MySQL, tetapi tidak sedikit masyarakat TI, termasuk perusahaan yang menggunakan Interbase. Tutorial kali ini akan membahas perancangan database untuk Sistem Informasi Sirkulasi Perpustakaan menggunakan berbagai objek database yang didukung Interbase.


Tutorial ini tidak hanya dapat dimanfaatkan untuk pengguna Interbase, tapi juga FireBird. Database FireBird memiliki arsitektur yang sangat mirip dengan Interbase, sehingga tidak heran bila FireBird sering disebut sebagai “kloning”-nya Interbase. FireBird juga sering dikenal dengan versi open source-nya Interbase.

Read More..

Membuat Menu Login Pada Delphi

Untuk seorang pemula seperti saya ini tentu akan sangat pusing sekali mencari cara supaya membuat menu login pada program yang akan dibuat.
Setelah sekian lama mencari, akhirnya saya menemukan cara agar bisa membuat form login untuk program saya.

pertama - tama buat dulu tabel login di microsoft access atau Sql, tapi untuk contoh ini saya buat dalam microsoft access 2007









nama tabel : login (tinggal sesuaikan terserah anda)
field       type
Username    text
password    text  inputmask: password

setelah itu simpan database anda dengan format access 2003(ekstensi *.mdb). 


buka program delphi anda. buat sebuah project baru,lalu buat 2 buah form ,beri nama formlogin dan formutama.

Form Login

implementasikan menuutama ddengan cara tekan alt+F11 lalu pilih menuutama klik ok
 
tambahkan komponen adoconnection,adoquery,2 tlabel, 2 tedit,2 tbutton, 1 progressbar. atur seperti gambar dibawah 




 
klik pada adoconecction1 klik pada connecctionstring pada build pilih microsoft jet ole provider

pada select database name pilih database yang telah dibuat

kemudian klik test conecction lalu klik ok.
propeties login prompt isikan false, lalu connected : true.

klik pada adoquery1 lalu isikan sesuai berikut:
connection : adoconnection1
sql        : select*from login
active     : true

setelah itu klik pada form, masukkan kode berikut pada event oncreate:

procedure Tformlogin.FormCreate(Sender: TObject);
var
   S:char;
   alamatDB:widestring ;

begin

   // Manipulasi cursors crSQLWait agar tidak tampil
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
   // atur tampilan form
   s :='*';
   Edit1.Text := '';
   Edit2.PasswordChar := s;
   Edit2.Text := '';
end;

     
setelah itu klik dua kali pada button login dan masukkan kode berikut:

procedure Tformlogin.SpeedButton1Click(Sender: TObject);
var
   baris,nilai:integer;
begin
      with ADOQuery1 do begin
        Close ;
        SQL.Clear; // bersihkan perintah sql jika ada
        SQL.Add('select * from login where username='+QuotedStr(Edit1.Text));
        Open ;
      end; // end with
      // jika tidak ditemukan data yang dicari maka
      // tampilkan pesan
     if ADOQuery1.RecordCount = 0 then
       Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',MB_OK or MB_ICONINFORMATION)
 else begin
     if ADOQuery1.FieldByName('password').AsString <> Edit2.Text
     then Application.MessageBox('Pastikan username atau password benar','Error', MB_OK or MB_ICONERROR)
     else begin
     ProgressBar1.Visible:=true;
     baris:=100;
     progressbar1.Min:=0;
     progressbar1.Max:=baris;
     for nilai:=1 to baris do
     progressbar1.Position:=nilai;
     progressbar1.Visible:=false;
     form2.Hide;
     Formutama.Show;
end
end;
end;

klik dua kali pada button cancel dan masukkan kode berikut:

application.terminated;

sehingga keseluruhan kodenya adalah sebagai berikut:
 

pilih jet 4.0 ole db provider

pilih database yang telah di buat

pilih jet 4.0 ole db provider

unit Ulogin;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

uses umenuutama;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
     Application.Terminate;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
   baris,nilai:integer;
begin
      with ADOQuery1 do begin
        Close ;
        SQL.Clear; // bersihkan perintah sql jika ada
        SQL.Add('select * from login where username='+QuotedStr(Edit1.Text));
        Open ;
      end; // end with
      // jika tidak ditemukan data yang dicari maka
      // tampilkan pesan
     if ADOQuery1.RecordCount = 0 then
       Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',MB_OK or MB_ICONINFORMATION)
 else begin
     if ADOQuery1.FieldByName('password').AsString <> Edit2.Text
     then Application.MessageBox('Pastikan username atau password benar','Error', MB_OK or MB_ICONERROR)
     else begin
     ProgressBar1.Visible:=true;
     baris:=100;
     progressbar1.Min:=0;
     progressbar1.Max:=baris;
     for nilai:=1 to baris do
     progressbar1.Position:=nilai;
     progressbar1.Visible:=false;
     form2.Hide;
     Formutama.Show;
end
end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
   S:char;
   alamatDB:widestring ;

begin

   // Manipulasi cursors crSQLWait agar tidak tampil
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault];
   // atur tampilan form
   s :='*';
   Edit1.Text := '';
   Edit2.PasswordChar := s;
   Edit2.Text := '';
end;
end.

Read More..