Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22



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

Примечание: В отчёте не описаны п.п.: а) для создания TBrowse-объекта для просмотра-редактирования файла bb.dbf в окне t,l,b,r ; б) для просмотра файла bb.dbf с обработкой нажимаемых клавиш и вызовом соответствующих методов или пользовательских функций; в) для выполнения GET в текущей колонке файла bb.dbf:
Т.к. эти подпрограммы практически аналогичны подпрограммам для файла aa.dbf
!!!
............................................................................
.....................................................

10. Результаты тестового примера:

а) Содержимое выводного файла dd.dbf:

INVNOM FKDN NORMA IDZAPPP IDZAPSP

2 62 20 9

15

231 51 20 10

16

24 74 15 12

18

323 77 25 8

14

4 50 15 11

17

626 58 25 7

13

б) Содержимое файла (print.prn), выводимого на принтер:

Таблица нарушение норм техобслуживания:
-------------------------------------------------------------------------
----------------------------------
¦ Инв. ¦ Наименование ¦ Дата ¦ Вид предвор. ¦ Дата ¦ вид след. ¦ Просроч.¦
¦номер ¦ типа станка ¦ ¦ профилактики ¦ ¦ профилактики ¦ дней ¦
¦------------------------------------------------------------------------
-------------------------------------¦
¦ 24 ¦ Сверлильный ¦01/18/98 ¦ Регулировка ¦04/02/98 ¦ Чистка

¦ 59 ¦
¦ 323 ¦ Строгальный ¦01/28/98 ¦ Регулировка ¦04/15/98 ¦ Чистка

¦ 52 ¦
¦ 2 ¦ Токарный ¦01/29/98 ¦ Регулировка ¦04/01/98 ¦
Чистка ¦ 42 ¦
¦ 4 ¦ Сверлильный ¦01/19/98 ¦ Регулировка ¦03/10/98 ¦ Чистка

¦ 35 ¦
¦ 626 ¦ Строгальный ¦02/01/98 ¦ Регулировка ¦03/31/98 ¦ Чистка

¦ 33 ¦
¦ 231 ¦ Токарный ¦01/28/98 ¦ Регулировка ¦03/20/98 ¦ Чистка

¦ 31 ¦
-------------------------------------------------------------------------
-------------------------------------

Всего просроченно дней - 252

Скачали данный реферат: Актжанов, Safonov, Andronikov, Mahmudov, Елисеев, Gibazov, Tamarkin.
Последние просмотренные рефераты на тему: рефераты на украинском языке, контрольные 8 класс, диплом о высшем, реферат по труду.



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22

Поделитесь этой записью или добавьте в закладки