Разработка базы данных "Кадры"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
NDDO
SELECT a
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE EDU_NUM WITH f
RETURN
FAMILY.PRG
PARAMETER org_num1,edit
SELECT f
DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;
NOFLOAT NOZOOM COLOR R+/N
IF edit=.t.
ACTIVATE WINDOW win4
@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-сохранить и выйти'
@ 1,30 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Состав семьи' LOCK 0 ;
FIELDS relation :H='Степень родства:', names :H='Фамилия, инициалы:', ;
date_relat :H='Дата рождения:', expense :H='На иждивении:'
REPLACE org_num WITH org_num1 FOR org_num=0
ELSE
ACTIVATE WINDOW win4
@ 0,26 SAY'Нажмите [ESC] для выхода'
@ 1,28 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Состав семьи' NOAPPEND NOMODIFY NODELETE ;
LOCK 0 FIELDS relation :H='Степень родства:', ;
names :H='Фамилия, инициалы:', date_relat :H='Дата рождения:', ;
expense :H='На иждивении:'
ENDIF
GO TOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF()=.f.
IF FOUND()=.t.
f=f+1
ENDIF
CONTINUE
ENDDO
SELECT a
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE famil_num WITH f
RETURN
HOLIDAY.PRG
PARAMETER org_num1,edit
SELECT 11
DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;
NOFLOAT NOZOOM COLOR R+/N
IF edit=.t.
ACTIVATE WINDOW win4
@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-сохранить и выйти'
@ 1,30 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Отпуска' LOCK 0 ;
FIELDS kind_hol :H='Вид отпуска:', basis_hol :H='Основание:', ;
with_hol :H='За время с',on_hol :H='За время по:', ;
d_st_hol :H='Дата начала:', amount :H='Кол-во дней:', ;
d_en_hol :H='Дата окончания:'
REPLACE org_num WITH org_num1 FOR org_num=0
ELSE
ACTIVATE WINDOW win4
@ 0,26 SAY'Нажмите [ESC] для выхода'
@ 1,28 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Отпуска' NOAPPEND NOMODIFY NODELETE LOCK 0 ;
FIELDS kind_hol :H='Вид отпуска:', basis_hol :H='Основание:', ;
with_hol :H='За время с',on_hol :H='За время по:', d_st_hol :H='Дата начала:', ;
amount :H='Кол-во дней:',d_en_hol :H='Дата окончания:'
ENDIF
GO TOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF()=.f.
IF FOUND()=.t.
f=f+1
ENDIF
CONTINUE
ENDDO
SELECT a
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE holid_num WITH f
RETURN
LANGUAGE.PRG
PARAMETER org_num1,edit
SELECT d
DEFINE WINDOW win3 FROM 3, 13 TO 20, 67 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;
NOFLOAT NOZOOM COLOR R+/N
IF edit=.t.
ACTIVATE WINDOW win4
@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-сохранить и выйти'
@ 1,30 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Владение иностранными языками' LOCK 0 ;
FIELDS oth_lang :H='Язык:', level :H='Уровень владения:'
REPLACE org_num WITH org_num1 FOR org_num=0
ELSE
ACTIVATE WINDOW win4
@ 0,26 SAY'Нажмите [ESC] для выхода'
@ 1,28 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Владение иностранными языками' ;
NOAPPEND NOMODIFY NODELETE LOCK 0 ;
FIELDS oth_lang :H='Язык:', level :H='Уровень владения:'
ENDIF
GO TOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF()=.f.
IF FOUND()=.t.
f=f+1
ENDIF
CONTINUE
ENDDO
SELECT a
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE LANG_NUM WITH f
RETURN
MOVE.PRG
PARAMETER org_num1,edit
SELECT h
DEFINE WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;
NOFLOAT NOZOOM COLOR R+/N
IF edit=.t.
ACTIVATE WINDOW win4
@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-сохранить и выйти'
@ 1,30 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Назначения и перемещения' LOCK 0 ;
FIELDS date_mov :H='Дата:', reason_mov :H='Основание:', depart :H='Отдел:', ;
post_mov :H='Должность:',method_mov :H='Режим работы:'
REPLACE org_num WITH org_num1 FOR org_num=0
ELSE
ACTIVATE WINDOW win4
@ 0,26 SAY'Нажмите [ESC] для выхода'
@ 1,28 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Назначения и перемещения' NOAPPEND NOMODIFY NODELETE LOCK 0 ;
FIELDS date_mov :H='Дата:', reason_mov :H='Основание:', depart :H='Отдел:', ;
post_mov :H='Должность:',method_mov :H='Режим работы:'
ENDIF
GO TOP
f=0
LOCATE FOR org_num=org_num1
DO WHILE EOF()=.f.
IF FOUND()=.t.
f=f+1
ENDIF
CONTINUE
ENDDO
SELECT a
RELEASE WINDOW win4
RELEASE WINDOW win3
REPLACE purpos_num WITH f
RETURN
PASSPORT.PRG
PARAMETER org_num1,edit
SELECT b
LOCATE FOR org_num=org_num1
IF FOUND()=.f.
APPEND BLANK
REPLACE org_num WITH org_num1
ENDIF
DEFINE WINDOW win3 FROM 3, 1 TO 24, 78 NOGROW ;
NOFLOAT NOZOOM SHADOW CLOSE COLOR SCHEME 10 TITLE 'ПАСПОРТНЫЕ ДАННЫЕ'
ACTIVATE WINDOW win3
@ 1,5 SAY'Кем выдан:'
@ 2,5 SAY'Дата выдачи:'
@ 6,5 SAY'Индекс:'
@ 7,5 SAY'Область:'
@ 8,5 SAY'Район:'
@ 9,5 SAY'Город:'
@ 10,5 SAY'Населенный пункт:'
@ 11,5 SAY'Улица:'
@ 12,5 SAY'Дом:'
@ 13,5 SAY'Корпус:'
@ 14,5 SAY'Квартира:'
@ 4,2,16,73 BOX
@ 4,30 SAY ' Адрес прописки '
STORE 5 TO exp_given,date_distr,index_p,area_p,region_p,city_p,point_p,street_p,;
house_p,corps_p,flat_p,end
@ 1,20 GET exp_given SIZE 1,50 WHEN edit=.t. COLOR SCHEME 2
@ 2,20 GET date_distr SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 6,30 GET index_p SIZE 1,6 WHEN edit=.t. COLOR SCHEME 2
@ 7,30 GET area_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 8,30 GET region_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 9,30 GET city_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 10,30 GET point_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 11,30 GET street_p SIZE 1,30 WHEN edit=.t. COLOR SCHEME 2
@ 12,30 GET house_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 13,30 GET corps_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
@ 14,30 GET flat_p SIZE 1,10 WHEN edit=.t. COLOR SCHEME 2
STORE "* ВЫХОД" TO MPROMPTS
@ 18,34 GET end FUNCTION MPROMPTS SIZE 1,5 COLOR SCHEME 11
READ CYCLE
SELECT a
RELEASE WINDOW win3
RETURN
QUALIF.PRG
PARAMETER org_num1,edit
SELECT i
DEFINE WINDOW win3 FROM 3, 10 TO 20, 69 NOGROW ;
NOFLOAT NOZOOM CLOSE COLOR SCHEME 10
DEFINE WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW ;
NOFLOAT NOZOOM COLOR R+/N
IF edit=.t.
ACTIVATE WINDOW win4
@ 0,1 SAY'[Ctrl+T]-удалить запись, [Ctrl+N]-создать новую, [Ctrl+W]-сохранить и выйти'
@ 1,30 SAY'[Ctrl+F]-поиск поля'
ACTIVATE WINDOW win3
BROWSE FOR org_num=org_num1 TITLE 'Квалификационный раз