Pekerjaan yang cukup sering dilakukan dalam pemrograman basis data menggunakan V. Delphi adalah pencarian data. Ada lima fungsi yang berhubungan dengan pencarian data, yaitu : FindKey, FindNearest, SetKey, GotoKey, dan GotoNearest. (tutorial ini adalah kelanjutan dari tutorial sebelumnya, jika Anda mengalami kesulitan, coba cari tutorial lainnya di blog ini)

Rancanglah form seperti berikut :



Databasename : DBDEMOS

Tabel : Customer

Code Programnya adalah :

procedure TForm1.tmencariClick(Sender: TObject);

begin

if (edit1.Text ='') then

exit;

{menggunakan indeks primer}

Table1.IndexName :='';

{mencari data}

if (not table1.FindKey([StrToInt(edit1.Text )]))then

{Jika data tidak ditemukan tampilkan pesan}

application.MessageBox ('data tidak ditemukan ',' Informasi',MB_OK or MB_ICONINFORMATION);

end;

procedure TForm1.tmencari2Click(Sender: TObject);

begin

if (edit4.Text ='') then

exit;

{menggunakan indeks sekunder (Bycompany)}

Table1.IndexName :='ByCompany';

{Mencari data}

Table1.SetKey ;

Table1.FieldByName('Company').AsString :=edit4.Text;

table1.GotoNearest ;

end;

procedure TForm1.TapplyClick(Sender: TObject);

begin

if (edit2.Text ='') and

(edit3.Text ='') then

exit;

{menggunakan indeks primer}

Table1.indexname:= '';

Table1.setrangeStart;

Table1.Fields[0].AsString:=Edit2.Text;

Table1.SetRangeEnd;

Table1.Fields[0].AsString:=Edit3.Text;

Table1.ApplyRange ;

end;

procedure TForm1.tcancelClick(Sender: TObject);

begin

Table1.CancelRange ;

Table1.Refresh ;

end;

end.



0 komentar