Курсовой проект "Разработка программного обеспечения по учету товаров в коммерческой фирме по продаже аудиотехники" состоит из основной программы и группы вспомогательных программ.

При запуске программы START. PRG на экране появляется титульный лист. В нем содержится следующая информация: название курсового проекта и фамилия автора. Далее запускается основная программа, которая активизирует основное окно, в котором находится меню. Оно состоит из следующих пунктов:

База данных.

Поиск А.

Для продолжения нажмите любую клавишу.

ENDTEXT

WAIT ''TIMEOUT 5

CLEAR WINDOWS titul

RETURN

**---------Программа START. PRG----------

**Программа производит все установки, запускает основные

**программные файлы, удаляет индексные файлы, а также

**осуществляет выход из СУБД FoxPro.

SET DATE GERMAN

SET STATUS OFF

SET TALK OFF

SET ESCAPE OFF

SET HELP OFF

SET BELL OFF

CLEAR MACROS

ON KEY

CLEAR ALL

CLOSE ALL

DELETE FILE audio. idx

DELETE FILE nds. idx

DELETE FILE info. dat

** Запуск программы заставки экрана

DO titul

** Запуск программы заставки авторских прав

DO office

** Запуск главного управляющего модуля

DO main

** Запуск закрывающей программы

DO end

QUIT

**--------Программа VVOD. PRG-------

**Программа дополняет файл AUDIO. DBF новой пустой записью.

APPEND BLANK

DO look

DO sinkh

DEACTIVATE POPUPS

RETURN

**--------Программа MAIN. PRG----------

**Программа является головным файлом, ибо в нем определяютя

**назначения клавиш, подключаютяс и индексируются фалы баз данных,

*определяются окна, горизонтальное и вертикальные типы меню.

USE techn

INDEX ON nom TO techn COMPACT

USE perev

INDEX ON nom TO perev COMPACT

USE techn IN a INDEX techn

USE perev IN b INDEX perev

SELECT a

SET RELATION TO nom INTO b

DO key

*------------------описание окон------------------------------

DEFINE WINDOW first FROM 1,1 TO 22,76 IN SCREEN;

TITLE '" Аптека "';

DOUBLE SHADOW;

MINIMIZE FILL '-';

COLOR GR+/R

DEFINE WINDOW second FROM 1,1 TO 14,70 IN WINDOW first;

DOUBLE SHADOW

DEFINE WINDOW third FROM 16,1 TO 18,70 IN WINDOW first;

TITLE 'Строка подсказки';

DOUBLE SHADOW

DEFINE WINDOW f1 FROM 3,3 TO 17,50 COLOR W+/G

DEFINE WINDOW poisk FROM 7,25 TO 9,58 TITLE 'Укажите ключ'

DEFINE WINDOW kurs_val FROM 5,20 TO 8,50 IN WINDOW first;

TITLE '***Введите курс валюты***';

DOUBLE SHADOW

*------------------описание меню-------------------------

SET MESSAGE WINDOW first

DEFINE MENU file BAR AT LINE 1 IN WINDOW first COLOR SCHEME 10

DEFINE PAD prosm OF file PROMPT '\<База данных';

MESSAGE 'Работа с базами данных'

DEFINE PAD poisk OF file PROMPT '\<Поиск данных';

MESSAGE 'Поиск данных по ключу'

DEFINE PAD filtr OF file PROMPT '\<Фильтрация данных';

MESSAGE 'Фильтр просмотра данных'

DEFINE PAD quit OF file PROMPT '\<Выход';

MESSAGE 'Выход из программы'

*ON SELECTION MENU file DO file

ON SELECTION PAD prosm OF file ACTIVATE POPUP prosm

ON SELECTION PAD poisk OF file ACTIVATE POPUP poisk

ON SELECTION PAD filtr OF file ACTIVATE POPUP filtr

DEFINE POPUP prosm FROM 2,1 COLOR SCHEME 10

DEFINE BAR 1 OF prosm PROMPT 'Просмотр данных';

MESSAGE 'Просмотр данных без внесения изменений'

DEFINE BAR 2 OF prosm PROMPT 'Редактирование';

MESSAGE 'Просмотр данных с возможностью изменения'

ON SELECTION POPUP prosm DO prosm

DEFINE POPUP poisk FROM 2,17 COLOR SCHEME 10

DEFINE BAR 1 OF poisk PROMPT 'по номеру';

MESSAGE 'Поиск данных по порядковому номеру товара'

DEFINE BAR 2 OF poisk PROMPT 'по наименованию';

MESSAGE 'Поиск данных по названию товара'

ON SELECTION POPUP poisk DO poisk

DEFINE POPUP filtr FROM 2,35 COLOR SCHEME 10

DEFINE BAR 1 OF filtr PROMPT '_ Фильтр по стране';

MESSAGE 'Просмотр товаров различных стран'

DEFINE BAR 2 OF filtr PROMPT '_ Фильтр по гарантии';

MESSAGE 'Просмотр товаров с разной гарантией'

ON SELECTION BAR 1 OF filtr ACTIVATE POPUP filtr1

ON SELECTION BAR 2 OF filtr ACTIVATE POPUP filtr2

DEFINE POPUP filtr1 FROM 3,23 COLOR SCHEME 10

DEFINE BAR 1 OF filtr1 PROMPT 'Отечественные';

MESSAGE 'Просмотр отечественных товаров'

DEFINE BAR 2 OF filtr1 PROMPT 'Зарубежные';

MESSAGE 'Просмотр зарубежных товаров'

ON SELECTION POPUP filtr1 DO filtr1

DEFINE POPUP filtr2 FROM 4,16 COLOR SCHEME 10

DEFINE BAR 1 OF filtr2 PROMPT 'Гарантия до 1-го года';

MESSAGE 'Фильтрация товаров по гарантии'

DEFINE BAR 2 OF filtr2 PROMPT 'Гарантия более 1-го года';

MESSAGE 'Фильтрация товаров по гарантии'

ON SELECTION POPUP filtr2 DO filtr2

ACTIVATE WINDOW first

ACTIVATE MENU file

*-----------------------Процедура работы с меню-------------------

PROCEDURE file

DO CASE

CASE PROMPT () ='Выход из программы'

do end

ENDCASE

POP KEY

DEACTIVATE MENU file

RETURN

SET CURSOR OFF

DEFINE WINDOW office FROM 4,15 TO 15,65;

TITLE '* Авторские права! *';

FOOTER '1999г. ';

DOUBLE SHADOW COLOR R/N

ACTIVATE WINDOW office

TEXT

Авторские права принадлежат студенту ДГТУ

Заирбековой Заире

По вопросам приобретения данного программного

продукта обращаться в деканат факультета ИУиС.

ВНИМАНИЕ!!!

Авторские права защищены законом РФ.

ENDTEXT

WAIT ' ' TIMEOUT 5

CLEAR WINDOWS office

RETURN

**---------Программа PRIN. PRG-----------

**Программа производит вывод записи в дополнительном окне и

**дает возможность осуществить дальнейшую работу по выводу

**записи в файл или на принтер.

DO key

SET CURSOR OFF

PUSH KEY CLEAR

*DEACTIVATE WINDOW poisk

*DEACTIVATE POPUP poisk

DEFINE WINDOW okno FROM 6,8 TO 20,67 TITLE 'Информация о товаре';

DOUBLE SHADOW COLOR W+/B

ACTIVATE WINDOW okno

? ' Номер товара: ',a. nom

? ' Название товара: ',a. name

? ' Фирма изготовитель: ',a. fab

? ' Страна изготовитель: ',a. state

? ' Срок гарантии: ',a. garan

? ' Стоимость в долларах США: ',a. pr_dol

? ' Рейтинг (цена/качество): ',a. reyt

? ' Дата изготовления: ',a. izgot

? ' Дата поставки: ',a. post

? ' Стоимость в рублях: ',a. pr_rub

? ' Текущий курс валюты: ',a. kurs_val

*RELEASE WINDOW okno

POP KEY

RETURN

**---------Программа POISK. PRG---------

**Программа осуществляет возможность поиска по трем полям

** (SHIFR,NAME,PRICE). В случае удачи запись выводится программой

**PRIN в дополнительном окне, иначе выводится сообщение об

**не удачном поиске.

SET CURSOR ON

PUSH KEY CLEAR

DO key

SELECT a

y=BAR ()

ACTIVATE WINDOW poisk

DO CASE

CASE y=1

@ 0,2 GET a PICTURE '9999' DEFAULT 0

READ

LOCATE FOR nom=a

CASE y=2

@ 0,2 GET a DEFAULT SPACE (26)

READ

a=ALLTRIM (a)

LOCATE FOR name=a

ENDCASE

IF! EMPTY (a) AND! FOUND ()

WAIT 'ПОИСК НЕ УДАЧНЫЙ' WINDOW

ELSE

DO prin

ENDIF

DEACTIVATE WINDOW poisk

DEACTIVATE POPUP poisk

DO key

POP KEY

RETURN

**---------Программа PRIN. PRG-----------

**Программа производит вывод записи в дополнительном окне и

**дает возможность осуществить дальнейшую работу по выводу

**записи в файл или на принтер.

SET CURSOR OFF

PUSH KEY CLEAR

DEFINE POPUP choice FROM 2,18 COLOR SCHEME 10

DEFINE BAR 1 OF choice PROMPT 'вывод данных в файл'

DEFINE BAR 2 OF choice PROMPT 'вывод данных на принтер'

ON SELECTION POPUP choice DO choice

DEFINE WINDOW prin FROM 6,8 TO 20,67 TITLE 'Информация о товаре';

DOUBLE SHADOW COLOR W+/B

ACTIVATE WINDOW prin

? ' Номер товара: ',a. nom

? ' Название товара: ',a. name

? ' Фирма изготовитель: ',a. fab

? ' Страна изготовитель: ',a. state

? ' Срок гарантии: ',a. garan

? ' Стоимость в долларах США: ',a. pr_dol

? ' Рейтинг (цена/качество): ',a. reyt

? ' Дата изготовления: ',a. izgot

? ' Дата поставки: ',a. post

? ' Стоимость в рублях: ',a. pr_rub

? ' Текущий курс валюты: ',a. kurs_val

WAIT 'Любая клавиша - ЗАПИСЬ, Esc - ОТКАЗ' WINDOW

IF LASTKEY () #27

ACTIVATE POPUP choice

ENDIF

RELEASE WINDOW prin

POP KEY

RETURN

**---------Программа PROSM. PRG---------

**Программа осуществляет возможность выбора между

**просмотром и редактированием данных.

PUSH KEY CLEAR

y=BAR ()

DO CASE

CASE y=1

do read

CASE y=2

POP KEY

do look

ENDCASE

DEACTIVATE WINDOW third

DEACTIVATE POPUP prosm

POP KEY

RETURN

**---------Программа READ. PRG------------

**Программа осуществляет вывод базы данных во втором окне.

**Данные разрешены только к просмотру.

**Функция HLP осуществляет вывод строки подсказки о назначении

**текущего поля в третьем окне.

SET CURSOR ON

ACTIVATE WINDOW third

DO key

SELECT a

GO TOP

BROWSE FIELDS a. nom: H='№': R: W=hlp (),;

a. name: H='Название': R: W=hlp (),;

a. fab: H='Произ-ль': R: W=hlp (),;

a. state: H='Страна': R: W=hlp (),;

a. garan: H='Гар-я': R: W=hlp (),;

a. pr_dol: H='Цена в $': R: W=hlp (),;

a. reyt: H='Рейтинг': R: W=hlp (),;

a. izgot: H='Изгот': R: W=hlp (),;

a. post: H='Пост-ка': R: W=hlp (),;

a. pr_rub: H='Цена в р. ': R: W=hlp (),;

a. kurs_val: H='Курс вал': R: W=hlp ();

NOAPPEND NODELETE NOMODIFY;

WINDOW second COLOR W/B

DEACTIVATE WINDOW third

DEACTIVATE POPUP

RETURN

*---------------функция вывода строки-подсказки-------------------

function hlp

set cursor off

@0,1 FILL to 0,70 color B/B

DO CASE

CASE VARREAD () ='Nom'

@0,23 SAY 'Порядковый номер товара'

CASE VARREAD () ='Name'

@0,20 SAY 'Название товара (стандартное) '

CASE VARREAD () ='Fab'

@0,20 SAY 'Название фирмы изготовителя'

CASE VARREAD () ='State'

@0,17 SAY 'Страна изготовитель (м/н кодировка) '

CASE VARREAD () ='Garan'

@0,22 SAY 'Срок гарантии (в месяцах) '

CASE VARREAD () ='Pr_dol'

@0,22 SAY 'Стоимость в долларах США'

CASE VARREAD () ='Reyt'

@0,23 SAY 'Рейтинг цена/качество'

CASE VARREAD () ='Izgot'

@0,25 SAY 'Дата изготовления'

CASE VARREAD () ='Post'

@0,27 SAY 'Дата поставки'

CASE VARREAD () ='Pr_rub'

@0,27 SAY 'Цена в рублях'

CASE VARREAD () ='Kurs_val'

@0,29 SAY 'Текущий курс валюты'

ENDCASE

**--------Программа RUB. PRG---------

**Программа осуществляет вычисление налога на добавленную стоимость

** и вставку значений в базу данных PEREV. DBF.

SELECT a

SET RELATION TO nom INTO b

REPLACE ALL b.rubli WITH a. pr_rub

RETURN

**-------Программа SINKH. PRG-------

**Программа синхронизирует количество записей в двух файлах

**баз данных.

copy to array a fields a. nom

select b

GO TOP

DELETE ALL

PACK

append from array a fields b. nom

RETURN

**---------Программа LOOK. PRG------------

**Программа осуществляет вывод базы данных во втором окне.

**Изменяются имена полей, осуществляется контроль выхода

**из поля.

**Функция HLP осуществляет вывод строки подсказки о назначении

**текущего поля в третьем окне.

SET CURSOR ON

ACTIVATE WINDOW third

DO key

ON KEY LABEL ctrl+n DO vvod

ON KEY LABEL ctrl+d DO del

SELECT a

GO TOP

BROWSE TITLE 'F1 - вызов окна помощи ';

FIELDS a. nom: H='№': V=nom>0: E='Номер не может быть отрицательным': W=hlp (),;

a. name: H='Название': W=hlp (),;

a. fab: H='Произ-ль': W=hlp (),;

a. state: H='Страна': W=hlp (),;

a. garan: H='Гар-я': V=garan>0: E='Время гарантии не может быть меньше нуля': W=hlp (),;

a. pr_dol: H='Цена в $': V=pr_dol>0: E='Стоимость является положительной величиной': W=hlp (),;

a. reyt: H='Рейтинг': V=reyt>=0: E='Рейтинг является положительной величиной': W=hlp (),;

a. izgot: H='Изгот': E='Неправильный ввод': W=hlp (),;

a. post: H='Пост-ка': E='Неправильный ввод': W=hlp (),;

a. pr_rub: H='Цена в р. ': V=pr_rub>0: E='Стоимость является положительным величиной': W=hlp (),;

a. kurs_val: H='Курс вал': V=kurs_val>0: E='Курс валюты является положительной величиной': W=hlp ();

WINDOW second COLOR W/B

DEACTIVATE WINDOW third

RETURN

*---------------функция вывода строки-подсказки-------------------

function hlp

set cursor off

@0,1 FILL to 0,70 color B/B

DO CASE

CASE VARREAD () ='Nom'

@0,23 SAY 'Порядковый номер товара'

CASE VARREAD () ='Name'

@0,20 SAY 'Название товара (стандартное) '

CASE VARREAD () ='Fab'

@0,20 SAY 'Название фирмы изготовителя'

CASE VARREAD () ='State'

@0,17 SAY 'Страна изготовитель (м/н кодировка) '

CASE VARREAD () ='Garan'

@0,22 SAY 'Срок гарантии (в месяцах) '

CASE VARREAD () ='Pr_dol'

@0,22 SAY 'Стоимость в долларах США'

CASE VARREAD () ='Reyt'

@0,23 SAY 'Рейтинг цена/качество'

CASE VARREAD () ='Izgot'

@0,25 SAY 'Дата изготовления'

CASE VARREAD () ='Post'

@0,27 SAY 'Дата поставки'

CASE VARREAD () ='Pr_rub'

@0,27 SAY 'Cтоимость в рублях'

CASE VARREAD () ='Kurs_val'

@0,29 SAY 'Текущий курс валюты'

ENDCASE

**---------------Программа KURS_VAL. PRG-----------

*Программа создана для ввода текущего курса валюты

DO key

PUSH KEY CLEAR

ACTIVATE WINDOW kurs_val

@ 1,11 GET s PICTURE '999999' DEFAULT a. kurs_val

READ

IF LASTKEY () #27

d=s

use techn in a

replace all a. kurs_val with d

ELSE DEACTIVATE WINDOW kurs_val

ENDIF

DEACTIVATE WINDOW kurs_val

POP KEY

do exchange

do rub

*Программа обеспечивает функционирование

*"горячих" клвиш

ON KEY LABEL ctrl+pgup GO TOP

ON KEY LABEL ctrl+pgdn GO BOTTOM

ON KEY LABEL ctrl+p DO prin

ON KEY LABEL ctrl+a DO rub

ON KEY LABEL ctrl+v DO kurs_val

ON KEY LABEL F1 DO help

**--------Программа HELP. PRG--------

**Программа осуществляет вывод окна, в котором выводится

**контекстная справка о горячих клавишах, используеиых

**в программе.

PUSH KEY CLEAR

SET CURSOR OFF

ACTIVATE WINDOW f1

TEXT

^N - дополнение базы новой записью

^D - пометка к удалению/удаление записи

^P - вывод/печать текущей записи

-------------------------------------------

^A - перевод цен в рубли

^V - ввод текущего курса валюты

-------------------------------------------

^PgUp - переход в начало базы

^PgDn - переход в конец базы

-------------------------------------------

^Q - выход из окна редактирования

(внесённая информация сохраняется)

Esc - то же, но информация не сохраняется

ENDTEXT

WAIT ''

DEACTIVATE WINDOW f1

SET CURSOR ON

POP KEY

RETURN

**-------Программа FILTR1. PRG-------

**Программа осуществляет фильтрацию данных.

**Фильтрация осущестляется по полю STATE (страна)

DO key

PUSH KEY CLEAR

SELECT a

y=BAR ()

DO CASE

CASE y=1

SET FILTER TO state='RUS'

CASE y=2

SET FILTER TO state#'RUS'

ENDCASE

POP KEY

DO read

SET FILTER TO

DEACTIVATE POPUP filtr

DEACTIVATE POPUP filtr1

RETURN

**-----Программа FILTR2. PRG------

**Программа осуществляет фильтрацию данных.

**Фильтрация данных осуществляется по полю GARAN (гарантия)

DO key

PUSH KEY CLEAR

SELECT a

y=BAR ()

DO CASE

CASE y=1

SET FILTER TO garan<13

CASE y=2

SET FILTER TO garan>12

ENDCASE

POP KEY

DO read

SET FILTER TO

DEACTIVATE POPUP filtr

DEACTIVATE POPUP filtr2

RETURN

**--------------Программа EXCHANGE. PRG------------

*Программа создана для вычисления стоимости аппаратуры

*в рублях в соответствии с текущим курсом валюты

replace all a. pr_rub with (a. pr_dol*a. kurs_val)

**-------Программа END. PRG-------

**Программа осуществляет закрытие всех активных файлов, очистку

**окон, меню, экрана, а также включает возможность получения

**справки при нажатии клавишы F1.

ON KEY

DEACTIVATE POPUPS

DEACTIVATE MENUS

DEACTIVATE WINDOW ALL

CLEAR ALL

CLOSE ALL

SET HELP ON

RETURN

**-------Программа DEL. PRG-------

**Программа выдает запрос о подтверждении удаления и только после

**подтверждения удаляет ее полностью

WAIT 'Вы действительно хотите удалить запись (ДА-любая клавиша, НЕТ-ESC)? ' WINDOW

IF LASTKEY () #27

DELETE

PACK

ELSE

ENDIF

DO look

DO sinkh

DEACTIVATE POPUPS

RETURN

**-----Программа CHOICE. PRG------

**Дает возможность пользователю выбрать между принтером и файлом

**при выводе информации программой PRIN. PRG

DO key

y=BAR ()

DO CASE

CASE y=1

SET PRINTER TO info. dat ADDITIVE

SET PRINTER ON

? ' '

? ' Номер товара: ',a. nom

? ' Название товара: ',a. name

? ' Фирма изготовитель: ',a. fab

? ' Страна изготовитель: ',a. state

? ' Срок гарантии: ',a. garan

? ' Стоимость в долларах США: ',a. pr_dol

? ' Рейтинг (цена/качество): ',a. reyt

? ' Дата изготовления: ',a. izgot

? ' Дата поставки: ',a. post

? ' Стоимость в рублях: ',a. pr_rub

? ' Текущий курс валюты: ',a. kurs_val

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

SET PRINTER OFF

CASE y=2

SET PRINTER TO LPT1

IF PRINTSTATUS ()

SET PRINTER ON

? ' '

? ' Номер товара: ',a. nom

? ' Название товара: ',a. name

? ' Фирма изготовитель: ',a. fab

? ' Страна изготовитель: ',a. state

? ' Срок гарантии: ',a. garan

? ' Стоимость в долларах США: ',a. pr_dol

? ' Рейтинг (цена/качество): ',a. reyt

? ' Дата изготовления: ',a. izgot

? ' Дата поставки: ',a. post

? ' Стоимость в рублях: ',a. pr_rub

? ' Текущий курс валюты: ',a. kurs_val

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

SET PRINTER OFF

ELSE

WAIT 'Принтер не готов' WINDOW NOWAIT

ENDIF

ENDCASE

DEACTIVATE POPUP choice

RETURN

Размещено на Allbest.ru