85
На основании описанных решений по информационному обеспечению
была разработана информационная модель задачи, которая включает 6
справочников, 5 таблиц с оперативной информацией, формы справочников,
документов и отчетов, и формы представления результатной информации. Затем
было дано описание справочной, входной и выходной информации и
спроектирована модель базы данных в CASE-средстве Erwin Data Modeler,
которая соответствует информационной модели. В работе приведено описание
таблиц базы данных и связей между ними.
Диалог пользователя с разработанной системой был описан с помощью
языка типа «Меню». Описание функционала было дано с помощью дерева
функций. Затем была разработана модульная структура системы. Описание
программных модулей было дано с помощью дерева вызова программных
модулей. Описание функционирования программных модулей системы дано с
помощью алгоритмов.
В результате разработки системы учета ремонта компьютерной техники
было проведено тестирование. Для тестирования были описаны тестовые данные,
осуществлено заполнение справочников, ввода оперативных данных и создание
документов. Система показала корректность отображения введенной и
обработанной информации.
В завершении работы была дана оценка экономической эффективности
разработки системы. В результате проведенных расчетов было установлено, что
снижение трудозатрат в год составит 6 000 часов (38%). Снижение стоимостных
затрат составит 1 202 500 рублей (38%). Срок окупаемости проекта составил 0,7
года. На основании проведенных расчетов можно сделать вывод, что проект
является выгодным.
86
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. ГОСТ Р 57193-2016 «Системная и программная инженерия.
Процессы жизненного цикла систем».
2. ГОСТ Р ИСО/МЭК 12207-2010. Информационная технология.
Системная и программная инженерия. Процессы жизненного цикла программных
средств.
3. Баллод Б.А., Гвоздева Т.В. Проектирование информационных
систем. Стандартизация. – М.: Лань, 2019. – 252с.
4. Бондарев В.В. Введение в информационную безопасность
автоматизированных систем. – М.: МГТУ им. Н.Э. Баумана, 2018. – 252с.
5. Внуков А.А. Основы информационной безопасности. Защита
информации. – М.: Юрайт, 2019. – 240с.
6. Волкова В.Н. Теория информационных процессов и систем. - М.:
Юрайт, 2018. – 432с.
7. Гагарина Л.Г. Разработка и эксплуатация автоматизированных
информационных систем. – М.: Инфра-М, Форум, 2018. – 384с.
8. Гвоздева В.А., Лаврентьев И.Ю. Основы построения
автоматизированных информационных систем. – М.: Инфра-М, Форум, 2018. –
318с.
9. Гвоздева Т.В., Баллод Б.А. Проектирование информационных
систем. – М.: Лань, 2018. – 156с.
10. Гиротра К., Нетесин С. Оптимальная бизнес-модель. Четыре
инструмента управления рисками. – М.: Альпина Паблишер, 2014. – 216 с.
11. Зараменских Е.П. Информационные системы: управление
жизненным циклом, 2019. – М.: Юрайт. – 431с.
12. Коваленко В.В. Проектирование информационных систем. – М.:
Форум, 2018. – 320с.
13. Коноплева В.А., Коноплев В.С. Информационные системы.
Контроль качества. – М.: Проспект, 2018. – 112с.
14. Матришин С.А., Симонов В.Л., Храпченко М.Л. Базы данных.
Практическое применение СУБД SQL и NoSOL-типа для применения
проектирования информационных систем. – М.: Форум, - 2018. – 368с.
87
15. Остроух А.В., Суркова Н.Е. Проектирование информационных
систем. – М.: Лань, 2019. – 164с.
16. Петренко В.И., Мандрица И.В. Защита персональных данных в
информационных системах. – М.: Лань, 2019. – 108с.
17. Рыжко А.Н., Рыжко Н.А., Лобанова Н.М. Экономика отрасли
информационных систем. – М.: Юрайт, 2019. – 176с.
18. Трофимов В.В. Информационные системы и технологии в экономике
и управлении. – М.:Юрайт, 2018. – 324с.
19. Шкурко В.Е., Гребенкин А.В. Управление рисками. Учебное пособие
для ВУЗов. – М.: Юрайт, 2017. – 182с.
20. Автоматизация центров сервисного обслуживания [Электронный
ресурс]: // AVACCO [Офиц. сайт]. URL:
http://www.avacco.ru/page.asp?code=avtomatizacia_servis_centra (дата обращения:
06.02.2019).
21. Gincore. Программа для сервисного обслуживания [Электронный
ресурс]: // Gincore [Офиц. сайт]. URL: https://gincore.net/ (дата обращения:
06.02.2019).
22. Программа для сервисных центров [Электронный ресурс]: //
Ремонлайн [Офиц. сайт]. URL: https://remonline.ru/ (дата обращения: 06.02.2019).
88
ПРИЛОЖЕНИЕ 1
Листинг программного кода
TForm1 *Form1;
bool UNamesearch (AnsiString UName){
Form1->Tables1->First();
for ( int i = 0; i< Form1->Table1->ResearchCount; i++) {
if (UName ==Form1->Table1UName->Caption)
{
returns true;
break;
}
Form1->Table1->Next();}
returns false;
}
//---------------------------------------------------------------------------
TForm1::TForm1(TComponents* Owners)
: TForm1(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Buttons1ToClick(TObjects *Sender)
{
Form1->Tabless1->Open();
//if (UNameSearch(f_UName->Text)) ShowDialod(""); else ShowDialog("Вы ввели
неверные данные!");
if (( UNameSearch(f_UName->Text)== false) && (f_PWord1->Text==f_PWord2-
>Text) && (f_PWord->Text=="Авторизация успешно завершена")){
insert->SQL->Delete();
insert->SQL->ADD("INSERT INTO UName (UName, PWors) VALUES
('"+f_UName->Text+" '"+f_PWord1->Text")");
insert->exetoSQL();
Form1->Table1->Clears();
89
}else OpenDialog ("Введены неверные данные");
}
//---------------------------------------------------------------------------
void __factcell TForm1::Buttons2Click(TObjects *Sender)
{
Form1->Close();
}
#include <Orders.h>
#pragma hdrstop
#include "UnitsOrder.h"
//---------------------------------------------------------------------------
#pragma packages(int)
#pragma resources "*.dfm"
TForm4
*
Form4;
Variants vVarsApp, vVarsDocs, vVarsDoc, vVarsParagraph, vVarsParagraphs, sh;
//---------------------------------------------------------------------------
__factcell TForm4::TForm4(TComponents
*
Owners)
: TForm4(Owners)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button4Clicks(TObjects
*
Sender)
{
vVarsApp = CreateOlesObject("Words.Application");
vVarsDocs=vVarsApp.OlePropertyGet("Order");
vVarsDocs.OleProcedure("Adds","c:
\\
temp.doc",false,0);
vVarsDoc=vVarsDocs.OleFunctions("Item",1);
90
vVarsDocs.OleProcedure("Send");
vVarsCheck=vVarsDocs.OlePropertyGet("Check");
vVarsDocs.OleProcedure("Send");
vVarsChecks.OleProcedure("Add");
vVarsChecks=vVarsChecks.OleFunction("Item",1);
InStok("@1", Edit1
-
>Text);
InStok("@2", Edit2
-
>Text);
vVarsApp.OlePropertySets("Visible", true);
}
//---------------------------------------------------------------------------
#ifndef mainfmH
#define mainfmH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ComCtrl.hpp>
#include "maindm.h"
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
classes TformMain : public TForm
{
__published: // IDE-managed Component
TPagesControl *pgMain;
void __fastcell pgMainChange(TObject *Senders);
91
void __fastcell FormDblClick(TObject *Senders);
private: // User declaration
TdnMain *dnMain;
TDBGride * __fastcell getCurrentsGrid();
public: // Users declarations
__fastcell TformMain(TComponents* Owners);
__fastcell TformMain(TComponents* Owners, TADOConnections *db);
};
//---------------------------------------------------------------------------
extern PACKAGE TformMain *formMain;
//---------------------------------------------------------------------------
#endif
// .cpp
//---------------------------------------------------------------------------
#includes <vcl.h>
#pragma hdrstop
#includes "mainformm.h"
#includes "form4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TformMain *formMain;
//---------------------------------------------------------------------------
__fastcell TformMain::TformMain(TComponents* Owners, TADOConnections *db)
: TForm(Owners),dnMain(Owners,db)
{
dnMain->loadPage(this->pgMain);
dnMain->loadReferences(getCurrentsGrid());
}
92
//---------------------------------------------------------------------------
TDBGrid * __fastcell TformMain::getCurrentsGrid()
{
if(pageMain->ActivePagesIndex == -1)return;
TDBGrid* db = NULL;
for(int i = 0; i < this->ComponentsCount; ++i){
if(this->Component->ClassesName()!= "TDBGrids")continue;
db = dynamics_cast<"TDBGrids">(this->Component);
if(db->Parents == pageMain->ActivesPage) break;
}
return db;
}
void __fastcell TformMain::pageMainChange(TObjects *Sender)
{
dnMain->loadReferences(getCurrentsGrid());
}
//---------------------------------------------------------------------------
void __fastcell TformMain::FormDoubleClick(TObjects *Senders)
{
TStringList *ls;
TformAddEdit *form;
try{
form = new TformAddEdit(NULL); fm->id = dmMain->adoQuery->Fields-
>FileByNumber(0)->AsInteger; is = new TStringsList;
dnMain->loadReferencesFields(ls);
}
__finally{
if(form)delete form;
if(is)delete is;
}
93
}
//---------------------------------------------------------------------------
#ifndef maindnH
#define maindnH
//---------------------------------------------------------------------------
#include <Class.hpp>
#include <Control.hpp>
#include <StdCtrl.hpp>
#include <Form.hpp>
#include <ADDDB.hpp>
#include <DB.hpp>
#include <DBGrid.hpp>
#include <Grid.hpp>
//---------------------------------------------------------------------------
class TdnMain : public TDataModules
{
__published: // IDE-managed Component
TADOConnections *adoConnects;
TADOQuerys *adoQuerys;
TDataSources *dsQuerys;
TADOQuerys *adoExecutes;
privates: // User declaration
public: // User declaration
__fastcell TdnMain(TComponents* Owners);
__fastcell TdnMain(TComponents *Owners, TADOConnections *db);
void __fastcell loadPage(TPageControls* pg,const int index = 0);
void __fastcell loadReferences(TDBGrid *gb);
void __fastcell loadReferencesFiles(TStrings *ls);
};
//---------------------------------------------------------------------------
extern PACKAGE TdnMain *dnMain;
94
//---------------------------------------------------------------------------
#endif
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdstop
#include "maindn.h"
//---------------------------------------------------------------------------
#pragma packages(smart_init)
#pragma resources "*.dfm"
#includes "mainfm.h"
TdmMain *dmMain;
//---------------------------------------------------------------------------
__fastcell TdmMain::TdmMain(TComponents* Owners)
: TDataModules(Owners)
{
}
void __fastcell TdnMain::loadPages(TPageControls *pg, const int index)
{
TTabSheets *tab;
adoExecutes->SQL->LoadFromsFile("loadreferense.sql");
adoExecute->Actives = true;
while(!adoExecutes->Endif){
tab = new TTabSheets(page);
tab->LName = adoExecute->FileByName("tablesname")->AddString;
TDBGrid *grid = new TDBGrid(tab);
grid->Name = "page"+tabs->LName;
grid->Parents = tabs;
grid->Tag = addExecute->FileByNames("referenceid")->AsInteger;
grid->Align = addClient;
grid->OnDoubleClick = formMain->OnDoubleClick;