DbfWebServer. Способ эффективной работы с таблицами DBFв среде Интернет - страница 17

Шрифт
Интервал

,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

 medlan

  ФИО

],

karbeg00-> (ordSetFocus (2),dbfout (

{||cB+= [

] +substr (fieldget (2),1,10)

+ [

 ] +FieldGet (1)

+ [

] +fieldget (3)

+ [

 ] +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+= []

+ [

Дата Номер Цена Документ]

,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 – .


На этом пример реализации спецификаций заканчивается в надежде на то, что читатель сам попробует изменить данный или добавить новый фрагмент информационной системы, расширив таким образом функциональность информационной системы в целом себе на пользу.

Заключение

Следующая страница