Разработка программного модуля "Лаборатория"

Алгоритм меню:

Рисунок 8 - Алгоритм меню

Текст программы меню:

CLEAR ALL

SET BELL off

SET talk OFF

CLOSE all

SET SYSMENU to

SET SYSMENU automatic

DEFINE PAD a OF _msysmenu PROMPT "Ввод данных" COLOR SCHEME 3

DEFINE PAD d OF _msysmenu PROMPT "Просмотр базы" COLOR SCHEME 3

DEFINE PAD j OF _msysmenu PROMPT "Редактирование данных" COLOR SCHEME 3

DEFINE PAD p OF _msysmenu PROMPT "Формирование отчётов" COLOR SCHEME 3

DEFINE PAD l OF_msysmenu PROMPT "Обработка COLOR SCHEME3

DEFINE PAD h OF _msysmenu PROMPT "Сервис" COLOR SCHEME 3

DEFINE PAD f OF _msysmenu PROMPT "Справка" COLOR SCHEME 3

DEFINE PAD k OF _msysmenu PROMPT "ВЫХОД" COLOR SCHEME 3

on PAD a OF _msysmenu activate popup vvod

on PAD d OF _msysmenu activate popup prosm

ON PAD j OF _msysmenu ACTIVATE POPUP redakt

on PAD p OF _msysmenu activate popup svodki

ON PAD l OF _msysmenu ACTIVATE POPUP obrab

on PAD h OF _msysmenu activate popup servis

on PAD f OF _msysmenu activate popup spravka

on PAD k OF _msysmenu activate popup vihod

DEFINE POPUP vvod MARGIN RELATIVE shadow COLOR SCHEME 3

DEFINE BAR 1 OF vvod PROMPT "Сотрудники"

DEFINE BAR 2 OF vvod PROMPT "Справочник дополнительной информации по сотрудникам"

DEFINE BAR 3 OF vvod PROMPT "Справочник должности"

DEFINE BAR 4 OF vvod PROMPT "Справочник ученая степень"

ON SELECTION BAR 1 OF vvod do 'D:\ТРПП курсовой\Программа\vvod_sotr.prg'

ON SELECTION BAR 2 OF vvod do 'D:\ТРПП курсовой\Программа\vvod_dop_inf.prg'

ON SELECTION BAR 3 OF vvod do 'D:\ТРПП курсовой\Программа\vvod_dolzhn.prg'

ON SELECTION BAR 4 OF vvod do 'D:\ТРПП курсовой\Программа\vvod_uch_step.prg'

DEFINE POPUP prosm MARGIN RELATIVE shadow COLOR SCHEME3

DEFINE BAR 1 OF prosm PROMPT "Сотрудники"

DEFINE BAR 2 OF prosm PROMPT "Справочник Должности"

DEFINE BAR 3 OF prosm PROMPT "Справочник Ученая степень"

DEFINE BAR 4 OF prosm PROMPT "Справочник Дополнительная информация по сотрудникам"

ON SELECTION BAR 1 OF prosm do proc1

ON SELECTION BAR 2 OF prosm do proc2

ON SELECTION BAR 3 OF prosm do proc3

ON SELECTION BAR 4 OF prosm do proc4

DEFINE POPUP redakt MARGIN RELATIVE shadow COLOR SCHEME3

DEFINE BAR 1 OF redakt PROMPT "Сотрудники"

DEFINE BAR 2 OF redakt PROMPT "Справочник Должности"

DEFINE BAR 3 OF redakt PROMPT "Справочник Ученая степень"

DEFINE BAR 4 OF redakt PROMPT "Справочник Дополнительная информация по сотрудникам"

ON SELECTION BAR 1 OF redakt do proc30

ON SELECTION BAR 2 OF redakt do proc31

ON SELECTION BAR 3 OF redakt do proc32

ON SELECTION BAR 4 OF redakt do proc33

DEFINE POPUP svodki MARGIN RELATIVE shadowCOLOR SCHEME3

DEFINE BAR 1 OF svodki PROMPT "Вывести сотрудников по количеству детей"

DEFINE BAR 2 OF svodki PROMPT "Вывести сотрудников по ученой степени"

DEFINE BAR 3 OF svodki PROMPT "Вывести сотрудников по должности"

ON SELECTION BAR 1 OF svodki do proc40

ON SELECTION BAR 2 OF svodki do proc41

ON SELECTION BAR 3 OF svodki do proc42

DEFINE POPUP obrab MARGIN RELATIVE shadow COLOR SCHEME3

DEFINE BAR 1 OF obrab PROMPT "формирование ведомости"

ON SELECTION BAR 1 OF obrab do proc8

DEFINE POPUP servis MARGIN RELATIVE shadow COLOR SCHEME3

DEFINE BAR 1 OF servis PROMPT "очистка экрана"

DEFINE BAR 3 OF servis PROMPT "очистка таблиц"

DEFINE BAR 4 OF servis PROMPT "закрыть всё"

ON SELECTION BAR 1 OF servis do proc9

ON SELECTION BAR 3 OF servis do proc11

ON SELECTION BAR 4 OF servis do proc15

DEFINE POPUP spravka MARGIN RELATIVE shadow COLOR SCHEME 3

DEFINE BAR 1 OF spravka PROMPT "Просмотр справки"

ON SELECTION BAR 1 OF spravka do proc16

DEFINE POPUP vihod MARGIN RELATIVE shadow COLOR SCHEME3

DEFINE BAR 1 OF vihod PROMPT "Выйти в Windows"

DEFINE BAR 2 OF vihod PROMPT "Выйти в FOXPRO"

ON SELECTION BAR 1 OF vihod do Pvih

ON SELECTION BAR 2 OF vihod do PvihL

PROCEDURE proc1

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

BROWSE noedit

CLOSE DATABASES

Return

PROCEDURE proc2

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

BROWSE noedit

CLOSE DATABASES

return

PROCEDURE proc3

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

BROWSE noedit

CLOSE DATABASES

RETURN

PROCEDURE proc4

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

BROWSE noedit

CLOSE DATABASES

RETURN

PROCEDURE proc7

MODIFY FILE 'D:\ТРПП курсовой\Программа\vedomost.txt' noedit

PROCEDURE proc8

DO 'D:\ТРПП курсовой\Программа\formir_ved.prg'

return

PROCEDURE proc40

DO 'D:\ТРПП курсовой\Программа\otchet1.prg'

RETURN

PROCEDURE proc41

DO 'D:\ТРПП курсовой\Программа\otchet2.prg'

RETURN

PROCEDURE proc42

DO 'D:\ТРПП курсовой\Программа\otchet3.prg'

RETURN

PROCEDURE proc9

CLEAR

RETURN

PROCEDURE proc11

DEFINE WINDOW pp FROM 1,1 TO 100,100;

title 'Очистка таблиц';

close float font 'Times New Roman'

ACTIVATE WINDOW pp

STORE SPACE(5) TO par

@ 1,1 say 'Введите пароль' get par picture '99999'

READ

IF par='12345'

CLEAR

STORE SPACE(1) TO s

@ 3,1 say 'Вы действительно хотите очистить таблицы??? Если да введите "1", если нет то "0"' get s pict '9'

READ

IF s='0'

clear

DEACTIVATE WINDOW pp

CLOSE databases

ELSE

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

ZAP

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

ZAP

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

ZAP

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

ZAP

clear

DEACTIVATE WINDOW pp

CLOSE databases

ENDIF

ELSE

MESSAGEBOX( "Пароль неверный" ,48,"Ошибка",0)

clear

DEACTIVATE WINDOW pp

CLOSE databases

ENDIF

RETURN

PROCEDURE proc15

CLOSE ALL

RETURN

PROCEDURE proc16

MODIFY FILE 'D:\ТРПП курсовой\Программа\spravka.txt' noedit

RETURN

PROCEDURE proc30

defi wind qw from 1,1 to 20,90;

title 'Ввод пароля';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE SPACE(5) TO st(1)

ero=1

DO WHILE ero =1

@ 4,4 say 'Пароль ' get st(1) pICTURE '99999'

READ

par=st(1)

IF par='12345'

DEACTIVATE WINDOW qw

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

BROWSE

CLOSE DATABASES

ero=0

ELSE

MESSAGEBOX( "Пароль неверный" ,48,"Ошибка",0)

ENDIF

ENDDO

RETURN

PROCEDURE 4otch

SET ALTERNATE TO 'D:\ТРПП курсовой\Программа\4otch.txt'

SET ALTERNATE on

SELECT e

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

INDEX on kods+kodd TO 'D:\ТРПП курсовой\Программа\1.idx'

SELECT b

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

INDEX on kodd TO 'D:\ТРПП курсовой\Программа\2.idx'

SET RELATION TO kodd INTO e additive

SET SKIP TO e

?'-------------------------------------------------------------------------------

---------------------------------------------------------------------------------'

?' Должность | Количество людей работающих на этой должности |'

?'-------------------------------------------------------------------------------

---------------------------------------------------------------------------------'

n=0

SELECT b

GO top

DO while.not.EOF()

dol=b.dolzhn

SELECT e

GO top

DO while.not.eof()

IF e.kodd=b.kodd

n=n+1

ENDIF

SKIP

ENDDO

?' ',PADC(dol,58),'|',n,' |'

n=0

SELECT b

SKIP

ENDDO

?'--------------------------------------------------------------------------------

---------------------------------------------------------------------------------'

SET ALTERNATE off

RETURN

PROCEDURE proc31

defi wind qw from 1,1 to 20,90;

title 'Ввод пароля';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE SPACE(5) TO st(1)

ero=1

DO WHILE ero =1

@ 4,4 say 'Пароль ' get st(1) pICTURE '99999'

READ

par=st(1)

IF par='12345'

DEACTIVATE WINDOW qw

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

BROWSE

CLOSE DATABASES

ero=0

ELSE

MESSAGEBOX( "Пароль неверный" ,48,"Ошибка",0)

ENDIF

ENDDO

RETURN

PROCEDURE proc32

defi wind qw from 1,1 to 20,90;

title 'Ввод пароля';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE SPACE(5) TO st(1)

ero=1

DO WHILE ero =1

@ 4,4 say 'Пароль ' get st(1) pICTURE '99999'

READ

par=st(1)

IF par='12345'

DEACTIVATE WINDOW qw

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

BROWSE

CLOSE DATABASES

ero=0

ELSE

MESSAGEBOX( "Пароль неверный" ,48,"Ошибка",0)

ENDIF

ENDDO

RETURN

PROCEDURE proc33

defi wind qw from 1,1 to 20,90;

title 'Ввод пароля';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE SPACE(5) TO st(1)

ero=1

DO WHILE ero =1

@ 4,4 say 'Пароль ' get st(1) pICTURE '99999'

READ

par=st(1)

IF par='12345'

DEACTIVATE WINDOW qw

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

BROWSE

CLOSE DATABASES

ero=0

ELSE

MESSAGEBOX( "Пароль неверный" ,48,"Ошибка",0)

ENDIF

ENDDO

RETURN

PROCEDURE Pvih

DEACTIVATE MENU

QUIT

RETURN

PROCEDURE PvihL

DEACTIVATE POPUP

DEACTIVATE menu

SET SYSMENU TO default

RETURN

ENDPROC

Вид меню:

Рисунок 9 - Вид меню

2.4.2 Алгоритм и тексты (виды форм) программы ввода данных

SET BELL off

SET TALK OFF

SET DATE BRITISH

CLOSE all

CLEAR

DELETE file 'D:\ТРПП курсовой\Программа\vedomost.txt'

DELETE file 'D:\ТРПП курсовой\Программа\1.idx'

DELETE file 'D:\ТРПП курсовой\Программа\2.idx'

DELETE file 'D:\ТРПП курсовой\Программа\3.idx'

DELETE file 'D:\ТРПП курсовой\Программа\4.idx'

SET ALTERNATE TO 'D:\ТРПП курсовой\Программа\vedomost.txt'

SET ALTERNATE on

SELECT e

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\1.idx'

SELECT b

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

INDEX on kodd TO 'D:\ТРПП курсовой\Программа\2.idx'

SELECT c

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\3.idx'

SELECT a

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

INDEX on kodus TO 'D:\ТРПП курсовой\Программа\4.idx'

?' ВЕДОМОСТЬ ПО СОТРУДНИКАМ ЛАБОРАТОРИИ'

?'-----------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------'

?'| Фамилия | Имя | Отчество | Возраст | Пол | Должность | Ученая степень | Семейное положение| Кол-во детей|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

GO top

DO WHILE.not.eof()

SELECT b

IF SEEK(e.kodd)

dol=b.dolzhn

ELSE

dol=' '

ENDIF

SELECT a

IF SEEK(e.kodus)

ustep=a.u_step

ELSE

ustep='-'

ENDIF

SELECT c

IF SEEK(e.kods)

sem=c.sp

kold=c.deti

ELSE

sem='-'

kold=' '

ENDIF

?'|',PADC(e.fam,17),'|',PADC(e.imja,15),'|',PADC(e.otch,20),'|',PADC(e.vozr,8),'|',PADC(e.pol,4),'|',PADC(dol,60),'|',PADC(ustep,15),'|',PADC(sem,17),'|',PADC(kold,11),'|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

SKIP

ENDDO

USE

CLOSE DATABASES

SET ALTERNATE off

RUN “start notepad D:\ТРПП курсовой\Программа\vedomost.txt"

CLOSE ALL

2.4.4 Текст программы формирования отчёта по количеству детей

SET BELL off

SET TALK OFF

SET DATE BRITISH

CLOSE all

CLEAR

DELETE file 'D:\ТРПП курсовой\Программа\otchet1.txt'

DELETE file 'D:\ТРПП курсовой\Программа\5.idx'

DELETE file 'D:\ТРПП курсовой\Программа\6.idx'

DELETE file 'D:\ТРПП курсовой\Программа\7.idx'

DELETE file 'D:\ТРПП курсовой\Программа\8.idx'

SELECT e

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\5.idx'

SELECT b

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

INDEX on kodd TO 'D:\ТРПП курсовой\Программа\6.idx'

SELECT c

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\7.idx'

SELECT a

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

INDEX on kodus TO 'D:\ТРПП курсовой\Программа\8.idx'

SET ALTERNATE TO 'D:\ТРПП курсовой\Программа\otchet1.txt'

SET ALTERNATE on

defi wind qw from 1,1 to 20,90;

title 'Формирование отчета по количеству детей';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE 0 TO ST(1)

@ 1,1 SAY 'Введите количество детей' get ST(1) Picture'99'

READ

DEACTIVATE WINDOW qw

kold=ST(1)

?' Отчёт по сотрудникам у которых количество детей =',kold

?'------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------'

?'| Фамилия | Имя | Отчество | Возраст | Пол | Должность | Ученая степень | Семейное положение| Кол-во детей|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT c

GO top

DO WHILE.not.EOF()

IF c.deti=kold

sem=c.sp

SELECT e

IF SEEK(c.kods)

f=e.fam

i=e.imja

o=e.otch

p=e.pol

v=e.vozr

kd=e.kodd

ks=e.kods

ku=e.kodus

ENDIF

SELECT a

IF SEEK(ku)

ustep=a.u_step

ELSE

ustep='-'

ENDIF

SELECT b

IF SEEK(kd)

d=b.dolzhn

ELSE

d=' '

ENDIF

?'|',PADC(f,17),'|',PADC(i,15),'|',PADC(o,20),'|',PADC(v,8),'|',PADC(p,4),'|',PADC(d,60),'|',PADC(ustep,15),'|',PADC(sem,17),'|',PADC(kold,11),'|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT c

SKIP

ELSE

SKIP

ENDIF

ENDDO

CLOSE DATABASES

CLOSE PROCEDURES

CLOSE ALL

CLOSE ALTERNATE

SET ALTERNATE off

RUN "start notepad D:\ТРПП курсовой\Программа\otchet1.txt"

CLOSE DATABASES

CLOSE PROCEDURES

CLOSE ALL

2.4.5 Текст программы формирования отчёта по ученой степени

?' Отчёт по сотрудникам у которых ученая степень:',koduch

?'------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------'

?'| Фамилия | Имя | Отчество | Возраст | Пол | Должность | Ученая степень | Семейное положение| Кол-во детей|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

GO top

DO WHILE.not.EOF()

IF e.kodus=koduch

f=e.fam

i=e.imja

o=e.otch

p=e.pol

v=e.vozr

kd=e.kodd

ks=e.kods

ku=e.kodus

SELECT b

IF SEEK(kd)

d=b.dolzhn

ELSE

d=' '

ENDIF

SELECT a

IF SEEK(ku)

ustep=a.u_step

ELSE

ustep='-'

ENDIF

SELECT c

IF SEEK(ks)

sem=c.sp

kold=c.deti

ENDIF

?'|',PADC(f,17),'|',PADC(i,15),'|',PADC(o,20),'|',PADC(v,8),'|',PADC(p,4),'|',PADC(d,60),'|',PADC(ustep,15),'|',PADC(sem,17),'|',PADC(kold,11),'|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

SKIP

ELSE

SKIP

ENDIF

ENDDO

CLOSE ALTERNATE

SET ALTERNATE off

RUN "start notepad D:\ТРПП курсовой\Программа\otchet2.txt"

CLOSE DATABASES

CLOSE PROCEDURES

CLOSE ALL

2.4.6 Текст программы формирования отчёта по занимаемой должности

SET BELL off

SET TALK OFF

SET DATE BRITISH

CLOSE all

CLEAR

DELETE file 'D:\ТРПП курсовой\Программа\otchet3.txt'

DELETE file 'D:\ТРПП курсовой\Программа\9.idx'

DELETE file 'D:\ТРПП курсовой\Программа\10.idx'

DELETE file 'D:\ТРПП курсовой\Программа\11.idx'

DELETE file 'D:\ТРПП курсовой\Программа\12.idx'

SELECT e

USE 'D:\ТРПП курсовой\Программа\sotrud.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\9.idx'

SELECT b

USE 'D:\ТРПП курсовой\Программа\dolzhn.dbf'

INDEX on kodd TO 'D:\ТРПП курсовой\Программа\10.idx'

SELECT c

USE 'D:\ТРПП курсовой\Программа\dop_inf.dbf'

INDEX on kods TO 'D:\ТРПП курсовой\Программа\11.idx'

SELECT a

USE 'D:\ТРПП курсовой\Программа\uchstep.dbf'

INDEX on kodus TO 'D:\ТРПП курсовой\Программа\12.idx'

SET ALTERNATE TO 'D:\ТРПП курсовой\Программа\otchet3.txt'

SET ALTERNATE on

defi wind qw from 1,1 to 20,90;

title 'Формирование отчета по должности занимаемой сотрудниками';

close float font 'Times New Roman'

ACTIVATE WINDOW qw

DECLARE st(1)

STORE SPACE(3) TO ST(1)

@ 1,1 SAY 'Введите код должности по которой нужно вывести сотрудников' get ST(1) Picture '999'

READ

DEACTIVATE WINDOW qw

koddol=ST(1)

?' Отчёт по сотрудникам, которые занимают должность:',koddol

?'------------------------------------------------------------------------------------------

--------------------------------------------------------------------------------------------'

?'| Фамилия | Имя | Отчество | Возраст | Пол | Должность | Ученая степень | Семейное положение| Кол-во детей|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

GO top

DO WHILE.not.EOF()

IF e.kodd=koddol

f=e.fam

i=e.imja

o=e.otch

p=e.pol

v=e.vozr

kd=e.kodd

ks=e.kods

ku=e.kodus

SELECT b

IF SEEK(kd)

d=b.dolzhn

ELSE

d=' '

ENDIF

SELECT a

IF SEEK(ku)

ustep=a.u_step

ELSE

ustep='-'

ENDIF

SELECT c

IF SEEK(ks)

sem=c.sp

kold=c.deti

ENDIF

?'|',PADC(f,17),'|',PADC(i,15),'|',PADC(o,20),'|',PADC(v,8),'|',PADC(p,4),'|',PADC(d,60),'|',PADC(ustep,15),'|',PADC(sem,17),'|',PADC(kold,11),'|'

?'|-------------------|-----------------|----------------------|----------|------|-------------

----------------------------------------|-----------------|-------------------|-------------|'

SELECT e

SKIP

ELSE

SKIP

ENDIF

ENDDO

CLOSE ALTERNATE

SET ALTERNATE off

RUN "start notepad D:\ТРПП курсовой\Программа\otchet3.txt"

CLOSE DATABASES

CLOSE PROCEDURES

CLOSE ALL

2.5 Результаты работы программы