Эмуляция системы электронного документооборота
Содержание
Введение
1. Постановка задачи
2. Описание и анализ предметной области
2.1 Описание предметной области
2.2 Анализ существующего информационного обеспечения
2.3 Формирование и анализ требований
3. Построение концептуальной модели
4. Проектирование логической структуры БД
5. Программная реализация
5.1 Выбор программного средства
5.2 Организация редактирования данных
5.3 Разграничение прав пользователей
6. Тестирование и отладка программного средства
Заключение
Список литературы
Приложения
Введение
Документ является основным способом представления информации
на любом современном предприятии. Неоспорима важность сохранности и умелого
использования информационных ресурсов предприятия для успешного ведения
бизнеса. Способность принять верное решение и вовремя отреагировать на
ситуацию, гибко реагировать на все изменения рынка зависит не только от таланта
и опыта руководителей. Эффективность управления предприятием зависит и от того,
насколько разумно в организовано управление документооборотом. Фактически,
малоэффективное использование накопленной информации (или, еще хуже, ее утрата)
может привести к потере всего бизнеса. Ведь вовремя не полученная информация
или документ это, прежде всего, потерянные деньги, время и упущенные
возможности. Вследствие этого, на любом предприятии, где ведется активная
работа с различными документами, рано или поздно встает проблема
систематизации, обработки и безопасного хранения значительных объемов
информации. Важную роль в оптимизации деятельности предприятия любого размера и
профиля деятельности играют современные системы электронного документооборота.
Значительную часть своего рабочего времени специалисты
предприятий тратят как на поиск необходимой им информации, так и на создание и
отправку документов. Существуют оценки, что секретарь-референт тратит до 75%
своего времени на работу с документами, у руководителей на работу с документами
уходит до 45% рабочего времени, а у рядовых сотрудников предприятия до 30%
времени.
Следует отметить, что потоки корпоративной бизнес-информации
чрезвычайно разнообразны по источникам и формам ее представления.
Однако их можно условно классифицировать по форме хранения:
на электронные документы и бумажные. Существует мнение, что в настоящее время
только около 30% всей корпоративной информации хранится в электронном виде (как
в структурированном в базах данных, так и в неструктурированном). Вся остальная
информация (около 70%) хранится на бумаге, создавая немалые трудности при ее
поиске. Тем не менее, это соотношение постепенно меняется в пользу электронной
формы хранения (в частности, через развитие электронных архивов). Вряд ли,
конечно, когда-нибудь все документы станут только электронными, однако,
несомненно, что электронная форма хранения документов будет преобладать. При
этом под термином электронный документ в рассматриваемом контексте обычно
понимается текстовый файл, документ MS Word, электронная таблица MS Excel,
графический файл, несколько взаимосвязанных файлов разных форматов (так
называемый составной документ) и др.
1. Постановка
задачи
Требуется спроектировать в выбранной интегрированной среде
разработки информационную систему для работы с базой данных по конкретной
предметной области. Разрабатываемое программное средство должно удовлетворять
следующим требованиям:
. Удобный, понятный, компактный интерфейс.
2. Наличие форм для ввода, вывода данных.
. Возможность инсталляции приложения.
2. Описание и
анализ предметной области
2.1 Описание
предметной области
В настоящее время существует немало подходов к решению
проблем управления электронным документооборотом. Кроме так называемых
универсальных систем электронного документооборота (EDMS) решить задачу
управления документами можно при помощи следующих основных видов программных
средств:
ü средств групповой;
ü систем управления особыми видами
документов (в частности, PDM-систем);
ü специальных модулей управления
документооборотом в составе корпоративных информационных систем для
предприятий.
Важным свойством универсальных систем электронного
документооборота является то, что они предоставляют возможность решения
большого числа задач управления документами. Тем не менее, следует отметить,
что полностью все задачи управления документооборотом они все равно не смогут
решить (из-за их динамически меняющегося и, практически, неисчерпаемого
многообразия). Кроме того, внедрение специализированного ПО может оказаться
дешевле и эффективней.
.2 Анализ
существующего информационного обеспечения
Рассмотрим несколько систем электронного документооборота,
уже существующих и пользующихся популярностью.
С: Документооборот 8
Интерфейс программы представлен на рис. 1.
Программа 1С: Документооборот 8 позволяет реализовывать:
· работу с системой через веб-браузер;
· упорядоченную работу сотрудников с
документами, исключить возможность утери версий или пересечения фрагментов при
одновременной работе;
· сократить время поиска нужной информации и
суммарное время коллективной обработки документов;
· повысить качество готового материала
(проектов, документации и пр.) за счет решения большого количества спорных
вопросов и упорядочивания работы пользователей.
Рис.1 Интерфейс 1С: Документооборот 8
Интерфейс программы представлен на рис.2.
Основные функции, входящие в базовую поставку
LotusNotes/DominoStandard версии 8.5:
· среда исполнения приложений автоматизации
групповой деятельности
· криптозащита (шифрование и электронная
подпись)
· персональный и групповой календари,
планировщик задач
электронный документооборот программное база
· набор офисных приложений IBM LotusSymphony
(текстовый редактор, электронные таблицы, подготовка презентаций)
· клиент среды обмена мгновенными
сообщениями (Instantmessenger) LotusSametime (сервер Sametime является
самостоятельным продуктом)
· веб-браузер
· веб-сервер
· сервер каталогов LDAP
· сервер приложений
· службы интеграции данных DECS (Domino
Enterprise connection services)
Рис. 2. Интерфейс программы IBMLotusNotes
МОТИВ
Интерфейс программы представлен на рис.3.
Российские специалисты, основываясь на собственном опыте
управления компанией и внедрения корпоративного ПО, разработали комплексный
продукт для построения единого информационного пространства предприятия под
названием МОТИВ, который призван помочь руководителям контролировать
бизнес-процессы компании, а так же максимально эффективно выстроить взаимодействие
сотрудников в рамках работы над проектами и задачами.
Некоторые возможности, которые дает МОТИВ
§ создание иерархической структуры взаимодействия
руководящего персонала с подчиненными
§ коллективная работа над проектами и документами
§ получение регулярных отчетов о ходе выполнения
задач по проектам
§ возможность коллективной работы над документами
§ улучшение контроля над исполнением документов
§ повышение безопасности документов
§ повышение сохранности документов
Рис.3. Интерфейс программы МОТИВ
Система DocsVision - платформа для автоматизации управления
документами и бизнес-процессами предприятий российской разработки, активно
внедряемая на предприятиях бывшего СССР с 2005 года
Система DocsVision предназначена для создания гибких,
настраиваемых решений в следующих областях:
· создание электронных архивов
· автоматизация делопроизводства и контроля
исполнительской дисциплины
· автоматизация управления деловыми и организационными
бизнес-процессами (создание электронных регламентов)
· интеграции различных информационных систем
предприятия на базе сквозных бизнес процессов
Рис.4. Интерфейс программы DocsVision
.3
Формирование и анализ требований
Проанализируем поставленную задачу с учётом всех требований,
предъявляемых к работе:
. Интерфейс разрабатываемого программного средства не
должен быть излишне перегружен в целях повышения удобства использования. На
экране должны быть только те элементы управления, отображения информации,
которые необходимы для выполняемой в данный момент задачи. Компактность
достигается не в ущерб понятности интерфейса и функциональности.
2. Отдельные формы для ввода, вывода данных
обеспечивают дифференцирование рабочего пространства в целях облегчения доступа
к элементам интерфейса и избегания путаницы, когда пользователь неправильно
понимает назначение элементов управления.
. Необходимо распространять программу в виде
инсталлятора, который добавит все требуемые для работы файлы в соответствующие
директории и создаст ярлыки.
При рассмотрении заданной предметной области в связи с
возможной функциональностью разрабатываемой системы можно выдвинуть ещё один
ряд требований, конкретизирующий уже перечисленные требования:
а) Разграничение прав групп пользователей
б) Отправка документов на утверждение.
в) Возможность утверждения пришедшего документа либо
отклонение документа с комментариями
г) Должны быть часы
д) Экспорт и импорт данных
3. Построение
концептуальной модели
ER-диаграмма (entity-relationshipdiagram) - или диаграмма
сущность-связь - позволяет описывать концептуальные модели структур данных.
Построение диаграммы осуществляется при помощи графических примитивов: блоков
для описания сущностей и соединительных линий для описания связей. При описании
концептуальной модели используют ряд понятий, отражающих принцип построения
ER-диаграммы.диаграмма разрабатываемой информационной системы приведена на
рис.5.
Рис.5. ER-диаграмма информационной системы
"Эмуляция СЭД"
4.
Проектирование логической структуры БД
В качестве среды для создания базы данных компьютеров,
программного обеспечения и периферийного оборудования был выбран MS Access
2010. Вместе с последними версиями MS Windows устанавливается и драйвер для
доступа к базам этого типа.
Рассмотрим подробно каждую из сущностей спроектированной базы
дан-ных и опишем их.
- зарегистрированные пользователи
- документы пользователей
- документы
- поручения секретарю
5.
Программная реализация
5.1 Выбор
программного средства
Создание базы данных будет осуществляться в среде MSAccess
2010. Такой выбор был сделан ввиду большой распространённости пакета MSOffice,
с которым поставляется Access, простоты проектирования баз данных при
сохранении широты возможностей.
Для написания приложения была выбрана среда BorlandDelphi 7,
так как она имеет большое количество инструментов для работы с базами данных.
Средства Delphi, предназначенные для работы с БД, можно
разделить на 2 категории: инструментарий и компоненты. Инструментарий включает
в себя ряд дополнительных программ, входящих в поставку Delphi и
предназначенных для работы с БД. Что касается компонентов, то в VCL имеется
множество специализированных компонент, предназначенных для работы с БД.
Хотя Delphi и не является СУБД в классическом понимании этого
термина, в частности, у нее нет собственного формата баз данных, она
поддерживает как собственные сразу несколько форматов.
5.2
Организация редактирования данных
Основным действием в программе является отправка документа на
утверждение, которая производится в окнах показанном ниже.
Рис. 6. Отправка документа на утверждение
При нажатии на кнопку Создать заполняются соответствующие
поля в БД
В таблице Documents создаётся запись информации о документе,
а в таблице DocUsers заполняется информация о том кому этот документ отсылается
на утверждение.
Код выполняющийся при нажатии на кнопку "Создать":
: =ExtractFilePath (paramstr (0));: =CreateOleObject ('Word.
Application');. visible: =true;. Documents. add;. ActiveDocument. SaveAs
(s+'\'+edit1. Text+'. doc');. ADOQuery3. Insert;. ADOQuery3 ['Name_Doc']:
=edit1. Text;. ADOQuery3 ['Type_Doc']: =ComboBox1. Text;. ADOQuery3
['Primechanie']: =Memo1. Text;. ADOQuery3 ['Date_Create']: =strtoDateTime
(Edit2. Text);. ADOQuery3 ['Srok']: =strtoDate (MaskEdit1. Text);. ADOQuery3
['Path']: =s+'\'+edit1. Text+'. doc';. ADOQuery3 ['Stat']: ='Неутверждён';.
ADOQuery3 ['ID_Sek']: =AuthForm. KeyUser;. ADOQuery3. Post;i: = 0 to
(CheckListBox1. Items. Count - 1) do(CheckListBox1. Checked [i]) then.
Insert;ADOTable3. Locate ('Login',CheckListBox1. Items. Strings [i], []) then['id_user']:
= ADOTable3 ['id_user'];. Close;. SQL. Clear;. SQL. Append ('SELECT Top 1 Key '
+
'FROM Documents ' +
'Order by Key Desc');. Open;. Open;['id_document']: =
inttostr (ADOQuery1 ['Key']);['Status']: = '1';. Post;;;. ADOQuery3. Active:
=false;. ADOQuery3. Active: =true;. ADOQuery3. Fields [0]. Visible: =false;.
ADOQuery3. Fields [6]. Visible: =false;. ADOQuery3. Fields [7]. Visible:
=false;. ADOQuery3. Fields [1]. DisplayWidth: =20;. ADOQuery3. Fields [2].
DisplayWidth: =20;. ADOQuery3. Fields [3]. visible: =false;. ADOQuery3. Fields
[4]. DisplayWidth: =20;. ADOQuery3. Fields [5]. DisplayWidth: =20;. ADOQuery3.
Fields [8]. DisplayWidth: =20;
Далее заходим под одним из руководителей, которым был отослан
документ на утверждение:
Рис.7. Главное окно руководителя 1
Делаем двойной щелчок на "Принятые”:
Рис. 8. Главное окно руководителя 2
Делаем двойной щелчок по полю с информацией о принятом
документе, в появившемся окне предоставляется возможности:
§ Открыть документ для просмотра
§ Утвердить
§ Отклонить с указанием комментарием к доработке
Рис. 9. Информация о документе
Код, выполняющийся по нажатии на кнопку Утвердить. Close;.
SQL. Clear;. Parameters. Add;. Parameters [0]. Name: ='p';. Parameters [0].
Value: =MainFormRuk. ADOQuery3 ['Key'];. Parameters. Add;. Parameters [1].
Name: ='p2';. Parameters [1]. Value: =AuthForm. KeyUser;. SQL. Add ('Select *
From DocUsers Where (id_document=: p) and (id_user=: p2) ');. Open;.
Edit;['Status']: ='0';. Post;. ListBoxLoad;
При нажатии на кнопке Отклонить открывается следующее окно:
Рис.10. Причина отклонения
Код, выполняющийся при нажатии кнопки ОК:
. ADOQuery1. Close;. ADOQuery1. SQL. Clear;. ADOQuery1.
Parameters. Add;. ADOQuery1. Parameters [0]. Name: ='p';. ADOQuery1. Parameters
[0]. Value: =MainFormRuk. ADOQuery3 ['Key'];. ADOQuery1. Parameters. Add;.
ADOQuery1. Parameters [1]. Name: ='p2';. ADOQuery1. Parameters [1]. Value:
=AuthForm. KeyUser;. ADOQuery1. SQL. Add ('Select * From DocUsers Where
(id_document=: p) and (id_user=: p2) ');. ADOQuery1. Open;. ADOQuery1. Edit;.
ADOQuery1 ['Status']: ='2';. ADOQuery1 ['PrichOtkl']: =Memo1. Text;. ADOQuery1.
Post;. ListBoxLoad;;
5.3
Разграничение прав пользователей
В данной программе реализовано разграничение прав на два типа
пользователей:
§ Руководитель
§ Секретарь
При выборе типа пользователя и вводе соответствующего пароля
открываются различные окна:
Рис.11. Главное окно руководителя
6.
Тестирование и отладка программного средства
Отладка и верификация программы представляют собой очень
важную часть процесса разработки программы. Отладка заключается в устранении
ошибок программирования, ошибок перевода алгоритма на язык программирования.
Отладка - это деятельность, направленная на обнаружение и исправление ошибок в
программе с использованием процессов выполнения его программ. Тестирование
программы - это процесс выполнения его программ на некотором наборе данных, для
которого заранее известен результат применения или известны правила поведения
этих программ. Указанный набор данных называется тестовым или просто тестом.
Таким образом, отладку можно представить в виде многократного повторения трех
процессов: тестирования, в результате которого может быть констатировано
наличие в ПС ошибки, поиска места ошибки в программах и документации ПС и
редактирования программ и документации с целью устранения обнаруженной ошибки.
Другими словами: Отладка = Тестирование + Поиск ошибок + Редактирование.
Верификация - это доказательство того, что программа работает
"правильно", дает правильный результат. Для этого разрабатывается
система тестов, которые могут представлять собой специально подобранные наборы
параметров, для которых задача может быть решена точно. Это могут быть,
например, какие-нибудь предельные случаи. Если результат, полученный с помощью
программы, с ожидаемым, есть основание полагать, что программа работает
корректно.
Отладка в среде BorlandDelphi производилась на всех этапах
разработки. Организация редактирования данных потребовала учесть нюансы
совместимости форматов, проверки заполнения обязательных полей, удаления пустых
строк. Работа со встроенным отладчиком помогла обнаружить связанные с
обработкой данных ошибки и выполнить оптимизацию алгоритмов.
Необходимо отметить, что даже теперь, когда результат,
полученный с помощью созданной программы, совпадает с точными значениями,
нельзя полностью утверждать, что программа работает корректно, так как
тестирование программы не может доказать полную правильность её
работоспособности.
Заключение
Сложившиеся формы и методы работы с документацией в
организациях в рамках традиционного делопроизводства и документационного
обеспечения управления не отвечают современным условиям. Глобальная
информатизация общества, широкое распространение новых информационных и
коммуникационных технологий, постепенное внедрение рыночных механизмов и
современного менеджмента привели к усилению роли информации в
социально-экономических процессах и осознанию ее как важнейшего стратегического
ресурса. В связи с тем, что основную часть информационного ресурса составляет документация,
можно считать, что на современном этапе созрели необходимые предпосылки для
перехода к концептуально новому способу работы с документами в организациях -
управлению документацией на методологии информационного менеджмента.
Автоматизация систем управления документацией требует особого внимания к
следующим моментам:
. Изучение информации как научной категории, познание
законов и закономерностей информационных процессов методологически приближает к
пониманию вопросов управления документацией.
2. Для управленческого документа существенным является
носитель информации.
. Существует специфика электронных документов,
особенно в части юридической силы, подлинности, способов хранения, применения
открытых форматов и стандартов записи для обмена электронными документами.
Однако наряду с вышеперечисленными положительными сторонами
систем электронного документооборота имеются и отрицательные:
. Переобучение персонала.
2. Увеличение объема документооборота.
Комплексное научное решение этих проблем является одной из
самых актуальных задач автоматизации документоведения и архивоведения.
Список
литературы
1. Бекаревич
Ю.Б. MSAccess 2000 за 30 занятий: практ. Пособие. - СПб.: БХВ - Петербург,
2000. - 492 с.
2. Флёнов
М.Е. Библия Delphi. - СПб.: БХВ - Петербург, 2004. - 880с.
. Хомоненко
А.Д. и др. Delphi 7. - СПб.: БХВ - Петербург, 2008. - 1216 с.: ил.
. Корняков
В.Н. Программирование документов и приложений MSOffice в Delphi. - СПб.: БХВ -
Петербург, 2005. - 496с.: ил.
. ГрибачевК.Г.
Delphi и Model Driven Architecture. Разработака приложений БД. - СПб.: Питер,
2004. - 348с.: ил.
Приложения
Приложение 1
Руководство пользователя
После запуска приложения необходимо выбрать свою должность,
логин из списков и ввести пароль:
Далее, в зависимости от вашей должности, открывается окно
программы:
либо
В окне Руководителя слева отображаются документы: принятые
(новые входящие) и утверждённые (те документы, которые уже были просмотрены,
утверждены или отклонены). При двойном щелчке мыши в поле, где отображается
информация о документе, откроется окно, где можно просмотреть текст документа,
информацию о нём, а также утвердить или отклонить документ.
В окне Секретаря есть таблица, в которой отображаются
документы, созданные данным секретарём. Щёлкнув правой кнопкой мыши в этом
поле, можно просмотреть рекомендации руководителей к исправлению документов.
Приложение 2
Текст основных программных модулейAuthorization;, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB,
XPMan;= class (TForm): TLabel;: TLabel;: TLabel;: TComboBox;: TComboBox;:
TEdit;: TCheckBox;: TButton;: TButton;: TADOConnection;: TADOQuery;:
TXPManifest;(Sender: TObject);Button1Click (Sender: TObject);(Sender:
TObject);(Sender: TObject);Button2Click (Sender: TObject);(Sender: TObject);
{ Private declarations }: integer;
{ Public declarations };: TAuthForm;, MainSek,
ChangePassword;
{$R *. dfm}. SavePasChBoxClick (Sender:
TObject);(SavePasChBox. Checked = True) then. PasswordChar: = #0. PasswordChar:
= '*';;TAuthForm. Button1Click (Sender: TObject);, Password: string;. Close;.
SQL. Clear;. Parameters. Add;. Parameters [0]. Name: ='p';. Parameters [0].
Value: =KeyUser;. SQL. Add ('Select * From Users Where id_user=: p');. Open;:
=AdoQuery1 ['Password'];(PassEdit. Text = Password) thenstatCmb.
Text='Руководитель' then. CreateForm (TMainFormRuk, MainFormRuk);. StartMes.
Caption: =AdoQuery1 ['Login'];. Show;. Hide;. CreateForm (TMainFormSek,
MainFormSek);. StartMes. Caption: =AdoQuery1 ['Login'];. Show;.
Hide;;('Неверныйпароль');;
{begin(StatCmB. Text = '') then('Введите исходные данные! ').
Visible: = False;(StatCmB. Text = 'Руководитель') then. Visible: = True;.
StartMes. Caption: = 'Пользователь: ';(AuthForm. LogCmB. Text = 'ЗиминН.В. ')
then. StartMes. Caption: = MainFormRuk. StartMes. Caption +
'ЗиминНиколайВладимирович';(AuthForm. LogCmB. Text = 'ЛожкинА.М. ') then.
StartMes. Caption: = MainFormRuk. StartMes. Caption +
'ЛожкинАлександрМихайлович';(AuthForm. LogCmB. Text = 'СидоровД.Ю. ') then.
StartMes. Caption: = MainFormRuk. StartMes. Caption +
'СидоровДенисЮрьевич';;(StatCmB. Text = 'Секретарь') then. Visible: = True;.
StartMes. Caption: = 'Пользователь: ';(AuthForm. LogCmB. Text = 'ИвановаЛ.И. ')
then. StartMes. Caption: = MainFormSek. StartMes. Caption +
'ИвановаЛарисаИвановна';(AuthForm. LogCmB. Text = 'ПетроваМ.Н. ') then.
StartMes. Caption: = MainFormSek. StartMes. Caption +
'ПетроваМаринаНиколаевна';;; }. FormCreate (Sender: TObject);s: string;. Items.
Add ('Руководитель');. Items. Add ('Секретарь');
{AuthForm. ADOConnection1. Close;: =ExtractFilePath (paramstr
(0));. ADOConnection1. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0;
'+
'User ID=Adminata Source='++'\Users. mdb'+
'; Mode=Share Deny None; Extended'+
' Properties=""; Jet OLEDB: System' +
' database=""; Jet OLEDB: Registry '+
'Path=""; JetOLEDB: Database '+
'Password=""; JetOLEDB: Engine '+
'Type=5; JetOLEDB: Database Locking '+
'Mode=1; JetOLEDB: Global Partial Bulk '+
'Ops=2; JetOLEDB: Global Bulk Transactions=1; '+
'Jet OLEDB: New Database Password=""; Jet OLEDB:
Create '+
'System Database=False; JetOLEDB: Encrypt Database=False; '+
'Jet OLEDB: Don''t Copy Locale on Compact=False; Jet OLEDB:
'+
'Compact Without Replica Repair=False; Jet OLEDB:
SFP=False';. ADOConnection1. Open; };. StatCmBChange (Sender: TObject);.
Clear;. Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. name: = 'p';.
parameters [0]. value: = StatCmB. text;. sql. add ('Select Login From Users
Where Status =: p');. Open;not AdoQuery1. Eof do. Items. Add (AdoQuery1
['Login']);. next;;. ItemIndex: = 0;;TAuthForm. Button2Click (Sender: TObject);(LogCmB.
Text = '') then('Выберитепользователя! '). Visible: = True;. LogCmBChange
(Sender: TObject);: = 0;. Close;. SQL. Clear;. Parameters. Add;. Parameters
[0]. Name: ='p';. Parameters [0]. Value: =Logcmb. Text;. SQL. Add ('Select
id_user From Users Where login=: p');. Open;: =AdoQuery1 ['id_user'];;.
-------------------------------------------------------------------
-------------------------------------------------------------------;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls,
Menus, StdCtrls, XPMan, DB, ADODB, Grids, DBGrids;= class (TForm): TPanel;:
TTimer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TLabel;: TListBox;: TDBGrid;: TDataSource;: TADOQuery;:
TButton;: TXPManifest;: TADOQuery;: TADOQuery;Timer1Timer (Sender:
TObject);N2Click (Sender: TObject);F21Click (Sender: TObject);N4Click (Sender:
TObject);Button1Click (Sender: TObject);ListBox1DblClick (Sender:
TObject);DBGrid1DblClick (Sender: TObject);ListBoxLoad;(Sender:
TObject);F11Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainFormRuk;Authorization, About,
NewTask, Unit1, Help;
{$R *. dfm}TMainFormRuk. ListBoxLoad;, str2: string;. Clear;.
Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: =
'p1';. Parameters [0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select (count
(*)) as ct ' +
'From DocUsers ' +
'Where id_user=: p1 and Status="0"');. Open;: =
ADOQuery1 ['ct'];. Close;. SQL. Clear;. Prepared;. Parameters. Add;. Parameters
[0]. Name: ='p1';. Parameters [0]. Value: =AuthForm. KeyUser;. SQL. Add
('Select (count (*)) as ct ' +
'From DocUsers ' +
'Where id_user=: p1 and Status ="1" ');. Open;:
=ADOQuery1 ['ct'];. Items. Add ('Принятые ('+str2+') ');. Items. Add ('Утвержденные
('+str+') ');;TMainFormRuk. Timer1Timer (Sender: TObject);. Caption: =
TimeToStr (Time);;TMainFormRuk. N2Click (Sender: TObject);.
Terminate;TMainFormRuk. F21Click (Sender: TObject);. Visible: = False;.
Visible: = True;;TMainFormRuk. N4Click (Sender: TObject);. Visible: =
True;;TMainFormRuk. Button1Click (Sender: TObject);. ADOQuery1. Close;.
ADOQuery1. SQL. Clear;. ADOQuery1. SQL. Add ('Select * From Users Where
Status="Секретарь"');. ADOQuery1. Open;not (NewTaskForm. ADOQuery1.
Eof) do. KomuCmB. Items. Add (NewTaskForm. ADOQuery1 ['Login']);. ADOQuery1.
Next;;. KomuCmB. ItemIndex: =0;. Visible: = True;;TMainFormRuk.
ListBox1DblClick (Sender: TObject);ListBox1. Selected [0] then. Button1.
enabled: =true;. Button3. enabled: =true;. Close;. SQL. Clear;. Parameters.
Add;. Parameters [0]. Name: ='p';. Parameters [0]. Value: =AuthForm. KeyUser;.
SQL. Add ('Select * From Documents Where Key in (Select id_document ' +
'From DocUsers ' +
'Where id_User=: p and Status="1") ');. open;.
Fields [0]. Visible: =false;. Fields [1]. DisplayWidth: =20;. Fields [2].
DisplayWidth: =20;. Fields [3]. visible: =false;. Fields [4]. DisplayWidth:
=20;. Fields [5]. DisplayWidth: =20;. Fields [6]. Visible: =false;;ListBox1.
Selected [1] then. Button1. enabled: =false;. Button3. enabled: =false;.
Close;. SQL. Clear;. Parameters. Add;. Parameters [0]. Name: ='p';. Parameters
[0]. Value: =AuthForm. KeyUser;. SQL. Add ('Select * From Documents Where Key
in (Select id_document ' +
'From DocUsers ' +
'Where id_User=: p and Status="0") ');. open;.
Fields [0]. Visible: =false;. Fields [1]. DisplayWidth: =20;. Fields [2].
DisplayWidth: =20;. Fields [3]. visible: =false;. Fields [4]. DisplayWidth:
=20;. Fields [5]. DisplayWidth: =20;. Fields [6]. Visible:
=false;;;TMainFormRuk. DBGrid1DblClick (Sender: TObject);. Edit1. text:
=MainFormRuk. ADOQuery3 ['Name_Doc'];. Edit2. text: =MainFormRuk. ADOQuery3
['Type_Doc'];. Edit3. text: =MainFormRuk. ADOQuery3 ['Date_Create'];. Edit4.
text: =MainFormRuk. ADOQuery3 ['Srok'];. memo1. text: =MainFormRuk. ADOQuery3
['Primechanie'];. ShowModal;;. FormCreate (Sender: TObject);;;TMainFormRuk.
F11Click (Sender: TObject);. Visible: = True;;.
----------------------------------------------------------
----------------------------------------------------------;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls,
Menus, StdCtrls, DB, ADODB, Grids, DBGrids, ShellApi,, ComCtrls;= class
(TForm): TPanel;: TTimer;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TDataSource;: TADOQuery;:
TButton;: TXPManifest;: TADOQuery;: TADOQuery;: TADOTable;: TDBGrid;:
TPopupMenu;: TMenuItem;F21Click (Sender: TObject);N2Click (Sender:
TObject);N4Click (Sender: TObject);Button1Click (Sender: TObject);Timer1Timer
(Sender: TObject);(Sender: TObject);N5Click (Sender: TObject);F11Click (Sender:
TObject);
{ Private declarations }
{ Public declarations };: TMainFormSek;Authorization,
About,NewDoc, Unit3, Help;
{$R *. dfm}TMainFormSek. F21Click (Sender: TObject);.
Visible: = False;. Visible: = True;;TMainFormSek. N2Click (Sender: TObject);.
Terminate;;TMainFormSek. N4Click (Sender: TObject);. Visible: =
True;;TMainFormSek. Button1Click (Sender: TObject);. Edit2. Text:
=DateTimeToStr (Now);. ADOQuery1. Close;. ADOQuery1. SQL. Clear;. ADOQuery1.
SQL. Add ('Select * From Users Where Status="Руководитель"');.
ADOQuery1. Open;not (frmNewDoc. ADOQuery1. Eof) do. CheckListBox1. Items. Add
(frmNewDoc. ADOQuery1 ['Login']);. ADOQuery1. Next;;. showmodal;;TMainFormSek.
Timer1Timer (Sender: TObject);. Caption: = TimeToStr (Time);;. FormCreate
(Sender: TObject);,n,k: integer;. Close;. SQL. Clear;. Prepared;. Parameters.
Add;. Parameters [0]. Name: = 'p1';. Parameters [0]. Value: = AuthForm.
KeyUser;. SQL. Add ('Select *' +
'From Documents ' +
'Where ID_Sek=: p1');. Open;: =0; k: =0; m: =0;. Close;. SQL.
Clear;. Prepared;. Parameters. Add;. Parameters [0]. Name: = 'p1';. Parameters
[0]. Value: = AuthForm. KeyUser;. SQL. Add ('Select *' +
'Where ID_Sek=: p1');. Open;not ADOQuery1. Eof do. Close;.
SQL. Clear;. Parameters. Add;. Parameters [0]. Name: ='p';. Parameters [0].
Value: =ADOQuery1 ['Key'];. SQL. Add ('Select * From DocUsers Where
id_document=: p');. Open;not ADOQuery2. Eof doADOQuery2 ['Status'] ='0' then(m);ADOQuery2
['Status'] ='1' then(n);ADOQuery2 ['Status'] ='2' then(k);. Next;;. Edit;(n+k)
=0 then['Stat']: ='Утверждено'['Stat']: ='Неутверждено';. Post;. Next;;.
Active: =false;. Active: =true;. Fields [0]. Visible: =false;. Fields [6].
Visible: =false;. Fields [7]. Visible: =false;. Fields [1]. DisplayWidth: =20;.
Fields [2]. DisplayWidth: =20;. Fields [3]. visible: =false;. Fields [4].
DisplayWidth: =20;. Fields [5]. DisplayWidth: =20;. Fields [8]. DisplayWidth:
=20;;TMainFormSek. N5Click (Sender: TObject);. Memo1. Clear;. Memo1. Lines. Add
('Заметкиоставленныеруководителями');. ADOQuery1. Close;. ADOQuery1. SQL.
Clear;. ADOQuery1. Prepared;. ADOQuery1. Parameters. Add;. ADOQuery1.
Parameters [0]. Name: = 'p1';. ADOQuery1. Parameters [0]. Value: = AuthForm.
KeyUser;. ADOQuery1. SQL. Add ('Select *' +
'From Documents ' +
'Where ID_Sek=: p1');. ADOQuery1. Open;not Form3. ADOQuery1.
Eof do. ADOQuery2. Close;. ADOQuery2. SQL. Clear;. ADOQuery2. Parameters. Add;.
ADOQuery2. Parameters [0]. Name: ='p';. ADOQuery2. Parameters [0]. Value:
=Form3. ADOQuery1 ['Key'];. ADOQuery2. SQL. Add ('Select * From DocUsers Where
id_document=: p');. ADOQuery2. Open;not Form3. ADOQuery2. Eof do. Memo1. Lines.
Add (Form3. ADOQuery2 ['PrichOtkl']);. ADOQuery2. Next;;. ADOQuery1. Edit;.
ADOQuery1. Next;;. ShowModal;;TMainFormSek. F11Click (Sender: TObject);.
Visible: = True;;.
----------------------------------------------------------
----------------------------------------------------------;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls,
CheckLst, Mask, DB, ADODB, Buttons,ComObj;= class (TForm): TLabel;: TLabel;:
TLabel;: TLabel;: TEdit;: TEdit;: TComboBox;: TMaskEdit;: TLabel;: TMemo;:
TCheckListBox;: TLabel;: TADOQuery;: TBitBtn;: TBitBtn;: TADOTable;:
TADOTable;: TADOTable;BitBtn1Click (Sender: TObject);BitBtn2Click (Sender:
TObject);
{ Private declarations }
{ Public declarations };: TfrmNewDoc;Authorization, MainSek;
{$R *. dfm}TfrmNewDoc. BitBtn1Click (Sender: TObject);w:
variant;: integer;: string;: =ExtractFilePath (paramstr (0));: =CreateOleObject
('Word. Application');. visible: =true;. Documents. add;. ActiveDocument.
SaveAs (s+'\'+edit1. Text+'. doc');. ADOQuery3. Insert;. ADOQuery3
['Name_Doc']: =edit1. Text;. ADOQuery3 ['Type_Doc']: =ComboBox1. Text;.
ADOQuery3 ['Primechanie']: =Memo1. Text;. ADOQuery3 ['Date_Create']:
=strtoDateTime (Edit2. Text);. ADOQuery3 ['Srok']: =strtoDate (MaskEdit1.
Text);. ADOQuery3 ['Path']: =s+'\'+edit1. Text+'. doc';. ADOQuery3 ['Stat']:
='Неутверждён';. ADOQuery3 ['ID_Sek']: =AuthForm. KeyUser;. ADOQuery3. Post;i:
= 0 to (CheckListBox1. Items. Count - 1) do(CheckListBox1. Checked [i]) then.
Insert;ADOTable3. Locate ('Login',CheckListBox1. Items. Strings [i], [])
then['id_user']: = ADOTable3 ['id_user'];. Close;. SQL. Clear;. SQL. Append
('SELECT Top 1 Key ' +
'FROM Documents ' +
'Order by Key Desc');. Open;. Open;['id_document']: =
inttostr (ADOQuery1 ['Key']);['Status']: = '1';. Post;;;. ADOQuery3. Active:
=false;. ADOQuery3. Active: =true;. ADOQuery3. Fields [0]. Visible: =false;.
ADOQuery3. Fields [6]. Visible: =false;. ADOQuery3. Fields [7]. Visible:
=false;. ADOQuery3. Fields [1]. DisplayWidth: =20;. ADOQuery3. Fields [2].
DisplayWidth: =20;. ADOQuery3. Fields [3]. visible: =false;. ADOQuery3. Fields
[4]. DisplayWidth: =20;. ADOQuery3. Fields [5]. DisplayWidth: =20;. ADOQuery3.
Fields [8]. DisplayWidth: =20;;TfrmNewDoc. BitBtn2Click (Sender: TObject);;;.