Информатика и выч. техника \ Базы данных

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

DEFINE BAR 3 OF запросы PROMPT "Поставщики"

DEFINE BAR 4 OF запросы PROMPT "Убыль товара"

DEFINE BAR 5 OF запросы PROMPT "Заполняемость склада"

DEFINE BAR 6 OF запросы PROMPT "Резерв и температурный режим"

DEFINE BAR 7 OF запросы PROMPT "Срок хранения товара"

DEFINE BAR 8 OF запросы PROMPT "Покупатели"

DEFINE BAR 9 OF запросы PROMPT "Стоимость продукции"

DEFINE BAR 10 OF запросы PROMPT "Закупаемость продукции"

ON SELECTION BAR 1 OF запросы DO FORM d:\work\alex\subd\my\kurs\form1.scx

ON SELECTION BAR 2 OF запросы report form d:\work\alex\subd\my\kurs\report2.frx preview

ON SELECTION BAR 3 OF запросы DO FORM d:\work\alex\subd\my\kurs\form3.scx

ON SELECTION BAR 4 OF запросы DO FORM d:\work\alex\subd\my\kurs\form4.scx

ON SELECTION BAR 5 OF запросы ;

      DO _0lq1c4naf ;

      IN LOCFILE("SUBD\MY\KURS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")

ON SELECTION BAR 6 OF запросы DO FORM d:\work\alex\subd\my\kurs\form6.scx

ON SELECTION BAR 7 OF запросы DO FORM d:\work\alex\subd\my\kurs\form7.scx

ON SELECTION BAR 8 OF запросы DO FORM d:\work\alex\subd\my\kurs\form8.scx

ON SELECTION BAR 9 OF запросы DO FORM d:\work\alex\subd\my\kurs\form9.scx

ON SELECTION BAR 10 OF запросы DO FORM d:\work\alex\subd\my\kurs\form10.scx

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

*       *                                                        

*       * _0LQ1C4NAF  ON SELECTION BAR 5 OF POPUP запросы        

*       *                                                        

*       * Procedure Origin:                                       

*       *                                                        

*       * From Menu:  MENU.MPR,            Record:   17          

*       * Called By:  ON SELECTION BAR 5 OF POPUP запросы        

*       * Prompt:     Заполняемость склада                       

*       * Snippet:    1                                          

*       *                                                        

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

*

PROCEDURE _0lq1c4naf

USE d:\work\alex\subd\my\kurs\query_graph5.dbf

browse

5.2  Тексты вспомогательных программ:

  В некоторых формах для кнопок приходилось писать события – т.е. коротенькие программки, исполняющиеся при нажатии пользователем кнопки, выборе элемента из списка и т.д. От формы к форме они практически не отличались, поэтому приведу лишь основные из них:

-  Кнопка ВЫХОД

if messagebox ("Выйти из формы ?" ,  4 + 32 + 256,  "Выход") = 6 $$ Выводим

_screen.activeform.release() &&сообщение “Выйти из формы?”

else                                         &&Если да, завершаем работу с формой командой  

_screen.activeform.refresh()   &&release

endif

-  При выборе позиции из элемента ComboBox необходимо обновить все поля, связанные с остальными элементами формы:

            _SCREEN.ACTIVEFORM.REFRESH() 

-  В некоторых формах было необходимо выполнить расчеты при нажатии

кнопки «РАСЧЕТ» (и подобных). Для этого на событие Click необходимо было прописать подобный код:

if (thisform.text4.value - thisform.spin1.value) >=0 &&Проверка значения полей

thisform.text4.value = thisform.text4.value - thisform.spin1.value

thisform.text11.value = thisform.text11.value + thisform.spin1.value

endif

thisform.refresh()

Здесь приведен расчет некоторых позиций в зависимости от введенных данных.

-  Для пролистывания записей вперед и назад требуется следующее:

if !EOF() &&Проверка, не установлен указатель на последнюю запись

skip 1       &&Если нет, листаем вперед

endif

thisform.refresh

       В общем-то, это и есть набор основных применяемых команд. Все остальные –

       комбинация вышеперечисленных.

6.  Описание файлов:

  1. Файлы с расширением .dbf представляют собой файлы баз данных.
  2. Расширение .prg – программа.
  3. Расширение .scx – форма
  4. Расширение .frx – отчет.

Список всех файлов можно просмотреть на прилагаемой дискете.

7.  Список литературы:

  1. Лекции по дисциплине «Системы управления базами данных». (Любезно предоставлены Шпенглером Игорем)
  2. MSDN – Microsoft System Developer Network. Система помощи фирмы Microsoft для ее продукта Visual Studio.
  3. Русифицированный файл помощи по Visual FoxPro 5.0
Скачать файл