Создание и заполнение базы данных для овощехранилища (“Хранение”, “Поставщики”, “Продукция”), страница 3

товара, что и покажет форма. Результат работы можно увидеть на Рис.12

Рис.12 Изменение температурного режима.

4.8  Информация о покупателях:

  Поочередно просматривая список клиентов, можно увидеть товар, который они

закупают, скидку (если клиент ее получает), стоимость товара со скидкой, без

скидки, объем партии и качество товара. Пример запроса показан на Рис.13

Рис.13 Информация о покупателях.

4.9  Приобретение товара исходя из наличия определенной суммы:

  Пользователь вводит максимальную сумму, которой он располагает, исходя из

этого, ему предлагается на выбор список товаров по данной цене и максимальное

количество, которое он может на эту сумму закупить. Пример работы – см. Рис.14

Рис.14 Поиск товара по стоимости.

4.10  Закупаемость (спрос) продукции:

Ежегодно для каждого вида продукции составляется отчет о его закупаемости, т.е. – о спросе. Для этого, начиная с 1-го января каждого года, фиксируется объем закупок этого вида. Можно посмотреть закупаемость на данный момент. Необходимо выбрать вид продукции, будет указан объем заказов на текущий момент и закупаемость данной продукции в месяц. На Рис.15 показан пример

работы.

Рис.15 Закупаемость продукции.

5.  Тексты программ:

5.1  Текст программы МЕНЮ

В основном, главной программой является меню. Меню было создано и сгенерировано мастером.

*       *********************************************************

*       *                                                        

*       * 02/17/02              MENU.MPR                22:27:18 

*       *                                                        

*       *********************************************************

*       *                                                        

*       * Author's Name                                          

*       *                                                         

*       * Copyright (C) 2002 Company Name                        

*       * Address                                                

*       * City,     Zip                                          

*       *                                                         

*       * Description:                                           

*       * This PROGRAM was automatically generated BY GENMENU.   

*       *                                                        

*       *********************************************************

*       *********************************************************

*       *                                                        

*       *                      Menu Definition                   

*       *                                                         

*       *********************************************************

*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _0lq1c4nab OF _MSYSMENU PROMPT "Таблицы" COLOR SCHEME 3 ;

      KEY ALT+T, "ALT+T"

DEFINE PAD _0lq1c4nac OF _MSYSMENU PROMPT "Правка" COLOR SCHEME 3 ;

      KEY ALT+K, "ALT+K"

DEFINE PAD _0lq1c4nad OF _MSYSMENU PROMPT "Запросы" COLOR SCHEME 3 ;

      KEY ALT+Q, "ALT+Q"

DEFINE PAD _0lq1c4nae OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3 ;

      KEY ALT+E, "ALT+E"

ON PAD _0lq1c4nab OF _MSYSMENU ACTIVATE POPUP Таблицы

ON PAD _0lq1c4nac OF _MSYSMENU ACTIVATE POPUP Правка

ON PAD _0lq1c4nad OF _MSYSMENU ACTIVATE POPUP Запросы

ON SELECTION PAD _0lq1c4nae OF _MSYSMENU set sysmenu to default

DEFINE POPUP таблицы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF таблицы PROMPT "Создать"

DEFINE BAR 2 OF таблицы PROMPT "Открыть"

DEFINE BAR 3 OF таблицы PROMPT "Закрыть"

ON SELECTION BAR 1 OF таблицы do 'd:\work\alex\subd\my\kurs\NewFile.prg'

ON SELECTION BAR 2 OF таблицы do 'd:\work\alex\subd\my\kurs\OpenFile.prg'

ON SELECTION BAR 3 OF таблицы close all

DEFINE POPUP правка MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF правка PROMPT "Править таблицу"

ON SELECTION BAR 1 OF правка DO d:\work\alex\subd\my\kurs\edittable.prg

DEFINE POPUP запросы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF запросы PROMPT "Температурный режим хранения. Сведения для хранилища"

DEFINE BAR 2 OF запросы PROMPT "Поставляемый товар"