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

Автор работы: Пользователь скрыл имя, 21 Мая 2012 в 13:59, дипломная работа

Краткое описание

Открытое акционерное общество «Судостроительный завод «Лотос» предназначен для строительства морских буровых стационарных платформ разведки и добычи нефти и строительства судов различного назначения. Предприятие располагает большими техническими возможностями (до 30000 тонн металла в год) и квалифицированными кадрами, аттестовано на класс Речного Регистра, Морского Регистра Судоходства, а также Германского Ллойда.
ОАО «ССЗ «ЛОТОС» предлагает к изготовлению:
технические средства для освоения газовых и нефтяных месторождений на шельфе мирового океана и внутренних морей;
сухогрузные и нефтеналивные суда различного района плавания - морского, речного и смешанного «река – море» (спусковой вес около 15000 т);
вспомогательные суда различного назначения;

Содержание

1. Введение 3-4
2. Основная часть.
Разработка базы данных «Кадры»
2.1 Описание предметной области 5-8
2.2 Построение инфологической и даталогической модели 9-28
2.3 Проектирование базы данных 29-37
2.4 Разработка приложения 38-43
3. Охрана труда 44-46
4. Заключение 47
5. Библиографический список 48
6. Приложение 49-87
7. Графический материал 88-93

Скачать в ZIP архиве (85.89 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

DIPLOM.DOC

— 430.00 Кб (Скачать файл)

  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.

    GO BOTTOM

   ENDIF

  ENDIF

  IF next=1

   SKIP 1

   IF EOF()=.t.

    GO TOP

   ENDIF

  ENDIF

  IF down=1

   IF list<>1

    list=list-1

   ELSE

    list=5

   ENDIF

  ENDIF

  IF up=1

   IF list<>5

    list=list+1

   ELSE

    list=1

   ENDIF

  ENDIF

IF find=1

  DO search.prg

ENDIF

org_num1=org_num

IF eduadd=1

  DO educat.prg WITH org_num1,edit

ENDIF

IF forlang=1

  DO language.prg WITH org_num1,edit

ENDIF

IF conv=1

  DO convict.prg WITH org_num1,edit

ENDIF

IF structfam=1

  DO family.prg WITH org_num1,edit

ENDIF

IF pass=1

  DO passport.prg WITH org_num1,edit

ENDIF

IF bok=1

  DO workcard.prg WITH org_num1,edit

ENDIF

IF purpos=1

  DO move.prg WITH org_num1,edit

ENDIF

IF qualcateg=1

  DO qualif.prg WITH org_num1,edit

ENDIF

IF tripsbus=1

  DO bus_trip.prg WITH org_num1,edit

ENDIF

IF holid=1

  DO holiday.prg WITH org_num1,edit

ENDIF

IF print=1

  DO print.prg

ENDIF

ENDDO

RELEASE WINDOW win1

RELEASE WINDOW win0

RETURN 
 

WIEV1.PRG 

PARAMETER edit

  ACTIVATE WINDOW win1

  CLEAR

eduadd=5

forlang=5

conv=5

structfam=5

pass=5

bok=5

purpos=5

qualcateg=5

tripsbus=5

holid=5

org_n=org_num

  @ 1,1 SAY'Таб. номер:__________________'

  @ 2,1 SAY'Страховой  номер:_____________'

  @ 3,1 SAY'Фамилия:_____________________'

  @ 4,1 SAY'Имя:_________________________'

  @ 5,1 SAY'Отчество:____________________'

  @ 6,1 SAY'Пол:_________________________'

  @ 7,1 SAY'Дата рождения:_______________'

  @ 8,1 SAY'Место рождения:______________'

  @ 9,1 SAY'Национальность:______________'

  @ 10,1 SAY'Социальное  происхождение:____'

  @ 11,1 SAY'Гражданство:_________________'

  @ 12,1 SAY'Образование:_________________'

  @ 13,1 SAY'Название  учебного заведения:_'

  @ 14,1 SAY'Форма обучения:______________'

  @ 15,1 SAY'Год окончания:_______________'

  @ 18,4 SAY'ЛИСТАТЬ'

  @ 18,29 SAY'ЗАПИСЬ'

  @ 16,0,16,77 BOX

  @ 17,26,19,26 BOX

  @ 17,52,19,52 BOX

   STORE 6 TO org_num,ins_num,surname,name,up,down,next,;

   previos,find,print,exit

    @ 1,30 GET org_num VALID UN()=.t. ERROR ;

    'Такой  табельный номер уже существует'SIZE 1,6 WHEN edit=.t. COLOR SCHEME 2

    @ 2,30 GET ins_num PICTURE 'NNN-NNN-NNN' SIZE 1,11 ;

    WHEN edit=.t. COLOR SCHEME 2

    @ 3,30 GET surname SIZE 1,15 WHEN edit=.t. COLOR SCHEME 2

    @ 4,30 GET name SIZE 1,15 WHEN edit=.t. COLOR SCHEME 2

    @ 5,30 GET patron SIZE 1,15 WHEN edit=.t. COLOR SCHEME 2

    @ 6,30 GET sex VALID sex='М'OR sex='Ж'OR sex='м'OR sex='ж' ;

    ERROR '[М]ужской  или [Ж]енский' SIZE 1,1 ;

    WHEN edit=.t. COLOR SCHEME 2

    @ 7,30 GET birth_date SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2

    @ 8,30 GET birthplace SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

    @ 9,30 GET national SIZE 1,15 WHEN edit=.t. COLOR SCHEME 2

    @ 10,30 GET SOCIAL SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

    @ 11,30 GET citizen SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2

    @ 12,30 GET educat SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

    @ 13,30 GET NAME_EDU SIZE 1,47 WHEN edit=.t. COLOR SCHEME 2

    @ 14,30 GET form_train SIZE 1,20 WHEN edit=.t. COLOR SCHEME 2

    @ 15,30 GET year_end SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2 

   STORE "* ВПЕРЕД" TO MPROMPTS

    @ 17,14 GET up FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11

   STORE "* НАЗАД  " TO MPROMPTS

    @ 19,14 GET down FUNCTION MPROMPTS SIZE 1, 8 COLOR SCHEME 11

   STORE "* СЛЕДУЮЩАЯ  " TO MPROMPTS

    @ 17,38 GET next FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11

   STORE "* ПРЕДЫДУЩАЯ" TO MPROMPTS

    @ 18,38 GET previos FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11

   STORE "* НАЙТИ     " TO MPROMPTS

    @ 19,38 GET find FUNCTION MPROMPTS SIZE 1, 12 COLOR SCHEME 11

   STORE "* ПЕЧАТЬ" TO MPROMPTS

    @ 17,62 GET print FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11

   STORE "* ВЫХОД" TO MPROMPTS

    @ 19,62 GET exit FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11

   READ CYCLE

IF org_n<>org_num

org_n1=org_num

SELECT 2

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 3

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 4

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 5

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 6

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 7

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 8

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 9

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 10

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 11

REPLACE org_num WITH org_n1 FOR org_num=org_n

SELECT 1

ENDIF

RETURN

 

FUNCTION un

rec_un=RECNO()

tab_un=org_num

SEEK tab_un

IF RECNO()=rec_un

SKIP

ENDIF

IF tab_un=org_num AND !EOF()

GO rec_un

RETURN .f.

ENDIF

GO rec_un

RETURN 

WIEV2.PRG 

PARAMETER edit

  ACTIVATE WINDOW win1

  CLEAR

eduadd=5

forlang=5

conv=5

structfam=5

pass=5

bok=5

purpos=5

qualcateg=5

tripsbus=5

holid=5 

  @ 1,1 SAY'Диплом:______________________'

  @ 2,1 SAY'Квалификация  по диплому:_____'

  @ 3,1 SAY'Специальность  по диплому:_____'

  @ 4,30 SAY EDU_NUM COLOR SCHEME 2

  @ 5,1 SAY'Вид найма:___________________'

  @ 6,1 SAY'Вид работы:__________________'

  @ 7,1 SAY'Ученая степень:______________'

  @ 8,1 SAY'Ученое  звание:_______________'

  @ 9,1 SAY'Узкая специальность:_________'

  @ 10,30 SAY LANG_NUM COLOR SCHEME 2

  @ 11,30 SAY conv_num COLOR SCHEME 2

  @ 12,1 SAY'Семейное  положение:__________'

  @ 13,30 SAY famil_num COLOR SCHEME 2

  @ 14,1 SAY'Профсоюз:____________________'

  @ 15,1 SAY'Группа  инвалидности:_________' 

  @ 18,4 SAY'ЛИСТАТЬ'

  @ 18,29 SAY'ЗАПИСЬ'

  @ 16,0,16,77 BOX

  @ 17,26,19,26 BOX

  @ 17,52,19,52 BOX

   STORE 6 TO diploma,qual_dip,spec_dip,eduadd, ;

   kind_hir,KIND_WRK,s_degree,s_rank,mar_spec, ;

   forlang,conv,mar_status,structfam,tr_union,group, ;

   up,down,next,previos,find,print,exit

Информация о работе Разработка базы данных «Кадры»