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.
Read the original:
Pemrograman V. Delphi 7 : Membuat program pencarian
Possibly Related Posts:
- Cara Menghapus Password BIOS pada Notebook Acer
- Menghapus Password Harddisk Notebook atau Laptop (acer)
- Cara Darurat Menambah Memori
- Menambahkan Teks Dan Image Pada System Properties
- Tips Mengubah Huruf Drive Pada Windows XP
