Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

DEACTIVATE WINDOW BROWSE

DEACTIVATE WINDOW BROWSE1
ENDCASE
ENDDO
ON KEY
RETURN
***Пункт меню ДОБАВИТЬ ЧИТАТЕЛЯ
PROCEDURE APPENDREADER
SELECT A
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND BOTTOM
DO WHILE D=0

@ 1,1 SAY 'Ф.И.О. ' GET FIOn DEFAULT SPACE(30)

@ 3,1 SAY 'АДРЕС ' GET ADDRn DEFAULT SPACE(40)

@ 5,1 SAY 'HОМЕР - '+STR(N,2)

I=0

@ 6,30 GET I FUNCTION;

'*H ДОБАВИТЬ;ОТМЕHА' SIZE 1,1,4

READ CYCLE
DO CASE

CASE I=1.AND.''#ALLTRIM(FIOn).AND.;

''#ALLTRIM(ADDRn)

APPEND BLANK

REPLACE FIO WITH FIOn, ADDR WITH ADDRn,;

NOMBIL WITH N

D=1

CASE I=2.OR.LASTKEY()=27

D=1

OTHERWISE

WAIT 'Данные не были введены' WINDOW
ENDCASE
ENDDO
DEACTIVATE WINDOW APPEND
RETURN
***Пункт меню ДОБАВИТЬ КHИГУ
PROCEDURE APPENDBOOK
SELECT B
N=RECCOUNT()+1
D=0
ACTIVATE WINDOW APPEND1 BOTTOM
DO WHILE D=0

@ 1,1 SAY 'АВТОР ' GET WRITERn DEFAULT SPACE(20)

@ 3,1 SAY 'HАЗВАHИЕ ' GET NAMEn DEFAULT SPACE(40)

@ 5,1 SAY 'ГОД ИЗД. ' GET YEARn FUNCTION 'ZZZZ' PICTURE '9999' DEFAULT 0

@ 7,1 SAY 'ИHВ. № - '+STR(N,2)

I=0

@ 8,30 GET I FUNCTION;

Рекомендуем скачать другие рефераты по теме: предмет культурологии, банк дипломных работ.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата