Учет товаров в фирме по продаже аудиотехники - Курсовая работа

Министерство общего и профессионального образования Российской Федерации Дагестанский государственный технический университет Кафедра информационных систем в экономике КУРСОВОЙ ПРОЕКТ По дисциплине БД На тему: Учет товаров в фирме по продаже аудиотехники Тема курсового проекта: СПРАВОЧНИК “АУДИО-КИОСК” Дата готовности проекта “ ” 2003г. Студент Курбанов Ш.М. группы 3164/ Руководитель проекта /Махулова Э.М. Защищен “ ” 2003г. с оценкой МАХАЧКАЛА 2003 г. Требования к программе: подобрать поля для БД: название фильма, тип носитель, продолжительность, качество, цена, код поставщика, жанр, главный артист, код фильма. ПРОГРАММЫ SET TALK OFF SET DATE GERMAN CLEAR ALL SET DELETED ON SET ESCAPE OFF SET HELP OFF SET BELL OFF CLEAR MACROS ON KEY *DO Titul CLOSE DATABASES DELETE FILE video. idx DELETE FILE nosit. idx DELETE FILE post. idx USE video INDEX ON tip_nosit TO video COMPACT USE nosit INDEX ON tip_nosit TO nosit COMPACT USE post INDEX ON kod_post TO post COMPACT USE video IN A INDEX video USE nosit IN B INDEX nosit USE post IN C INDEX post SELECT A SET RELATION TO tip_nosit INTO B SET RELATION TO kod_post INTO C ON KEY LABEL Ctrl PgUp GO TOP ON KEY LABEL Ctrl PgDn GO BOTTOM ON KEY LABEL Ctrl Q DO EndProc WITH 1 DEFINE WINDOW MainWindow FROM 0,0 TO 24,79 IN SCREEN; TITLE Справочник ВИДЕО КИОСК ; DOUBLE SHADOW FILL - COLOR GR /N DEFINE WINDOW ViewWindow FROM 0,0 TO 21,77; IN WINDOW MainWindow; DOUBLE CLOSE FLOAT GROW ZOOM DEFINE WINDOW HintWindow FROM 22,0 TO 22,77 IN WINDOW MainWindow; NONE COLOR GR /GR DEFINE WINDOW HelpWindow FROM 5,17 TO 16,63; TITLE ПОМОЩЬ COLOR W /G DEFINE WINDOW PrintWindow FROM 5,8 TO 19,67; TITLE Вывод на устройство PC; DOUBLE SHADOW COLOR GR /GR DEFINE WINDOW AddWindow FROM 3,13 TO 18,67; TITLE Дополнение базы данных ; FLOAT SHADOW SYSTEM COLOR SCHEME 8 DEFINE WINDOW FindWindow FROM 5,13 TO 19,70; TITLE Информация о фильме DOUBLE SET MESSAGE WINDOW MainWindow DEFINE MENU MainMenu BAR AT LINE 0 IN WINDOW MainWindow; COLOR SCHEME 10 DEFINE PAD DataMenu OF MainMenu PROMPT ДАННЫЕ; MESSAGE Работа с базами данных DEFINE PAD SearchMenu OF MainMenu PROMPT ПОИСК; MESSAGE Поиск данных по ключу DEFINE PAD FiltrMenu OF MainMenu PROMPT ФИЛЬТРАЦИЯ; MESSAGE Фильтр просмотра данных DEFINE PAD QuitMenu OF MainMenu PROMPT ВЫХОД; MESSAGE Выход из программы ON SELECTION PAD DataMenu OF MainMenu ACTIVATE POPUP DataPopup ON SELECTION PAD SearchMenu OF MainMenu ACTIVATE POPUP SearchPopup ON SELECTION PAD FiltrMenu OF MainMenu ACTIVATE POPUP FiltrPopup ON SELECTION PAD QuitMenu OF MainMenu ACTIVATE POPUP QuitPopup DEFINE POPUP DataPopup FROM 1,0 IN WINDOW MainWindow COLOR SCHEME 10 DEFINE BAR 1 OF DataPopup PROMPT Просмотр данных; MESSAGE Просмотр данных без внесения изменений DEFINE BAR 2 OF DataPopup PROMPT Редактирование данных; MESSAGE Просмотр данных с возможностью изменения данных ON SELECTION POPUP DataPopup DO BrowseData WITH BAR() DEFINE POPUP PrintPopup FROM 8,32; TITLE Вывод данных IN SCREEN COLOR SCHEME 10 DEFINE BAR 1 OF PrintPopup PROMPT На экран; MESSAGE Вывод данных на экран DEFINE BAR 2 OF PrintPopup PROMPT В файл; MESSAGE Вывод данных в файл DEFINE BAR 3 OF PrintPopup PROMPT На принтер; MESSAGE Вывод данных на принтер ON SELECTION POPUP PrintPopup DO Print DEFINE POPUP SearchPopup FROM 1,8 IN WINDOW MainWindow COLOR SCHEME 10 DEFINE BAR 1 OF SearchPopup PROMPT по названию фильма; MESSAGE Поиск данных по названию фильма DEFINE BAR 2 OF SearchPopup PROMPT по типу; MESSAGE Поиск данных по типу DEFINE BAR 3 OF SearchPopup PROMPT по коду; MESSAGE Поиск данных по коду ON SELECTION POPUP SearchPopup DO SearchProc DEFINE POPUP FiltrPopup FROM 1,15 IN WINDOW MainWindow COLOR SCHEME 10 DEFINE BAR 1 OF FiltrPopup PROMPT по названию фильма; MESSAGE Фильтрация данных по названию фильма DEFINE BAR 2 OF FiltrPopup PROMPT по типу; MESSAGE Фильтрация данных по типу DEFINE BAR 3 OF FiltrPopup PROMPT по коду; MESSAGE Фильтрация данных по коду DEFINE BAR 4 OF FiltrPopup PROMPT по качеству; MESSAGE Фильтрация данных по качеству ON SELECTION POPUP FiltrPopup DO FiltrProc DEFINE POPUP QuitPopup FROM 1,27 IN WINDOW MainWindow COLOR SCHEME 10 DEFINE BAR 1 OF QuitPopup PROMPT \