Создание информационной системы автоматизации документооборота на предприятии. ПОД ЗАПРОС!! СРОЧНЫЙ ЗАКАЗ!!

Содержание
I АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1 Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности “КАК ЕСТЬ”
1.1.1 Характеристика предприятия и его деятельности
1.1.2 Организационная структура управления предприятием
1.1.1. Программная и техническая архитектура ИС предприятия
1.2.Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
1.2.1. Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов
1.2.2.Определение места проектируемой задачи в комплексе задач и ее описание
1.2.3.Обоснование необходимости использования вычислительной техники для решения задачи
1.2.4.Анализ системы обеспечения информационной безопасности и защиты
нформации
1.3.Анализ существующих разработок и выбор стратегии автоматизации «Как должно быть»
1.3.1.Анализ существующих разработок для автоматизации задачи
1.3.2.Выбор и обоснование стратегии автоматизации задачи
1.3.3.Выбор и обоснование способа приобретения ис для автоматизации задачи
1.4 Обоснование проектных решений
1.4.1 Обоснование проектных решений по информационному обеспечению
1.4.2 Обоснование проектных решений по программному обеспечению
1.4.3 Обоснование проектных решений по техническому обеспечению
2. ПРОЕКТНАЯ ЧАСТЬ
2.1 Разработка проекта автоматизации
2.1.1 Этапы жизненного цикла проекта автоматизации
2.1.2 Ожидаемые риски на этапах жизненного цикла и их описание
2.1.3 Организационно-правовые и программно-аппаратные средства обеспечения информационной безопасности и защиты информации
2.2 Информационное обеспечение задачи
2.2.1 Информационная модель и её описание
2.2.2 Характеристика нормативно-справочной, входной и оперативной информации
2.2.3 Характеристика результатной информации
2.3 Программное обеспечение задачи
2.3.1 Общие положения (дерево функций и сценарий диалога)
2.3.2 Характеристика базы данных
2.3.3 Структурная схема пакета
2.3.4 Описание программных модулей
2.4 Контрольный пример реализации проекта и его описание
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТа
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЯ Приложение А. Листинг разработанной программы.

Показатель П1 может быть оценен с применением нескольких альтернативных подходов. В данном случае автоматизируются ранее решавшиеся задачи при условии получения примерно одинаковых конечных результатов, поэтому значение П1 может быть взято равным затратам существующей системы обработки данных. Тогда формула (3.4) примет вид (3.5):
(3.5)
где Зб - приведенные к одному году затраты на обработку информации при существующем варианте организации системы обработки данных (СОД).
Среднегодовые затраты на обработку информации Зп определяются по формуле (3.6):
(3.6)
где Р - стоимость приобретения и освоения используемых средств автоматизации проектирования, руб.;
С - единовременные затраты на создание системы, не учитываемые в себестоимости машино-часа, руб.;
Тэкс - предполагаемый срок эксплуатации системы, лет;
Ф - среднегодовые затраты на функционирование системы, руб.;
А - единовременные затраты на модернизацию системы, руб.;
Тмод - среднее время между смежными периодами модернизации, лет;
Z - среднегодовая сумма потерь вследствие ненадежности системы, руб.
Существует несколько методик оценки экономической эффективности. Так, разработаны алгоритмы расчета эффективности для ранее решавшихся и принципиально новых задач, есть методика, оценивающая эффективность путем вычисления прироста прибыли за счет увеличения объема производства, и другие.
Экономическая эффективность проекта (Э) складывается из двух составляющих:
- Косвенного эффекта, который, например, характеризуется увеличением прибыли, привлечением большего числа клиентов, снижением уровня брака в производстве, уменьшение количества рекламаций, получаемых от клиентов, снижение затрат на сырье и материалы, уменьшение сумм штрафов, неустоек и т. д.
- Прямого эффекта, который характеризуется снижением трудовых, стоимостных показателей.
К трудовым показателям относятся следующие:
1) абсолютное снижение трудовых затрат ((Т) в часах за год:
(Т = Т0 - Т1, (3.7)
где Т0 - трудовые затраты в часах за год на обработку информации по базовому варианту;
Т1 - трудовые затраты в часах за год на обработку информации по предлагаемому варианту;
2) коэффициент относительного снижения трудовых затрат (КТ):
КТ =(Т / T0 * 100% ; (3.8)
индекс снижения трудовых затрат или повышение производительности труда (YT):
YT = T0 / T1. (3.9)
К стоимостным показателям относятся: абсолютное снижение стоимостных затрат ((C) в рублях за год, коэффициент относительного снижения стоимостных затрат (КC) индекс снижения стоимостных затрат (YC), рассчитываемые аналогично.
Помимо рассмотренных показателей целесообразно также рассчитать срок окупаемости затрат на внедрение проекта машинной обработки информации (Ток), рассчитываемые в годах, долях года или в месяцах года:
Ток = КП /(C , . (3.10)
где КП - затраты на создание проекта (проектирование и внедрение).
Э тап составления первичных документов и/или ввода исходных данных будет занимать примерно одинаковое количество времени при различных вариантах организации труда.
Накладные расходы рассчитываются в размере 65% от заработной платы оператора. Часовая амортизация ЭВМ (Ам ) рассчитывается по формуле (3.11). Сумма месячной амортизации составляет 200 руб. В среднем в месяце 21 рабочий день. В день ЭВМ работает в течение 10 часов.
. (3.11)
3.2 Расчёт показателей экономической эффективности проекта
При оценке показателей эффективности сравниваются затраты на обработку информации при существующем (базовом) варианте, то есть расчете зарплаты вручную, и проектируемом, то есть автоматизированном варианте.
Для удобства расчет трудовых и стоимостных затрат на обработку информации при базовом и проектируемом вариантах осуществляется с помощью таблиц 3.1 и 3.2 соответственно.
Таблица 3.1
Характеристика затрат на обработку информации по базовому варианту
№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выра-ботки / производительность устройств ЭВМ (опер/в час.) Тру-
доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 1 2 3 4 5 6 7 8 9 10 11 12 1 Поступление документов канцелярские принадлежни доку-менто-строка 408 800 0,510 25 0 8,29 12,75 21,04 2 заполнение бланка канцелярские принадлежн. символ 31644 4000 7911 25 0,12 128,55 197,77 327,27
Продолжение таблицы 3.1
№ п/п Наименование операций технологического процесса решения комплекса задач Оборудование Ед. Изм. Объем работы в год Норма выра-ботки / производительность устройств ЭВМ (опер/в час.) Тру-
доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 3 Связь с канцелярией телефон действие 8332 320 26,038 25 0 423,11 650,95 1074,06 4 Занесение данных в результа-тивные формы канцеляр-ские принадлежности символ 128030 3000 42,677 25 0,12 693 1066,92 1765,54 Итого: Х х х 77,136 х х х 1928,39 3187,91
Таблица 3.2
Характеристика затрат на обработку информации по проектируемому варианту
№ п/п Наименование операций технологического процесса решения комплекса задач Оборудо-вание Ед. Изм. Объем работы в год Норма выра-ботки / произв.
устр. ЭВМ (опер/в час.) Тру-
доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ 1 2 3 4 5 6 7 8 9 10 11 12 1 заполнение электронной формы документа персон. компьютер доку-менто-строка 408 800 0,510 12,75 х 0 8,29 21,04 2 создание нового документа /приказа персон. компьютер символ 31644 4000 7911 х 40 х х 316,44 3 Создание и получение персон. компьютер действие 8332 106 0,008 х 40 х х 3,2
Продолжение таблицы 3.2
№ п/п Наименование операций технологического процесса решения комплекса задач Оборудо-вание Ед. Изм. Объем работы в год Норма выра-ботки / произв.
устр. ЭВМ (опер/в час.) Тру-
доем-кость Средне-часовая зарплата специалиста (руб.) Часовая норма амортизации (руб. за час) / ст. 1 маш.часа (руб.) Часовая стоимость накладных расходов (руб.) Стоимостные затраты для ручных операций Стои-мостные затраты для операций, вып. на ЭВМ отчета о статусе документа 4 Создание отчета в случае наличия документа персон. компьютер символ 128030 5·106 0,026 х 40 х х 1,04 5 печать результатов лазерный принтер страница 340 130 2,267 х 40 х х 90,68 Итого: Х х х 10,732 12,75 х х 8.29 523,08 Для удобства анализа, результаты расчетов приведены в таблице 3.3.
Таблица 3.3
Показатели эффективности внедрения нового проекта
Затраты абсолютное изменение затрат Коэффициент изменения затрат индекс изменения затрат базовый вариант проектируемый вариант Трудоемкость Т0, (час) Т1, (час) IT 77.136 10.722 66.414 0,86 7,194 Стоимость С0(руб) С1(руб) 523.08 3187.91 2664,83 0,836 6,094 единовременные капитальные затраты определяются по формуле
(3.12)
где - затраты на освоение системы;
- затраты на разработку системы;
-затраты на загрузку системы;
- затраты на приобретение необходимого обеспечения;
- затраты на модернизацию системы;
p рассчитывается по формуле (3.13):
(3.13)
где - затраты машинного времени на разработку (в часах)
- цена машинного часа
- коэффициент мультипрограммирования
- месячная зарплата одного разработчика
- количество разработчиков
- время разработки (в месяцах)
- коэффициент накладных расходов.
Значения остальных слагаемых, кроме затрат на приобретение, рассчитываются аналогично. Затраты на приобретение определяются покупной ценой необходимых средств.
Для данной системы значения требуемых переменных таковы:
Kнр =0.65
Кмульт =1
r0=1 человек
Змес=3000 руб.
Цмч=0.95 руб.
Т j осв = 60 часов
Т j разр =50 часов
Т j загр =0.5 часа
Т j мод =35 часов в течение предполагаемого срока эксплуатации, равного 4 годам. Модернизацию предполагается проводить раз в полгода (то есть всего 7 раз) и затрачивать на это до 5 часов машинного времени за один раз.
Время освоения составляет 1 месяц, примем для данной задачи значение tj осв , равное 0.1 месяца.
tj разр =1 месяц
tj загр =0.006 месяца
tj мод =0.333 месяца, то есть 7 дней за весь период эксплуатации.
К j приобр складывается из стоимости приобретаемого технического обеспечения (1/21 от стоимости оборудования, так как примерно такую часть от общего объема работ по времени занимает данный комплекс задач, а для принтера - 1/100), программного обеспечения.
Стоимость системного блока и монитора, исходя из данных таблицы и курса доллара 28 руб., получается равной 12500, принтера 3500
Стоимость программного обеспечения 8750 руб. Из них на данную задачу приходится примерно 500 рублей.
К j приобр =12500/21+500+3500/100=1098.74 руб.
К j осв =60*0.95*1+800*1*0.1*(1+0.65)=57+132=189 руб.
К j разр =50*0.95*1+800*1*1*(1+0.65)=47.50+1320=1367.50 руб.
К j загр =0.5*0.95*1+800*1*0.006*(1+0.65)=0.48+7.92=8.4 руб.
К j мод =35*0.95*1+800*1*0.333*(1+0.65)=8.05+439.56=447.61 руб.
К j =3111.25 руб.
К 0 =2000 руб.
∆ К j =К j -К0=1111.25 руб.
Прямой годовой экономический эффект равен:
Э1=(1693.65+0.15*2000)- ( 320.52+ 0.15*3111.25)=2489.14 руб.
Косвенный годовой экономический эффект равен 5000 рублей в год. Таким образом, получаем годовой экономический эффект:
Э=2489.14+5000=7489.14 руб.
Расчетный коэффициент эффективности определяется по формуле (3.14):

(3.14)
Ер=2664.83/1111.25=2.398
Срок окупаемости проекта Ток=1/Ер=1/ 2.398=0.417 года (5 месяцев).
Диаграммы изменения трудовых затрат представлены на рисунках 3.1 и 3.2:
Рис. 3.1 – Диаграмма абсолютного изменения трудовых затрат
Рис. 3.2 – Диаграмма относительного изменения трудовых затрат
Диаграммы изменения стоимостных затрат представлены на рисунках 3.3 и 3.4.
Рис. 3.3 – Диаграмма изменения стоимостных затрат
Рис. 3.4 – Круговая диаграмма абсолютного изменения стоимостных затрат
Расчеты показывают, что расчетный коэффициент эффективности капитальных вложений больше нормативного, поэтому разработку программной системы следует считать целесообразной. Срок ее окупаемости составляет примерно 5 месяцев.
Заключение
В дипломной работе была спроектирована и разработана информационная система для автоматизации документооборота компании МУП «ТРК Одинцово».
Динамический процесс проектирования системы происходил в несколько стадий.
На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому.
На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.
Создание и внедрение информационная система для автоматизации документооборота компании МУП «ТРК Одинцово» позволит сократить время работы руководителя службы и специалиста с документами, снизить временные затраты на поиск документов в среднем на 30-35% за счет автоматического анализа информации, имеющейся в базе данных.
Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о документах и их состоянии.
Отмечено так же повышение эффективности учета документов. Одним из самых главных качественных результатов является то, что у специалиста отдела кадров, несущего наибольшую ответственность за своевременность отработки документа, имеется полное представление о документах, исполнителях, состоянии документов, поскольку он сам оперативно организует и контролирует учет и движение документов. При этом в практику работы персонала входят новые информационные технологии, такие как совместный авторизованный доступ к справочной информации о документах, автоматизация рутинных операций, доступ к информационно-справочным ресурсам, автоматическое заполнение документов, исключение недостатков бумажных носителей, контроль качества, стандартизация учета.
Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в руководстве пользователя.
Для обеспечения надежной защиты информации предусмотрена парольная система разграничения доступа к данным и функциям, авторизация вводимой и корректируемой информации, посредством подстановки и анализа данных.
Считаю, что созданная в дипломной работе информационная система для автоматизации документооборота компании МУП «ТРК Одинцово» полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.
Разработка проводилась в среде Borland Builder C++ 6.0 с разработанной базой данных документов, исполнителей, корреспондентов реализованной при помощи средств Microsoft Access 2007.
В работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы, оценена экономическая целесообразность внедрения системы.
Список использованной литературы
Архангельский А.Я. 100 компонентов общего назначения библиотеки Buider c++. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Buider c++. Справочное пособие. — М.: Бином, 2001. — 1024 с.
Архангельский А.Я. Программирование в Buider c++. — М.: Бином, 2001. — 564 с.
Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
Гофман В.Э. Хомоненко А.Д. 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
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 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 для ADOConnection1
ADOConnection1->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 &Act