,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:= [
| ixBase | | | ], karbeg00-> (ordSetFocus (2),dbfout ( {||cB+= [ + [> ] +substr (fieldget (2),1,10) | + [ ] +FieldGet (1) | + [ ] +fieldget (3) | + [ | ,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+= [] + [ | | | | Дата | Номер | Цена | Документ] | ,REZZAK00-> (dbSeek (K_K) ,cb+ [ ] +substr (FieldGet (3),1,10) + [ | ] +FieldGet (2) + [ | ] +FieldGet (4) + [ | ] +FieldGet (5) | ) Отображение списка состоит из частей: – блок обработки управления списком и элемент позиционирования в списке; – вывод основного списка; – стабилизация процессов; – вывод дополнительной информации. Блок обработки управления списком и элемент позиционирования в списке проводит дополнительную обработку информации о нажатых клавишах. Если есть необходимость, то проводится новое позиционирование в списке. Основные операции со списком следующие: – перемещение в начало (код клавиши kC=36) R_karbeg:=1; – перемещение в конец (код клавиши kC=35) R_karbeg:=maxele; – перемещение вниз по списку R_karbeg++; – перемещение вверх по списку R_karbeg – . На этом пример реализации спецификаций заканчивается в надежде на то, что читатель сам попробует изменить данный или добавить новый фрагмент информационной системы, расширив таким образом функциональность информационной системы в целом себе на пользу. Заключение Фолдер скриптов karbeg00 содержит следующий список файлов: karbeg00.html – главная форма; karbeg0011.html – список по первому индексу; karbeg0012.html – список по второму индексу; karbeg0013.html – список по третьему индексу; karbeg0014.html – список по четвертому индексу; karbeg002.html – фреймы для управления и карточки; karbeg0021.html – форма для управления списком; karbeg0022.html – форма для карточки. С помощью перечисленных выше файлов строится полность работоспособный фрагмент информационной системы. Данный фрагмент информационной системы, полученной с помощью фолдера karbeg00, предназначен для ведения списка персон, лиц или пациентов с учетом всех спецификаций, предусмотренных информационными технологиями ixBASE и рассмотренных в этой книге. Глава 4. Эволюция сервера Вехи dbfWebServer v5.315 от 20.07.2007 г. Добавлено определения IP адреса удалённого пользователя. Добавлены функции для перекодировки OEM и ANSI: toOEM () и toANSI (), в зависимости от выбранной прикладной базы данных. dbfWebServer v5.314 от 20.04.2007 г. Cиписок DBFSPI00 больше не используется для открытия файлов проекта. Он был нужен для того, чобы в однопользовательском режиме работы сохранять позиции в таблиах при выходе из программы изи закрытии таблиц. dbfWebServer v5.313 от 10.01.2007 г. |
|---|