86
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.
87
Приложение. Листинг разработанной программы
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;
88
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;
89
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;
90
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;
91
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO ТО_Орг(Код_сотрудника,Код_оргтехники,Код_работы,Дата)
VALUES(:sotr,:teh,:rab,:data)');
ADOQuery1.Parameters.ParamByName('sotr').Value:=s;
ADOQuery1.Parameters.ParamByName('teh').Value:=StrToInt(cbTeh.Text);
ADOQuery1.Parameters.ParamByName('rab').Value:=rab;
ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TTOOrg.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbTeh.Items.Clear;
while not eof do
begin
cbTeh.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Наименование FROM Виды_ТО');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbRab.Items.Clear;
while not eof do
begin
cbRab.Items.Add(FieldByName('Наименование').AsString);
Next;
end;
end;
92
finally
end;
end;
end.
unit Unit5;
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
TTOKomp = class(TForm)
Panel1: TPanel;
Label1: TLabel;
cbSotr: TComboBox;
Label2: TLabel;
cbIm: TComboBox;
Label3: TLabel;
cbRab: TComboBox;
Дата: TLabel;
eData: TEdit;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TOKomp: TTOKomp;
implementation
{$R *.dfm}
procedure TTOKomp.btnAddClick(Sender: TObject);
var
tempQuery:TADOQuery;
s,im,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;
93
with tempQuery do
begin
First;
s:=FieldByName('Код').AsInteger;
end;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Комп_техника WHERE Сетевое_имя=:n');
tempQuery.Parameters.ParamByName('n').Value:=cbIm.Text;
tempQuery.Open;
with tempQuery do
begin
First;
im:=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;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO ТО_Комп(Код_сотрудника,Код_техники,Код_работы,Дата)
VALUES(:sotr,:teh,:rab,:data)');
ADOQuery1.Parameters.ParamByName('sotr').Value:=s;
ADOQuery1.Parameters.ParamByName('teh').Value:=im;
ADOQuery1.Parameters.ParamByName('rab').Value:=rab;
ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TTOKomp.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
//-----------------
94
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Сетевое_имя FROM Комп_техника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbIm.Items.Clear;
while not eof do
begin
cbIm.Items.Add(FieldByName('Сетевое_имя').AsString);
Next;
end;
end;
//-----------------
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Наименование FROM Виды_ТО');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbRab.Items.Clear;
while not eof do
begin
cbRab.Items.Add(FieldByName('Наименование').AsString);
Next;
end;
end;
finally
end;
end;
end.
unit Unit6;
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.Grids,
Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls, Unit7, Unit1, Unit2, Unit3, Unit4,
Unit5, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15,
Vcl.Imaging.jpeg, MyWord;
type
TMainForm = class(TForm)
Panel1: TPanel;
btnSotrudniki: TButton;
btnOrg: TButton;
btnKomp: TButton;
btnPO: TButton;
btnTOOrg: TButton;
btnTOKomp: TButton;
btnAbout: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
95
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Panel2: TPanel;
btnAdd: TButton;
btnEdit: TButton;
btnDel: TButton;
btnInstall: TButton;
btnTOl3: TButton;
btnTOg3: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
cbIm: TComboBox;
btnSearch: TButton;
Image1: TImage;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
rb1: TRadioButton;
rb2: TRadioButton;
rg2: TRadioGroup;
rb0: TRadioButton;
rb7: TRadioButton;
rb30: TRadioButton;
rb180: TRadioButton;
rb360: TRadioButton;
cbSotr: TComboBox;
Button3: TButton;
rg3: TRadioGroup;
cbT: TComboBox;
procedure btnSotrudnikiClick(Sender: TObject);
procedure LoadSotrudnik();
procedure LoadOrg();
procedure LoadKomp();
procedure LoadPO();
procedure LoadTOOrg();
procedure LoadTOKomp();
procedure LoadInstall();
procedure btnOrgClick(Sender: TObject);
procedure btnKompClick(Sender: TObject);
procedure btnPOClick(Sender: TObject);
procedure btnTOOrgClick(Sender: TObject);
procedure btnTOKompClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnInstallClick(Sender: TObject);
procedure btnTOl3Click(Sender: TObject);
procedure btnTOg3Click(Sender: TObject);
procedure btnAboutClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnSearchClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);