Поиск

← →
Клара (2006-12-12 13:07) [0]

Процедура поиска через ComboBox1 и Edit.

procedure TForm11.Edit2Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: Form11.ADOtable1.Locate("ID_promoutera",edit2.Text,[loCaseInsensitive,loPartialK ey]);
1: Form11.ADOtable1.Locate("data_akcii",edit2.Text,[loCaseInsensitive,loPartialKey] );
2: Form11.ADOtable1.Locate("kod_TT",edit2.Text,[loCaseInsensitive,loPartialKey]);
end;
end;
Как корректно очисть Edit, после выбора другого поля.
Поля разного типа.

← →
Jeer © (2006-12-12 13:13) [1]

Отлавливать смену ItemIndex, если я правильно стелепатировал.

← →
Savek (2006-12-12 13:26) [2]

procedure TForm11.Edit2Change(Sender: TObject); begin if Edit2.Text<>"" then begin case ComboBox1.ItemIndex of 0: Form11.ADOtable1.Locate("ID_promoutera",edit2.Text,[loCaseInsensitive,loPartialK ey]); 1: Form11.ADOtable1.Locate("data_akcii",edit2.Text,[loCaseInsensitive,loPartialKey] ); 2: Form11.ADOtable1.Locate("kod_TT",edit2.Text,[loCaseInsensitive,loPartialKey]); end; Edit2.Text:=""; //или эту строку в процедуру TForm11.ComboBox1Change end;

← →
Клара (2006-12-12 14:39) [3]

> Savek

Я так и сделала, но когда я переключаю поиск между текстовыми полями - все нормально, а когда после текстового идет числовое, то ошибка: " не совместимость типов".

← →
Клара (2006-12-12 14:45) [4]

А если точнее, то "Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или втупают в конфликт с друг другом"

← →
Elen © (2006-12-12 14:48) [5]

> Клара

Тогда, Подозревая какое поля числовые так :
procedure TForm11.Edit2Change(Sender: TObject); begin if Edit2.Text<>"" then begin case ComboBox1.ItemIndex of 0: Form11.ADOtable1.Locate("ID_promoutera",strtoint(edit2.Text),[loCaseInsensitive,loPartialKey]); 1: Form11.ADOtable1.Locate("data_akcii",edit2.Text,[loCaseInsensitive,loPartialKey] ); 2: Form11.ADOtable1.Locate("kod_TT",strtoint(edit2.Text),[loCaseInsensitive,loPartialKey]); end; Edit2.Text:=""; //или эту строку в процедуру TForm11.ComboBox1Change end;

← →
Клара (2006-12-12 14:49) [6]

> Elen

Да, при переходе из текстовых на числовые.

← →
Клара (2006-12-12 14:55) [7]

Тогда друга ошибка: "is not а valid integer value"

← →
Elen © (2006-12-12 14:59) [8]

> Клара

Возможно. Там нужна проверка на числовость но не везде.

← →
Клара (2006-12-12 15:02) [9]

> Elen

Например?

> Например?

Вроде этого :
case ComboBox1.ItemIndex of 0:begin if TryStrToInt(edit2.Text, r) then Form11.ADOtable1.Locate("ID_promoutera",r,[loCaseInsensitive,loPartialKey]);end; ... end;
Где r - Var параметр типа Integer

← →
Клара (2006-12-12 15:19) [11]

> Elen

Ура работает!!! Ты супер.
Мне завтра сдавать курсовой.
Так, что вопросы еще будут.

> Так, что вопросы еще будут.

Не вопрос, только меня не будет полмесяца, так что другие ответят. Удачи.;)

← →
Клара (2006-12-12 15:28) [13]

> Elen

В любом случае спасибо.

Поиск Найти похожие ветки