procedure Tfperiksa.btcariClick(Sender: TObject);
begin
ADOTable1.IndexName:='';
If not ADOTable1.FindKey(ecekcari.Text)then
begin
showmessage('Data Belum Ada');
exit;
fperiksa.ActiveControl:=ecekcari;
end
else
ecekkode.Text:=ADOTable1['kode_aset'];
eceknama.Text:=ADOTable1['nama_aset'];
eceklokasi.Text:=ADOTable1['lokasi'];
ecekno.Text:=ADOTable1['no_lokasi'];
ecekpemegang.Text:=ADOTable1['pemegang_aset'];
ecektahun.Text:=ADOTable1['tahun'];
ecekkondisi.Text:=ADOTable1['kondisi'];
end;