De
ngan
menggunakan delphi 7 dapat dibuat aplikasi yang digunakan untuk
melakukan editing database access dengan ekstensi .mds, pada tutorial
kali ini akan dibahas cara untuk menambahkan dan menghapus record yang
terdapat dalam file database eksternal dengan ekstensi .mds.
berikut langkah-langkahnya:
langkah 1
- buat form yang terkoneksi dengan database dan memiliki tampilan sebagai berikut:
- pada
gambar diatas dapat dilihat telah dibuat koneksi dengan database melalui
adoconnection dan adotable, hasilnya dapat langsung dilihat pada
dbgrid. untuk melakukan koneksi database dapat dilihat disini
- dibuat juga 2 buah kotak edit untuk melakukan input nama dan input umur.
-
selanjutnya dibuat 2 buah tombol untuk melakukan insert data dan delete
data pada table dan hasilnya dapat langsung dilihat pada dbgrid.
langkah 2
- double click pada tombol masukan dan masukkan kode program berikut pada prosedurnya
- begin
- if edit1.GetTextLen = 0 then
- showmessage(‘isi nama dahulu’);
- if edit2.GetTextLen = 0 then
- showmessage(‘isi umur dahulu’);
- if (edit1.GetTextLen >0) and (edit2.GetTextLen>0) then
- begin
- with table1 do
- table1.Append;
- table1nama.Value:=edit1.text;
- table1umur.Value:=strtoint(edit2.Text);
- table1.Insert;
- table1.Next;
- edit1.text:=”;
- edit2.Text:=”;
- end;
- end;
- penjelasan
tombol ini digunakan untuk melakukan insert data ke dalam database. listing program pada tombol ini akan dibahas perbagian.
untuk
melakukan pengisian data diperlukan 2 buah data yang diinputkan yaitu
data nama dan umur karena itu untuk menghindari terjadinya error maka
pada awal dituliskan listing:
- if edit1.GetTextLen = 0 then
- showmessage(‘isi nama dahulu’);
dengan listing diatas maka akan dicek apabila
kotak edit1 masih kosong maka akan menampilkan pesan. perintah
GetTextLen adalah perintah untuk mengambil panjang nilai karakter pada
edit1. jadi jika edit1 belum diisi maka nilai GetTextLen akan sama
dengan 0. begitupula dengan listing:
- if edit2.GetTextLen = 0 then
- showmessage(‘isi umur dahulu’);
untuk mengecek isi edit2. lalu listing:
- if (edit1.GetTextLen >0) and (edit2.GetTextLen>0) then
adalah untuk melakukan pengecekan apabila
edit1 dan edit2 telah terisi maka program utama akan dijalankan. bila
salah satu belum terisi maka proses insert data akan error. listing program utama:
akan melakukan proses dengan melibatkan table1(adotable)
perintah untuk mengaktifkan proses pengisian table sehingga table database dalam kondisi siap untuk diisi
- table1nama.Value:=edit1.text;
- table1umur.Value:=strtoint(edit2.Text);
field pada table 1 memiliki nama variabel tersendiri yang dapat
diakses isinya, pada listing diatas adalah cara untuk melakukan
pengisian field dari table tersebut. untuk nama dapat langsung diisikan
karena tipe datanya sama yaitu string, sedangkan untuk umur perlu
melakukan konversi dari string ke integer karena umur memiliki tipe data
integer
.
- table1.Insert;
- table1.Next;
data yang telah diisikan pada field sebelumnya belum sepenuhnya
tersimpan pada database karena itu digunakan listing diatas. instruksi
insert digunakan untuk melakukan insert data ke dalam table. dan
instruksi next digunkan untuk mengganti posisi pointer sehingga dapat
melakukan pengisian data selanjutnya.
- edit1.text:=”;
- edit2.Text:=”;
listing diatas adalah untuk mengosongkan isi
dari edit1 dan edit2 setelah melakukan pengisian data sehingga siap
untuk diisi data selanjutnya.
langkah 3
– double click pada tombol hapus dan para prosedurnya isikan listing berikut:
- begin
- if table1.IsEmpty then
- showmessage(‘tabel kosong’)
- else
- table1.Delete ;
- end;
- tombol ini digunakan untuk melakukan
penghapusan record pada table database. record yang dihapus adalah
record yang ditunjuk oleh pointer(tanda segitiga hitam pada sebelah kiri
dbgrid).
- pembahasan listing adalah sebagai berikut
- if table1.IsEmpty then
- showmessage(‘tabel kosong’)
listing ini digunakan untuk melakukan
pengecekan kondisi table1 apakah kosong atau masih ada data di dalamnya,
hal ini dilakukan untuk mencegah terjadinya error saat melakukan
penghapusan tecord namun tidak ditemukan data. karena itu dengan listing
ini maka saat tidak ada data di dalam table akan muncul pesan
peringatan.
listing selanjutnya digunakan untuk melakukan
penghapusan record sesuai dengan posisi pointernya. cukup dengan
menggunakan instruksi delete.
dengan
demikian telah dapat dibuat apliaksi yang digunakan untuk mekaukan
pengisian dan penghapusan data ke dalam table database dengan ekstensi
.mds.
semoga tutorial ini bermanfaat
Tidak ada komentar:
Posting Komentar