Автоматизация документооборота в ООО

В качестве средства для разработки автоматизированного рабочего мест выбрана среда быстрого проектирования Borland Devepment Studio 2006, а в качестве средства разработки базы данных MicrosoftSQL Server 2008.Основное достоинство Borland Devepment Studio 2006 (Delphi 2006) состоит в предоставлении разработчику большого количества визуальных компонентов для разработки интерфейса. Для выбора инструментального средства разработки использовался методом вариантных обоснований.Динамический процесс проектирования системы происходил в несколько стадий. На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому.На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.Разработанная база данных для функционирования автоматизированной системы документооборота содержит 8 взаимосвязанных таблиц, которые находятся в третьей нормальной форме - «Документ», «Статус», «Корреспондент», «Исполнитель», «Отдел», «Вид документа», «Источник», «Резолюция».В качестве выходной информации для рассматриваемой системы рассматриваются результаты информационного поиска, формируемые в информационной системе к которым могут быть отнесены- результаты поиска документов по дате регистрации;- результаты поиска документов по регистрационному номеру;- результаты поиска данных исполнителя по фамилии;- результаты поиска необработанных документов.Указанные данные формируются динамически посредством выполнения запросов к разработанной базе данных. Отчеты системы создаются в среде Microsoft Excel.Математическое обеспечение системы представлено в виде разработанного алгоритмического обеспечения, среди основных разработанных алгоритмов необходимо выделить:- алгоритм добавления нового документа;- обобщенный алгоритма функционирования системы- обобщенного алгоритм информационного поискаРазработанное программное обеспечение содержит 3 основных программных модуля, среди которых целесообразно выделить Модуль работы с документами, модуль получения результирующей информации, Модуль получения справочной информации. Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой. Процесс разработки программного обеспечения завершился проведением всестороннего тестирования разработанного программного обеспечения.Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о документах и исполнителях, а так же анализировать текущее состояние документов. Отмечено так же повышение эффективности учета движения документов в организации. При этом в практику работы персонала входят новые информационные технологии, такие как совместный авторизованный доступ к справочной информации о документах, автоматизация рутинных операций, доступ к информационно-справочным ресурсам, автоматическое заполнение документов, исключение недостатков бумажных носителей, контроль качества, стандартизация учета.Таким образом, в работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы. Считаю, что созданное в дипломной работе автоматизированное рабочее место сотрудника отдела кадров полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.ЛИТЕРАТУРАAccess 2010 для чайников: Лори Ульрих Фуллер, Кен Кук — Санкт-Петербург, Вильямс, 2011 г.- 384 с.Microsoft Access 2003. Русская версия (+ CD-ROM): — Москва, Эком, 2008 г.- 432 с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.Глушаков С. В., Сурядный А. С., Шумилов М. И. Microsoft Access 2007. Лучший самоучитель:— Москва, АСТ, АСТ Москва, 2008 г.- 448 с.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.Голышева А. В., Клеандрова И. А., Прокди Р. Г. Access 2007 без воды. Все, что нужно для уверенной работы:— Москва, Наука и техника, 2008 г.- 192 с.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.Дайан А. и др. Маркетинг. М., Экономика, 1993. Диго С.М., «Базы Данных», Москва, «Финансы и статистика», 2005г.Домарев В.В., Безопасность информационных технологий. Системный подход. – К.: ООО ТИД Диа Софт, 2004. –992 с.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.Жукова Е.В. Классификация организационных форм ритейла в сервисной экономике [Текст] / Е.В. Жукова, С.А. Калашников // Вестник Самарского государственного экономического университета. – 2009. – № 3 (53). – С. 32-36. – 0,65/0,4 печ. л.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.Зайдуллин С.С., Моисеев В.С. Элементы теории принятия решений. Учебное пособие. – Казань. Издательство КГТУ. 2002 г, 114 с.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111с.Кошелев В. Е. Access 2003. Практическое руководство:— Санкт-Петербург, Бином-Пресс, 2008 г.- 464 с.Кошелев В. Е. Access 2007. Эффективное использование— Санкт-Петербург, Бином-Пресс, 2009 г.- 590 с.Кронан Джон, Сандберг Бобби Microsoft Access 2007:, — Москва, НТ Пресс, 2009 г.- 384 с.Мак-Дональд Мэтью Access 2007. Недостающее руководство:— Санкт-Петербург, Русская Редакция, БХВ-Петербург, 2007 г.- 784 с.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.Методы последовательной автоматизации в дискретных сетевых задачах оптимального распределения ресурсов. – М.: Наука, 1983 г ,208с.Саати Т., Керис К. Аналитическое планирование и организация систем. – М.: Радио и связь, 1991. 368с.Сеннов А. Access 2010: — Москва, Питер, 2010 г.- 288 с.Сергеев А. Access 2007. Новые возможности:— Москва, Питер, 2008 г.- 176 с.Смирнова О. В. Access 2007 на практике:— Москва, Феникс, 2009 г.- 160 с.Степанов В. Microsoft Access 2003 для начинающих:— Санкт-Петербург, Аквариум-Принт, Дом печати - Вятка, 2006 г.- 128 с.Тимошок Т. В. Microsoft Access 2002. Самоучитель:— Москва, Диалектика, 2004 г.- 352 с.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COMФатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.Хабракен Джо Microsoft Access 2000— Санкт-Петербург, АСТ, Астрель, 2004 г.- 350 с.Хэлволсон Майкл., Майкл Янг, Эффективная работа с Microsoft Office. - C.Петербург: Питер, 2001Шумаков П.В., Фаронов В.В. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с/Электронная встроенная гипертекстовая справочная система Microsoft Access, файл MSACC20.HLP, 4.7 МбайтПРИЛОЖЕНИяПриложение А. Листинг разработанной программы.Модуль mainclients.pasunit MainClients;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils, parampoisk, ToolWin, ComCtrls, StdCtrls, jpeg, ExtCtrls, RzButton, Buttons, RzSpnEdt, RzPanel;type TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; N18: TMenuItem; ADOTable8: TADOTable; N23: TMenuItem; N24: TMenuItem; ToolBar1: TToolBar; RzRapidFireButton1: TRzRapidFireButton; RzRapidFireButton2: TRzRapidFireButton; RzRapidFireButton3: TRzRapidFireButton; RzRapidFireButton4: TRzRapidFireButton; RzRapidFireButton5: TRzRapidFireButton; DataSource2: TDataSource; N1: TMenuItem; h: TMenuItem; N11: TMenuItem; N12: TMenuItem; N16: TMenuItem; N17: TMenuItem; N19: TMenuItem; N25: TMenuItem; Image1: TImage; procedure N25Click(Sender: TObject); procedure hClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure N24Click(Sender: TObject); procedure N23Click(Sender: TObject); procedure RzRapidFireButton5Click(Sender: TObject); procedure RzRapidFireButton4Click(Sender: TObject); procedure RzRapidFireButton3Click(Sender: TObject); procedure RzRapidFireButton2Click(Sender: TObject); procedure RzRapidFireButton1Click(Sender: TObject); procedure N12Click(Sender: TObject); function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean; procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N3Click(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure N4Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N19Click(Sender: TObject); private { Private declarations } procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var MainClientsForm: TMainClientsForm; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; nomer_poisk:word; flag1,flag2:boolean;var dom_tel,mob_tel:string; adres,notes:string; stag:real; rogd:tdate; var education,vuz, fakultet,specialnost,kurs:string;data_vuz, data_kurs:tdate;lingvo,lingvo_k, comp, comp_k :string;idlingvo, idcomp, id_education,id_client,id_regim, id_areal, id_organization:integer;var oblast,profesiya:string;implementation{$R *.dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end; procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;procedure TMainClientsForm.N12Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Неотработанные документы'; nomer_poisk:=3; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false;end;procedure TMainClientsForm.N6Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Документы', mainclientsform.DataSource1);end;procedure TMainClientsForm.N7Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('вид документа', mainclientsform.DataSource1);end;procedure TMainClientsForm.N8Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Источники документа', mainclientsform.DataSource1);end;procedure TMainClientsForm.N9Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Корреспонденты', mainclientsform.DataSource1);end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);beginMainClientsForm.N15Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N10Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Статусы документа', mainclientsform.DataSource1);end;procedure TMainClientsForm.N20Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Исполнители документа', mainclientsform.DataSource1);end;procedure TMainClientsForm.N21Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Резолюция', mainclientsform.DataSource1);end;procedure TMainClientsForm.N23Click(Sender: TObject);begin mainclientsform.N3Click(Sender); mainflag:=true;flag1:=true;flag2:=false; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); 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();end;procedure TMainClientsForm.N24Click(Sender: TObject);begin mainclientsform.N3Click(Sender); mainflag:=true;flag1:=false;flag2:=true; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox6.Visible:=false; ProsmForm.GroupBox7.Visible:=true; ProsmForm.Height:=500; ProsmForm.Width:=800; mainclientsform.DataSource1.DataSet.Last();end;procedure TMainClientsForm.N25Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Все документы в системе'; nomer_poisk:=7; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.FormCreate(Sender: TObject); var NewConnection: Widestring;begin 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;end;procedure TMainClientsForm.hClick(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Резолюция '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox3.Visible:=true; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox6.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Новая резолюция'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N3Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Новый документ'); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox4.Visible:=false; ProsmForm.GroupBox5.Visible:=true; ProsmForm.GroupBox6.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Height:=400;end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField); var sql_str,rez:string; P11:Tparameter; rezdate:tdatetime; rezint:integer; rezfloat:real; Ayear, amonth,aday,ahour,aminute,asecond,amillisecond:word; svyaz,regn, ishn, vhn:string; kodi,kods, kodr,kodist: integer ;kodv,kod_kor,kodd:integer;stroka_SQL:string;p1:Tparameter;beginif mainflag thenbegin if flag1=true then begin ProsmForm.Edit42.Text:=Inttostr( mainclientsform.ADOTable1.FieldByName('кодвида').AsInteger);ProsmForm.Edit44.Text:=mainclientsform.DataSource1.DataSet.FieldByName('связка').AsString; ProsmForm.Edit43.Text:=IntToStr(mainclientsform.DataSource1.DataSet.FieldByName('кодисточника').AsInteger); ProsmForm.Edit45.Text:=mainclientsform.DataSource1.DataSet.FieldByName('содержание').AsString; ProsmForm.Edit40.Text:=IntToStr(mainclientsform.DataSource1.DataSet.FieldByName('кодстатуса').AsInteger); ProsmForm.Edit46.Text:=Inttostr(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); kodi:=mainclientsform.DataSource1.DataSet.FieldByName('кодисполнителя').AsInteger; kods:=mainclientsform.DataSource1.DataSet.FieldByName('кодстатуса').AsInteger; kodist:=mainclientsform.DataSource1.DataSet.FieldByName('кодисточника').AsInteger;kodr:=mainclientsform.DataSource1.DataSet.FieldByName('коддокумента').AsInteger; mainclientsform.ADOTable6.Active:=true; if mainclientsform.ADOTable6.Locate('кодисполнителя',kodi , [loCaseInsensitive,loPartialKey]) then begin 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; end; mainclientsform.ADOTable5.Active:=true; if mainclientsform.ADOTable5.Locate('кодстатуса',kods , [loCaseInsensitive,loPartialKey]) then beginProsmForm.Edit60.Text:=mainclientsform.ADOTable5.FieldByName('статусдокумента').AsString; ProsmForm.Edit61.Text:=DateToStr(mainclientsform.ADOTable5.FieldByName('датаизменениястатуса').AsDateTime) end; mainclientsform.ADOTable7.Active:=true; if mainclientsform.ADOTable7.Locate('коддокумента',kodr , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit62.Text:=mainclientsform.ADOTable7.FieldByName('текстрезолюции').AsString; ProsmForm.Edit63.Text:=DateToStr(mainclientsform.ADOTable7.FieldByName('датарезолюции').AsDateTime); end; end; if flag2=true then begin kodi:=mainclientsform.DataSource1.DataSet.FieldByName('кодисполнителя').AsInteger; kods:=mainclientsform.DataSource1.DataSet.FieldByName('кодстатуса').AsInteger; kodist:= mainclientsform.DataSource1.DataSet.FieldByName('кодисточника').AsInteger; kodd:=mainclientsform.DataSource1.DataSet.FieldByName('коддокумента').AsInteger; ProsmForm.Edit71.Text:=mainclientsform.DataSource1.DataSet.FieldByName('связка').AsString; kodv:=mainclientsform.ADOTable1.FieldByName('кодвида').AsInteger; mainclientsform.ADOTable6.Active:=true; if mainclientsform.ADOTable6.Locate('кодисполнителя',kodi , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit64.Text:=mainclientsform.ADOTable6.FieldByName('Фамилия').AsString; ProsmForm.Edit65.Text:=mainclientsform.ADOTable6.FieldByName('Имя').AsString; ProsmForm.Edit66.Text:=mainclientsform.ADOTable6.FieldByName('Отчество').AsString; ProsmForm.Edit67.Text:=mainclientsform.ADOTable6.FieldByName('телефон').AsString; end; mainclientsform.ADOTable5.Active:=true; if mainclientsform.ADOTable5.Locate('кодстатуса',kods , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit68.Text:=mainclientsform.ADOTable5.FieldByName('статусдокумента').AsString; ProsmForm.Edit69.Text:=DateToStr(mainclientsform.ADOTable5.FieldByName('датаизменениястатуса').AsDateTime); end; mainclientsform.ADOTable2.Active:=true; if mainclientsform.ADOTable2.Locate('кодвида',kodv , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit70.Text:=mainclientsform.ADOTable2.FieldByName('типдокумента').AsString; end; mainclientsform.ADOTable3.Active:=true; if mainclientsform.ADOTable3.Locate('кодисточника',kodist , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit72.Text:=mainclientsform.ADOTable3.FieldByName('наименование').AsString; ProsmForm.Edit73.Text:=mainclientsform.ADOTable3.FieldByName('виддоставки').AsString; kod_kor:=mainclientsform.ADOTable3.FieldByName('кодкорреспондента').AsInteger; end; mainclientsform.ADOTable4.Active:=true; if mainclientsform.ADOTable4.Locate('кодкорреспондента', kod_kor , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit74.Text:=mainclientsform.ADOTable4.FieldByName('Наименование').AsString; ProsmForm.Edit75.Text:=mainclientsform.ADOTable4.FieldByName('Адресотправителя').AsString; ProsmForm.Edit77.Text:=mainclientsform.ADOTable4.FieldByName('ФИО').AsString; ProsmForm.Edit76.Text:=mainclientsform.ADOTable4.FieldByName('Телефонотправителя').AsString; ProsmForm.Edit85.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('датарегистрации').AsDateTime); ProsmForm.Edit83.Text:=mainclientsform.DataSource1.DataSet.FieldByName('исходящийномер').AsString; ProsmForm.Edit86.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('датасоздания').AsDateTime); ProsmForm.Edit81.Text:=mainclientsform.DataSource1.DataSet.FieldByName('входящийномер').AsString; ProsmForm.Edit82.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('датаполучения').AsDateTime); ProsmForm.Edit87.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('плановаядата').AsDateTime); ProsmForm.Edit80.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('сроквыполнения').AsDateTime); ProsmForm.Edit79.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('промежуточнаядатаисполнения').AsDateTime); ProsmForm.Edit88.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('фактическаядатаисполнения').AsDateTime); ProsmForm.Edit78.Text:=DateToStr(mainclientsform.DataSource1.DataSet.FieldByName('датаотправки').AsDateTime); end; ProsmForm.Edit84.Text:=mainclientsform.DataSource1.DataSet.FieldByName('регистрационныйномер').AsString; mainclientsform.DataSource2.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear(); P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftinteger; P1.Value:=kodd;// P11.Size:=4;stroka_SQL:='SELECT резолюция.* FROM резолюция WHERE (резолюция.коддокумента=:P1) ;' ; MainClientsForm.ADOQuery1.SQL.Add(stroka_SQL); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; end; end;end;procedure TMainClientsForm.N4Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Исполнитель /отдел '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); 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.GroupBox7.Visible:=false; ProsmForm.Caption:='Новый исполнитель / отдел'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N14Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск Документа по номеру'; nomer_poisk:=1; Poisk.GroupBox1.Visible:=true; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Документы по дате'; nomer_poisk:=2; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=true; end;procedure TMainClientsForm.N16Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Поиск исполнителя'; nomer_poisk:=4; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=true; Poisk.GroupBox3.Visible:=false;end;procedure TMainClientsForm.N17Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Неотработанные документы на дату'; nomer_poisk:=5; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.N11Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Исполнитель /отдел '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox2.Visible:=false; ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox4.Visible:=true; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox6.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Новый исполнитель / отдел'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N19Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Отработанные документы на дату'; nomer_poisk:=6; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.N1Click(Sender: TObject); var Naimen, fio,adresk,telefonk,vidd :string; kodkor:integer;begin // добавление данных корреспондент Naimen:= ProsmForm.Edit8.Text; fio:= (ProsmForm.Edit9.Text); adresk:=(ProsmForm.Edit10.Text); telefonk:=(ProsmForm.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; // добавление данных источник Naimen:= ProsmForm.Edit12.Text; vidd:= ProsmForm.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();end;end.