Файл: «Автоматизация процесса обработки заявок на ИТ-обслуживание в ООО «Ремарк»».pdf

Приложение 1

Таблица П1.1

Описание атрибутов таблицы «Детали»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код детали	AutoNumber	Да	-
Детали	Text(100)	-	-
Код марки	Long Integer	-	Да
Наименование	Text(80)	-	-

Таблица П1.2

Описание атрибутов таблицы «Замена»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код замены	AutoNumber	Да	-
Дата	Date/Time	-	-
Код детали	Long Integer	-	Да
Количество	Long Integer	-	-
Код размещения	Long Integer	-	Да
Статус	Text(20)	-	-

Таблица П1.3

Описание атрибутов таблицы «Заявка на обслуживание»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Номер заявки	AutoNumber	Да	-
Дата заявки	Date/Time	-	-
Код размещения	Long Integer	-	Да

Таблица П1.4

Описание атрибутов таблицы «Марки»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код марки	AutoNumber	Да	-
Марка	Text(40)	-	-

Таблица П1.5

Описание атрибутов таблицы «Оборудование»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код оборудования	AutoNumber	Да	-
Код марки	Long Integer	-	Да
Название	Text(100)	-	-
Код типа оборудования	Long Integer	-	Да

---

Таблица П1.6

Описание атрибутов таблицы «Организации»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код организации	AutoNumber	Да	-
Организация	Text(100)	-	-
Адрес	Text(100)	-	-

Таблица П1.7

Описание атрибутов таблицы «Причина поломки»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код причины	AutoNumber	Да	-
Причина	Text(100)	-	-

Таблица П1.8

Описание атрибутов таблицы «Поломки»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код поломки	AutoNumber	Да	-
Дата	Date/Time	-	-
Количество	Long Integer	-	-
Код причины	Long Integer	-	Да
Код размещения	Long Integer	-	Да
Статус	Text(20)	-	-

Таблица П1.9

Описание атрибутов таблицы «Размещение»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код размещения	AutoNumber	Да	-
Код оборудования	Long Integer	-	Да
Код организации	Long Integer	-	Да
Табельный номер	Long Integer	-	Да
Дата установки	Date/Time	-	-
Рабочее место	Text(50)	-	-

Таблица П1.10

Описание атрибутов таблицы «Сотрудник»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Табельный номер	AutoNumber	Да	-
ФИО	Text(80)	-	-
Должность	Text(50)	-	-
Подразделение	Text(80)	-	-

---

Таблица П1.11

Описание атрибутов таблицы «Списание оборудования»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код списания	AutoNumber	Да	-
Дата списания	Date/Time	-	-
Код_размещения	Long Integer	-	Да
Код причины	Long Integer	-	Да

Таблица П1.12

Описание атрибутов таблицы «Тип оборудования»

Наименование атрибута	Тип данных	Первичный ключ	Внешний ключ
Код типа оборудования	AutoNumber	Да	-
Наименование	Text(50)	-	-

Приложение 2

CREATE TABLE Детали

(

Код_детали int IDENTITY ,

Детали varchar(100) NULL ,

Код_марки integer NULL ,

Наименование varchar(80) NULL

)

go

ALTER TABLE Детали

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_детали ASC)

go

CREATE TABLE Замена

(

Код_замены int IDENTITY ,

Дата datetime NULL ,

Код_детали integer NULL

CONSTRAINT DEFAULT_1_0_1079373647

DEFAULT 0,

Количество integer NULL

CONSTRAINT DEFAULT_1_0_1180404313

DEFAULT 0,

Код_размещения integer NULL ,

Статус varchar(20) NULL

)

go

ALTER TABLE Замена

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_замены ASC)

go

CREATE TABLE Заявка_на_обслуживание

(

Номер_заявки int IDENTITY ,

Дата_заявки datetime NULL ,

Код_размещения integer NULL

)go

ALTER TABLE Заявка_на_обслуживание

ADD CONSTRAINT XPKЗаявка_на_обслуживание PRIMARY KEY NONCLUSTERED (Номер_заявки ASC)

go

CREATE TABLE Марки

(

Код_марки int IDENTITY ,

Марка varchar(40) NULL

)

go

ALTER TABLE Марки

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_марки ASC)

go

CREATE TABLE Оборудование

(

Код_марки integer NULL

CONSTRAINT DEFAULT_1_0_531986231

DEFAULT 0,

Код_оборудования int IDENTITY ,

Название varchar(100) NULL ,

Код_типа_оборудования integer NULL

)

go

ALTER TABLE Оборудование

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_оборудования ASC)

go

CREATE TABLE Организации

(

Код_организации int IDENTITY ,

Организация varchar(100) NULL ,

Адрес varchar(100) NULL

)

go

ALTER TABLE Организации

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_организации ASC)

go

CREATE NONCLUSTERED INDEX код_организации ON Организации

(

Код_организации ASC

)

---

go

CREATE TABLE Поломки

(

Код_поломки int IDENTITY ,

Дата datetime NULL ,

Количество integer NULL

CONSTRAINT DEFAULT_1_0_494837083

DEFAULT 0,

Код_причины integer NULL ,

Код_размещения integer NULL ,

Статус varchar(20) NULL

)

go

ALTER TABLE Поломки

ADD CONSTRAINT PrimaryKey PRIMARY KEY NONCLUSTERED (Код_поломки ASC)

go

CREATE TABLE Причина_поломки

(

Код_причины int IDENTITY ,

Причина varchar(100) NULL

)

go

ALTER TABLE Причина_поломки

ADD CONSTRAINT XPKПричина_поломки PRIMARY KEY NONCLUSTERED (Код_причины ASC)

go

CREATE TABLE Размещение

(

Код_оборудования integer NULL ,

Код_организации integer NULL ,

Табельный_номер integer NULL ,

Дата_установки datetime NULL ,

Код_размещения int IDENTITY ,

Рабочее_место varchar(50) NULL

)

go

ALTER TABLE Размещение

ADD CONSTRAINT XPKРазмещение PRIMARY KEY NONCLUSTERED (Код_размещения ASC)

go

CREATE TABLE Сотрудник

(

Табельный_номер int IDENTITY ,

ФИО varchar(80) NULL ,

Должность varchar(50) NULL ,

Подразделение varchar(80) NULL

)

go

ALTER TABLE Сотрудник

ADD CONSTRAINT XPKСотрудник PRIMARY KEY NONCLUSTERED (Табельный_номер ASC)

go

CREATE TABLE Списание_оборудования

(

Код_списания int IDENTITY ,

Дата_списания datetime NULL ,

Код_размещения integer NULL ,

Код_причины integer NULL

)

go

ALTER TABLE Списание_оборудования

DD CONSTRAINT XPKСписание_оборудования PRIMARY KEY NONCLUSTERED (Код_списания ASC)

go

CREATE TABLE Тип_оборудования

(

Код_типа_оборудования int IDENTITY ,

Наименование varchar(50) NULL

)

go

ALTER TABLE Тип_оборудования

ADD CONSTRAINT XPKТип_оборудования PRIMARY KEY NONCLUSTERED (Код_типа_оборудования ASC)

go

ALTER TABLE Детали

ADD CONSTRAINT R_43 FOREIGN KEY (Код_марки) REFERENCES Марки(Код_марки)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Замена

ADD CONSTRAINT R_54 FOREIGN KEY (Код_размещения) REFERENCES Размещение(Код_размещения)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Замена

ADD CONSTRAINT ДеталиЗамена FOREIGN KEY (Код_детали) REFERENCES Детали(Код_детали)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Заявка_на_обслуживание

ADD CONSTRAINT R_49 FOREIGN KEY (Код_размещения) REFERENCES Размещение(Код_размещения)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Оборудование

ADD CONSTRAINT R_45 FOREIGN KEY (Код_типа_оборудования) REFERENCES Тип_оборудования(Код_типа_оборудования)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Оборудование

ADD CONSTRAINT Марки_банкоматовБанкоматы FOREIGN KEY (Код_марки) REFERENCES Марки(Код_марки)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Поломки

ADD CONSTRAINT R_44 FOREIGN KEY (Код_причины) REFERENCES Причина_поломки(Код_причины)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Поломки

ADD CONSTRAINT R_53 FOREIGN KEY (Код_размещения) REFERENCES Размещение(Код_размещения)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

---

ALTER TABLE Размещение

ADD CONSTRAINT R_41 FOREIGN KEY (Код_оборудования) REFERENCES Оборудование(Код_оборудования)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Размещение

ADD CONSTRAINT R_46 FOREIGN KEY (Код_организации) REFERENCES Организации(Код_организации)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Размещение

ADD CONSTRAINT R_47 FOREIGN KEY (Табельный_номер) REFERENCES Сотрудник(Табельный_номер)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Списание_оборудования

ADD CONSTRAINT R_50 FOREIGN KEY (Код_размещения) REFERENCES Размещение(Код_размещения)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Списание_оборудования

ADD CONSTRAINT R_51 FOREIGN KEY (Код_причины) REFERENCES Причина_поломки(Код_причины)

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

Приложение 3

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, ExtCtrls, ComCtrls, ToolWin, Menus, frxClass,

frxADOComponents;

type

Tmain = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

N25: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

N29: TMenuItem;

N30: TMenuItem;

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

ToolButton10: TToolButton;

ToolButton11: TToolButton;

ToolButton12: TToolButton;

ToolButton13: TToolButton;

ToolButton14: TToolButton;

ToolButton15: TToolButton;

ToolButton16: TToolButton;

ToolButton17: TToolButton;

ToolButton18: TToolButton;

ToolButton19: TToolButton;

ToolButton20: TToolButton;

ToolButton21: TToolButton;

ToolButton22: TToolButton;

ToolButton23: TToolButton;

ToolButton24: TToolButton;

StatusBar1: TStatusBar;

Timer1: TTimer;

Image1: TImage;

ImageList1: TImageList;

N31: TMenuItem;

N32: TMenuItem;

frxReport1: TfrxReport;

N33: TMenuItem;

frxADOComponents1: TfrxADOComponents;

procedure N24Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N23Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N32Click(Sender: TObject);

procedure N33Click(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N30Click(Sender: TObject);

procedure N28Click(Sender: TObject);

procedure N25Click(Sender: TObject);

procedure N27Click(Sender: TObject);

procedure N29Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

main: Tmain;

implementation

uses Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17,

---