Диплом: Автоматизация создания информационной карты товара в спецотделе АО "Фирма НТЦ КАМИ"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
137
Код_организации int IDENTITY
)
ALTER TABLE Информационный_ресурс
ADD CONSTRAINT XPKИнформационный_ресурс PRIMARY KEY
NONCLUSTERED (Код_ИР ASC)
CREATE TABLE Организация
(
Код_организации int IDENTITY ,
Наименование varchar(40) NULL
)
ALTER TABLE Организация
ADD CONSTRAINT XPKОрганизация PRIMARY KEY
NONCLUSTERED (Код_организации ASC)
CREATE TABLE ПО
(
Код_ПО int IDENTITY ,
Наименование varchar(100) NULL ,
Характеристика text NULL
)
ALTER TABLE ПО
ADD CONSTRAINT XPKПО PRIMARY KEY NONCLUSTERED
(Код_ПО ASC)
CREATE TABLE Подразделение
(
Код_подразделения int IDENTITY ,
Подразделение varchar(40) NULL
)
ALTER TABLE Подразделение
ADD CONSTRAINT XPKПодразделение PRIMARY KEY
NONCLUSTERED (Код_подразделения ASC)
CREATE TABLE Пользователь
(
Код_пользователя int NOT NULL ,
Логин varchar(20) NULL ,
Пароль varchar(20) NULL ,
E_mail varchar(40) NULL ,
Код_сотрудника int NULL ,
Код_права_доступа int NOT NULL ,
Код_статуса int IDENTITY
)
ALTER TABLE Пользователь
ADD CONSTRAINT XPKПользователь PRIMARY KEY CLUSTERED
(Код_пользователя ASC)
138
CREATE TABLE Права_доступа
(
Код_права_доступа int IDENTITY ,
Наименование varchar(20) NULL
)
ALTER TABLE Права_доступа
ADD CONSTRAINT XPKПрава_доступа PRIMARY KEY
NONCLUSTERED (Код_права_доступа ASC)
CREATE TABLE Правила_доступа
(
Код_правила int NOT NULL ,
Правило varchar(50) NULL ,
Код_права_доступа int NULL ,
Код_ИР int NULL ,
Код_ПО int NULL ,
Код_статуса int IDENTITY
)
ALTER TABLE Правила_доступа
ADD CONSTRAINT XPKПравила_доступа PRIMARY KEY
NONCLUSTERED (Код_правила ASC)
CREATE TABLE Расположенеи_ТС
(
Код_расположения int IDENTITY (1) ,
Код_ТС int NULL ,
Код_подразделения int NULL ,
Код_сотрудника int NULL ,
Код_организации int NOT NULL
)
ALTER TABLE Расположенение_ТС
ADD CONSTRAINT XPKРасположение_ТС PRIMARY KEY
NONCLUSTERED (Код_расположения ASC)
CREATE TABLE Расположение_ПО(
Код_расположения int NOT NULL ,
Код_ПО int NOT NULL ,
Код_подразделения int NULL ,
Код_организации int IDENTITY )
ALTER TABLE Расположение_ПО
ADD CONSTRAINT XPKРасположение_ПО PRIMARY KEY
NONCLUSTERED (Код_расположения ASC)
CREATE TABLE Состав_карты_ТС
( Код_состава_ТС int IDENTITY ,
Код_ТС int NULL ,
Количество smallint NULL ,
Фото varchar(100) NULL ,
139
Наличие_WI_FI bit NULL ,
Код_карты int NULL )
ALTER TABLE Состав_карты_ТС
ADD CONSTRAINT XPKСостав_карты_ТС PRIMARY KEY
NONCLUSTERED (Код_состава_ТС ASC)
CREATE TABLE Сотрудник
( Код_сотрудника int IDENTITY (1) ,
ФИО varchar(50) NULL ,
Дата_рождения datetime NULL ,
Код_подразделения int NOT NULL ,
Код_организации int NOT NULL )
ALTER TABLE Сотрудник
ADD CONSTRAINT XPKСотрудник PRIMARY KEY NONCLUSTERED
(Код_сотрудника ASC)
CREATE TABLE Статус
( Код_статуса int IDENTITY ,
Статус varchar(20) NULL )
ALTER TABLE Статус
ADD CONSTRAINT XPKСтатус PRIMARY KEY NONCLUSTERED
(Код_статуса ASC)
CREATE TABLE Технические_средства
( Код_ТС int IDENTITY ,
Характеристика varchar(100) NULL ,
Название varchar(50) NULL ,
Серийный_номер varchar(20) NULL ,
Модель varchar(20) NULL ,
Марка varchar(20) NULL )
ALTER TABLE Технические_средства
ADD CONSTRAINT XPKТехнические_средства PRIMARY KEY
NONCLUSTERED (Код_ТС ASC)
CREATE TABLE Тип_работ
( Код_работ int IDENTITY ,
Тип_работ varchar(20) NULL
)
ALTER TABLE Тип_работ
ADD CONSTRAINT XPKТип_работ PRIMARY KEY NONCLUSTERED
(Код_работ ASC)
ALTER TABLE Группы_пользователей
ADD CONSTRAINT R_2 FOREIGN KEY (Код_права_доступа)
REFERENCES Права_доступа(Код_права_доступа)
ON DELETE NO ACTION
ON UPDATE NO ACTION
140
ALTER TABLE Группы_пользователей
ADD CONSTRAINT R_12 FOREIGN KEY (Код_пользователя)
REFERENCES Пользователь(Код_пользователя)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Договор
ADD CONSTRAINT R_22 FOREIGN KEY (Код_организации)
REFERENCES Организация(Код_организации)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Информационная_карта_товара
ADD CONSTRAINT R_20 FOREIGN KEY (Код_договора) REFERENCES
Договор(Код_договора)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Информационная_карта_товара
ADD CONSTRAINT R_21 FOREIGN KEY (Код_работ) REFERENCES
Тип_работ(Код_работ)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Информационная_карта_товара
ADD CONSTRAINT R_24 FOREIGN KEY (Код_сотрудника)
REFERENCES Сотрудник(Код_сотрудника)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Информационная_карта_товара
ADD CONSTRAINT R_29 FOREIGN KEY (Код_статуса) REFERENCES
Статус(Код_статуса)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Информационный_ресурс
ADD CONSTRAINT R_26 FOREIGN KEY (Код_организации)
REFERENCES Организация(Код_организации)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Пользователь
ADD CONSTRAINT R_5 FOREIGN KEY (Код_сотрудника)
REFERENCES Сотрудник(Код_сотрудника)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Пользователь
ADD CONSTRAINT R_14 FOREIGN KEY (Код_права_доступа)
REFERENCES Права_доступа(Код_права_доступа)
ON DELETE NO ACTION
141
ON UPDATE NO ACTION
ALTER TABLE Пользователь
ADD CONSTRAINT R_16 FOREIGN KEY (Код_статуса) REFERENCES
Статус(Код_статуса)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Правила_доступа
ADD CONSTRAINT R_1 FOREIGN KEY (Код_права_доступа)
REFERENCES Права_доступа(Код_права_доступа)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Правила_доступа
ADD CONSTRAINT R_3 FOREIGN KEY (Код_ИР) REFERENCES
Информационный_ресурс(Код_ИР)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Правила_доступа
ADD CONSTRAINT R_4 FOREIGN KEY (Код_ПО) REFERENCES
ПО(Код_ПО)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Правила_доступа
ADD CONSTRAINT R_15 FOREIGN KEY (Код_статуса) REFERENCES
Статус(Код_статуса)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ТС
ADD CONSTRAINT R_7 FOREIGN KEY (Код_ТС) REFERENCES
Технические_средства(Код_ТС)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ТС
ADD CONSTRAINT R_8 FOREIGN KEY (Код_подразделения)
REFERENCES Подразделение(Код_подразделения)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ТС
ADD CONSTRAINT R_9 FOREIGN KEY (Код_сотрудника)
REFERENCES Сотрудник(Код_сотрудника)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ТС
ADD CONSTRAINT R_28 FOREIGN KEY (Код_организации)
REFERENCES Организация(Код_организации)
142
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ПО
ADD CONSTRAINT R_10 FOREIGN KEY (Код_ПО) REFERENCES
ПО(Код_ПО)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ПО
ADD CONSTRAINT R_11 FOREIGN KEY (Код_подразделения)
REFERENCES Подразделение(Код_подразделения)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Расположение_ПО
ADD CONSTRAINT R_27 FOREIGN KEY (Код_организации)
REFERENCES Организация(Код_организации)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Состав_карты_ТС
ADD CONSTRAINT R_19 FOREIGN KEY (Код_ТС) REFERENCES
Технические_средства(Код_ТС)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Состав_карты_ТС
ADD CONSTRAINT R_23 FOREIGN KEY (Код_карты) REFERENCES
Информационная_карта_товара(Код_карты)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Сотрудник
ADD CONSTRAINT R_6 FOREIGN KEY (Код_подразделения)
REFERENCES Подразделение(Код_подразделения)
ON DELETE NO ACTION
ON UPDATE NO ACTION
ALTER TABLE Сотрудник
ADD CONSTRAINT R_25 FOREIGN KEY (Код_организации)
REFERENCES Организация(Код_организации)
ON DELETE NO ACTION
ON UPDATE NO ACTION
143
Приложение 3
program adm_is;
uses
Forms,
Unit1 in 'Unit1.pas' {Main},
Unit2 in 'Unit2.pas' {F_sotr},
Unit3 in 'Unit3.pas' {F_status},
Unit4 in 'Unit4.pas' {F_otdel},
Unit5 in 'Unit5.pas' {F_IR},
Unit6 in 'Unit6.pas' {f_TS},
Unit7 in 'Unit7.pas' {f_rules},
Unit8 in 'Unit8.pas' {dm: TDataModule},
Unit9 in 'Unit9.pas' {AboutBox},
Unit10 in 'Unit10.pas' {f_new_IR},
Unit11 in 'Unit11.pas' {F_PO},
Unit12 in 'Unit12.pas' {F_place_TS},
Unit13 in 'Unit13.pas' {F_place_po},
Unit14 in 'Unit14.pas' {F_access},
Unit15 in 'Unit15.pas' {f_group},
Unit16 in 'Unit16.pas' {F_new_TS},
Unit17 in 'Unit17.pas' {F_new_PO},
Unit18 in 'Unit18.pas' {f_user};
{$R *.res}
begin
Application.Initialize;
Application.Title := “ИС АО «Фирма НТЦ КАМИ»”;
Application.CreateForm(TMain, Main);
Application.CreateForm(TF_sotr, F_sotr);
Application.CreateForm(TF_status, F_status);
Application.CreateForm(TF_otdel, F_otdel);
Application.CreateForm(TF_IR, F_IR);
Application.CreateForm(Tf_TS, f_TS);
Application.CreateForm(Tf_rules, f_rules);
Application.CreateForm(Tdm, dm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(Tf_new_IR, f_new_IR);
Application.CreateForm(TF_PO, F_PO);
Application.CreateForm(TF_place_TS, F_place_TS);
Application.CreateForm(TF_place_po, F_place_po);
Application.CreateForm(TF_access, F_access);
Application.CreateForm(Tf_group, f_group);
Application.CreateForm(TF_new_TS, F_new_TS);
Application.CreateForm(TF_new_PO, F_new_PO);
Application.CreateForm(Tf_user, f_user);
Application.Run;
end.
Unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, ImgList, Menus, ExtCtrls, frxClass,
frxADOComponents;
type
TMain = class(TForm)
mm1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
144
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
stat1: TStatusBar;
il1: TImageList;
tlb1: TToolBar;
btn1: TToolButton;
btn2: TToolButton;
btn3: TToolButton;
btn4: TToolButton;
btn6: TToolButton;
btn7: TToolButton;
btn8: TToolButton;
btn9: TToolButton;
btn10: TToolButton;
btn11: TToolButton;
btn12: TToolButton;
btn13: TToolButton;
btn14: TToolButton;
btn15: TToolButton;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
tmr1: TTimer;
btn5: TToolButton;
btn16: TToolButton;
btn17: TToolButton;
frxReport1: TfrxReport;
frxADOComponents1: TfrxADOComponents;
procedure N30Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
145
procedure N11Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn7Click(Sender: TObject);
procedure btn8Click(Sender: TObject);
procedure btn9Click(Sender: TObject);
procedure btn10Click(Sender: TObject);
procedure btn12Click(Sender: TObject);
procedure btn13Click(Sender: TObject);
procedure btn14Click(Sender: TObject);
procedure btn15Click(Sender: TObject);
procedure btn17Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N22Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
Unit20;
{$R *.dfm}
procedure TMain.N30Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TMain.N10Click(Sender: TObject);
begin
F_sotr:=TF_sotr.Create(self);
F_sotr.ShowModal;
F_sotr.Destroy;
end;
procedure TMain.N9Click(Sender: TObject);
begin
f_TS:=Tf_TS.Create(self);
f_TS.ShowModal;
f_TS.Destroy;
end;
procedure TMain.N12Click(Sender: TObject);
begin
F_otdel:=TF_otdel.Create(self);
F_otdel.ShowModal;
F_otdel.Destroy;
end;
procedure TMain.N14Click(Sender: TObject);
begin
F_status:=TF_status.Create(Self);
F_status.ShowModal;
F_status.Destroy;
146
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)+', Время '+ TimeToStr(now);
end;
procedure TMain.N17Click(Sender: TObject);
begin
F_IR:=TF_IR.Create(self);
F_IR.ShowModal;
F_IR.Destroy;
end;
procedure TMain.N19Click(Sender: TObject);
begin
F_place_TS:=TF_place_TS.Create(self);
F_place_TS.ShowModal;
F_place_TS.Destroy;
end;
procedure TMain.N18Click(Sender: TObject);
begin
f_TS:=Tf_TS.Create(self);
f_TS.ShowModal;
f_TS.Destroy;
end;
procedure TMain.N20Click(Sender: TObject);
begin
F_PO:=TF_PO.Create(self);
F_PO.ShowModal;
F_PO.Destroy;
end;
procedure TMain.N21Click(Sender: TObject);
begin
F_place_po:=TF_place_po.Create(self);
F_place_po.ShowModal;
F_place_po.Destroy;
end;
procedure TMain.N13Click(Sender: TObject);
begin
f_group:=Tf_group.Create(self);
f_group.ShowModal;
f_group.Destroy;
end;
procedure TMain.N15Click(Sender: TObject);
begin
F_access:=TF_access.Create(self);
F_access.ShowModal;
F_access.Destroy;
end;
procedure TMain.N11Click(Sender: TObject);
begin
f_user:=Tf_user.Create(self);
f_user.ShowModal;
f_user.Destroy;
end;
procedure TMain.N16Click(Sender: TObject);
begin
f_rules:=Tf_rules.Create(self);

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)