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

if(F.R.value==’l’) {return;}

F.R.value=’l’;

if(kC==38){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? R_karbeg – ';}
else if(kC==40){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? R_karbeg++';}
else if(kC==33){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? kC:='+kC;}
else if(kC==34){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? kC:='+kC;}
else if(kC==35){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? kC:='+kC;}
else if(kC==36){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? R_karbeg:=1»; }
else if(kC==27){parent.parent.location.href='index.html’;}
}

function kU(kC){window.status=kC;

kV=F.karbeg.value;

if(kC==120){location.href='imagix0021.html’;}
else if(kC>40){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? kC:='+kC+», V_karbeg:=«»+kV+«"»; }
else if(kC==8){parent.parent.A.location.href='karbeg001]+O_karbeg+[.html? V_karbeg:=«»+kV+«"»; }
}
function 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++