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

1hFOR org_num=org_num1iFOR org_num=org_num1jFOR org_num=org_num111FOR org_num= org_num1bFOR org_num=org_num1cFOR org_num=org_num1dFOR org_num=org_num1eFOR org_num=org_num1fFOR org_num=org_num1gFOR org_num=org_num1hFOR org_num=org_num1iFOR org_num=org_num1jFOR org_num=org_num111FOR org_num=org_num1a_W.PRGedit, type, up, down, next, previos, find, print, exit, eduadd, forlang,;, structfam, pass, bok, purpos, qualcateg, tripsbus, holid=1=5COLOR TO N/W + ARECCOUNT ()=0BLANKWINDOW win0 FROM 0, 0 TO 2, 79 NOGROW; NOZOOM COLOR W +/NWINDOW win1 FROM 3, 0 TO 24, 79 NOGROW; NOZOOM COLOR GR +/BWHILE exit lt; gt; 1WINDOW win0

@ 0,8 SAY ALLTRIM (surname) + + ALLTRIM (name) + + ALLTRIM (patron) type=1

@ 0,63 SAY ПЕРЕГЛЯД ДАНИХ type=2

@ 0,57 SAY РЕДАКТИРОВАНИЕ ДАНИХ

IF type=3

@ 0,61 SAY ДОДАВАННЯ ДАНИХ

ENDIF

IF list=1

@ 0,0 SAY Екран 1

DO wiev1.prg WITH editlist=2

@ 0,0 SAY Екран 2 wiev2.prg WITH editlist=3

@ 0,0 SAY Екран 3 wiev3.prg WITH editlist=4

@ 0,0 SAY Екран 4 wiev4.prg WITH editlist=5

@ 0,0 SAY Екран 5 wiev5.prg WITH editprevios=1-1BOF () =. t.BOTTOMnext=11EOF () =. t.TOPdown=1list lt; gt; 1= list - 1=5up=1list lt; gt; 5=list + 1=1find=1search.prg_num1=org_numeduadd=1educat.prg WITH org_num1, editforlang=1language.prg WITH org_num1, editconv=1convict.prg WITH org_num1, editstructfam=1family. prg WITH org_num1, editpass=1passport.prg WITH org_num1, editbok=1workcard.prg WITH org_num1, editpurpos=1move.prg WITH org_num1, editqualcateg=1qualif.prg WITH org_num1, edittripsbus=1bus_trip.prg WITH org_num1, editholid=1holiday.prg WITH org_num1, editprint=1print.prgWINDOW win1WINDOW win0.PRGeditWINDOW win1=5=5=5=5=5=5=5=5=5=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 BOX6 TO org_num, ins_num, surname, name, up, down, next,;, 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; 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

* ВПЕРЕД TO MPROMPTS