Дипломная работа: Автоматизация приема заявок на ремонт и модернизацию ПК в ООО "ААЭМ"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

21. Заботина Н.Н. Проектирование информационных систем: Учебное

пособие / Н.Н. Заботина. - М.: ИНФРА-М, 2011. - 331 с.

22. Затонский А.В. Информационные технологии: разработка

информационных моделей и систем: Учеб. пос. / А.В.Затонский - М.: ИЦ

РИОР: НИЦ ИНФРА-М, 2014 - 344с.

23. Информационные системы в экономике: Учебник / К.В. Балдин, В.Б.

Уткин. - 7-e изд. - М.: Дашков и К, 2012. - 395 с.

24. Исаев Г. Проектирование информационных систем. Учебное пособие. -

М.: Омега-Л, 2015. - 432с.

25. Коваленко В.В. Проектирование информационных систем: Учебное

пособие / В.В. Коваленко. - М.: Форум: НИЦ ИНФРА-М, 2014. - 320 с.

26. Пирогов, В.Ю. Информационные системы и базы данных: организация и

проектирование: Учебное пособие / В.Ю. Пирогов. - СПб.: БХВ-

Петербург, 2014. - 528 c.

27. Уткин В., Балдин К. Информационные системы в экономике. - М.:

Academia, 2014. - 288с.

28. Федотова Е. Информационные технологии и системы: Учебное пособие /

Е.Л. Федотова. - М.: ИД ФОРУМ: НИЦ ИНФРА-М, 2014. - 352 с

29. Федотова Е.Л. Информационные технологии в профессиональной

деятельности: Учебное пособие / Е.Л. Федотова. - М.: ИД ФОРУМ: НИЦ

ИНФРА-М, 2015. - 368 с.

30. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений

среднего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. -

М.: ИЦ Академия, 2014. - 320 c.

31. Шаймарданов Р.Б. Моделирование и автоматизация проектирования

структур баз данных - М.: Юнити, 2016. - 469 c.

Приложение. Листинг разработанной программы

unit Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ExtCtrls;

type

TAddOrg = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

eNaz: TEdit;

eTip: TEdit;

eMesto: TEdit;

BtnAdd: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

procedure BtnAddClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AddOrg: TAddOrg;

implementation

{$R *.dfm}

procedure TAddOrg.BtnAddClick(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('INSERT INTO Оргтехника(Название,Тип,Месторасположение)

VALUES(:n,:tip,:mesto)');

ADOQuery1.Parameters.ParamByName('n').Value:=eNaz.Text;

ADOQuery1.Parameters.ParamByName('tip').Value:=eTip.Text;

ADOQuery1.Parameters.ParamByName('mesto').Value:=eMesto.Text;

ADOQuery1.ExecSQL;

Application.MessageBox('Данные сохранены!','Уведомление');

end;

end.

unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ExtCtrls;

type

TAddKomp = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

eIm: TEdit;

ePrim: TEdit;

btnAdd: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Label3: TLabel;

eRasp: TEdit;

procedure btnAddClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AddKomp: TAddKomp;

implementation

{$R *.dfm}

procedure TAddKomp.btnAddClick(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('INSERT INTO Комп_техника(Сетевое_имя,Месторасположение,Примечание)

VALUES(:im,:r,:prim)');

ADOQuery1.Parameters.ParamByName('im').Value:=eIm.Text;

ADOQuery1.Parameters.ParamByName('r').Value:=eRasp.Text;

ADOQuery1.Parameters.ParamByName('prim').Value:=ePrim.Text;

ADOQuery1.ExecSQL;

Application.MessageBox('Данные сохранены!','Уведомление');

end;

end.

unit Unit3;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ExtCtrls;

type

TAddPO = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

btnAdd: TButton;

eNaz: TEdit;

ePok: TEdit;

eOk: TEdit;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Label4: TLabel;

eLic: TEdit;

procedure btnAddClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AddPO: TAddPO;

implementation

{$R *.dfm}

procedure TAddPO.btnAddClick(Sender: TObject);

begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('INSERT INTO

ПО(Название,Дата_покупки,Дата_окончания,Количество_лицензий) VALUES(:naz,:pok,:ok,:l)');

ADOQuery1.Parameters.ParamByName('naz').Value:=eNaz.Text;

ADOQuery1.Parameters.ParamByName('pok').Value:=ePok.Text;

ADOQuery1.Parameters.ParamByName('ok').Value:=eOk.Text;

ADOQuery1.Parameters.ParamByName('l').Value:=eLic.Text;

ADOQuery1.ExecSQL;

Application.MessageBox('Данные сохранены!','Уведомление');

end;

end.

unit Unit4;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,

Vcl.ExtCtrls;

type

TTOOrg = class(TForm)

Panel1: TPanel;

Label1: TLabel;

cbSotr: TComboBox;

btnAdd: TButton;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

Label2: TLabel;

cbTeh: TComboBox;

cbRab: TComboBox;

Работа: TLabel;

eData: TEdit;

Дата: TLabel;

procedure FormCreate(Sender: TObject);

procedure btnAddClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

TOOrg: TTOOrg;

implementation

{$R *.dfm}

procedure TTOOrg.btnAddClick(Sender: TObject);

var

tempQuery:TADOQuery;

s,rab:integer;

begin

try

tempQuery:=TADOQuery.Create(self);

tempQuery.Connection:=ADOConnection1;

tempQuery.SQL.Clear;

tempQuery.SQL.Add('Select Код FROM Сотрудники WHERE ФИО=:fio');

tempQuery.Parameters.ParamByName('fio').Value:=cbSotr.Text;

tempQuery.Open;

with tempQuery do

begin

First;

s:=FieldByName('Код').AsInteger;

end;

tempQuery.SQL.Clear;

tempQuery.SQL.Add('Select Код FROM Виды_ТО WHERE Наименование=:n');

tempQuery.Parameters.ParamByName('n').Value:=cbRab.Text;

tempQuery.Open;

with tempQuery do

begin

First;

rab:=FieldByName('Код').AsInteger;

end;

finally

tempQuery.Active:=False;

tempQuery.Free;

end;

Источник: https://baza.diplomsite.ru/previewfile/1935

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








Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал