Pemrograman V. Delphi 7 : Membuat program pencarian

13 Mei

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 :

delphi_cari

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.

4 Tanggapan to “Pemrograman V. Delphi 7 : Membuat program pencarian”

  1. NIZAR Agustus 13, 2010 pada 1:42 pm #

    SUWON BOS PROGRAMMER JAYA…………………………..

  2. raikou April 23, 2012 pada 7:26 am #

    kok nggak bisa tu gimana? tanda ” diganti/ tetep “?

  3. Mau tanya, untuk mencari file yang filenya di windows gmn ya?

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: