DbfWebServer. Способ эффективной работы с таблицами DBFв среде Интернет. А. Шевелёв
Чтение книги онлайн.

Читать онлайн книгу DbfWebServer. Способ эффективной работы с таблицами DBFв среде Интернет - А. Шевелёв страница 10

СКАЧАТЬ kS () {parent.parent.A.location.href='karbeg001]+O_karbeg+[.html’;}

      </script>

      Здесь представлена функция обработки нажатия клавиши kD (), отжатия клавиши kU () и получения фокуса kS ().

      После того, как данная форма будет выведена на экран, активное поле ввода получит фокус с помощью команды

      F.karbeg.focus ();

      где F – имя формы ввода значений;

      karbeg – имя активного поля формы.

      Семейство файлов karbeg001*.html

      Семейство файлов karbeg001]+O_karbeg+[.html представляет собой набор файлов, с помощью которых строится главный список.

      Главный список имеет несколько ключей сортировок.

      Номер ключа определяется переменной O_karbeg.

      Построение списка

      Рассмотрим построение списка на примере файла karbeg0012.html:

      Файл karbeg0012.html

      <eval>

      ,if (kC=35,R_karbeg:=maxele)

      ,if (kC=34,V_karbeg:=E_karbeg)

      ,if (kC=33,karbeg00-> (ordSetFocus (2),dbGoto (U_karbeg),dbSkip (-20),V_karbeg:=FieldGet (1)))

      ,if (kC=45,karbeg00-> (apprec (),scater ({V_karbeg,»», dtos (date ()),time ()})))

      ,if (R_karbeg <1,R_karbeg:=L_karbeg)

      ,if (R_karbeg> maxele, R_karbeg:=1)

      ,if (R_karbeg> L_karbeg, R_karbeg:=1)

      ,if ((maxele-R_karbeg) ==0, (R_karbeg – ,V_karbeg:=N_karbeg))

      ,i:=1

      ,cb:= [

      <table width=100%> <tr bgcolor=d0d0a0>

      <th> <a target=M href=karbeg0021.html? ord:=«1»> Дата

      <th> ixBase

      <th> <a target=M href=karbeg0021.html? ord:=«4»> medlan

      <td> <a target=M href=karbeg0021.html? ord:=«3»> <b> ФИО

      ],

      karbeg00-> (ordSetFocus (2),dbfout (

      {||cB+= [<tr bgcolor=] +if (R_karbeg=i, (K_K:=FieldGet (1), [e0b0b0]), [e0e0d0])

      + [> <td>] +substr (fieldget (2),1,10)

      + [<td align=center> <a href=karbeg001.html? R_karbeg:=] +ltrim (str (i)) + [>] +FieldGet (1)

      + [<td>] +fieldget (3)

      + [<td width=100%> <nobr>] +HB_OemToAnsi (fieldget (5))

      ,if (i==1,U_karbeg:=RecNo ())

      ,if (i==2,N_karbeg:=Fieldget (1))

      ,i++

      }, [»»], [], [FieldGet (1)],V_karbeg, [.t.],.f.,maxele+1)

      ,E_karbeg:=fieldget (1)),kC:=0,L_karbeg:=i-1,

      cb+= [<script>

      parent.B.M.F.karbeg.focus ();

      parent.B.M.F.R.value=’r’;

      parent.B.K.location.href='karbeg0022.html’;

      </script>]

      + [<tr bgcolor=c0c0f0> <td height=3> <td> <td> <td> <tr bgcolor =d0d0a0> <th> Дата <td> Номер <td> Цена <td> Документ]

      ,REZZAK00-> (dbSeek (K_K)

      ,cb+ [<tr bgcolor=e0e0d0> <td>] +substr (FieldGet (3),1,10) + [<td>] +FieldGet (2) + [<td>] +FieldGet (4) + [<td>] +FieldGet (5)

      )

      Отображение списка состоит из частей:

      – блок обработки управления списком и элемент позиционирования в списке;

      – вывод основного списка;

      – стабилизация процессов;

      – вывод дополнительной информации.

      Блок обработки управления списком и элемент позиционирования в списке проводит дополнительную обработку информации о нажатых клавишах.

      Если есть необходимость, то проводится новое позиционирование в списке.

      Основные операции со списком следующие:

      – перемещение в начало (код клавиши kC=36) R_karbeg:=1;

      – перемещение в конец (код клавиши kC=35) R_karbeg:=maxele;

      – перемещение вниз по списку R_karbeg++;

      – перемещение вверх по списку R_karbeg – .

      На этом пример реализации спецификаций заканчивается в надежде на то, что читатель сам попробует изменить данный или добавить СКАЧАТЬ