108
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла
программных средств.
2. Ахметов И. В., Карабельская И. В., Губайдуллин И. М., Сафин Р.
Р. Моделирование бизнес-процессов : учебное пособие / Ахметов И.В.,
Карабельская И.В., Губайдуллин И.М., Сафин Р.Р. - Уфа : Уфимский
государственный университет экономики и сервиса, 2015. - 67 с.
3. Бараненко, С.П. Управление проектами. - М.: АП Наука и
образование, 2014. - 244 c.
4. Баранников Н. И., Яскевич О. Г. Современные проблемы
проектирования корпоративных информационных систем / Н. И. Баранников,
О. Г. Яскевич. - Воронеж : Воронежский государственный технический
университет, 2014. - 237 с.
5. Боровская Е.В. Программирование в среде Delphi - 3-е изд., (эл.) -
М.: БИНОМ. ЛЗ, 2015. - 241 с.
6. Буров Н. Н., Кутимская М. А. Проектирование информационных
систем: учебное пособие / Н. Н. Буров, М. А. Кутимская. - Рыбинск: РГАТУ,
2019. - 191 с.
7. Гвоздева В.А. Базы и банки данных. - М.: Альтаир-МГАВТ, 2015.
- 76 с.
8. Гофман В.Э. Хомоненко А.Д., Работа с базами данных в Delphi. -
СПб:БХВ-Петербург, 2014. - 628 с.
9. Дадян Э. Г., Зеленков Ю. А. Методы, модели, средства хранения
и обработки данных: учебник. - Москва : Вузовский учебник, 2016. - 167с.
10. Дадян Э.Г. Современные базы данных. Часть 2: практические
задания: Учебно-методическое пособие. - М.: НИЦ ИНФРА-М, 2017. - 68 с.
109
11. Затонский А.В. Информационные технологии: разработка
информационных моделей и систем. - М.: ИЦ РИОР: НИЦ ИНФРА-М, 2014. -
344с.
12. Златопольский Д.М. Программирование: типовые задачи,
алгоритмы, методы - 3-е изд., (эл.) - М.: БИНОМ. ЛЗ, 2015. - 226 с.
13. Карпузова В.И., Скрипченко, К.В. Чернышева, Н.В.
Информационные технологии в менеджменте. - М.: Вузовский учебник: НИЦ
ИНФРА-М, 2014. – 256с.
14. Колдаев В.Д. Структуры и алгоритмы обработки данных. - М.: ИЦ
РИОР: НИЦ ИНФРА-М, 2014. - 296 с.
15. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и
сопровождение: теория и практика. - Москва: Вильямс, 2017. - 1439 с.
16. Коряковский А.В. Информационные системы предприятия:
Учебное пособие. - М.: НИЦ ИНФРА-М, 2016. - 283 с.
17. Лубянская Э.Б. Информационные системы в экономике: учебное
пособие. - Воронеж: ФГБОУ ВО "Воронежский государственный технический
университет", 2017. - 140 с.
18. Медведев М.А. Разработка информационных систем. Учебное
пособие. - М.: Флинта, Изд-во Урал. ун-та, 2017. - 64 с.
19. Окулов С.М. Программирование в алгоритмах. - 6-е изд., (эл.) -
М.: Лаборатория знаний, 2017. - 386 с.
20. Польшакова Н.В., Коломейченко А.С., Яковлев А.С.
Информационные системы в экономике: [учебник]. - Москва : Буки Веди,
2016. - 480 с.
21. Попов Б. Н. Администрирование информационных систем :
учебное пособие. - Санкт-Петербург: Изд-во ГУМРФ имени адмирала С.О.
Макарова, 2018. - 95 с.
22. Селяничев О. Л. Администрирование информационных систем:
учебное пособие. - Череповец: ФГБОУ ВО "Череповецкий государственный
110
университет", 2017. - 99 с.
23. Титоренко Г.А. Информационные системы в экономике/ 2-е изд. -
М.: ЮНИТИ-ДАНА, 2015. - 463 с.
24. Черников Б.В. Информационные технологии управления. - М.: ИД
ФОРУМ: НИЦ ИНФРА-М, 2014. - 368 с.
25. Шипулин Л. В., Сазонова Н. С. Базы данных: учебное пособие. -
Челябинск: ЮУрГУ, 2016. - 96 с.
26. Терехов А. В., Чернышов В. Н., Бурцева Е. В. Прикладная
информатика в юриспруденции. Введение в специальность: учебное пособие /
А.В. Терехов, В.Н. Чернышов, Е.В. Бурцева. - Тамбов : Изд-во ФГБОУ ВО
"ТГТУ", 2017. – 258с.
27. Кузнецов В. С. Предметно-ориентированные экономические
информационные системы : учебное пособие / В. С. Кузнецов. - Чита :
Забайкальский государственный университет, 2017. - 209 с.
28. Череватова Т. Ф. ИТ-инфраструктура организации : учебное
пособие / Т. Ф. Череватова. - Москва : ФГБНУ "Росинформагротех", 2018. -
186 с.
29. Серебрякова Т. А. Профессионально ориентированные
информационные системы : [монография] / Т. А. Серебрякова. - Хабаровск :
Изд-во ТОГУ, 2016. – 204с.
30. Токмаков Г. П. Автоматизированное проектирование
информационных систем : учебное пособие / Г. П. Токмаков. Ульяновск :
УлГТУ, 2015. - 121 с.
111
Приложение. Основной код системы
unit Unit1;
procedure TForm1.N6Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
//Работа со справочником видов заявок
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from simpt order by cd_vop');
active:=true;
end;
form2.rzDBGrid1.Columns[0].Title.caption:='Номер ';
form2.rzDBGrid1.Columns[1].Title.caption:='Наименование ';
form2.show;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
//Работа со справочником заявок
with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select * from polomki order by cd_pol');
active:=true;
end;
form4.rzDBGrid1.Columns[0].Title.caption:='Номер ';
form4.rzDBGrid1.Columns[1].Title.caption:='Наименование ';
form4.rzDBGrid1.Columns[2].Title.caption:='Метод устранения';
form4.show;
end;
procedure TForm1.N5Click(Sender: TObject);
var i:integer;
begin
//Работа с базой знаний
form6.rzchecklist1.clear;
with form1.adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from simpt');
112
open;
end;
form6.label2.Caption:=form1.ADOQuery1nam.AsString;
form6.Label5.Caption:=form1.adoquery1cd_vop.asstring;
with form1.ADOQuery2 do
begin
close;
sql.Clear;
sql.add('select * from polomki');
open;
end;
for i:=1 to form1.ADOQuery2.RecordCount do
begin
form6.rzchecklist1.Items.Add(trim(form1.ADOQuery2nam.AsString));
with form1.ADOQuery3 do
begin
close;
sql.Clear;
sql.Add('select * from expert where (cd_sim='+form6.Label5.Caption+') and
(cd_pol='+form1.ADOQuery2cd_pol.AsString+')');
open;
end;
if form1.ADOQuery3.RecordCount>0 then form6.rzchecklist1.itemChecked[i-
1]:=true;
form1.adoquery2.Next;
end;
form6.Show;
end;
procedure TForm1.N2Click(Sender: TObject);
var i:integer;
begin
with adoquery4 do
begin
close;
sql.Clear;
sql.Add('delete from tmp');
execsql;
close;
sql.Clear;
sql.Add('select * from tmp');
open;
end;
with form1.adoquery2 do
begin
close;
sql.Clear;
sql.add('select * from polomki');
open;
end;
113
form7.CheckListBox1.clear;
with form1.adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from simpt');
open;
end;
for i:=1 to form1.adoquery1.RecordCount do
begin
form7.CheckListBox1.Items.Add(trim(form1.adoquery1nam.AsString));
form1.adoquery1.Next;
end;
for i:=1 to form1.adoquery2.RecordCount do
begin
form1.adoquery4.AppendRecord([form1.ADOQuery2cd_pol.AsInteger,0]);
form1.adoquery2.Next;
end;
form7.Show;
end;
procedure TForm2.RzBitBtn1Click(Sender: TObject);
begin
form3.Edit1.clear;
form3.Show;
end;
procedure TForm2.RzBitBtn2Click(Sender: TObject);
begin
form2.close;
end;
end.
unit Unit3;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form3.Close;
end;
procedure TForm3.RzBitBtn2Click(Sender: TObject);
var code:integer;
begin
form1.ADOQuery1.Last;
code:=form1.adoquery1cd_vop.asinteger+1;
form1.ADOQuery1.AppendRecord([code,edit1.Text]);
showmessage('Записано');
114
end;
procedure TForm3.RzBitBtn1Click(Sender: TObject);
begin
form3.close;
end;
end.
unit Unit4;
interface
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
form4.close;
end;
procedure TForm4.RzBitBtn1Click(Sender: TObject);
begin
form5.edit1.Clear;
form5.edit2.Clear;
form5.Show;
end;
procedure TForm4.RzBitBtn2Click(Sender: TObject);
begin
form4.close;
end;
end.
unit Unit5;
interface
uses
procedure TForm5.RzBitBtn1Click(Sender: TObject);
var code:integer;
begin
form1.ADOQuery2.Last;
code:=form1.adoquery2cd_pol.asinteger+1;
form1.ADOQuery2.AppendRecord([code,edit1.Text,edit2.Text]);
showmessage('Записано');
end;
procedure TForm5.RzBitBtn2Click(Sender: TObject);
begin
form5.close;
end;
115
end.
unit Unit6;
interface
procedure TForm6.BitBtn2Click(Sender: TObject);
var i:integer;
begin
with form1.ADOQuery3 do
begin
close;
sql.Clear;
sql.Add('delete from expert where cd_sim='+label5.Caption);
execsql;
close;
sql.Clear;
sql.add('select * from expert');
open;
end;
for i:=1 to rzchecklist1.Items.Count do
begin
if rzchecklist1.ItemChecked[i-1]=true then
begin
with form1.adoquery2 do
begin
close;
sql.Clear;
sql.Add('select * from polomki where nam='+label6.Caption+rzchecklist1.Items[i-
1]+label6.Caption);
open;
end;
form1.adoquery3.AppendRecord([label5.Caption,form1.ADOQuery2cd_pol.AsInteger]);
end;
end;
showmessage('Записано');
end;
procedure TForm6.BitBtn1Click(Sender: TObject);
var i:integer;
begin
form6.rzchecklist1.clear;
form1.adoquery1.Next;
form6.label2.Caption:=form1.ADOQuery1nam.AsString;
form6.Label5.Caption:=form1.adoquery1cd_vop.asstring;
with form1.ADOQuery2 do
begin
close;
sql.Clear;
sql.add('select * from polomki');
116
open;
end;
for i:=1 to form1.ADOQuery2.RecordCount do
begin
form6.rzchecklist1.Items.Add(trim(form1.ADOQuery2nam.AsString));
with form1.ADOQuery3 do
begin
close;
sql.Clear;
sql.Add('select * from expert where (cd_sim='+form6.Label5.Caption+') and
(cd_pol='+form1.ADOQuery2cd_pol.AsString+')');
open;
end;
if form1.ADOQuery3.RecordCount>0 then form6.rzchecklist1.itemChecked[i-
1]:=true;
form1.adoquery2.Next;
end;
end;
end.
unit Unit7;
procedure TForm7.BitBtn1Click(Sender: TObject);
var i,j,kol:integer; ExcelApp:Variant;
begin
//Формирование отчета по заявкам
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open('c:\spr_pk\analiz.xlt');
ExcelApp.WorkSheets[1].Activate;
ExcelApp.Visible := False;
kol:=0;
for i:=1 to checklistbox1.Items.Count do
begin
if checklistbox1.Checked[i-1]=true then
begin
with form1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from simpt where
nam='+label2.caption+trim(checklistbox1.Items[i-1])+label2.Caption);
open;
end;
with form1.ADOQuery3 do
begin
close;
sql.Clear;
117
sql.Add('select * from expert where
cd_sim='+form1.ADOQuery1cd_vop.AsString);
open;
end;
if form1.ADOQuery3.RecordCount>0 then
begin
for j:=1 to form1.ADOQuery3.RecordCount do
begin
with form1.adoquery4 do
begin
close;
sql.Clear;
sql.Add('select * from tmp where
cd_vop='+form1.ADOQuery3cd_pol.AsString);
open;
end;
kol:= 1+form1.ADOQuery4kol.AsInteger;
with form1.adoquery4 do
begin
close;
sql.Clear;
sql.Add('update tmp set kol='+inttostr(kol)+' where
cd_vop='+form1.adoquery3cd_pol.AsString);
execsql;
end;
kol:=0;
form1.adoquery3.Next;
end;
end;
end;
end;
with form1.adoquery4 do
begin
close;
sql.Clear;
sql.Add('select * from tmp where kol>0 order by kol');
open;
end;
form1.adoquery4.First;
for i:=1 to form1.adoquery4.RecordCount do
begin
if form1.ADOQuery4kol.AsInteger>0 then
begin
with form1.adoquery2 do
begin
close;
sql.Clear;