Дипломная работа: Автоматизация учёта спроса на продуктовый ассортимент в фирме ООО "ПКФ ЭнергоСофт"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
136
ALTER TABLE Анкета
ADD CONSTRAINT ГодАнкета FOREIGN KEY (Год) REFERENCES
Год(Год)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Анкета
ADD CONSTRAINT МесяцАнкета FOREIGN KEY (Код_месяца)
REFERENCES Месяц(Код_месяца)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Анкета
ADD CONSTRAINT ТоварАнкета FOREIGN KEY (Код_товара)
REFERENCES Товар(Код_товара)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Закупки
ADD CONSTRAINT ГодЗакупки FOREIGN KEY (Год) REFERENCES
Год(Год)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Закупки
ADD CONSTRAINT МесяцЗакупки FOREIGN KEY (Код_месяца)
REFERENCES Месяц(Код_месяца)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Закупки
ADD CONSTRAINT ОрганизацииЗакупки FOREIGN KEY
(Код_организации) REFERENCES Организации(Код_организации)
ON DELETE NO ACTION
137
ON UPDATE NO ACTION
ALTER TABLE Закупки
ADD CONSTRAINT ТоварЗакупки FOREIGN KEY (Код_товара)
REFERENCES Товар(Код_товара)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Организации
ADD CONSTRAINT АдресОрганизации FOREIGN KEY (Код_адреса)
REFERENCES Адрес(Код_адреса)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Продажи
ADD CONSTRAINT ГодПродажи FOREIGN KEY (Год) REFERENCES
Год(Год)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Продажи
ADD CONSTRAINT МесяцПродажи FOREIGN KEY (Код_месяца)
REFERENCES Месяц(Код_месяца)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Продажи
ADD CONSTRAINT ТоварПродажи FOREIGN KEY (Код_товара)
REFERENCES Товар(Код_товара)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Состав_анкеты
ADD CONSTRAINT АнкетаСостав_анкеты FOREIGN KEY (Код_анкеты)
REFERENCES Анкета(Код_анкеты)
138
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Состав_анкеты
ADD CONSTRAINT ВопросыСостав_анкеты FOREIGN KEY (Код_вопроса)
REFERENCES Вопросы(Код_вопроса)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Состав_анкеты
ADD CONSTRAINT ОтветыСостав_анкеты FOREIGN KEY (Код_ответа)
REFERENCES Ответы(Код_ответа)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Товар
ADD CONSTRAINT Единицы_измеренияТовар FOREIGN KEY (Код_ед)
REFERENCES Единицы_измерения(Код_ед)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Товар
ADD CONSTRAINT Марка_товараТовар FOREIGN KEY (Код_марки)
REFERENCES Марка_товара(Код_марки)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Товар
ADD CONSTRAINT Тип_товараТовар FOREIGN KEY (Код_типа)
REFERENCES Тип_товара(Код_типа)
ON DELETE NO ACTION
ON UPDATE NO ACTION
139
Приложение 3. Текст основных программных модулей
Исходный код главного модуля
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, frxpngimage, ExtCtrls, ComCtrls, ImgList, ToolWin,
frxClass, frxADOComponents;
type
TMain = class(TForm)
MainMenu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
stat1: TStatusBar;
il1: TImageList;
img1: TImage;
N15: TMenuItem;
il2: TImageList;
N18: TMenuItem;
N19: TMenuItem;
140
N20: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
tmr1: TTimer;
N9: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N34: TMenuItem;
frxReport1: TfrxReport;
frxADOComponents1: TfrxADOComponents;
frxReport2: TfrxReport;
N3: TMenuItem;
N16: TMenuItem;
tlb1: TToolBar;
btn1: TToolButton;
btn2: TToolButton;
btn3: TToolButton;
btn4: TToolButton;
btn5: TToolButton;
btn6: TToolButton;
btn7: TToolButton;
btn9: TToolButton;
btn10: TToolButton;
btn11: TToolButton;
btn12: TToolButton;
btn13: TToolButton;
Источник: https://baza.diplomsite.ru/previewfile/2489