Некоторые пункты меню включают в себя подпункты, которые приведены ниже:
Рис. 3. Подпункты меню
Для демонстрации работы базы данных, в неё были внесены следующие данные:
Рис. 4. Содержимое таблицы izdelie
Рис. 5. Содержимое таблицы hranenie
Рис.6. Содержимое таблицы postavka
Рис.7. Содержимое таблицы klient
В данном разделе рассматриваются используемые формы и программные коды, реализующие соответствующие функции:
Рис. 8. Главное меню
Код метода Click кнопок «Просмотр таблиц», «Редактирования таблиц», «Запросы», «Выход»:
RELEASE WINDOWS
DO FORM ".\form2.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form3.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form8.scx"
------------------------------------
RELEASE WINDOWS
Рис. 9. Просмотр таблиц
Код метода Click кнопок «Кондитерские изделия», «Информация о хранении», «Информация о поставщиках», «Информация о клиентуре», «Назад»:
DO izdelie.qpr
------------------------------------
DO hranenie.qpr
------------------------------------
DO postavka.qpr
------------------------------------
DO klient.qpr
------------------------------------
RELEASE WINDOWS
DO FORM form1.scx
Содержимое вышеперечисленных запросов в порядке следования:
SELECT Izdelie.название, Izdelie.вид, Izdelie.дата_изг,;
Izdelie.место_изг, Izdelie.цена_руб, Izdelie.вес_грамм;
FROM izdelie
------------------------------------
SELECT Hranenie.название, Hranenie.дата_изг, Hranenie.т_хранения,;
Hranenie.хран_дней, Hranenie.порча_дней;
FROM hranenie
------------------------------------
SELECT Postavka.название, Postavka.фирма, Postavka.кол_во, Postavka.брак,;
Postavka.город;
FROM postavka
------------------------------------
SELECT Klient.фио, Klient.город_отпр, Klient.название, Klient.колво_мес,;
Klient.колво_3мес, Klient.колво_6мес;
FROM klient
Рис. 10. Редактирование
Код метода Click кнопок «Кондитерские изделия», «Информация о хранении», «Информация о поставщиках», «Информация о клиентуре», «Назад»:
RELEASE WINDOWS
DO FORM ".\form4.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form5.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form6.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form7.scx"
------------------------------------
RELEASE WINDOWS
DO FORM form1.scx
Рис.11.Форма для редактирования первой таблицы
Код метода Click кнопок «Показать таблицу», «Назад»:
DO izdelie.qpr
------------------------------------
RELEASE WINDOWS
DO FORM form3.scx
Содержимое запроса izdelie.qpr описано выше. Блок кнопок Top…Exit – это элемент класса MS Fox Pro wizbtns, называемыйtxtbtns.
С помощью данного окна выполняется редактирование таблицы «Кондитерские изделия».
Предусмотрен вывод отчета на экран по нажатию кнопки «Print». Код кнопки «Print»:
REPORT FORM ".\izdelie.frx" PREVIEW
Рис.12. Пример отчета
Рис.13.Форма для редактирования второй таблицы
Рис.14.Форма для редактирования третей таблицы
Рис.15.Форма для редактирования четвертой таблицы
Рис. 16. Форма запросов
Код метода Click кнопок в порядке следования:
RELEASE WINDOWS
DO FORM ".\form9.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form10.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form11.scx"
.
.
.
RELEASE WINDOWS
DO FORM ".\form21.scx"
------------------------------------
RELEASE WINDOWS
DO FORM ".\form1.scx"
Рис 17. Меню запроса
Код метода Click кнопок «По дате изготовления», «В алфавитном порядке», «По весу изделия», «По стоимости изделия», «Назад»:
DO query1.qpr
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.