Таблица Покупатели.. Таблица Накладная. Связь таблиц.

2. Таблица Покупатели.

В данной таблице создано 5 полей:

Ключевым из них является поле Код_покупателя (Первичный ключ)

3. Таблица Накладная

В данной таблице создано 5 полей:

Ключевыми из них являются поля: Код_покупателя (Вторичный ключ), Код_товара (Вторичный ключ), Код_накладной (Первичный ключ)

Связь таблиц.

Таблицы были созданы в базе данных data1.dbc, поэтому их можно связать.

Таблицы Товары и Накладная между собой связью 1:М, так как 1 товар может находиться в разных накладных, и в данной базе в 1 накладной может находиться 1 товар.

Таблица Покупатели и Накладная, аналогично, связаны между собой связью 1:М, так как в 1 накладной может быть лишь 1 покупатель, но 1 покупатель может числиться в разных накладных.

Таким образом , таблица Накладная является связующей между таблицами Товары и Покупатели , благодаря этому основные таблицы (Товары, Покупатели) имеют доступ друг к другу при поиске по запросам .

Формы.

1. Форма .Покупатели .

2. Форма . Товары

3. Форма. Покупатели-Накладная. Данная форма представляет собой отношение 1:М, при демонстрации записи покупателя, выводится связующая запись из таблицы Накладная

Отчет.

Данный отчет был создан на таблицу Товары и выводит на печать все записи данной таблицы.

Этикетки

Меню

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

Следующие строки определяют основное меню:

DEFINE BAR 1 OF shorвноtcut PROMPT "Создать таблицу"

DEFINE BAR 2 OF shortcut PROMPT "Создать форму"

DEFINE BAR 3 OF shortcut PROMPT "Создать отчет"

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

DEFINE BAR 5 OF shortcut PROMPT "Открыть форму"

DEFINE BAR 6 OF shortcut PROMPT "Печатать отчет"

DEFINE BAR 7 OF shortcut PROMPT "Поиск"

DEFINE BAR 8 OF shortcut PROMPT "Выход из меню"

Первые 3 и последние 3 строки основного меню записываются по средствам простых команд: создания таблиц, форм, отчетов, запросов (для поиска),вывода на печать имеющегося отчета и выхода из меню.

ON SELECTION BAR 1 OF shortcut create

ON SELECTION BAR 2 OF shortcut modify form

ON SELECTION BAR 3 OF shortcut modify report

ON SELECTION BAR 6 OF shortcut REPORT FORM "товары.frx" PREVIEW

ON SELECTION BAR 7 OF shortcut modify query "1.qpr"

ON SELECTION BAR 8 OF shortcut set sysmenu to default

Строки основного меню :Открыть таблицу и Открыть форму имеют под меню, для выбора необходимой таблицы или формы, в зависимости от пункта меню.

ON BAR 4 OF shortcut ACTIVATE POPUP открытьтаб

ON BAR 5 OF shortcut ACTIVATE POPUP открытьфор

DEFINE POPUP открытьтаб SHORTCUT RELATIVE

DEFINE BAR 1 OF открытьтаб PROMPT "Товары"

DEFINE BAR 2 OF открытьтаб PROMPT "Покупатели"

DEFINE BAR 3 OF открытьтаб PROMPT "Накладная"

ON SELECTION BAR 1 OF открытьтаб ;

Следующие подпункты меню создаются по средствам процедур, так как вызов определенной таблицы ,либо формы имеет в себе несколько команд.

Пункт меню Открыть таблицу, имеет подпункты названия таблиц, а именно Товары, Покупатели, Накладная

DO _57n0x2vr1 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

ON SELECTION BAR 2 OF открытьтаб ;

DO _57n0x2vr2 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

ON SELECTION BAR 3 OF открытьтаб ;

DO _57n0x2vr3 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

Аналогично выполняется пункт меню Открыть форму, который имеет в себе подпункты с названиями уже имеющихся форм, а именно :Товары, Покупатели, Покупатели-Накладная.

DEFINE POPUP открытьфор SHORTCUT RELATIVE

DEFINE BAR 1 OF открытьфор PROMPT "Товары"

DEFINE BAR 2 OF открытьфор PROMPT "Покупатели"

DEFINE BAR 3 OF открытьфор PROMPT "Покупатели-Накладная"

ON SELECTION BAR 1 OF открытьфор ;

DO _57n0x2vr4 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

ON SELECTION BAR 2 OF открытьфор ;

DO _57n0x2vr5 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

ON SELECTION BAR 3 OF открытьфор ;

DO _57n0x2vr6 ;

IN LOCFILE("VISUAL FOXPRO PROJECTS\MENU12" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU12?")

ACTIVATE POPUP shortcut

Процедуры необходимые для работы вызова определенных таблиц и форм:

PROCEDURE _57n0x2vr1

OPEN DATABASE "data1.dbc"

SELECT Товары

BROWSE LAST

PROCEDURE _57n0x2vr2

OPEN DATABASE "data1.dbc"

SELECT Покупатели

BROWSE LAST

PROCEDURE _57n0x2vr3

OPEN DATABASE "data1.dbc"

SELECT Накладная

BROWSE LAST

PROCEDURE _57n0x2vr4

OPEN DATABASE "data1.dbc"

DO FORM "Товары.scx"

PROCEDURE _57n0x2vr5

OPEN DATABASE "data1.dbc"

DO FORM "Покупатели.scx"

PROCEDURE _57n0x2vr6

OPEN DATABASE "data1.dbc"

DO FORM "Покупатели-накладная.scx"

⇐ Предыдущая 12