d9e5a92d

Родимов В. - Разработка программного обеспечения, ведение базы данных

Реализация алгоритма обработки данных и ведения реляционной базы данных.

Анализ обработки БД для её получения :


а) По какому файлу проводится главный цикл обработки ?
Главный цикл обработки в подпрограмме vedom - (п.п., которая осуществляет выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл "DD", а также осуществляет выдачу ведомости на принтер) проводится по файлу bb.dbf . б) Как он должен быть упорядочен ? Он должен быть упорядочен в хронологическом порядке.
Пример:
index on bb-invnom + dtoc(bb-dateprof) to bb0001
Справка:
Синтаксис:
INDEX ON ключевое выражение TO имя индексного файла
INDEX - команда обработки базы данных, которая создает файлы, содержащие индексы базы данных на основе значения аргумента ключевое выражение. При использовании индексного файла записи базы данных обрабатываются в последовательности, заданной ключевым выражением, однако физический порядок следования записей базы данных остается неизменным.

INDEX обеспечивает последовательность записей, упорядоченную по значениям ключевого выражения. Для ключей типа CHARACTER - в соответствии со значением ASCII кода каждого символа внутри строки, для ключей типа NUMERIC - в соответствии с числовым порядком, для ключей типа дата - в хронологическом порядке и для логических - считается, что истина (.Т.) - более высокого порядка.

Memo-поля не могут быть индексированы.

в) Применяются ли фильтры ? Хотя команда SET FILTER делает так, что файл в рабочей области выглядит состоящим из подмножества записей, на самом деле последовательно обрабатываются все его записи.
Фильтры не применяются, т.к время работы с фильтрованной и нефильтрованной рабочей областью оказывается одним и тем же. г) Имеются ли связи "хозяин-слуга" и по каким полям ? В подпрограмме vedom имеются связи.
Пример:
а) set relat to bb-invnom into cc Связь по полю "invnom".
б) set relat to cc-idst into aa additive Связь по полю "idst".
в) set relat to dd-invnom into cc additive Связь по полю "invnom". Принципы подготовки данных для тестового примера и заполнения исходных данных.
Эти данные были выбраны произвольно - "из головы": 1) Идентификатор типа станка
2) Инвентарный номер станка
3) Вид профилактики
4) Наименование типа станка Идентификатор записи в файле bb.dbf заполнялся по убыванию (от 1 до 18), где 1- первая запись, а 18- последняя.
Норма кол-ва дней между профилактиками была выбрана произвольна.
Дата профилактики выбиралась так, чтобы норма кол-ва дней между профилактиками была превышена для всех видов профилактик. б) Пункты меню, что в них делается ?
Меню 1: 1) Сразу приступить к работе с Базой Данных
2) Заново построить все индексы Базы Данных
3) Провести компрессию Базы Данных
4) Выход из Базы Данных При выборе п.1, если индексы уже имеются мы попадаем в меню 2. При выборе п.2 заново происходит построение всех индексов Б.Д .
При выборе п.3 производится компрессия (уплотнение) Б.Д .
При выборе п.4 появляется горизонтальное подменю: а) Сохранить и продолжить б) Завершить работу
П.а) Сохранить все внесенные изменения и продолжить П.б) Завершить работу с базой данных с сохранением всех изменений Меню 2: 1) Ведение файла Нормативы профилактики оборудования
2) Ведение файла Профилактика
3) Получение ведомости нарушение норм техобслуживания
4) Выход из Базы Данных
При выборе п.1 мы попадаем в редактор файла aa.dbf - ("Нормативы профилактики оборудования"), где мы можем его просматривать и редактировать. При выборе п.2 мы попадаем в редактор файла bb.dbf - ("Профилактика"), где мы можем его просматривать и редактировать.
При выборе п.3 происходит выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл "DD", а также выдача ведомости на принтер.
При выборе п.4 выполняются действия аналогичные п.4 в меню 1.

Ведение БД .

Какими табл. представлено ведение БД, по какой табл. указывается текущая рабочая область, её слуги, колонки таблицы, набор клавиш на которые предусмотрена реакция системы. Клавиши на которые реагирует система: / / / /; PgUp / PgDn; Home / End - Перемещение курсора
Enter - Выбор задачи в меню и редактирование полей в редакторе
Esc - Возврат на шаг назад. Отмена редактирования (без сохранения изменненого значения)
F8 - Удалить строку
F3 - Вставить строку
F10 - Выход из задачи с сохранением всей информации или выход без сохранения информации

Структура программы :


а) Содержимое rmk-файла "kursv.rmk":
objs = main2,aa,util,bb .prg.obj:
CLIPPER $ /a/m/n
.obj.exe:
RTLINK OUTPUT $* FI $(objs) /PLL:base52
main2.obj : main2.prg
aa.obj : aa.prg
util.obj : util.prg


bb.obj : bb.prg
kurs_ok.exe : main2.obj aa.obj util.obj bb.obj б) Имена и содержание prg-файлов. По каждой функции: имя, назначение, параметры, тип данных и смысл, возвращенное значение, рабочие перемен-ные и их назначение.
Программные файлы: 1) aa.prg
В этой программе реализовано:
1. Создание TBrowse-объекта для просмотра-редактирования файла aa.dbf в окне. 2) bb.prg В этой программе реализовано:
1. Создание TBrowse-объекта для просмотра-редактирования файла bb.dbf в окне. 3) main2.prg В этой программе реализовано:
1.Организация меню.
2. Индексирование файлов.
3. Уплотнение файла .
4. Выявление всех случаев превышения нормативных интервалов между профилактиками, вывод их в выводной файл "DD", а также выдача ведомости на принтер.
5. Вывод на экран информации о "горячих" клавишах. 4) util.prg Эта программа содержит набор стандартных утилит:
1. Сохранение экрана, восстановление экрана.
2. Перевод в верхний регистр как латиницы, так и кириллицы.
3. Координаты, сообщение, цвет.
4. Выход из задачи с сохранением всей информации - реакция на клавишу F10.
5. Подача звукового сигнала для сигнализации успешного выполнения
поставленной задачи:

Описание основных подпрограмм:

1) п.п. постоения индексов:
func db_index(prm)
s_scr(24,0,25,79)
CLOSE ALL
SETCOLOR (w/n)
@ 24,0 CLEAR TO 25,79
@ 24,6 SAY Ждите идет индексирование! COLOR w+*/n
use bb
index on bb-invnom + dtoc(bb-dateprof) to bb0001
use aa
index on aa-idst to aa0002
use cc
index on cc-invnom to cc0003
use dd
index on dd-(norma-fkdn) to dd0004
close all
r_scr()
return nil 2) п.п. открытия индексов: func db_open
close all
use aa index aa0002
use bb index bb0001 new
use cc index cc0003 new
use dd index dd0004 new
return nil 3) п.п. уплотнения Б.Д. : FUNCTION db_compress()
s_scr(24,0,25,79)
CLOSE ALL
SETCOLOR(w/n)
@ 24,0 CLEAR TO 25,79
@ 24,6 SAY Ждите идет уплотнение ! COLOR (w+*/n)
USE aa // уплотнение файла aa.dbf
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE aa.dbf
RENAME work.dbf TO aa.dbf
ENDIF
USE bb // уплотнение файла bb.dbf
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE bb.dbf
RENAME work.dbf TO bb.dbf
ENDIF
USE cc // уплотнение файла cc.dbf
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE cc.dbf
RENAME work.dbf TO cc.dbf
ENDIF
USE dd // уплотнение файла dd.dbf
COPY TO work
IF ERRORLEVEL() = 0
USE
DELETE FILE dd.dbf
RENAME work.dbf TO dd.dbf
ENDIF
CLOSE ALL
r_scr()
RETURN NIL 4) п.п. выдачи информации о клавишах, на которые реагирует система "Help": PROCEDURE hlp(callpnt,prm)
LOCAL retcol,crow,ccol
IF prm = NIL
prm := .F.
ENDIF
crow = ROW()
ccol = COL()
retcol = SETCOLOR(w/n)
@ 22,0 CLEAR TO 24,79
IF callpnt = GET
// исправленный HLP для GET 26.09.96
@ 22,0 SAY Enter/ + CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' ;
+ -Завершить редактирование с сохранением измененного значения
@ 22,0 SAY Enter/+ CHR(24) + '/' + CHR(25) + '/PgUp/PgDn' COLOR r+/n
@ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ;
+ ' / ^' + CHR(27) + ' / Home / End - Перемещение курсора'
@ 23,1 SAY CHR(26) + ' / ' + CHR(27) + ' / ^' + CHR(26) ;
+ ' / ^' + CHR(27) + ' / Home / End' COLOR r+/n
@ 24,1 SAY 'Esc - Отменить редактирование ' ;
+ '( без сохранения измененного значения )'
@ 24,1 SAY Esc COLOR r+/n
ENDIF
IF callpnt=AAED .OR. callpnt=BBED
SET COLOR TO (w/n)
@ 22,1 SAY chr(24) + / + chr(25) + / + CHR(26) + ' / ' ;
+ CHR(27) + ' / ^' + CHR(26) + PgUp / PgDn ;
+ ' / ^' + CHR(27) + '/ Home / End - Перемещение курсора'
@ 24,0 SAY 'Enter - Редактирование '
@ 23,23 TO 24,23 DOUBLE
@ 23,25 SAY 'Esc - Возврат на шаг назад ' COLOR w/n
@ 23,25 SAY 'Esc' COLOR r+/n
@ 23,54 TO 24,54 DOUBLE
@ 23,55 SAY 'F8 - Удалить строку '
@ 24,55 SAY 'F3 - Вставить строку '
SET COLOR TO (r+/n)
@ 22,1 SAY chr(24) + / + chr(25) + / + CHR(26) + ' / ' ;
+ CHR(27) + ' / ^' + CHR(26) + PgUp / PgDn ;
+ ' / ^' + CHR(27) + '/ Home / End '
@ 24,0 SAY 'Enter'
@ 23,55 SAY 'F8'
@ 24,55 SAY 'F3'
ENDIF
IF callpnt=CCED .OR. callpnt=DDED
SET COLOR TO (w/n)
@ 22,1 SAY chr(24) + / + chr(25) + / + CHR(26) + ' / ' ;
+ CHR(27) + ' / ^' + CHR(26) + PgUp / PgDn ;
+ ' / ^' + CHR(27) + '/ Home / End - Перемещение курсора'
@ 24,0 SAY 'Enter - Редактирование '
@ 23,23 TO 24,23 DOUBLE
@ 23,25 SAY 'Esc - Возврат на шаг назад ' COLOR w/n
@ 23,25 SAY 'Esc' COLOR r+/n
@ 24,25 SAY '^Enter - Выбор значения ' COLOR w/n
@ 24,25 SAY '^Enter' COLOR r+/n
@ 23,54 TO 24,54 DOUBLE
@ 23,55 SAY 'F8 - Удалить строку '
@ 24,55 SAY 'F3 - Вставить строку '
SET COLOR TO (r+/n)
@ 22,1 SAY chr(24) + / + chr(25) + / + CHR(26) + ' / ' ;
+ CHR(27) + ' / ^' + CHR(26) + PgUp / PgDn ;
+ ' / ^' + CHR(27) + '/ Home / End '
@ 24,0 SAY 'Enter'
@ 23,55 SAY 'F8'
@ 24,55 SAY 'F3'
ENDIF
SET COLOR TO (retcol)
SETPOS(crow,ccol)
RETURN 5) п.п. выявления всех случаев превышения нормативных интервалов между профилактиками, вывода их в выводной файл "DD", а также выдачи ведомости на принтер: func vedom
local tinvnom,sitog,tdata,tidzap,tidst,idpop
set printer on
select dd
zap
lin:=space(17)+Таблица нарушение норм техобслуживания:
? lin
select bb
set relat to bb-invnom into cc
set relat to cc-idst into aa additive
go top
sitog:=0
do while .not. eof()
tinvnom:=bb-invnom
tdata:=bb-dateprof
tidzap:=bb-idzap
tidst:=cc-idst
skip
if(bb-invnom=tinvnom).and.(bb-dateprof-tdataaa-norma)
select dd
append blank
replace dd-invnom with tinvnom
replace dd-fkdn with bb-dateprof-tdata
replace dd-norma with aa-norma
replace dd-idzappp with tidzap
replace dd-idzapsp with bb-idzap
sitog:=sitog+(dd-fkdn-dd-norma)
select bb
endif
enddo
lin:=+-----------------------------------------------------------------------------+
? lin
lin:=¦ Инв.¦ Наименование ¦ Дата ¦ Вид предвор. ¦ Дата ¦ вид след. ¦Просроч.¦
? lin
lin:=¦номер¦ типа станка ¦ ¦ профилактики ¦ ¦ профилактики ¦ дней ¦
? lin
lin:=¦-----+--------------+--------+--------------+--------+--------------+--------¦
? lin
select dd
set relat to dd-invnom into cc additive
go top
do while .not. eof()
tinvnom:=dd-invnom
idpop:=dd-idzappp
lin:=¦ +dd-invnom+ ¦
select bb
go top
do while .not. eof()
if(tinvnom=bb-invnom).and.(idpop=bb-idzap)
lin:=lin+aa-namest+ ¦+dtoc(bb-dateprof)+¦ +bb-vidprof
endif
skip
enddo
select dd
idpop:=dd-idzapsp
select bb
go top
do while .not. eof()
if(tinvnom=bb-invnom).and.(idpop=bb-idzap)
lin:=lin+ ¦+dtoc(bb-dateprof)+¦ +bb-vidprof+¦
endif
skip
enddo
select dd
lin:=lin+str(dd-fkdn-dd-norma,4)+ ¦
? lin
skip
enddo
lin:=+-----------------------------------------------------------------------------+
? lin
set color to w+/b
lin:= Всего просроченно дней -+str(sitog,5)
? lin
set printer off
sound()
inkey(0)
return nil 6) п.п. подачи звукового сигнала для сигнализации успешного выполнения поставленной задачи:
func sound
tone(300,1)
tone(100,1)
tone(300,1)
tone(100,1)
return nil 7) п.п. сохранения зкрана: FUNC s_scr(t,l,b,r)
IF t = NIL
t := 0
ENDIF
IF l = NIL
l := 0
ENDIF
IF b = NIL
b := MAXROW()
ENDIF
IF r = NIL
r := MAXCOL()
ENDIF
AADD( wind[1], t )
AADD( wind[2], l )
AADD( wind[3], b )
AADD( wind[4], r )
AADD( wind[5], SAVESCREEN(t,l,b,r) )
AADD( pos[1], ROW() )
AADD( pos[2], COL() )
AADD( colr, SETCOLOR() )
AADD( curs, SETCURSOR() )
RETURN .T. 8) п.п. восстановления зкрана: FUNC r_scr()
LOCAL ln
ln := LEN(wind[1])
IF ln == 0
@ 24,0 SAY ' Ошибка - стек для восстановления параметров пуст '
INKEY(0)
@ 24,0
ENDIF
RESTSCREEN(wind[1,ln], wind[2,ln], wind[3,ln], wind[4,ln], wind[5,ln] )
ASIZE(wind[1],ln-1)
ASIZE(wind[2],ln-1)
ASIZE(wind[3],ln-1)
ASIZE(wind[4],ln-1)
ASIZE(wind[5],ln-1)
SETPOS( pos[1,ln], pos[2,ln] )
ASIZE(pos[1],ln-1)
ASIZE(pos[2],ln-1)
SETCOLOR(colr[ln])
ASIZE(colr,ln-1)
SETCURSOR(curs[ln])
ASIZE(curs,ln-1)
RETURN .T. 9) п.п. определения - нажата ли клавиша типового метода, если да - то возвращает блок кода с соответствующим методом, если нет - то возвращает NIL. Параметр функции - INKEY-код нажатой клавиши. FUNC basemet(cod)
LOCAL ret , ei , i
LOCAL crsm:={ ;
{K_DOWN , {|o| o:down() } } ;
, {K_UP , {|o| o:up() } } ;
, {K_PGDN , {|o| o:pagedown() } } ;
, {K_PGUP , {|o| o:pageup() } } ;
, {K_CTRL_PGDN , {|o| o:gobottom() } } ;
, {K_CTRL_PGUP , {|o| o:gotop() } } ;
, {K_RIGHT , {|o| o:right() } } ;
, {K_LEFT , {|o| o:left() } } ;
, {K_CTRL_RIGHT , {|o| o:panright() } } ;
, {K_CTRL_LEFT , {|o| o:panleft() } } ;
, {K_END , {|o| o:end() } } ;
, {K_HOME , {|o| o:home() } } ;
, {K_CTRL_END , {|o| o:panend() } } ;
, {K_CTRL_HOME , {|o| o:panhome() } } }
i := ASCAN( crsm, {|ei| cod = ei[1] } )
IF i 0
ret := crsm[i,2]
ELSE
ret := NIL
ENDIF
RETURN ret 10) п.п. переключения режима вставка/замена и вида курсора: PROCEDURE Repl_Ins()
IF READINSERT()
READINSERT(.F.)
SETCURSOR(SC_INSERT)
ELSE
READINSERT(.T.)
SETCURSOR(SC_NORMAL)
ENDIF
RETURN 11) п.п. перевода в верхний регистр латиницы и кириллицы: FUNC UpperC(prm)
LOCAL n , i , smb , cs
n := LEN( prm )
FOR i = 1 TO n
smb := SUBSTR( prm , i , 1 )
cs := ASC( smb )
DO CASE
CASE cs = 97 .AND. cs = 122
cs := cs - 32
prm := STUFF( prm , i , 1 , CHR( cs ) )
CASE cs = 160 .AND. cs = 175
cs := cs - 32
prm := STUFF( prm , i , 1 , CHR( cs ) )
CASE cs = 224 .AND. cs = 239
cs := cs - 80
prm := STUFF( prm , i , 1 , CHR( cs ) )
ENDCASE
NEXT
RETURN prm 12) п.п. выхода из задачи с сохранением всей информации - реакция на клавишу F10: PROCEDURE fquit()
LOCAL reply
reply := ALERT(Сохранить все внесенные изменения и продолжить; ;
+ работу с Базой данных - т.е. сделать промежуточный SAVE или; ;
+ Завершить работу с базой данных с сохранением всех изменений ;;
, { Сохранить и продолжить , Завершить работу } )
IF ( reply = 1 ) .OR. ( reply = 0 )
DBCOMMITALL()
ELSE
QUIT
ENDIF
RETURN 13) п.п. вывода сообщения на экран с заданными координатами и цветом: PROCEDURE msgs(x,y,m,color)
LOCAL ml,c
IF m = NIL
RETURN
ENDIF
ml=LEN(m)
IF ml=0 .OR. ml 80
RETURN
ENDIF
IF x=NIL // Центр по X
x := (80-ml)/2
ENDIF
IF y=NIL // Центр по Y
y := 24/2 - 1
ENDIF
IF color NIL
c := SETCOLOR(color)
@ y,x SAY m
SETCOLOR(c)
ELSE
@ y,x SAY m
ENDIF
RETURN 14) п.п. создания TBrowse-объекта для просмотра-редактирования файла aa.dbf в окне t,l,b,r :
FUNCTION aaCr(t,l,b,r)
LOCAL brws,coln,cblk,chdr
brws := TBrowseDb(t,l,b,r)
cblk := {|| + aa-idst }
chdr := Идент. типа станка
coln := TBColumnNew(chdr,cblk)
coln:width := 19
brws:AddColumn(coln)
cblk := {|| + aa-namest}
chdr := Наименование типа станка
coln := TBColumnNew(chdr,cblk)
coln:width := 35
brws:AddColumn(coln)
cblk := {|| STR( aa-norma,7) }
chdr := Норма,дней
coln := TBColumnNew(chdr,cblk)
coln:width := 12
brws:AddColumn(coln)
brws:colsep := CHR(186)
brws:headsep := CHR(205)
brws:colorspec := w+/b,gr+/rb
RETURN brws 15) п.п. просмотра файла aa.dbf с обработкой нажимаемых клавиш и вызовом соответствующих методов или пользовательских функций: FUNCTION aaEd(brws)
LOCAL ret_fl,sel,otb , w
LOCAL cc,rr,nrc:=0,i
LOCAL ret:=NIL
LOCAL t := brws:nTop , l := brws:nLeft , b := brws:nBottom , r := brws:nRight
LOCAL t_ := 5 , l_ := 6 , b_ := 15 , r_ := 74
s_scr()
s_r_s()
SETCOLOR( N/W )
CLS
SETCOLOR( gr+/b,w+/gr)
hlp(AAED)
SELECT aa
SET ORDER TO 2
@ t-2 , l-1 CLEAR TO b+2 , r+1
@ b+1, l TO b+1, r
ret_fl := .F.
DO WHILE .NOT. ret_fl
** оптимизированная с использованием буфера клавиатуры стабилизация
DO WHILE ( NEXTKEY() == 0 ) .AND. ( .NOT. brws:stabilize() )
ENDDO
IF ( NEXTKEY() == 0 ) .AND. ( RECNO() nrc)
nrc := RECNO()
rr := ROW()
cc := COL()
SETCOLOR(bg+/b)
@ t-2 , l+1 SAY Нормативы профилактики оборудования:
@ b+2 , l+1 SAY Тип станка:
@ b+2 , COL()+1 SAY aa-namest COLOR w+/b
SETPOS(rr,cc)
ENDIF
SETCOLOR(gr+/rb)
** ожидаем нажатия клавиши
nkey := Inkey(0)
// если нажата клавиша типового метода - вызовем его
blk := basemet( nKey )
IF blk NIL
EVAL( blk , brws )
ELSE
DO CASE
CASE ( bHotkey := SETKEY( nKey ) ) NIL
EVAL( bHotkey , PROCNAME() , PROCLINE() , READVAR() )
CASE ( nKey = K_F8 )
DELETE
// потрогаем файловый указатель, если
// возвращаетя EOF() - .T. после Down-Up,
// значит файл пуст
SKIP
SKIP -1
IF RECNO() = RECCOUNT()+1
ret_fl := .T. // завершение просмотра
ENDIF
brws:RefreshAll()
nrc := 0
CASE nKey = K_ESC
ret_fl := .T. // завершение просмотра
CASE ( nKey = K_ENTER )
// Редактирование текущего элемента данных
aaGet(brws ;
, Редактирование файла aa.dbf )
nrc := 0 // обновить верхнюю строку
CASE nKey == K_F3
APPEND BLANK
brws:RefreshAll()
ENDCASE
ENDIF
ENDDO
SET RELAT TO
s_r_s(.T.)
r_scr()
RETURN ret 16) п.п. выполнения GET в текущей колонке файла aa.dbf: PROCEDURE aaGet( brws , z0 )
LOCAL r , c , w , w2 , otb
LOCAL retcurs,retexit // форма курсора и режим выхода из READ
LOCAL retins, retcol // режим вставка-замена в READ
LOCAL indch := .F. // флаг изменений значений полей, входящих в
// индекснове выражение (тогда нужно REFRESHALL(),
// а не REFRESHCURRENT() )
LOCAL col
r := ROW()
c := COL()
// Проверка обновления экрана, корректности базы и т.д.
ForceStable(brws)
// Установка клавиш Up-Arrow и Down-Arrow как клавиш выхода из
// команды READ
retexit := READEXIT(.T.)
// Установка клавиши INS для переключения
// режима вставка/замена
// и соответствующего изменения вида курсора
retins := SetKey( K_INS, {|| Repl_Ins()} )
// эквивалентно Set Key K_INS To Procedure Repl_Ins
// Установка вида курсора по текущему состоянию режима
retcurs := SetCursor( IF(ReadInsert(), SC_NORMAL, SC_INSERT ) )
s_scr()
retcol := SETCOLOR(w+/g)
@ brws:nTop-3,0
@ brws:nTop-3,0 SAY z0
hlp(GET)
SETCOLOR(gr+/n,w+/g)
indch := .F.
DO CASE
CASE brws:colpos = 1
w := aa-idst
@ r,c+2 GET w
READ
IF .NOT.( LASTKEY() = K_ESC ).OR.( aa-idst == w )
REPLACE aa-idst WITH w
indch := .T.
ENDIF
CASE brws:colpos = 2
n := aa-namest
@ r,c+2 GET n
READ
IF .NOT.( LASTKEY() = K_ESC ).OR.( aa-namest == n )
REPLACE aa-namest WITH n
ENDIF
CASE brws:colpos = 3
w := aa-norma
@ r,c+1 GET w
READ
IF .NOT.( ( LASTKEY() = K_ESC ) .OR. ( aa-norma = w ) )
REPLACE aa-norma WITH w
ENDIF
ENDCASE
SETCOLOR(retcol)
r_scr()
SETPOS(r,c)
IF indch
brws:RefreshAll()
ELSE
brws:RefreshCurrent() // Обеспечить перерисовку текущей строки,
ENDIF // поскольку изменялся элемент данных
// Восстановление формы курсора и режима выхода из READ по стрелкам
// и процедуры по клавише K_INS
SetCursor(retcurs)
READEXIT(retexit)
SetKey(K_INS, retIns)
// Проверка требования ухода с текущей записи после GET
nKey := LASTKEY()
IF nKey == K_UP .OR. nKey == K_DOWN .OR. ;
nKey == K_PGUP .OR. nKey == K_PGDN
// управление курсором -- переход к другой записи
KEYBOARD( CHR(nKey) )
ENDIF
RETURN



Содержание раздела