Разработка автоматизированной системы по учету оборудования для организации филиал РТРС Кировский ОРТПЦ

Содержание
ВВЕДЕНИЕ 4
1. АНАЛИТИЧЕСКАЯ ЧАСТЬ 6
1.1 Технико-экономическая характеристика предметной области 6
1.1.1 Характеристика предприятия 6
1.1.2 Краткая характеристика подразделения или видов его деятельности 7
1.2 Экономическая сущность задачи 11
1.3 Обоснование необходимости и цели использования вычислительной техники для решения задачи 16
1.4 Постановка задачи 18
1.4.1 Цель и назначение автоматизированного варианта решения задачи 18
1.4.2 Общая характеристика организации решения задачи на ЭВМ 19
1.5 Анализ существующих разработок и обоснование выбора технологии проектирования 21
1.6 Обоснование проектных решений по видам обеспечения 23
1.6.1 по техническому обеспечению (ТО) 23
1.6.2 по информационному обеспечению (ИО) 29
1.6.3 по программному обеспечению (ПО) 29
1.6.4 по технологическому обеспечению 31
2. ПРОЕКТНАЯ ЧАСТЬ 33
2.1 Информационное обеспечение задачи (комплекса задач, АРМ) 33
2.1.1 Информационная модель и ее описание 33
2.1.2 Используемые классификаторы и системы кодирования 35
2.1.3 Характеристика первичных документов с нормативно-справочной и входной оперативной информацией 36
2.1.4 Характеристика базы данных 39
2.1.5 Характеристика результатной информации 48
2.2 Программное обеспечение задачи (комплекса задач, АРМ) 50
2.2.1 Общие положения (дерево функций и сценарий диалога) 50
2.2.2 Структурная схема пакета (дерево вызова процедур и программ) 52
2.2.3 Описание программных модулей 54
2.3 Технологическое обеспечение задачи (комплекса задач, АРМ) 56
2.3.1Организация технологии сбора, передачи, обработки и выдачи информации 56
2.3.2 Схемы технологического процесса сбора, передачи, обработки и выдачи информации 58
2.4 Описание контрольного примера реализации проекта 60
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА 64
3.1. Определение трудоемкости разрабатываемой системы 64
3.1.1.Расчет трудоемкости создания системы 64
3.1.2. Определение численности и состава исполнителей 65
3.4.Определение цены создания системы 67
3.3. Расчет показателей экономической эффективности 71
3.4. Расчет упущенной выгоды 83
ЗАКЛЮЧЕНИЕ 85
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ 87
ПРИЛОЖЕНИЯ 90

kodispoln=Zayavka.kodispoln))"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==2){ // поиск документа по дате регистрации Data=StrToDate(Edit2->Text); P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); P1->Name="P1"; P1->DataType=ftDate; P1->Direction = ptInput; P1->Value=Data; stroka_SQL="select * from zayavka,ispolnenie where ispolnenie.dateispoln=:P1 " ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==3){ P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); P1->Name="P1"; P1->DataType=ftInteger; P1->Direction = ptInput; P1->Value=1; stroka_SQL="SELECT * FROM Zayavka,ispolnenie WHERE (((Zayavka.otmetka)<>'выполнено') and (ispolnenie.kodispoln=Zayavka.kodispoln))" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==4){ // поиск исполнителей по фамилии P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit1->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; S="%"+ S+"%"; P1->Value=S; // P1->Size=Length(S); P1->Value=S; stroka_SQL="select * from Sotrudnyk where Sotrudnyk.Fam Like :P1" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==5){ // поиск документа по номеру P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit4->Text; P1->Name="P1"; P1->DataType=ftString; P1->Direction = ptInput; P1->Value=S; //P1->Size=Length(S); P1->Value=S; stroka_SQL="select distinct * from oborud, vidoborud where ((oborud.naim=:P1) AND (oborud.id_vid=vidoborud.id_vid ))"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } }//---------------------------------------------------------------------------//--------------------------------------------------------------------------- // подключение модулей и задания пространства имен#include <vcl.h>#pragma hdrstop#include "main.h"#include "add.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm" // описание переменныхTaddforms *addforms;String Fam, Name1, Sec_Name, Dep, Dolg, Tel, Adres;String Naimen, Proekc, Inter, Comput, Notes,ruk;String Ucast, Obesp, Razmesh, mob ;int Mesto, Kodzaka;String Technika, Organiz, Content, Target, Firma, regim, telotd;TDateTime Date1, Date2, Date3, Date4, Date5, Date6, Date7, Date8, Cont, Vremya;int kodzayav, koduch, kodvid, kodzal, kodob, kodsod, otvup, otgot;//---------------------------------------------------------------------------__fastcall Taddforms::Taddforms(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall Taddforms::FormClose(TObject *Sender, TCloseAction &Action){// закрытие формы Action=caFree;}//---------------------------------------------------------------------------void __fastcall Taddforms::Button1Click(TObject *Sender){ // добавление данных отдел Fam = Edit1->Text; Name1 = Edit2->Text; Sec_Name= Edit3->Text; Dep = Edit4->Text; telotd = Edit5->Text; Tel = Edit6->Text; mob = Edit7->Text; ruk = Edit89->Text; regim =Edit90->Text; mainclientsform->ADOTable2->Active=true; mainclientsform->ADOTable2->Insert(); mainclientsform->ADOTable2->FieldByName("naimenovanie")->AsString= Dep ; mainclientsform->ADOTable2->FieldByName("tel")->AsString = Tel; mainclientsform->ADOTable2->FieldByName("ruk")->AsString = ruk; mainclientsform->ADOTable2->FieldByName("regime")->AsString = regim; mainclientsform->ADOTable2->Post(); int kodotd; kodotd= mainclientsform->ADOTable2->FieldByName("kodotd")->AsInteger; // добавление данных исполнитель mainclientsform->ADOTable6->Active=true; mainclientsform->ADOTable6->Insert(); mainclientsform->ADOTable6->FieldByName("fam")->AsString = Fam; mainclientsform->ADOTable6->FieldByName("name")->AsString = Name1; mainclientsform->ADOTable6->FieldByName("secname")->AsString = Sec_Name; mainclientsform->ADOTable6->FieldByName("telefone")->AsString= Dolg; mainclientsform->ADOTable6->FieldByName("mob")->AsString = Tel; mainclientsform->ADOTable6->FieldByName("kodotd")->AsInteger= kodotd; mainclientsform->ADOTable6->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button2Click(TObject *Sender){ // добавление данных корреспондент Naimen = Edit8->Text; String station, block; String korpus, etag, komnata, ip, shluse, hub; int kodrazm; korpus= Edit11->Text; etag= Edit12->Text; komnata = Edit13->Text; ip = Edit91->Text; shluse=Edit92->Text; hub=Edit93->Text; mainclientsform->ADOTable4->Active=true; mainclientsform->ADOTable4->Insert(); mainclientsform->ADOTable4->FieldByName("korpus")->AsString = korpus; mainclientsform->ADOTable4->FieldByName("etag")->AsString = etag; mainclientsform->ADOTable4->FieldByName("komnata")->AsString = komnata; mainclientsform->ADOTable4->FieldByName("ip")->AsString = ip; mainclientsform->ADOTable4->FieldByName("shluse")->AsString = shluse; mainclientsform->ADOTable4->FieldByName("hub")->AsString = hub; mainclientsform->ADOTable4->Post(); kodrazm= mainclientsform->ADOTable4->FieldByName("kodrazm")->AsInteger; // добавление данных Naimen = Edit8->Text; station = Edit9->Text; block = Edit10->Text; mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Insert(); mainclientsform->ADOTable5->FieldByName("naimenovanie")->AsString = Naimen; mainclientsform->ADOTable5->FieldByName("station")->AsString = station; mainclientsform->ADOTable5->FieldByName("block")->AsString = block; mainclientsform->ADOTable5->FieldByName("kodrazm")->AsInteger = kodrazm; mainclientsform->ADOTable5->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button3Click(TObject *Sender){String naimenovanie,kolvo; // добавление данных резолюцияnaimenovanie = Edit14->Text;Date1=StrToDate(Edit15->Text);Date2=StrToDate(Edit94->Text); kolvo=Edit16->Text;; mainclientsform->ADOTable7->Active=true; mainclientsform->ADOTable7->Insert(); mainclientsform->ADOTable7->FieldByName("naimenovanie")->AsString = naimenovanie; mainclientsform->ADOTable7->FieldByName("date")->AsDateTime=Date1; mainclientsform->ADOTable7->FieldByName("srok")->AsDateTime=Date2; mainclientsform->ADOTable7->FieldByName("kolvo")->AsString = kolvo; mainclientsform->ADOTable7->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button4Click(TObject *Sender){ String otchet,rabot; Date1=StrToDate(Edit25->Text); rabot=Edit26->Text; otchet=Edit24->Text; // добавление данных типы документов // добавление данных mainclientsform->ADOTable3->Active=true; mainclientsform->ADOTable3->Insert(); mainclientsform->ADOTable3->FieldByName("otchet")->AsString = otchet; mainclientsform->ADOTable3->FieldByName("rabot")->AsString = rabot; mainclientsform->ADOTable3->FieldByName("dateispoln")->AsDateTime=Date1; mainclientsform->ADOTable3->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button5Click(TObject *Sender){int kodzakazchik,kodispoln,kodsotr, kod_neispr,kodzakaz, id_oborud;// добавление документаString notes, status; kodzakazchik=(Edit18->Text).ToInt(); kodispoln=(Edit34->Text).ToInt(); kodsotr=(Edit37->Text).ToInt(); kod_neispr =(Edit31->Text).ToInt(); kodzakaz =(Edit33->Text).ToInt(); id_oborud= (Edit29->Text).ToInt(); status=Edit17->Text; notes=Edit32->Text; mainclientsform->ADOTable1->Active=true; mainclientsform->ADOTable1->Insert(); mainclientsform->ADOTable1->FieldByName("kodzakazchik")->AsInteger = kodzakazchik; mainclientsform->ADOTable1->FieldByName("notes")->AsString = notes; mainclientsform->ADOTable1->FieldByName("otmetka")->AsString =status; mainclientsform->ADOTable1->FieldByName("kodispoln")->AsInteger = kodispoln; mainclientsform->ADOTable1->FieldByName("kodsotr")->AsString = kodsotr; mainclientsform->ADOTable1->FieldByName("kod_neispr")->AsInteger =kod_neispr; mainclientsform->ADOTable1->FieldByName("kodzakaz")->AsInteger =kodzakaz; mainclientsform->ADOTable1->FieldByName("id_oborud")->AsInteger =id_oborud; mainclientsform->ADOTable1->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button6Click(TObject *Sender){int kodvid;// добавление документаString naim, sernum, vid, notes1,notes2; naim=Edit27->Text; sernum=Edit21->Text; vid= Edit22->Text; notes1=Edit28->Text; notes2= Edit23->Text; mainclientsform->ADOTable10->Active=true; mainclientsform->ADOTable10->Insert(); mainclientsform->ADOTable10->FieldByName("notes")->AsString = notes2; mainclientsform->ADOTable10->FieldByName("vid_oborud")->AsString = vid; mainclientsform->ADOTable10->Post(); kodvid= mainclientsform->ADOTable10->FieldByName("id_vid")->AsInteger; mainclientsform->ADOTable9->Active=true; mainclientsform->ADOTable9->Insert(); mainclientsform->ADOTable9->FieldByName("notes")->AsString = notes1; mainclientsform->ADOTable9->FieldByName("naim")->AsString = naim; mainclientsform->ADOTable9->FieldByName("sernum")->AsString = sernum; mainclientsform->ADOTable9->FieldByName("id_vid")->AsInteger =kodvid; mainclientsform->ADOTable9->Post(); /* notes=Edit32->Text; mainclientsform->ADOTable1->FieldByName("kodzakazchik")->AsInteger = kodzakazchik; mainclientsform->ADOTable1->FieldByName("notes")->AsString = notes; mainclientsform->ADOTable1->FieldByName("otmetka")->AsString =status; mainclientsform->ADOTable1->FieldByName("kodispoln")->AsInteger = kodispoln; mainclientsform->ADOTable1->FieldByName("kodsotr")->AsString = kodsotr; mainclientsform->ADOTable1->FieldByName("kod_neispr")->AsInteger =kod_neispr; mainclientsform->ADOTable1->FieldByName("kodzakaz")->AsInteger =kodzakaz; mainclientsform->ADOTable1->Post(); */}//---------------------------------------------------------------------------