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

Таким образом, в работе проведено исследование предметной области, разработана структура базы данных, спроектированы 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 #include #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 #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 #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 ();} } }