Разработка базы данных "Кадры"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
SET FILTER TO
SELECT a
? SPACE (25),'Трудовая книжка:',record_num
record_num1=record_num
SELECT g
SET FILTER TO org_num=org_num1
GO TOP
FOR n=1 TO record_num1
? ' Дата постановки: ',date_wrk,' Дата увольнения:',date_dism
? ' Название учреждения:',name_wrk
? ' Должность: ',post_wrk
? ' Причина: ',reason_wrk
? ' Основание: ',basis_wrk
? REPLICATE(' -',39)
SKIP
NEXT n
SET FILTER TO
SELECT a
? SPACE (25),'Назначения и перемещения:',purpos_num
purpos_num1=purpos_num
SELECT h
SET FILTER TO org_num=org_num1
GO TOP
FOR n=1 TO purpos_num1
? ' Дата: ',date_mov,' Основание:',reason_mov
? ' Отдел: ',depart
? ' Должность: ',post_mov
? ' Режим работы:',method_mov
? REPLICATE(' -',39)
SKIP
NEXT n
SET FILTER TO
SELECT a
? SPACE (25),'Квалификационный разряд:',qual_num
qual_num1=qual_num
SELECT i
SET FILTER TO org_num=org_num1
GO TOP
FOR n=1 TO qual_num1
? ' Дата: ',date_qual,' Основание:',reas_qual
? ' Квалификация:',qualificat
? REPLICATE(' -',39)
SKIP
NEXT n
SET FILTER TO
SELECT a
? SPACE (25),'Командировки:',trial_num
trips1=trial_num
SELECT j
SET FILTER TO org_num=org_num1
GO TOP
FOR n=1 TO trips1
? ' Дата начала: ',start_trp,' Дата окончания:',closed_trp
? ' Место назначения:',destinat
? REPLICATE(' -',39)
SKIP
NEXT n
SET FILTER TO
SELECT a
? SPACE (25),'Отпуска:',holid_num
holid_num1=holid_num
SELECT 11
SET FILTER TO org_num=org_num1
GO TOP
FOR n=1 TO holid_num1
? ' Вид отпуска: ',kind_hol
? ' Основание: ',basis_hol
? ' За время с: ',with_hol,' За время по: ',on_hol
? ' Дата начала: ',d_st_hol,' Количество дней:',amount
? ' Дата окончания:',d_en_hol
? REPLICATE(' -',39)
SKIP
NEXT n
SET FILTER TO
SELECT a
WAIT CLEAR
ENDPRINTJOB
SET PRINTER OFF
SET CONSOLE ON
RETURN
SEARCH.PRG
DEFINE WINDOW win3 FROM 3, 11 TO 20, 69 NOGROW ;
NOFLOAT NOZOOM SHADOW CLOSE;
TITLE 'Выберите запись и нажмите ' COLOR SCHEME 10
ACTIVATE WINDOW win3
BROWSE NOAPPEND NOMODIFY NODELETE LOCK 0 FIELDS org_num :H='Таб. N:', ;
surname :H='Фамилия:', name :H='Имя:',patron :H='Отчество:'
RELEASE WINDOW win3
RETURN
INDEX.PRG
WAIT "Индексирую таблицы" NOWAIT WINDOW
SELECT a
INDEX ON org_num TO stuff.idx
SELECT c
INDEX ON date_begin TO educat.idx
SELECT d
INDEX ON oth_lang TO language.idx
SELECT e
INDEX ON date_verd TO convict.idx
SELECT f
INDEX ON date_relat TO family.idx
SELECT g
INDEX ON date_wrk TO workcard.idx
SELECT h
INDEX ON date_mov TO moving.idx
SELECT i
INDEX ON date_qual TO qualific.idx
SELECT j
INDEX ON start_trp TO bus_trip.idx
SELECT 11
INDEX ON with_hol TO holiday.idx
WAIT CLEAR
RETURN
INITIAL.PRG
DEFINE WINDOW win3 FROM 7, 10 TO 13, 70 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 12
ACTIVATE WINDOW win3
@ 0,12 SAY'ЭТО действие уничтожит все данные'
@ 1,13 SAY'Вы уверены в его необходимости?'
STORE 2 TO no,yes
STORE "* НЕТ" TO MPROMPTS
@ 3,19 GET no FUNCTION MPROMPTS SIZE 1, 8
STORE "* ДА" TO MPROMPTS
@ 3,30 GET yes FUNCTION MPROMPTS SIZE 1, 8
READ CYCLE
RELEASE WINDOW win3
IF yes=2
RETURN
ENDIF
WAIT "Инициализация таблиц" NOWAIT WINDOW
SELECT a
ZAP
SELECT b
ZAP
SELECT c
ZAP
SELECT d
ZAP
SELECT e
ZAP
SELECT f
ZAP
SELECT g
ZAP
SELECT h
ZAP
SELECT i
ZAP
SELECT j
ZAP
SELECT 11
ZAP
WAIT CLEAR
RETURN
REFEREN.PRG
SELECT a
DO search.prg
_peject='after'
SET PRINTER ON
SET CONSOLE OFF
PRINTJOB
WAIT "Печать" NOWAIT WINDOW
n=ALLTRIM(company)
? space((80-len(n))/2),n
? ''
? SPACE(28),'О Т Д Е Л К А Д Р О В'
? REPLICATE('-',79)
? SPACE(26),'Краткая справка о сотруднике'
? REPLICATE('-',79)
n=alltrim(surname)+' '+alltrim(name)+' '+alltrim(patron)
? space((80-len(n))/2),n
? ''
d=MONTH(birth_date)
IF d=1
n='января'
ENDIF
IF d=2
n='февраля'
ENDIF
IF d=3
n='марта'
ENDIF
IF d=4
n='апреля'
ENDIF
IF d=5
n='мая'
ENDIF
IF d=6
n='июня'
ENDIF
IF d=7
n='июля'
ENDIF
IF d=8
n='августа'
ENDIF
IF d=9
n='сентября'
ENDIF
IF d=10
n='октября'
ENDIF
IF d=11
n='ноября'
ENDIF
IF d=12
n='декабря'
ENDIF
IF sex='Ж' OR sex='ж'
sx1='Родилась'
sx2='уроженка'
sx3='Окончила'
ELSE
sx1='Родился'
sx2='уроженец'
sx3='Окончил'
ENDIF
? ' ',sx1,DAY(birth_date),n,YEAR(birth_date),'года ,'
? ' ',ALLTRIM(national),',',sx2,ALLTRIM(birthplace),','
? ' имеет',ALLTRIM(citizen),'гражданство .'
? ' ',sx3,ALLTRIM(NAME_EDU),'.'
? ' Семейное положение:',ALLTRIM(mar_status),'.'
? ' В настоящее время работает в должности: ',ALLTRIM(cur_post),','
? ' в подразделении:',ALLTRIM(subdivis),'.'
? ' Домашний адрес:',ALLTRIM(address),',',ALLTRIM(region),'район .'
? ' Домашний телефон:',telephone
? ''
? SPACE(60),DATE(),'г'
SELECT a
WAIT CLEAR
ENDPRINTJOB
SET PRINTER OFF
SET CONSOLE ON
RETURN
END.PRG
CLEAR
CLOSE ALL
QUIT
7. ГРАФИЧЕСКИЙ МАТЕРИАЛ
Рис. 2.2.1. Описание связи объект-свойство.
Рис. 2.4.1 Взаимосвязь командных файлов в проекте.