Operasi Data dengan ADOTable di Delphi

Kali ini akan dipelajari bagaimana cara untuk melakukan pencarian data serta menampilkan data tersebut kedalam komponen EditBox biasa (bukan DBEdit). Selain itu juga akan dipelajari bagaimana cara untuk melakukan editing data serta deleting. Semuanya dengan bantuan komponen ADOTable.

Mencari Data

Setelah sukses menampilkan data pada Edit, maka sekarang memasuki hal yang paling vital pada dunia pemrograman dengan menggunakan database yaitu proses pencarian data (searching). Pada dasarnya logika proses pencarian data adalah sebagai berikut :

1. Tentukan data yang dicari (pada edit)
2. Gerakkan kursor menuju record pertama (first)
3. Baca field yang telah ditentukan (misal kdbrg)
4. Bandingkan data yang dicari dengan data yang dibaca dari database
5. Jika sama maka tampilkan semua data
6. Jika tidak sama maka gerakkan kursor ke record berikutnya (next)
7. ulangi langkah – langkah diatas sampai record terakhir (EOF)

Untuk mempermudah proses pencarian, ADOTable memiliki salah satu fungsi pencarian yaitu fungsi Locate. Fungsi ini akan mencari pada field yang ditentukan untuk dibandingkan dengan inputan yang diberikan dengan menggunakan metode LoCaseInsensitive atau LoPartialKey. Pada metode LoCaseInsensitive, maka proses pencarian akan mengabaikan huruf kapital (menganggap sama huruf besar dan kecil). Sedangkan pada metode LoPartialKey, proses pencarian dapat dilakukan hanya dengan sebagian karakter saja dari data yang dicari (tidak perlu lengkap).

1. KeyField adalah field dimana pencarian akan dilakukan (dapat lebih dari 1 field)
2. KeyValues adalah nilai yang dicari (dari Edit)
3. Options adalah metode yang digunakan (LoPartialKey / LoCaseInsenstive)

1	ADOTable1.Locate('Kode',edtKode.Text,[loCaseInsensitive])

Jika pencarian berhasil, maka fungsi ini akan menghasilkan nilai True dan sebaliknya jika pencarian gagal (tidak menemukan data yang dicari) fungsi ini akan mengembalikan nilai False.

Jika proses pencarian sudah berhasil, maka selanjutnya pengguna dapat mengubah maupun menghapus data yang ditemukan.

Menampilkan Data

Hal pertama yang perlu dipahami terlebih dahulu adalah cara untuk menampilkan data pada komponen Edit. Cara yang dilakukan pada dasarnya adalah kebalikan dari proses menyimpan data. Jika pada proses menyimpan data yang ada didalam edit (DBEdit) disimpan kedalam database, maka kali ini adalah kebalikannya. Data yang ada didalam database akan ditampilkan pada Edit.

EdtKDBRG.Text := ADOTable1.fieldbyname(’kdbrg’).AsString; EdtNAMA.Text := ADOTable1.fieldbyname(’namabrg’).AsString; EdtSTOK.Text := ADOTable1.Fields[2].AsString; EdtHARGA.Text := ADOTable1.Fields[3].AsString;

Sekali lagi, data yang tampil adalah data pada posisi kursor.

Mengubah Data

Untuk melakukan pengubahan data pada dasarnya sama dengan proses penambahan data hanya saja mengganti perintah Append menjadi Edit agar tidak membuat baris baru. Tetap diakhiri dengan perintah Post untuk menyimpan data. 
ADOTable1.Edit;
ADOTable1.Fields[2].AsInteger := Stokedit;

ADOTable1.Post;  

Menghapus Data

Sedangkan untuk proses penghapusan data cukup dengan menggunakan perintah Delete. Yang perlu diperhatikan dalam menggunakan perintah penghapusan data ini adalah pastikan terlebih dahulu apakah data jadi dihapus atau tidak (buat pertanyaan kepada pengguna). Karena setelah dilakukan proses penghapusan maka data tidak akan dapat dikembalikan lagi.

if MessageDlg(’YAKIN MENGHAPUS DATA ' + ADOTable1.Fields[1].AsString +' ?', mtConfirmation,mbOKCancel,0) = mrok then ADOTable1.Delete;

  

Mengatur ukuran gambar sesuai ke inginan kita caranya

Buka properti Timage trus === strecth = true

Untuk merefresh ado table gunakan perintah

ADOTable1.Close;
ADOTable1.Open;