Разработка программного комплекса организации складского учета на Ленинградской Атомной Электро Станции

Дипломная Купить готовую Узнать стоимостьмоей работы

Постановка задачи. Литература. Алгоритм решения задачи. БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ5. 1. Анализ опасных и вредных факторов на этапе эксплуатации. Анализ существующих систем. Техническое задание. Расчет системы механической вентиляции (вытяжная ветвь) по избыточному тепловыделению. Дерево функций программного проекта. Формирование требований к качеству разрабатываемой системы. Тестирование… Читать ещё >

Разработка программного комплекса организации складского учета на Ленинградской Атомной Электро Станции (реферат, курсовая, диплом, контрольная)

Содержание

ВВЕДЕНИЕ
1. АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ
- 1. 2. Назначение и цели разработки
- 1. 3. Анализ существующих систем
- 1. 4. Формирование требований к функционалу разрабатываемой системы
- 1. 5. Формирование требований к качеству разрабатываемой системы
- 1. 6. Постановка задачи
- 1. 7. Техническое задание
2. ПРОЕКТИРОВАНИЕ АИС СКЛАДСКОГО УЧЕТА
- 2. 1. Моделирование бизнес-процессов предметной области
- 2. 2. Проектирование программного обеспечения
  - 2. 2. 1. Структура модулей и классов
  - 2. 2. 2. Алгоритм решения задачи
  - 2. 2. 3. Проектирование интерфейса
  - 2. 2. 4. Дерево функций программного проекта
- 2. 3. Проектирование БД
3. РЕАЛИЗАЦИЯ АИС СКЛАДСКОГО УЧЕТА
- 3. 1. Описание программного обеспечения
- 3. 2. Реализация информационной системы
- 3. 3. Руководство пользователя
- 3. 4. Тестирование и внедрение
4. ЭКОНОМИЧЕСКАЯ ЭФФЕКТИВНОСТЬ ПРОЕКТА
- 4. 1. Оценка трудоемкости проекта
- 4. 2. Оценка эффективности проекта
5. БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ
- 5. 1. Анализ опасных и вредных факторов на этапе эксплуатации
- 5. 2. Расчет системы механической вентиляции (вытяжная ветвь) по избыточному тепловыделению
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА

="") { mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL ();} int kol; kol= mainclientsform->ADOQuery2->RecordCount; if (kol ≠0) { int idtov=mainclientsform->ADOQuery2->FieldByName («idtovar»)->AsInteger; mainclientsform->ADOTable4->Active=true; mainclientsform->ADOTable4->Insert (); mainclientsform->ADOTable4->FieldByName («idTovar»)->AsInteger=idtov; mainclientsform->ADOTable4->FieldByName («kolichestvo»)->AsInteger=StrToInt (Edit29->Text); mainclientsform->ADOTable4->FieldByName («lico»)->AsString=Edit28->Text; int Ayear=StrToInt (Edit27->Text); int amonth= StrToInt (Edit26->Text); int aday= StrToInt (Edit25->Text); TDateTime srok_godnost=EncodeDate (Ayear, amonth, aday); mainclientsform->ADOTable4->FieldByName («kogda»)->AsDateTime=srok_godnost; mainclientsform->ADOTable4->Post (); }}//—————————————————————————————————————-void __fastcall Taddforms: Button3Click (TObject *Sender){ String tovar=Edit24->Text; mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2; mainclientsform->ADOQuery2->Active=false; mainclientsform->ADOQuery2->SQL->Clear (); TParameter *P1;String stroka_SQL, S; P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); P1->Name="P1″; P1->DataType = ftString; stroka_SQL=""; if (Edit33->Text≠""){ S=Edit33->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 tovar where tovar. nametovar like: P1″; mainclientsform->ADOQuery2->SQL->Add (stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL ();} int kol; kol= mainclientsform->ADOQuery2->RecordCount; if (kol ≠0) {int idtov=mainclientsform->ADOQuery2->FieldByName («idtovar»)->AsInteger; mainclientsform->ADOTable2->Active=true; mainclientsform->ADOTable2->Insert (); mainclientsform->ADOTable2->FieldByName («idTovar»)->AsInteger=idtov; mainclientsform->ADOTable2->FieldByName («kolichestvo»)->AsInteger=StrToInt (Edit35->Text); mainclientsform->ADOTable2->FieldByName («Lico»)->AsString=Edit34->Text; mainclientsform->ADOTable2->FieldByName («stoimost»)->AsFloat=StrToFloat (Edit37->Text); mainclientsform->ADOTable2->FieldByName («otkuda»)->AsString=Edit36->Text; mainclientsform->ADOTable2->FieldByName («kuda»)->AsString=Edit38->Text; mainclientsform->ADOTable2->FieldByName («idPartiya»)->AsInteger= StrToInt (Edit39->Text); mainclientsform->ADOTable2->FieldByName («IdZakaz»)->AsInteger= StrToInt (Edit40->Text); mainclientsform->ADOTable2->FieldByName («provodka»)->AsString="N" ;int Ayear=StrToInt (Edit32->Text);int amonth= StrToInt (Edit31->Text);int aday= StrToInt (Edit30->Text);TDateTime srok_godnost=EncodeDate (Ayear, amonth, aday); mainclientsform->ADOTable2->FieldByName («vremya»)->AsDateTime=srok_godnost; mainclientsform->ADOTable2->Post (); }}//—————————————————————————————————————-void __fastcall Taddforms: Button4Click (TObject *Sender){ Ucast=Edit24->Text; Obesp=Edit25->Text; Firma=Edit26->Text; Date1=StrToDate (Edit27->Text); Date2=StrToDate (Edit28->Text);}//—————————————————————————————————————-Модульпросмотра резлутатов поиска//—————————————————————————————————————-#include <vcl.h>#pragma hdrstop #include «main.h» #include «ChildTemlate.h» //—————————————————————————————————————-#pragma package (smart_init)#include <ComObj.hpp>#include <utilcls.h>#pragma resource «*.dfm» TChildTemplateForm *ChildTemplateForm; Variant vVarApp, vVarBooks, vVarBook, vVarSheets, vVarSheet, vVarCell;//—————————————————————————————————————-__fastcall TChildTemplateForm: TChildTemplateForm (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TChildTemplateForm: FormClose (TObject *Sender, TCloseAction &Action){ Action=caFree; }//—————————————————————————————————————-void __fastcall TChildTemplateForm: Button1Click (TObject *Sender){ vVarApp=CreateOleObject («Excel.Application»); Variant ws = Unassigned;AnsiString put = ExtractFilePath (Application->ExeName);const AnsiString asFileName (put + «zayavka.xlt»);vVarApp.OlePropertySet («Visible», true);vVarApp.OlePropertyGet («Workbooks»).OleProcedure («Open», asFileName. c_str ());ws = vVarApp. OlePropertyGet («Worksheets»).OlePropertyGet («Item», 1); mainclientsform->ADOQuery2->First ();int i = 1; // pervaya stroka v Excelint j; // perviy stolbecwhile (!mainclientsform->ADOQuery2->Eof) { j = 0; String A= mainclientsform->ADOQuery2->FieldByName («время»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 3).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Содержание.

наименование")->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 4).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («цели»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 5).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Фамилия»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 6).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Зал.наименование»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 7).OlePropertySet («Value», WideString (A)); A= DateToStr (mainclientsform->ADOQuery2->FieldByName («дата»)->AsString); ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 2).OlePropertySet («Value», WideString (A)); // ws. OlePropertyGet («Cells»).OlePropertyGet («Item», i, j).OlePropertySet («Value», WideString (A));// for (int k=0; k<4; k++)//ws.OlePropertyGet («Cells»).OlePropertyGet («Item», i, j++).OlePropertySet («Value», DateToStr (mainclientsform->ADOQuery2->FieldByName («дата»)->AsDateTime)); i++; mainclientsform->ADOQuery2->Next ();}}//—————————————————————————————————————-Просморт таблиц базы давнных#include <vcl.h>#pragma hdrstop#include «DBDirectoryTemplate.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» TDBDirectoryTemplateForm *DBDirectoryTemplateForm;//—————————————————————————————————————-__fastcall TDBDirectoryTemplateForm: TDBDirectoryTemplateForm (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TDBDirectoryTemplateForm: FormClose (TObject *Sender, TCloseAction &Action){ Action=caFree; }//—————————————————————————————————————-Модуль поиска информации//—————————————————————————————————————-#include <vcl.h>#include «main.h» #include «ChildTemlate.h» #pragma hdrstop#include «parampoisk.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» #include «main.h» extern nomer_poisk;extern Poisk;Tparampoiskform *parampoiskform;TParameter *P1;TParameter *P2;String stroka_SQL, S;TDateTime Data;//—————————————————————————————————————-__fastcall Tparampoiskform: Tparampoiskform (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall Tparampoiskform: FormClose (TObject *Sender, TCloseAction &Action){Action=caFree;}void BuildChildForms (String sCaption, TDataSource *ds, TForm *AFormName, String AMDIChildName){ int i; for (int i = AFormName->MDIChildCount-1; i>=0; i—) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free (); } } ChildTemplateForm= new TChildTemplateForm (Application); ChildTemplateForm->Top=230; ChildTemplateForm->Left=0; ChildTemplateForm->Width=1200; ChildTemplateForm->Height=200; ChildTemplateForm->Caption=sCaption;}//—————————————————————————————————————-void __fastcall Tparampoiskform: Button1Click (TObject *Sender){BuildChildForms («Результаты поиска», mainclientsform->DataSource1,mainclientsform," ChildTemplateForm"); ChildTemplateForm->Left=0; ChildTemplateForm->Top=3; mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2; mainclientsform->ADOQuery2->Active=false; mainclientsform->ADOQuery2->SQL->Clear (); if (nomer_poisk ==1) { P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); S=Edit3->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; // P1->Size=Length (S); P1->Value=S; ChildTemplateForm->Label1->Caption="Информация о товаре: «+Edit3->Text; stroka_SQL="select * from zapas where (zapas.idzapas = (select tovar. idzapas from tovar where tovar. nametovar like: P1))»; if (stroka_SQL≠"") { mainclientsform->ADOQuery2->SQL->Add (stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); } } if (nomer_poisk ==2){ P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); S=Edit3->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; P1->Value=S; ChildTemplateForm->Label1->Caption="Информация о размещении товара: «+Edit3->Text; stroka_SQL="select * from location where (location.idlocation = (select tovar. idlocation from tovar where tovar. nametovar like: 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 = ftDateTime; Word ayear= StrToInt (Edit5->Text);Word amonth=StrToInt (Edit4->Text);Word aday=StrToInt (Edit2->Text);DateTime timenach=EncodeDate (ayear, amonth, aday); ayear= StrToInt (Edit8->Text);amonth=StrToInt (Edit7->Text);aday=StrToInt (Edit6->Text);TDateTime timekon=EncodeDate (ayear, amonth, aday); P2 =mainclientsform->ADOQuery2->Parameters->AddParameter (); P2->Name="P2″; P2->DataType = ftDateTime; P1->Value = timenach; P2->Value = timekon;stroka_SQL="select * from Nakladnaya where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)"; mainclientsform->ADOQuery2->SQL->Add (stroka_SQL);if (stroka_SQL≠"") { mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); }} if (nomer_poisk ==4) { P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); S=Edit9->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; // P1->Size=Length (S); P1->Value=S; ChildTemplateForm->Label1->Caption="Информация о клиенте: «+Edit9->Text;stroka_SQL="select * from client where (client.family like: P1)»; if (stroka_SQL≠"") { mainclientsform->ADOQuery2->SQL->Add (stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); } }}//—————————————————————————————————————;

Показать весь текст

Список литературы

Баронов В.В., КаляновГ.Н., Попов Ю. И., Рыбников А. И., ТитовскийИ.Н. Автоматизация управления предприятием // М.: ИНФРА-М, 2011, -239с.
БороненковаС.А. Управленческий анализ: Учебное пособие для вузов:-М.: Финансы и статистика, 2003.
Вендров, A.M. CASE-технология. Современные методы и средства проектирования информационных систем / А. М. Вендров. — М.: Финансы и статистика, 2009. — 428с.
Глушков В.М. Основы безбумажной информатики, М., Наука, 2011.
Головко М.В. Проекты ИС для крупных предприятий: от бессистемного управления к системам управления знаниями //Директору информационной службы, № 4, 2012. — С. 2.
Дейт, К. Введение в системы баз данных: пер. с англ. /К.Дж. Дейт. 8-е издание. — М.: Вильяме, 2006. — 1326 с.
Демин, Ю.М. Информационные системы. Документационный менеджмент / Ю. М. Демин. — М.: Бератор, 2009. — 156с.
Емельянова Н.З. Основы построения автоматизированных информационных систем. / Н. З Емельянов, Т. Л. Партыка, И. И. Попов. — М.: Инфра — М, 2010. — 365 с.
Информационные системы в экономике: Учеб. пособие По дисциплине «Информ. системы в экономике» /Е.Н. Ефимов, С. М. Патрушина, Л. Ф. Панферова, Л. И. Хашиева. — М. Ростов н/Д.: МарТ, 2004. — 350 с.: ил.; 20 см. — (Информационные системы). — Библиогр.: с. 342−345 (40 назв.)
Информационные системы в экономике/Под ред. В. В. Дика. — М.:Финансы и статистика, 2013.
Карпова, И.П. Базы данных: Учебное пособие / И. П. Карпова. — СПб.: Питер, 2013. — 240 c.
Кириллов, В.В. Введение в реляционные базы данных. Введение в реляционные базы данных / В. В. Кириллов, Г. Ю. Громов. — СПб.: БХВ-Петербург, 2012. — 464 c.
Компьютерные информационные системы управленческой деятельности/Под ред. Проф. Титоренко Г. А. — М.: Экономическое образование, 2012.
Лешек. А. Анализ требований и проектирования систем. Разработка информационных систем с использованием UML/А.Лешек. — М.: Вильямс, 2002. — 405 с.
Магура, М. Оценочное собеседование для руководителей / М. Магура, М. Курбатова // Управление персоналом, 2010. — № 22. — С.49.
Маклафлин, Б. Объектно-ориентированный анализ и проектирование / Б. Маклафлин. — СПб.: Питер, 2013. — 608 c.
Медведев А. П. Малый бизнес : с чего начать, как преуспеть советы владельцам и управляющим /Артем Медведев. — Санкт-Петербург и др.: Питер, 2011. — 222 с.; 22 см. — (Серия «Начать и преуспеть»)
Пирогов, В.Ю. Информационные системы и базы данных: организация и проектирование: Учебное пособие / В. Ю. Пирогов. — СПб.: БХВ-Петербург, 2009. — 528 c.
Просветов Г. И. Управление в сфере услуг: задачи решения. Учебно-практическое пособие. — М.: Издательство «Альфа-пресс», 2009. -184с.
Рожнов В.С. АСОЭИ. — М.: Финансы и статистика, 2006. — 466 с.
Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б. Я. Советов, В. В. Цехановский, В. Д. Чертовской. — М.: Юрайт, 2013. — 463 c.
Тиори Т., Фрай Дж. Проектирование структур баз данных. В 2 кн., — М.: Мир, 2005. Кн. 1. — 287 с.: Кн. 2. — 320 с.
Шаймарданов, Р.Б. Моделирование и автоматизация проектирования структур баз данных; М.: Радио и связь, 2008. — 469 c.

Заполнить форму текущей работой

Купить готовую работу