Автоматизация комплекса задач оператора многоуровневого паркинга

ВВЕДЕНИЕ 3
ГЛАВА 1 Характеристика объекта управления 5
1.1. Описание и основные показатели деятельности предприятия 5
1.2. Описание деятельности подразделения 7
1.3. Описание информационной системы подразделения 8
1.4. Формализация бизнес – процесса 12
1.5. Обоснование необходимости автоматизации выбранных задач 16
ГЛАВА 2. Проектирование комплекса задач 19
2.1. Постановка комплекса задач 19
2.2 Информация, необходимая для решения задачи 22
2.3. Блок-схема алгоритма задачи 25
2.4. Проектирование пользовательского интерфейса 27
2.5. Проектирование базы данных 34
ГЛАВА 3 Внедрение информационной системы 41
3.1. Расчет контрольного примера 41
3.2. Инструкция пользователю 46
3.3. Безопасность и экологичность проекта 51
ЗАКЛЮЧЕНИЕ 57
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 59
Приложения Листинг программы 62

mdb"; const String ConnStr = "Provider=%s;Data Provider=%s;Data Source=%s";if (!ADOConnection1->Connected) {ADOConnection1->ConnectionString = Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp)));mainclientsform->ADOQuery1->ConnectionString=Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp)));mainclientsform->ADOQuery2->ConnectionString=Format (ConnStr,ARRAYOFCONST((pr,dpr,tmp))); ADOConnection1->Open(); }//активация таблицmainclientsform->ADOTable1->Active=true;mainclientsform->ADOTable2->Active=true;mainclientsform->ADOTable3->Active=true;mainclientsform->ADOTable4->Active=true;mainclientsform->ADOTable5->Active=true; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N24Click(TObject *Sender){mainclientsform->N3Click(Sender);mainflag=true;flag2=true;flag1=false;BuildaddForms1("Просмотр базы данных", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm1->GroupBox2->Visible=false; ProsmForm1->GroupBox3->Visible=false; ProsmForm1->GroupBox1->Visible=false; ProsmForm1->GroupBox4->Visible=false; ProsmForm1->GroupBox5->Visible=false; ProsmForm1->GroupBox7->Visible=true; ProsmForm1->Top=150; ProsmForm1->Height=1000; ProsmForm1->Width=800; mainclientsform->DataSource1->DataSet->Last();}//---------------------------------------------------------------------------//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N26Click(TObject *Sender)// настройка параметров поиска{ nomer_poisk=5; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} } // BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Неотраб. док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false; Poisk->Button1->Caption="Сортировка"; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N27Click(TObject *Sender){ nomer_poisk=6; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} }//BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Отраб. док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false; Poisk->Button1->Caption="Сортировка"; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N28Click(TObject *Sender){{ nomer_poisk=7; int i; for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "addforms"){ mainclientsform->MDIChildren[i]->Free();} } for ( int i = mainclientsform->MDIChildCount-1; i>=0; i--) { if (mainclientsform->MDIChildren[i]->Name == "DBDirectoryTemplateForm"){ mainclientsform->MDIChildren[i]->Free();} }BuildPoiskForms("Параметры поиска", mainclientsform->DataSource1,mainclientsform,"parampoiskform" ); Poisk->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Док.отсорт. по дате"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false;Poisk->Button1->Caption="Сортировка";}}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn2Click(TObject *Sender){ mainclientsform->N16->Click();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn3Click(TObject *Sender){ mainclientsform->N27->Click();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn4Click(TObject *Sender){ mainclientsform->N17->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn5Click(TObject *Sender){ mainclientsform->N23->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn7Click(TObject *Sender){ mainclientsform->N12->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn6Click(TObject *Sender){ mainclientsform->N14->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn1Click(TObject *Sender){ mainclientsform->N4->Click(); }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::BitBtn8Click(TObject *Sender){ mainclientsform->Close();}//---------------------------------------------------------------------------//--------------------------------------------------------------------------- // подключение модулей и задания пространства имен#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;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(); // Break; } } // создание формы для просмотров результатов поиска ChildTemplateForm= new TChildTemplateForm(Application); ChildTemplateForm->Top=230; ChildTemplateForm->Left=0; ChildTemplateForm->Width=1200; ChildTemplateForm->Height=400; 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; P1->Value=S; //P1->Size=Length(S); P1->Value=S; stroka_SQL="SELECT договор.[Код договора], договор.уч_номер, договор.дата_начала, договор.дата_окончания, договор.[тариф за час], договор.[№ места], Клиент.Клиент "; stroka_SQL=stroka_SQL+"FROM Клиент INNER JOIN (договор INNER JOIN парковка ON договор.[Код договора] = парковка.[код договора]) ON Клиент.[Код клиента] = парковка.[код клиента] "; stroka_SQL=stroka_SQL+" WHERE (((договор.уч_номер)=:P1));"; 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 парковка.*, парковка.[дата начала], [Транспортное средство].госномер, [Транспортное средство].[марка ТС], Клиент.Клиент, Клиент.телефон "; stroka_SQL=stroka_SQL+" FROM [Транспортное средство] INNER JOIN (Клиент INNER JOIN парковка ON Клиент.[Код клиента] = парковка.[код клиента]) ON [Транспортное средство].[Код ТС] = Клиент.[код ТС] "; stroka_SQL=stroka_SQL+" WHERE (((парковка.[дата начала])=:P1));"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==3){ stroka_SQL="SELECT договор.[Код договора], договор.уч_номер, договор.дата_начала, договор.дата_окончания, договор.[тариф за час], договор.[№ места] FROM договор;"; 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 Клиент WHERE (((Клиент.статус)=:P1));" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==5){ // поиск документа поиск неотработанных документов stroka_SQL=" SELECT договор.[Код договора], договор.уч_номер, договор.дата_начала, договор.дата_окончания, договор.[тариф за час], договор.[№ места] FROM договор WHERE (((договор.дата_окончания)<Date())); "; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL();// ChildTemplateForm->Button1->Visible=true; } } if (nomer_poisk ==6){ // поиск документа поиск неотработанных документовstroka_SQL="SELECT договор.[№ места], [Транспортное средство].[марка ТС], [Транспортное средство].госномер, Клиент.состояние FROM [Транспортное средство] INNER JOIN (договор INNER JOIN (Клиент INNER JOIN парковка ON Клиент.[Код клиента] = парковка.[код клиента]) ON договор.[Код договора] = парковка.[код договора]) ON [Транспортное средство].[Код ТС] = Клиент.[код ТС] WHERE (((Клиент.состояние)='парковка')); "; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL();// ChildTemplateForm->Button1->Visible=true; } } if (nomer_poisk ==7){ // поиск документа поиск неотработанных документовstroka_SQL="SELECT Клиент.Клиент, парковка.[дата начала], парковка.[дата окончания], [Транспортное средство].[марка ТС], [Транспортное средство].госномер ";stroka_SQL=stroka_SQL+" FROM [Транспортное средство] INNER JOIN (Клиент INNER JOIN парковка ON Клиент.[Код клиента] = парковка.[код клиента]) ON [Транспортное средство].[Код ТС] = Клиент.[код ТС] ";stroka_SQL=stroka_SQL+" GROUP BY Клиент.Клиент, парковка.[дата начала], парковка.[дата окончания], [Транспортное средство].[марка ТС], [Транспортное средство].госномер, парковка.[дата окончания], парковка.[сумма оплаты]; "; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL();// ChildTemplateForm->Button1->Visible=true; } } if (nomer_poisk ==8){stroka_SQL=" SELECT Клиент.[Код клиента], Клиент.Клиент, Клиент.статус, Клиент.состояние, Клиент.телефон, Клиент.адрес FROM Клиент;"; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } if (nomer_poisk ==9){stroka_SQL="SELECT оплата.дата, оплата.сумма, оплата.состояние, Клиент.Клиент, договор.[Код договора], парковка.[сумма оплаты] FROM договор INNER JOIN (Клиент INNER JOIN (оплата INNER JOIN парковка ON оплата.[Код оплаты] = парковка.[код оплаты]) ON Клиент.[Код клиента] = парковка.[код клиента]) ON договор.[Код договора] = парковка.[код договора]; "; 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){ // добавление данных отдел String sostoyan = Edit3->Text; int summa=(Edit4->Text).ToInt();TDateTime date1; Date1=StrToDate(Edit6->Text); mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Insert(); mainclientsform->ADOTable5->FieldByName("сумма")->AsInteger= summa; mainclientsform->ADOTable5->FieldByName("Состояние")->AsString = sostoyan; mainclientsform->ADOTable5->FieldByName("дата")->AsDateTime= Date1; mainclientsform->ADOTable5->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button2Click(TObject *Sender){ // добавление данных корреспондент String gosnomer, markaTS, model; gosnomer= Edit8->Text; markaTS = Edit9->Text; model= Edit1->Text; mainclientsform->ADOTable3->Active=true; mainclientsform->ADOTable3->Insert(); mainclientsform->ADOTable3->FieldByName("госномер")->AsString = gosnomer; mainclientsform->ADOTable3->FieldByName("марка ТС")->AsString = markaTS ; mainclientsform->ADOTable3->FieldByName("модель")->AsString = model; mainclientsform->ADOTable3->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button3Click(TObject *Sender){ int kodTS; String klient, status, sostoyan, tel, adres; kodTS = (Edit94->Text).ToInt(); klient = Edit14->Text; status = Edit5->Text; sostoyan = Edit16->Text; tel = Edit11->Text; adres =Edit12->Text; // добавление данных резолюция mainclientsform->ADOTable2->Active=true; mainclientsform->ADOTable2->Insert(); mainclientsform->ADOTable2->FieldByName("Код ТС")->AsInteger = kodTS; mainclientsform->ADOTable2->FieldByName("Клиент")->AsString = klient; mainclientsform->ADOTable2->FieldByName("Статус")->AsString = status; mainclientsform->ADOTable2->FieldByName("Состояние")->AsString = sostoyan; mainclientsform->ADOTable2->FieldByName("Телефон")->AsString = tel; mainclientsform->ADOTable2->FieldByName("Адрес")->AsString = adres; mainclientsform->ADOTable2->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button4Click(TObject *Sender){ String uchnomer, nommesta; TDateTime datenach, dataokonch; int tarif; uchnomer= Edit24->Text; tarif = (Edit30->Text).ToInt(); datenach=StrToDate(Edit28->Text); dataokonch=StrToDate(Edit29->Text); nommesta= Edit2->Text; mainclientsform->ADOTable4->Active=true; mainclientsform->ADOTable4->Insert(); mainclientsform->ADOTable4->FieldByName("уч_номер")->AsString = uchnomer; mainclientsform->ADOTable4->FieldByName("№ места")->AsString = nommesta; mainclientsform->ADOTable4->FieldByName("дата_начала")->AsDateTime=datenach; mainclientsform->ADOTable4->FieldByName("дата_окончания")->AsDateTime=dataokonch; mainclientsform->ADOTable4->FieldByName("тариф за час")->AsInteger =tarif; mainclientsform->ADOTable4->Post(); }//---------------------------------------------------------------------------void __fastcall Taddforms::Button5Click(TObject *Sender){TDateTime datenach,datakon;int koddogovor, kodoplat, sumoplat, kodklient;datenach=StrToDate(Edit18->Text);datakon=StrToDate(Edit37->Text);koddogovor= (Edit31->Text).ToInt();kodoplat= (Edit32->Text).ToInt();sumoplat=(Edit34->Text).ToInt();kodklient=(Edit17->Text).ToInt(); mainclientsform->ADOTable1->Active=true; mainclientsform->ADOTable1->Insert(); mainclientsform->ADOTable1->FieldByName("дата начала")->AsDateTime = datenach; mainclientsform->ADOTable1->FieldByName("дата окончания")->AsDateTime =datakon; mainclientsform->ADOTable1->FieldByName("код договора")->AsInteger = koddogovor; mainclientsform->ADOTable1->FieldByName("код оплаты")->AsInteger =kodoplat; mainclientsform->ADOTable1->FieldByName("код клиента")->AsInteger =kodklient; mainclientsform->ADOTable1->FieldByName("сумма оплаты")->AsInteger =sumoplat; mainclientsform->ADOTable1->Post();}//---------------------------------------------------------------------------