Разработка базы данных Кадры
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
ССЗ Лотос показала ее работоспособность и эффективность.
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.
<