Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Вниз
Проблемы с 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
