Форум по Delphi программированию - Показать сообщение отдельно

Mrak · #5 29.03.2013, 14:31

Код:

ADOCardClient.Filtered:=false;
ADOCardClient.Filter:=
    '(Код_клиента LIKE '+inttostr(ADOClient.FieldValues['Код_клиента'])+' AND №_Накладной >= '+DBEditEh1.Text+
') OR (Код_клиента LIKE '+inttostr(ADOClient.FieldValues['Код_клиента'])+' AND Сумма >= '+DBEditEh1.Text+
') OR (Код_клиента LIKE '+inttostr(ADOClient.FieldValues['Код_клиента'])+'  AND Должен >= '+DBEditEh1.Text+
') OR (Код_клиента LIKE '+inttostr(ADOClient.FieldValues['Код_клиента'])+' AND Оплатил >= '+DBEditEh1.Text + ')';
ADOCardClient.Filtered:=true;