Реферат Розробка інформаційної системи підтримки функцій інспектора відділу кадрів по офіцерському складу

Тема: Статьи

IELDS relation: H= Ступінь споріднення: raquo ;,;

names: H= Прізвище, ініціали: raquo ;, date_relat: H= Дата народження: raquo ;,;

expense: H= На утриманні: TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3famil_num WITH f.PRGorg_num1, edit11WINDOW win3 FROM 3, 0 TO 20, 79 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R +/Nedit=.t.WINDOW win4

@ 0,1 SAY '[Ctrl + T] -удалить запис, [Ctrl + N] -створити нову, [Ctrl + W] -

зберегти і вийти '

@ 1,30 SAY [Ctrl + F] -пошук поля

ACTIVATE WINDOW win3FOR org_num=org_num1 TITLE Відпустки LOCK 0; kind_hol: H= Вид відпустки: raquo ;, basis_hol: H= Підстава: raquo ;,;

with_hol: H= За час з , on_hol: H= За час по: raquo ;,; _st_hol: H= Дата початку: raquo ;, amount: H= Кількість днів: raquo ;,; _en_hol: H= Дата закінчення:

REPLACE org_num WITH org_num1 FOR org_num=0WINDOW win4

@ 0,26 SAY Натисніть [ESC] для виходу

@ 1,28 SAY [Ctrl + F] -пошук поля WINDOW win3FOR org_num=org_num1 TITLE Відпустки NOAPPEND NOMODIFY NODELETE0; kind_hol: H= Вид відпустки: raquo ;, basis_hol: H= Підстава: raquo ;,;

with_hol: H= За час з , on_hol: H= За час по: raquo ;, d_st_hol: H='Дата

початку: laquo ;,;: H= Кількість днів: , d_en_hol: H= Дата закінчення: '

ENDIF

GO TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3holid_num WITH f.PRGorg_num1, editdWINDOW win3 FROM 3, 13 TO 20, 67 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R +/Nedit=.t.WINDOW win4

@ 0,1 SAY '[Ctrl + T] -удалить запис, [Ctrl + N] -створити нову, [Ctrl + W] -

зберегти і вийти '

@ 1,30 SAY [Ctrl + F] -пошук поля

ACTIVATE WINDOW win3FOR org_num=org_num1 TITLE Володіння іноземними мовами LOCK

; oth_lang: H= Мова: raquo ;, level: H= Рівень володіння: org_num WITH org_num1 FOR org_num=0WINDOW win4

@ 0,26 SAY Натисніть [ESC] для виходу

@ 1,28 SAY [Ctrl + F] -пошук поля WINDOW win3

BROWSE FOR org_num=org_num1 TITLE Володіння іноземними мовами ;

NOAPPEND NOMODIFY NODELETE LOCK 0; oth_lang: H= Мова: raquo ;, level: H= Рівень володіння: TOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3LANG_NUM WITH f.PRGorg_num1, edithWINDOW win3 FROM 3, 0 TO 20, 79 NOGROW; NOZOOM CLOSE COLOR SCHEME 10WINDOW win4 FROM 21, 0 TO 24, 79 NOGROW; NOZOOM COLOR R +/Nedit=.t.WINDOW win4

@ 0,1 SAY '[Ctrl + T] -удалить запис, [Ctrl + N] -створити нову, [Ctrl + W] -

зберегти і вийти '

@ 1,30 SAY [Ctrl + F] -пошук поля

ACTIVATE WINDOW win3FOR org_num=org_num1 TITLE Призначення і переміщення LOCK 0; date_mov: H= Дата: raquo ;, reason_mov: H= Підстава: raquo ;, depart

: H= Відділ: raquo ;,; _mov: H= Посада: , method_mov: H= Режим роботи:

REPLACE org_num WITH org_num1 FOR org_num=0WINDOW win4

@ 0,26 SAY Натисніть [ESC] для виходу

@ 1,28 SAY [Ctrl + F] -пошук поля WINDOW win3FOR org_num=org_num1 TITLE Призначення і переміщення NOAPPENDNODELETE LOCK 0; date_mov: H= Дата: raquo ;, reason_mov: H= Підстава: raquo ;, depart

: H= Відділ: raquo ;,; _mov: H= Посада: , method_mov: H= Режим роботи:

ENDIFTOP=0FOR org_num=org_num1WHILE EOF () =. f.FOUND () =. t.=f + 1aWINDOW win4WINDOW win3purpos_num WITH f.PRGorg_num1, editbFOR org_num=org_num1FOUND () =. f.BLANKorg_num WITH org_num1WINDOW win3 FROM 3 , 1 TO 24, 78 NOGROW; NOZOOM SHADOW CLOSE COLOR SCHEME 10 TITLE Паспортні дані 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