Разработка базы данных Кадры
Информация - Компьютеры, программирование
Другие материалы по предмету Компьютеры, программирование
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. ГРАФИЧЕСКИЙ МАТЕРИАЛ