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;
141
btn14: TToolButton;
btn15: TToolButton;
btn16: TToolButton;
btn17: TToolButton;
btn18: TToolButton;
btn19: TToolButton;
btn20: TToolButton;
btn21: TToolButton;
procedure N14Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N30Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N32Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N16Click(Sender: TObject);
142
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
procedure btn6Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn18Click(Sender: TObject);
procedure btn10Click(Sender: TObject);
procedure btn11Click(Sender: TObject);
procedure btn12Click(Sender: TObject);
procedure btn13Click(Sender: TObject);
procedure btn14Click(Sender: TObject);
procedure btn15Click(Sender: TObject);
procedure btn21Click(Sender: TObject);
procedure btn17Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
implementation
uses Unit2, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit3,
Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit17, Unit18, Unit19, Unit20,
Unit21, Unit22, Unit23;
{$R *.dfm}
procedure TMain.N14Click(Sender: TObject);
begin
Application.Terminate;
143
end;
procedure TMain.N7Click(Sender: TObject);
begin
AboutBox:=TAboutBox.Create(self);
AboutBox.ShowModal;
AboutBox.Destroy;
end;
procedure TMain.tmr1Timer(Sender: TObject);
begin
stat1.Panels[0].Text:='Сегодня: '+ DateToStr(now);
stat1.Panels[1].Text:='Время: '+timetostr(now);
end;
procedure TMain.N8Click(Sender: TObject);
begin
F_tovar:=TF_tovar.Create(self);
F_tovar.ShowModal;
F_tovar.Destroy;
end;
procedure TMain.N12Click(Sender: TObject);
begin
F_ed_izmer:=TF_ed_izmer.Create(self);
F_ed_izmer.ShowModal;
F_ed_izmer.Destroy;
end;
procedure TMain.N11Click(Sender: TObject);
begin
F_marka_tov:=TF_marka_tov.Create(self);
144
F_marka_tov.ShowModal;
F_marka_tov.Destroy;
end;
procedure TMain.N13Click(Sender: TObject);
begin
F_tip_tov:=TF_tip_tov.Create(self);
F_tip_tov.ShowModal;
F_tip_tov.Destroy;
end;
procedure TMain.N10Click(Sender: TObject);
begin
F_org:=TF_org.Create(self);
F_org.ShowModal;
F_org.Destroy;
end;
procedure TMain.N25Click(Sender: TObject);
begin
F_city:=TF_city.Create(self);
F_city.ShowModal;
F_city.Destroy;
end;
procedure TMain.N26Click(Sender: TObject);
begin
F_street:=TF_street.Create(self);
F_street.ShowModal;
F_city.Destroy;
end;
procedure TMain.N9Click(Sender: TObject);
145
begin
F_adres:=TF_adres.Create(self);
F_adres.ShowModal;
F_adres.Destroy;
end;
procedure TMain.N30Click(Sender: TObject);
begin
F_month:=TF_month.Create(self);
F_month.ShowModal;
F_month.Destroy;
end;
procedure TMain.N31Click(Sender: TObject);
begin
F_year:=TF_year.Create(self);
F_year.ShowModal;
F_year.Destroy;
end;
procedure TMain.N18Click(Sender: TObject);
begin
F_prodagi:=TF_prodagi.Create(self);
F_prodagi.ShowModal;
F_prodagi.Destroy;
end;
procedure TMain.N22Click(Sender: TObject);
begin
F_prod_grah:=TF_prod_grah.Create(self);
DM.tbl_prodagi.Filtered:=False;
DM.tbl_prodagi.Filter:='';
DM.tbl_prodagi.Filter:='(код_товара=1)';
DM.tbl_prodagi.Filtered:=True;