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 :
-- 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!
loading...
