Автоматизированная информационная система делопроизводства компании ООО "Пятерочка финанс"

ВВЕДЕНИЕ
1.ПРЕДПРОЕКТНОЕ ИССЛЕДОВАНИЕ ПРЕДМЕТНОЙ ОБЛАСТИ
1.1Общая характеристика организации ООО «Пятерочка Финанс»
1.2Постановка задачи проектирования
1.3Краткие сведение о средствах разработки
2. ПРОЕКТИРОВАНИЕ АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ ДОКУМЕНТООБОРОТА
2.1 Требования к разрабатываемой программе
2.2 Основные требования, предъявляемые к базе данных
2.3. Проектирование базы данных для реализации информационной системы
3. РЕАЛИЗАЦИЯ АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ ДОКУМЕНТООБОРОТА
3.1 Выбор архитектуры
3.2 Выбор среды реализации
3.3 Разработка пользовательского интерфейса
3.4 Руководство пользователя
4. БЕЗОПАСНОСТЬ И САНИТАРНО-ГИГИЕНИЧЕСКИЕ УСЛОВИЯ ТРУДА НА РАБОЧЕМ МЕСТЕ ПОЛЬЗОВАТЕЛЯ ПЭВМ
4.1 Анализ условий труда разработчика
4.2 Проектирование оптимального рабочего места разработчика
5.ОЦЕНКА ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
5.1.Выбор и описание разрабатываемого и альтернативного вариантов
5.2.Выбор ставки сложных процентов и расчет дисконтного множителя по годам вложения
5.3.Расчет вложений на этапе разработки и отладки основного варианта
5.4.Расчет вложений на этапе разработки и отладки альтернативного варианта
5.5.Расчет вложений по годам этапа эксплуатации
5.6.Итоговые показатели технико-экономической эффективности
ЗАКЛЮЧЕНИЕ
СПИСОК ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ А. Листинг программы

Таким образом, в работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы. Считаю, что созданная в дипломной работе автоматизированная система делопроизводства компании ООО «Пятерочка Финанс» полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.СПИСОК ЛИТЕРАТУРЫАрхангельский А.Я. 100 компонентов общего назначения библиотеки Buider c++. — М.: Бином, 1999. — 266 с.Архангельский А.Я. Buider c++. Справочное пособие. — М.: Бином, 2001. — 1024 с.Архангельский А.Я. Программирование в Buider c++. — М.: Бином, 2001. — 564 с.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Дайан А. и др. Маркетинг. М., Экономика, 1993. Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COMФатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COMПРИЛОЖЕНИЕ А. ЛИСТИНГ ПрограммыМодуль 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->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();} } }