Скачать: CL | DM;

Проблемы с Locate   Найти похожие ветки 

← →
Rom ©   (2006-02-13 22:05) [0]

Здравствуйте.
Помогите, пожалуйста, разобраться с Locate. Для поиска предполагаю использую описанную ниже процедуру. Поиск только по фамилии (edit1) работает, а по имени (edit2) или двум параметрам нет. Помогите, пожалуйста, найти ошибку и обеспечить поиск по двум параметрам

procedure TForm1.Button4Click(Sender: TObject);
var
locopts: TLocateOptions;
locFields: string;
locValues: variant;
begin
locopts:=[];
locFields:="last_name";
if Length(edit2.Text)>0 then
begin
locFields:=locFields+"; first_name";
LocValues:=VarArrayCreate([0,1], varVariant);  //создание вариантного массива
LocValues[0]:=Edit1.Text; //фамилия
LocValues[1]:=edit2.Text; //имя
end
else
LocValues:=edit1.Text;

if checkBox1.Checked then
  locopts:=locopts+[loPartialKey]; // поиск с частичным совпадением
if checkBox2.Checked then
  locopts:=locopts+[loCaseInsensitive]; //---- без учёта регистра

query1.Locate(LocFields, LocValues, locopts );
end;

---

← →
unknown ©   (2006-02-13 22:49) [1]

Как ни странно, но код рабочий.
проверил на D7, IBX 7.08

---

← →
Виталий Панасенко   (2006-02-14 11:39) [2]

Не, заню, как все реализовано, но, если в Query1 запрос вида select * from table, можно(нужно!!!) переделать на select * from table where last_name=(like) :last_name and firest_name=(like):first_name
Запрос можно создавать динамически, с учетом значений CheckBox1/2. На малых обьемах разницы не будет видно. Но на 1000 и более записях(при наличии индекса) ты будешь приятно удивлен(или НЕ приятно).

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.976 c