Form1.pFIBDataSet1.Close;
Case ComboBox1.ItemIndex of
0: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where IME = ' + '''Edit1.Text''';
1: Form1.pFIBDataSet1.FieldByName(PREZIME).AsString := Edit1.Text;
// 2: Form1.pFIBDataSet1.Locate('TELEFON', Form2.Edit1.Text);
// 3: Form1.pFIBDataSet1.FindField(MOBILNI):= Edit1.Text;
4: Form1.pFIBDataSet1.Filter:= DATUM+'='''+Edit1.text+'*''';
5: Form1.pFIBDataSet1.Filter:= 'VRSTA_ROBE'+'='''+Edit1.text+'''';
6: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where DOBAVLJAC = '' + Edit1.Text '' ';
7: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where NAZIV_ROBE = '' + Edit1.Text '' ';
8: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where CENA = '' + Edit1.Text '' ';
9: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where PLACENO = '' + Edit1.Text '' ';
10: Form1.pFIBDataSet1.SelectSQL.Text := 'select * from SIMIC where ROK_PLACANJA = '' + Edit1.Text '' ';
end;
Form1.pFIBDataSet1.Open;
Za prvih 6 polja 6 razlicitih nacina ali ni za jedno polje pretraga ne radi, ili ispise da ne postoji kolona "Edit1.Text", ili izbrise sve podatke sa grida, ili ostavi sve zapise neizfiltrirane...
Pomagajte.