Dengan 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
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:
langkah 3
- double click pada tombol hapus dan para prosedurnya isikan listing berikut:
- pembahasan listing adalah sebagai berikut
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 :)
READ MORE - Menambah dan Menghapus Record Database Access dengan Delphi 7
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;
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');
- if edit2.GetTextLen = 0 then
- showmessage('isi umur dahulu');
- if (edit1.GetTextLen >0) and (edit2.GetTextLen>0) then
- with table1 do
- table1.Append;
- table1nama.Value:=edit1.text;
- table1umur.Value:=strtoint(edit2.Text);
- table1.Insert;
- table1.Next;
- edit1.text:='';
- edit2.Text:='';
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;
- pembahasan listing adalah sebagai berikut
- if table1.IsEmpty then
- showmessage('tabel kosong')
- else
- table1.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 :)