Файл: Автоматизация процесса обработки заявок на ИТ-обслуживание в ООО «Элисофт» (Характеристика предприятия и его деятельности).pdf

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,