Использование Delphi для создания приложений баз данных. Устюгова В.Н. - 43 стр.

UptoLike

ВУЗ: 

КФУ | Казань

Составители: 

Рубрика: 

43
Tovar NumGr NN
Вода минеральная 12 1
Груши 12 26
Кефир 12 4
Конфеты «Ласточка» 100 1
Крупа гречневая 100 10
Макароны 1 10
Будем вводить значения для поиска в поле Edit3. Напишем обработчик события,
возникающего при любом изменении значения в Edit3 (OnChange):
procedure TFormA.Edit3Change(Sender: TObject);
begin
Table2.FindNearest ( [Edit3.Text] ) ;
end;
Если нужно отыскать запись с наименованием товара «Крупа гречневая», то при
использовании описанного механизма инкрементального локатора необязательно вводить это
название полностью. Курсор будет, приближаться к искомой записи по мере ввода символов в
поле Edit3. Введем в Edit3 символ «К». Тогда
Table2.FindNearest ( [Edit3.Text]) ;
означает
Table2.FindNearest(['К']);
В результате курсор переместится на 1-ю запись, имеющую в поле Tovar значение, большее
строки «К»:
Tovar NumGr NN
Вода минеральная 12 1
Груши 12 26
Кефир 12 4
Конфеты «Ласточка» 100 1
Крупа гречневая 100 10
Макароны 1 10
Вводим в поле Edit3 следующий символ, «р» (Edit3.Text = Кр). В результате курсор
переместится на 1-ю запись, имеющую в поле Tovar значение, большее или равное «Кр»:
Tovar NumGr NN
Вода минеральная 12 1
Груши 12 26
Кефир 12 4
Конфеты «Ласточка» 100 1
Крупа гречневая 100 10
Макароны 1 10
Это и есть искомая запись. Заметим, что применение инкрементальных локаторов
возможно не только для символьных полей, но и для числовых. 
        Tovar                            NumGr         NN
       Вода минеральная                  12            1
       Груши                             12            26
       Кефир                             12            4
       Конфеты «Ласточка»                100           1
       Крупа гречневая                   100           10
       Макароны                          1             10

      Будем вводить значения для поиска в поле Edit3. Напишем обработчик события,
возникающего при любом изменении значения в Edit3 (OnChange):


           procedure TFormA.Edit3Change(Sender: TObject);
           begin
              Table2.FindNearest ( [Edit3.Text] ) ;
            end;
      Если нужно отыскать запись с наименованием товара «Крупа гречневая», то при
использовании описанного механизма инкрементального локатора необязательно вводить это
название полностью. Курсор будет, приближаться к искомой записи по мере ввода символов в
поле Edit3. Введем в Edit3 символ «К». Тогда
                             Table2.FindNearest ( [Edit3.Text]) ;
означает
                                 Table2.FindNearest(['К']);
В результате курсор переместится на 1-ю запись, имеющую в поле Tovar значение, большее
строки «К»:
        Tovar                          NumGr        NN
        Вода минеральная               12           1
       Груши                           12           26
       Кефир                           12           4
       Конфеты «Ласточка»              100          1
       Крупа гречневая                 100          10
       Макароны                        1            10


   Вводим в поле Edit3 следующий символ, «р» (Edit3.Text = Кр). В результате курсор
переместится на 1-ю запись, имеющую в поле Tovar значение, большее или равное «Кр»:
        Tovar                          NumGr        NN
       Вода минеральная                12           1
       Груши                           12           26
       Кефир                           12            4
       Конфеты «Ласточка»              100          1
       Крупа гречневая                 100           10
       Макароны                        1            10

     Это и есть искомая запись. Заметим, что применение инкрементальных локаторов
возможно не только для символьных полей, но и для числовых.



                                              43

Страницы