Membuat Program Buku Telepon Dengan Delphi 7

Selamat datang gaesss. Disini saya akan membuat artikel tentang Bagaimana Cara Membuat Program Buku Telepon. Kita mulai dari membuat database dahulu. Disini saya menggunakan database acces.
Silahkan buat database yang isinya seperti screenshoot dibawah ini :

--Baca juga : Cara membuat Database di ms. Access --
1. Desain formnya seperti gambar dibawah ini :

2. Koneksikan supaya bisa terhubung ke database.
   -- Baca juga : Cara koneksi database access di Delphi --
3. Koneksikan juga tabel (DBGrid) supaya bisa menampilkan tabelnya.
   -- Baca juga : Cara koneksi DBGrid di Delphi –
4.  Untuk Scriptnya silahkan masukkan sesuai dengan dibawah ini :
  - Button Simpan
     procedure Tf_inputdata.Button1Click(Sender: TObject);
     begin
     adotable1.Open;
     adotable1.append;
     adotable1.FieldByName('id').AsString:=edit1.Text;
     adotable1.FieldByName('nama').asstring:=edit2.Text;
     adotable1.FieldByName('perusahaan').asstring:=edit3.Text;
     adotable1.FieldByName('nomor').asstring:=edit4.Text;
     adotable1.Post;
     adotable1.Refresh;
     end;


  - Button Hapus
     procedure Tf_inputdata.Button2Click(Sender: TObject);
     begin
     If messagedlg('Yakin ingin menghapus data ini?',mtConfirmation,
     [mbYes,mbNo],0)=mrYes then ADOTable1.delete;
     ADOTable1.Refresh;
     end;

  - Button Keluar
     procedure Tf_inputdata.Button3Click(Sender: TObject);
     begin
     close;
     end;

5. Setelah selesai, maka ketika akan dijalankan hasilnya seperti dibawah ini :

Demikian pembuatan dari program sederhana buku telepon. Sobat bisa mengkreasikan supaya hasilnya lebih cantik dan lebih menarik.
Selamat berkreasi kawan!