Разработка системы документооборота для компании ООО"Инвестиционные фонды"

СОДЕРЖАНИЕ
ВВЕДЕНИЕ
1 АНАЛИЗ СОВРЕМЕННЫХ СРЕДСТВ АВТОМАТИЗАЦИИ ДОКУМЕНТООБОРОТА
1.1 Организация отечественного делопроизводства и документооборота
1.2 Обзор существующих программных автоматизированных систем
1.3 Проблемы в области автоматизации документооборота
2. РАЗРАБОТКА АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ ДОКУМЕНТООБОРОТА
2.1 Характеристика задач системы и выбор инструментального средства разработки
2.2 Разработка информационного обеспечения системы
2.3 Описание математического и программного обеспечения системы
3. ТЕХНИКО-ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ЭФФЕКТИВНОСТИ ПРОЕКТА
3.1 Технико-экономическая характеристика ООО "Инвестиционные
фонды"
3.2 Характеристика документооборота ООО "Инвестиционные фонды"
3.3Предложения по автоматизации документооборота компании
3.4 Оценка эффективности внедрения проекта
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
Приложение А Листинг программы

Платформа бизнес-анализа SQL Server 2008, тесно интегрированная с Microsoft Office, предоставляет развитую маштабируемую инфраструктуру для внедрения мощных возможностей бизнес-анализа в рабочий процесс всех бизнес-подразделений вашей компании, открывая доступ к нужной бизнес-информации через знакомый интерфейс MS Excel и MS WordДинамический процесс проектирования системы происходил в несколько стадий.На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому.На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.Разработанная база данных для функционирования автоматизированной системы документооборота содержит 8 взаимосвязанных таблиц, которые находятся в третьей нормальной форме - «Документ», «Статус», «Корреспондент», «Исполнитель», «Отдел», «Вид документа», «Источник», «Резолюция».В качестве выходной информации для рассматриваемой системы рассматриваются результаты информационного поиска, формируемые в информационной системе к которым могут быть отнесены- результаты поиска документов по дате регистрации;- результаты поиска документов по регистрационному номеру;- результаты поиска данных исполнителя по фамилии;- результаты поиска необработанных документов.Указанные данные формируются динамически посредством выполнения запросов к разработанной базе данных.Математическое обеспечение системы представлено в виде разработанного алгоритмического обеспечения, среди основных разработанных алгоритмов необходимо выделить:- алгоритм добавления нового документа;- обобщенный алгоритма функционирования системы- обобщенного алгоритминформационного поискаРазработанное программное обеспечение содержит 3 основных программных модуля, среди которых целесообразно выделить Модуль работы с документами, модуль получения результирующей информации, Модуль получения справочной информации.Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системойИспользование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о документах и исполнителях, а так же анализировать текущее состояние документов. Отмечено так же повышение эффективности учета движения документов в организации. При этом в практику работы персонала входят новые информационные технологии, такие как совместный авторизованный доступ к справочной информации о документах, автоматизация рутинных операций, доступ к информационно-справочным ресурсам, автоматическое заполнение документов, исключение недостатков бумажных носителей, контроль качества, стандартизация учета.В заключительном разделе работы проведена оценка экономической эффективности разработанного программного средства. В результате оценки было выявлено, что расчетный коэффициент эффективности капитальных вложений больше нормативного, поэтому разработку программной системы следует считать целесообразной. Срок ее окупаемости составляет примерно 5 месяцев.Таким образом, в работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы, оценена экономическая целесообразность внедрения системы.Считаю, что созданная в дипломной работе информационная система автоматизации документооборота компании ООО «Инвестиционные фонды» полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.ЛИТЕРАТУРААрхангельский А.Я. Buider c++. Справочное пособие. — М.: Бином, 2010. — 1024 с.Архангельский А.Я. Программирование в Buider c++. — М.: Бином, 2010. — 564 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2010. –304с.Басаков, М.И. Делопроизводство и корреспонденция в вопросах и ответах; Ростов н/Д: Феникс; Издание 8-е, перераб. и доп., 2011. - 320 c.Бертяков А. Автоматизация документооборота. Финансы и статистика., 2010.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 2009. - 654с.Вендров А.М. Проектирование программного обеспечения экономических информационных систем. М.: «Финансы и статистика»,2002.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.Галатенко В. Информационная безопасность // Открытые системы- 2012. – N 1-4.Глушаков С.В.,. Базы данных .- Х.: Фолио, 2010. – 504 с.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 2010. – 450с.Кирсанова М. В., Аксенов Ю. М. Курс делопроизводства. Документационное обеспечение управления:— Санкт-Петербург, Инфра-М, 2011 г.- 368Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2010. – 1111 с.Макарова Н., Николайчук, Г. Титова Ю. Компьютерное делопроизводство. Учебный курс: Н— Москва, Питер, 2009 г.- 416 с.Принципы проектирования и разработки программного обеспечения. Учебный курс MCSD: Скотт Ф. Уилсон, Брюс Мэйплс, Тим Лэндгрейв. – М: Русская редакция, 2002. – 736стр.Проектирование экономических информационных систем: Учебник/Г.Н.Смирнова. – М: Финансы и статистика, 2011. – 512стр.Пшенко, А.В. Документационное обеспечение управления (Делопроизводство): Учебное пособие; М.: Форум, 2010. - 256 c.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2011. с.22-27. // www.ITC-UA.COMЧерников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 20. с.22-27. www.ITC-UA.COMШумаков П.ВРуководство разработчика баз данных. — М.: Нолидж, 2010. — 635 с.Приложение АЛистинг программыМодуль mainclients.cpp//---------------------------------------------------------------------------// подключение модулей и задания пространства имен#include <vcl.h>#include <string.h>#pragma hdrstop#include "main.h"#include "parampoisk.h"#include "DBDirectoryTemplate.h"#include "add.h"#include "ChildTemlate.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm" #include "add.h"// описание основных классов (форм)Tmainclientsform *mainclientsform;TDBDirectoryTemplateForm *DirectoryForm; Taddforms *ProsmForm; Tparampoiskform *Poisk;TChildTemplateForm *ChildTemplateForm;int nomer_poisk; bool mainflag; int kodzayav, koduch, kodvid, kodzal, kodob, kodsod, otvup, otgot,a, kodzaka;//---------------------------------------------------------------------------__fastcall Tmainclientsform::Tmainclientsform(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void BuildGridDatabaseDirectoryItem(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; } } DirectoryForm= new TDBDirectoryTemplateForm(Application); DirectoryForm->TableDBGrid->DataSource=ds; DirectoryForm->Top=0; DirectoryForm->Left=0; DirectoryForm->Width=700; DirectoryForm->Height=200; DirectoryForm->Caption=sCaption;}void BuildaddForms(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; } } ProsmForm= new Taddforms(Application); ProsmForm->Top=230; ProsmForm->Left=0; ProsmForm->Width=700; ProsmForm->Height=200; ProsmForm->Caption=sCaption;}void BuildPoiskForms(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; } } Poisk= new Tparampoiskform(Application); Poisk->Top=50; Poisk->Left=400; Poisk->Width=400; Poisk->Height=400; Poisk->Caption=sCaption;}void __fastcall Tmainclientsform::N3Click(TObject *Sender){mainflag=false;/* просмотр таблицы документы */ mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable1;mainclientsform->ADOTable1->Active=true;BuildGridDatabaseDirectoryItem("Документы", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N4Click(TObject *Sender){/* просмотр таблицы Вид документа */ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable2;mainclientsform->ADOTable2->Active=true;BuildGridDatabaseDirectoryItem("Вид документа", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N5Click(TObject *Sender){/* закрытие главной формы */ mainclientsform->Close();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N6Click(TObject *Sender){/* просмотр таблицы источники документы */ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable3;mainclientsform->ADOTable3->Active=true;BuildGridDatabaseDirectoryItem("Источники документа", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N7Click(TObject *Sender){ /* просмотр таблицы корреспондент */ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable4;mainclientsform->ADOTable4->Active=true;BuildGridDatabaseDirectoryItem("Корреспондент", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N8Click(TObject *Sender){/* просмотр таблицы статус */ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable5;mainclientsform->ADOTable5->Active=true;BuildGridDatabaseDirectoryItem("Статус", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N9Click(TObject *Sender){ mainflag=false; /* просмотр таблицы исполнитель */ mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable6;mainclientsform->ADOTable6->Active=true;BuildGridDatabaseDirectoryItem("Исполнитель", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N10Click(TObject *Sender){ mainflag=false; /* просмотр таблицы резолюция */ mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable7;mainclientsform->ADOTable7->Active=true;BuildGridDatabaseDirectoryItem("Резолюция", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N11Click(TObject *Sender){ mainflag=false; /* просмотр таблицы отдел */ mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable8;mainclientsform->ADOTable8->Active=true;BuildGridDatabaseDirectoryItem("Отдел", mainclientsform->DataSource1,mainclientsform,"DBDirectoryTemplateForm" );}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N12Click(TObject *Sender){ /* просмотр базы данных */ mainclientsform->N3Click(Sender); mainflag=true;BuildaddForms("Просмотр базы данных", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox6->Visible=true; ProsmForm->Height=800; mainclientsform->DataSource1->DataSet->Last();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N16Click(TObject *Sender){ mainflag=false; /* добавление записи исполнитель/отдел */ BuildaddForms("Исполнитель / отдел", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox1->Visible=true; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N17Click(TObject *Sender){ mainflag=false; /* добавление записи Источник / корреспондент*/ BuildaddForms("Источник / корреспондент", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox2->Visible=true; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N18Click(TObject *Sender){ /* добавление записи резолюция*/ mainflag=false; BuildaddForms(" Резолюцию", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=true; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N19Click(TObject *Sender){ mainflag=false; /* добавление записи вид документа*/ BuildaddForms("Вид документа", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=true; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N14Click(TObject *Sender){ /* добавление записи документ*/ BuildaddForms("Создать документ", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=true; ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::DataSource1DataChange(TObject *Sender,TField *Field){ /* просмотр записей таблицы*/if (mainflag)String svyaz,regn, ishn, vhn; ProsmForm->Edit42->Text=StrToInt( mainclientsform->ADOTable1->FieldByName("код_вида")->AsInteger); ProsmForm->Edit44->Text=mainclientsform->DataSource1->DataSet->FieldByName("связка")->AsString; ProsmForm->Edit43->Text=StrToInt(mainclientsform->DataSource1->DataSet->FieldByName("код_источника")->AsInteger); ProsmForm->Edit45->Text=mainclientsform->DataSource1->DataSet->FieldByName("содержание")->AsString; ProsmForm->Edit40->Text=StrToInt(mainclientsform->DataSource1->DataSet->FieldByName("код_статуса")->AsInteger); ProsmForm->Edit46->Text=StrToInt(mainclientsform->DataSource1->DataSet->FieldByName("код_исполнителя")->AsInteger); ProsmForm->Edit41->Text=mainclientsform->DataSource1->DataSet->FieldByName("регистрационный_номер")->AsString; ProsmForm->Edit55->Text=StrToInt(mainclientsform->DataSource1->DataSet->FieldByName("код_резолюции")->AsInteger); ProsmForm->Edit28->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("дата_регистрации")->AsDateTime); ProsmForm->Edit47->Text=mainclientsform->DataSource1->DataSet->FieldByName("исходящий_номер")->AsString; ProsmForm->Edit39->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("дата_создания")->AsDateTime); ProsmForm->Edit48->Text=mainclientsform->DataSource1->DataSet->FieldByName("входящий_номер")->AsString; ProsmForm->Edit49->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("дата_получения")->AsDateTime); ProsmForm->Edit50->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("плановая_дата")->AsDateTime); ProsmForm->Edit51->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("срок_выполнения")->AsDateTime); ProsmForm->Edit52->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("промежуточная_дата_исполнения")->AsDateTime); ProsmForm->Edit53->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("фактическая_дата_исполнения")->AsDateTime); ProsmForm->Edit54->Text=DateToStr(mainclientsform->DataSource1->DataSet->FieldByName("дата_отправки")->AsDateTime); int kodi,kods, kodr; kodi=mainclientsform->DataSource1->DataSet->FieldByName("код_исполнителя")->AsInteger; kods=mainclientsform->DataSource1->DataSet->FieldByName("код_статуса")->AsInteger; kodr=mainclientsform->DataSource1->DataSet->FieldByName("код_резолюции")->AsInteger; TLocateOptions Options; mainclientsform->ADOTable6->Active=true; Options << loPartialKey,loCaseInsensitive; mainclientsform->ADOTable6->Locate("код_исполнителя",kodi,Options); ProsmForm->Edit56->Text=mainclientsform->ADOTable6->FieldByName("Фамилия")->AsString; ProsmForm->Edit57->Text=mainclientsform->ADOTable6->FieldByName("Имя")->AsString; ProsmForm->Edit58->Text=mainclientsform->ADOTable6->FieldByName("Отчество")->AsString; ProsmForm->Edit59->Text=mainclientsform->ADOTable6->FieldByName("телефон")->AsString; mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Locate("код_статуса",kods,Options); ProsmForm->Edit60->Text=mainclientsform->ADOTable5->FieldByName("статус_документа")->AsString; ProsmForm->Edit61->Text=DateToStr(mainclientsform->ADOTable5->FieldByName("дата_изменения_статуса")->AsDateTime); mainclientsform->ADOTable7->Active=true; mainclientsform->ADOTable7->Locate("код_резолюции",kodr,Options); ProsmForm->Edit62->Text=mainclientsform->ADOTable7->FieldByName("текст_резолюции")->AsString; ProsmForm->Edit63->Text=DateToStr(mainclientsform->ADOTable7->FieldByName("дата_резолюции")->AsDateTime); }}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N20Click(TObject *Sender){// настройка параметров поискаnomer_poisk=1; 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->GroupBox3->Visible=false; Poisk->GroupBox2->Visible=false; Poisk->GroupBox1->Visible=true;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N23Click(TObject *Sender){// настройка параметров поиска nomer_poisk=4; 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->GroupBox2->Visible=true; Poisk->GroupBox3->Visible=false;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N22Click(TObject *Sender){// настройка параметров поиска nomer_poisk=3; 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->Label1->Caption="Неотработанные документы"; Poisk->GroupBox1->Caption="Неотработанные документы"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=false;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N21Click(TObject *Sender){// настройка параметров поиска nomer_poisk=2; 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->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=true;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::FormCreate(TObject *Sender){/* настройка соединения бвзы данных при открытии */ WideString NewConnection; WideString qqq;ADOConnection1->Close(); // указываем файл .udl для ADOConnection1ADOConnection1->ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" + GetCurrentDir()+ "\\baza.mdb;"; ADOConnection1->Open();mainclientsform->ADOTable1->Active=true;mainclientsform->ADOTable2->Active=true;mainclientsform->ADOTable3->Active=true;mainclientsform->ADOTable4->Active=true;mainclientsform->ADOTable5->Active=true;mainclientsform->ADOTable6->Active=true;mainclientsform->ADOTable7->Active=true;mainclientsform->ADOTable8->Active=true;}//---------------------------------------------------------------------------Модуль add.cpp//--------------------------------------------------------------------------- // подключение модулей и задания пространства имен#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;String Ucast, Obesp, Razmesh ;int Mesto, Kodzaka;String Technika, Organiz, Content, Target, Firma;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; Dolg = Edit5->Text; Tel = Edit6->Text; Razmesh = Edit7->Text; mainclientsform->ADOTable8->Active=true; mainclientsform->ADOTable8->Insert(); mainclientsform->ADOTable8->FieldByName("размещение")->AsString= Razmesh; mainclientsform->ADOTable8->FieldByName("название_отдела")->AsString = Dep; mainclientsform->ADOTable8->Post(); int kod_otdel; kod_otdel= mainclientsform->ADOTable8->FieldByName("Код_отдела")->AsInteger; // добавление данных исполнитель mainclientsform->ADOTable6->Active=true; mainclientsform->ADOTable6->Insert(); mainclientsform->ADOTable6->FieldByName("Фамилия")->AsString = Fam; mainclientsform->ADOTable6->FieldByName("Имя")->AsString = Name1; mainclientsform->ADOTable6->FieldByName("Отчество")->AsString = Sec_Name; mainclientsform->ADOTable6->FieldByName("Должность")->AsString= Dolg; mainclientsform->ADOTable6->FieldByName("Телефон")->AsString = Tel; mainclientsform->ADOTable6->FieldByName("Код_отдела")->AsInteger= kod_otdel; mainclientsform->ADOTable6->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button2Click(TObject *Sender){ // добавление данных корреспондент Naimen = Edit8->Text; String fio,adresk,telefonk; int kodkor; fio = (Edit9->Text); adresk =(Edit10->Text); telefonk=(Edit11->Text); mainclientsform->ADOTable4->Active=true; mainclientsform->ADOTable4->Insert(); mainclientsform->ADOTable4->FieldByName("Наименование")->AsString = Naimen; mainclientsform->ADOTable4->FieldByName("ФИО")->AsString = fio; mainclientsform->ADOTable4->FieldByName("Адрес_отправителя")->AsString = adresk; mainclientsform->ADOTable4->FieldByName("Телефон_отправителя")->AsString = adresk; mainclientsform->ADOTable4->Post(); kodkor= mainclientsform->ADOTable4->FieldByName("Код_корреспондента")->AsInteger; String vidd; // добавление данных источник Naimen = Edit12->Text; vidd = Edit13->Text; mainclientsform->ADOTable3->Active=true; mainclientsform->ADOTable3->Insert(); mainclientsform->ADOTable3->FieldByName("наименование")->AsString = Naimen; mainclientsform->ADOTable3->FieldByName("вид_доставки")->AsString = vidd; mainclientsform->ADOTable3->FieldByName("код_корреспондента")->AsInteger =kodkor; mainclientsform->ADOTable3->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button3Click(TObject *Sender){int kodr,kodd; // добавление данных резолюцияContent = Edit14->Text;Date1=StrToDate(Edit15->Text);kodr=(Edit16->Text).ToInt(); mainclientsform->ADOTable7->Active=true; mainclientsform->ADOTable7->Insert(); mainclientsform->ADOTable7->FieldByName("текст_резолюции")->AsString = Content; mainclientsform->ADOTable7->FieldByName("дата_резолюции")->AsDateTime=Date1; mainclientsform->ADOTable7->FieldByName("код_руководителя")->AsInteger =kodr; mainclientsform->ADOTable7->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button4Click(TObject *Sender){ String status,typ; Date1=StrToDate(Edit25->Text); status=Edit26->Text; typ=Edit24->Text; // добавление данных типы документов mainclientsform->ADOTable2->Active=true; mainclientsform->ADOTable2->Insert(); mainclientsform->ADOTable2->FieldByName("тип_документа")->AsString = typ; mainclientsform->ADOTable2->Post(); // добавление данных статуч mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Insert(); mainclientsform->ADOTable5->FieldByName("статус_документа")->AsString = status; mainclientsform->ADOTable5->FieldByName("дата_изменения_статуса")->AsDateTime=Date1; mainclientsform->ADOTable5->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button5Click(TObject *Sender){int kodv,kodi,kods, kodr;// добавление документаString svyaz,regn, ishn, vhn; kodv=(Edit33->Text).ToInt(); svyaz=Edit35->Text; kodi=(Edit34->Text).ToInt(); Content =(Edit36->Text); kods=(Edit31->Text).ToInt(); kodv=(Edit37->Text).ToInt(); kodr=(Edit17->Text).ToInt(); regn=Edit32->Text; Date1=StrToDate(Edit29->Text); ishn=Edit32->Text; Date2=StrToDate(Edit30->Text); vhn=Edit18->Text; Date3=StrToDate(Edit19->Text); Date4=StrToDate(Edit20->Text); Date5=StrToDate(Edit21->Text); Date6=StrToDate(Edit22->Text); Date7=StrToDate(Edit23->Text); Date8=StrToDate(Edit27->Text); mainclientsform->ADOTable1->Active=true; mainclientsform->ADOTable1->Insert(); mainclientsform->ADOTable1->FieldByName("код_вида")->AsInteger =kodv; mainclientsform->ADOTable1->FieldByName("связка")->AsString = svyaz; mainclientsform->ADOTable1->FieldByName("код_источника")->AsInteger =kodi; mainclientsform->ADOTable1->FieldByName("содержание")->AsString = Content; mainclientsform->ADOTable1->FieldByName("код_статуса")->AsInteger =kods; mainclientsform->ADOTable1->FieldByName("код_исполнителя")->AsInteger =kodv; mainclientsform->ADOTable1->FieldByName("регистрационный_номер")->AsString = regn; mainclientsform->ADOTable1->FieldByName("код_резолюции")->AsInteger =kodr; mainclientsform->ADOTable1->FieldByName("дата_регистрации")->AsDateTime=Date1; mainclientsform->ADOTable1->FieldByName("исходящий_номер")->AsString = ishn; mainclientsform->ADOTable1->FieldByName("дата_создания")->AsDateTime=Date2; mainclientsform->ADOTable1->FieldByName("входящий_номер")->AsString = vhn; mainclientsform->ADOTable1->FieldByName("дата_получения")->AsDateTime=Date3; mainclientsform->ADOTable1->FieldByName("плановая_дата")->AsDateTime=Date4; mainclientsform->ADOTable1->FieldByName("срок_выполнения")->AsDateTime=Date5; mainclientsform->ADOTable1->FieldByName("промежуточная_дата_исполнения")->AsDateTime=Date6; mainclientsform->ADOTable1->FieldByName("фактическая_дата_исполнения")->AsDateTime=Date7; mainclientsform->ADOTable1->FieldByName("дата_отправки")->AsDateTime=Date8; mainclientsform->ADOTable1->Post();}//---------------------------------------------------------------------------Модуль parapoisk.cpp//--------------------------------------------------------------------------- // подключение модулей и задания пространства имен#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=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; 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 ==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 Документ where Документ.дата_регистрации=: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 Статус INNER JOIN Документ ON Статус.код_статуса = Документ.код_статуса WHERE (((Статус.статус_документа)<>'исполнен'));" ; 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 Исполнитель.фамилия Like :P1" ; if (stroka_SQL!="") { mainclientsform->ADOQuery2->SQL->Add(stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL(); } } }//---------------------------------------------------------------------------