Idemo dalje...
Preporučujem vam da skinete source programa odavde:
http://members.lycos.co.uk/satpass .
Danas ćemo naučiti kako da filtriramo podatke i kako da pretražujemo bazu.
**********************************************************
Filtriranje podataka
**********************************************************
Ukoliko želite da se prikažu samo neki delovi baze onda treba primeniti filtriranje
podataka. To se lako radi, samo treba da vidite kako, a evo kako:
Code:
ADOTable1.Filter := 'ID = 2';
ADOTable1.Filtered := true;
Da pojasnimo:
ADOTable1.Filter := 'ID = 2'; -- Ovo filtrira podatke: Traži u polju
ID vrednost 2 i prikazuje samo taj
rekord.
ADOTable1.Filtered := true; -- Bez ovoga ništa ne vredi, znači ne
primenjuje se filtriranje!
Ukoliko želite da filtrirate neki string moraćete to uraditi putem ove komande:
Code:
ADOTable1.Filter := 'Naziv = ' + QuotedStr(Edit1.Text);
ADOTable1.Filtered := true;
U čemu je fora? Fora je u QuotedStr. Videli ste njenu strukturu pa je koristite!
Dalje, u koliko želite da filtrirate više od jednog polja odjednom morate koristiti OR ili / i
AND. Kakva je struktura, pitate se sada. A ja vam dajem odgovor!!!!
Code:
ADOTable1.Filter := 'Naziv = ' + QuotedStr(Edit1.Text)
+ ' AND ID < 5 OR Godina = 2003';
ADOTable1.Filtered := true;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
PRETRAGA
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Kako da pretražite bazu? Lako!
Ovako!
Code:
procedure TForm1.Edit7Change(Sender: TObject);
var searchstring : String ; polje: String;
begin
searchstring := Edit7.Text ;
polje := Edit8.Text;
ADOTable1.Locate(polje,searchstring ,[]) ;
end;
Ovo ne treba objašnjavati posebno samo da u poslednjem redu unutar [ ] treba da
stoje opcije o kojima sada nećemo detaljno.
Sutra nas očekuje još posla pa zato se pripremite!