Arsip: Pencarian Field di Delphi


by DelphiXer in Articles more 14 years ago 2875
unit Pencarian_Record
uses
Delphi-id.org,DelphiXer, Delphi-id.org, DelphiXer,Delphi-id.org;

type
pencarian record = class(Tpencarian record)


private
{ DelphiXer }
public
{ delphi-id.com }
end;

var
Art1: TArt1;

implementation

{$R .dfm}

Alo semua ...?
Gue mo ngirim tutorial pertama gue nih mengenai pencarian ( searching ).
Langsung aja ya boss .

Salah satu keunggulan dari database yang sekarang ini adalah ke­mudahan kita mencari record
tertentu dari tabel yang memiliki begitu banyak record.
Teryata Delphi memberikan beberapa cara untuk mencari record, ada banyak cara lho
ada yang menggunakan index maupun tidak. Yang akan dijelaskan disini adalah point-pointnya
walaupun sederhana dan sedikit tapi semoga dapat bermanfaat. Amin.
selanjutnya teman2 dapat mempelajari dan mengembangkannya.
- Menggunakan metode Goto // menggunakan index
- Menggunakan metode Find // menggunakan index
- Menggunakan Locate // tidak menggunakan index

1. Menggunakan Metode Goto

Cara ini hanya dapat digunakan jika tabel tersebut memiliki index.
Jika tidak memiliki index maka metode ini tidak dapat digunakan.
Kita mencoba mencari record dengan kolom id yang ber­nilai DelpHiXer.
Kita bisa mencari field tersebut karena index yang digunakan adalah
kolom id. // nih contoh procedure-nya

procedure TForm1.button1Click(Sender : TObject);
begin
Table1.SetKey;
Table1['id'] := 'DelphiXer';
if not Table1.GotoKey then
ShowMessage('Field tidak ditemukan')
else
ShowMessage('Field ditemukan');
end;
Syntax Highlighted with https://pascal-id.org/syntax


2. Menggunakan Metode Find

Jika dengan metode Goto kita harus melakukan beberapa langkah,
maka pada metode ini kita cukup menggunakan satu langkah saja.
Kita mencoba mencari record dengan kolom id yang ber­nilai DelpHiXer.
Kita bisa mencari field tersebut karena index yang digunakan adalah
kolom id. // nih contoh procedure-nya

procedure TForml.button1Click(Sender: TObject);
begin
  if not Table1.FindKey(['DelpHiXer']) then 
ShowMessage('Field tidak ditemukan')
else
ShowMessage('Field ditemukan');
Syntax Highlighted with https://pascal-id.org/syntax


3 Menggunakan Metode Locate

Jika kita ingin mencari record yang tidak digunakan sebagai index,
maka kita menggunakan metode locate.
Ketika Delphi mencari record, ada beberapa pilihan yang harus kita
sebutkan jika menggunakan metode locate, yaitu:
- loCaselnsensitiue, data yang dicari tidak memperhatikan apa­kah huruf besar atau huruf kecil.
- loPartialKey, data yang dicari dianggap ditemukan walaupun hanya sebagian yang sama.

Misalkan Del', Delphi' dan DelphiXer' adalah sama jika kita mencari record
dengan key
Del'. Kita mencoba mencari record dengan syarat field nama
berisi nilai `DelphiXer'. // nih contoh procedure-nya

procedure TForm1.butoon1Click(Sender: TObject);
begin
if not Table1.Locate('nama', 'DelphiXer', [loPartialKey]) then 
ShowMessage('Field tidak ditemukan') else ShowMessage('Field ditemukan. namanya adalah '+ 'Table1['nama']); end;
Syntax Highlighted with https://pascal-id.org/syntax
 ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|                  PENCARIAN FIELD / RECORD                |
------------------------------------------------------------
   	  by :#DelphiXer          *
[[[[[ 1 ]]]]]
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com