Разработка базы данных Кадры

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

ССЗ Лотос показала ее работоспособность и эффективность.

5. БИБЛИОГРАФИЧЕСКИЙ СПИСОК

 

 

1. Теоретическое учебное пособие РГТК Тантал по дисциплине Создание и ведение информационного обеспечения.

2. Теоретическое учебное пособие РГТК Тантал по дисциплине Технология разработки программного обеспечения.

3. Попов А. А. Программирование в среде СУБД FoxPro 2.0., М. изд. Радио и связь, 1993 г.

4. Сибаров Ю. Б. Охрана труда в вычислительных центрах и др., М. Машиностроение, 1990 г.

5. Самгин Э. Б. Освещение рабочих мест, изд. МИРЭА, 1989 г.

6. ПРИЛОЖЕНИЕ

 

 

Распечатка командных файлов

 

 

START.PRG

 

CLEAR

CLEAR MACROS

 

SET COLOR TO N

SET HELP OFF

SET CLOCK OFF

SET RESOURCE OFF

SET TALK OFF

SET DOHISTORY OFF

SET STATUS OFF

SET BRSTATUS OFF

SET ESCAPE OFF

SET BELL OFF

SET SCOREBOARD OFF

SET CONFIRM ON

SET DATE GERMAN

SET CENTURY ON

SET DELETED ON

SET EXACT ON

SET HOURS TO 24

SET STICKY ON

SET CURSOR ON

SET SAFETY OFF

 

RELEASE MENU

RELEASE POPUP

RELEASE WINDOW

SET MESSAGE TO SROWS()-1 CENTER

 

USE stuff.dbf IN a INDEX stuff.idx

USE passport.dbf IN b

USE educat.dbf IN c INDEX educat.idx

USE language.dbf IN d INDEX language.idx

USE convict.dbf IN e INDEX convict.idx

USE family.dbf IN f INDEX family.idx

USE workcard.dbf IN g INDEX workcard.idx

USE moving.dbf IN h INDEX moving.idx

USE qualific.dbf IN i INDEX qualific.idx

USE bus_trip.dbf IN j INDEX bus_trip.idx

USE holiday.dbf IN 11 INDEX holiday.idx

 

SELECT a

SET COLOR TO W+/B

@ 0, 0, 24, 79 BOX (REPLICATE(CHR(176),9))

 

DO WHILE .T.

DEFINE MENU MAINMENU COLOR SCHEME 3

DEFINE PAD data OF MAINMENU PROMPT Д\<AННЫЕ О СОТРУДНИКАХ ;

AT 0,0

DEFINE PAD service OF MAINMENU PROMPT \<CЕРВИС AT 0,24

DEFINE PAD list OF MAINMENU PROMPT СП\<PАВКИ AT 0,34

DEFINE PAD exit OF MAINMENU ;

PROMPT ВЫ\<XОД AT 0,45

ON SELECTION PAD data OF MAINMENU ACTIVATE POPUP dat

ON SELECTION PAD service OF MAINMENU ACTIVATE POPUP serv

ON SELECTION PAD list OF MAINMENU ACTIVATE POPUP lst

ON SELECTION PAD exit OF MAINMENU DO end.prg

 

DEFINE POPUP dat FROM 1,0 SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF dat PROMPT ПросмотрCOLOR SCHEME 3

DEFINE BAR 2 OF dat PROMPT \-

DEFINE BAR 3 OF dat PROMPT Редактирование COLOR SCHEME 3

DEFINE BAR 4 OF dat PROMPT \-

DEFINE BAR 5 OF dat PROMPT Добавление COLOR SCHEME 3

DEFINE BAR 6 OF dat PROMPT \-

DEFINE BAR 7 OF dat PROMPT Удаление COLOR SCHEME 3

ON SELECTION BAR 1 OF dat DO read.prg

ON SELECTION BAR 3 OF dat DO write.prg

ON SELECTION BAR 5 OF dat DO new.prg

ON SELECTION BAR 7 OF dat DO del_rec.prg

 

DEFINE POPUP serv FROM 1,24 SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF serv PROMPT Переиндексация базы ;

COLOR SCHEME 3

DEFINE BAR 2 OF serv PROMPT \-

DEFINE BAR 3 OF serv PROMPT Инициализация базы ;

COLOR SCHEME 3

ON SELECTION BAR 1 OF serv DO index.prg

ON SELECTION BAR 3 OF serv DO initial.prg

 

DEFINE POPUP lst FROM 1,34 SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF lst PROMPT Краткая справка о сотруднике ;

COLOR SCHEME 3

ON SELECTION BAR 1 OF lst DO referen.prg

 

SHOW MENU MAINMENU

ACTIVATE MENU MAINMENU

ENDDO

 

RETURN

 

READ.PRG

 

SELECT a

edit=.f.

type=1

DO r_w.prg WITH edit,type

RETURN

 

WRITE.PRG

 

SELECT a

edit=.t.

type=2

DO r_w.prg WITH edit,type

RETURN

 

NEW.PRG

 

SELECT a

edit=.t.

type=3

APPEND BLANK

DO r_w.prg WITH edit,type

RETURN

 

DEL_REC.PRG

 

SELECT a

DEFINE WINDOW win3 FROM 2, 11 TO 23, 69 NOGROW ;

NOFLOAT NOZOOM SHADOW CLOSE ;

TITLE Пометьте удаляемые записи [CTRL+T] и нажмите COLOR SCHEME 10

ACTIVATE WINDOW win3

ON KEY LABEL ctrl+t DO dl_undl.prg WITH org_num

SET DELETED OFF

BROWSE NOAPPEND NOMODIFY LOCK 0 FIELDS org_num :H=Таб. N:, ;

surname :H=Фамилия:, name :H=Имя:,patron :H=Отчество:

ON KEY LABEL ctrl+t

RELEASE WINDOW win3

 

WAIT Удаление помеченных записей NOWAIT WINDOW

PACK

SELECT b

PACK

SELECT c

PACK

SELECT d

PACK

SELECT e

PACK

SELECT f

PACK

SELECT g

PACK

SELECT h

PACK

SELECT i

PACK

SELECT j

PACK

SELECT 11

PACK

WAIT CLEAR

SET DELETED ON

RETURN

 

 

 

DL_UNDL.PRG

 

PARAMETER org_num

org_num1=org_num

IF DELETED()=.t.

RECALL

SELECT b

RECALL FOR org_num=org_num1

SELECT c

RECALL FOR org_num=org_num1

SELECT d

RECALL FOR org_num=org_num1

SELECT e

RECALL FOR org_num=org_num1

SELECT f

RECALL FOR org_num=org_num1

SELECT g

RECALL FOR org_num=org_num1

SELECT h

RECALL FOR org_num=org_num1

SELECT i

RECALL FOR org_num=org_num1

SELECT j

RECALL FOR org_num=org_num1

SELECT 11

RECALL FOR org_num=org_num1

ELSE

DELETE

SELECT b

DELETE FOR org_num=org_num1

SELECT c

DELETE FOR org_num=org_num1

SELECT d

DELETE FOR org_num=org_num1

SELECT e

DELETE FOR org_num=org_num1

SELECT f

DELETE FOR org_num=org_num1

SELECT g

DELETE FOR org_num=org_num1

SELECT h

DELETE FOR org_num=org_num1

SELECT i

DELETE FOR org_num=org_num1

SELECT j

DELETE FOR org_num=org_num1

SELECT 11

DELETE FOR org_num=org_num1

ENDIF

SELECT a

RETURN

 

R_W.PRG

 

PARAMETER edit,type,up,down,next,previos,find,print,exit,eduadd,forlang, ;

conv,structfam,pass,bok,purpos,qualcateg,tripsbus,holid

list=1

exit=5

SET COLOR TO N/W+

SELECT A

IF RECCOUNT()=0

APPEND BLANK

ENDIF

DEFINE WINDOW win0 FROM 0, 0 TO 2, 79 NOGROW ;

NOFLOAT NOZOOM COLOR W+/N

DEFINE WINDOW win1 FROM 3, 0 TO 24, 79 NOGROW;

NOFLOAT NOZOOM COLOR GR+/B

DO WHILE exit<>1

ACTIVATE WINDOW win0

CLEAR

@ 0,8 SAY ALLTRIM(surname)+ +ALLTRIM(name)+ +ALLTRIM(patron)

IF type=1

@ 0,63 SAY ПРОСМОТР ДАННЫХ

ENDIF

IF type=2

@ 0,57 SAY РЕДАКТИРОВАНИЕ ДАННЫХ

ENDIF

IF type=3

@ 0,61 SAY ДОБАВЛЕНИЕ ДАННЫХ

ENDIF

IF list=1

@ 0,0 SAY Экран 1

DO wiev1.prg WITH edit

ENDIF

IF list=2

@ 0,0 SAY Экран 2

DO wiev2.prg WITH edit

ENDIF

IF list=3

@ 0,0 SAY Экран 3

DO wiev3.prg WITH edit

ENDIF

IF list=4

@ 0,0 SAY Экран 4

DO wiev4.prg WITH edit

ENDIF

IF list=5

@ 0,0 SAY Экран 5

DO wiev5.prg WITH edit

ENDIF

IF previos=1

SKIP -1

IF BOF()=.t.

<