1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| else if ListFiltr1.ItemIndex = 2 then
ADODataSet1.CommandText :=
'select [EmployeeID],LastName,FirstName,Title,City from Employees where '
+ ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like ' +
quotedstr(TxtCherche.text) + '%" order by ' + ListTrie.Items[ListTrie.ItemIndex]
+ TxtTrie
else if ListFiltr1.ItemIndex = 3 then
ADODataSet1.CommandText :=
'select [EmployeeID],LastName,FirstName,Title,City from Employees where '
+ ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like "%' +
quotedstr(TxtCherche.text) + '" order by ' + ListTrie.Items[ListTrie.ItemIndex]
+ TxtTrie
else
ADODataSet1.CommandText :=
'select [EmployeeID],LastName,FirstName,Title,City from Employees where '
+ ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like "%' +
quotedstr(TxtCherche.text) + '%" order by ' + ListTrie.Items[ListTrie.ItemIndex]
+ TxtTrie;
ADODataSet1.Active := True;
ADODataSet1.Requery();
end; |