Разработка системы электронного документооборота
Решения по разработке системы электронного документооборота, государственные инициативы и стандарты в данной области, существующие проблемы и направления их разрешения. Модель данных общей и пользовательской части, принципы разработки интерфейса.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 20.12.2013 |
| Размер файла | 1,9 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Escom.doc
Существует возможность доработки системы. Существует возможность предоставления исходного кода. Системы интегрирована с офисными приложениями MS Widows, MS Office. Система не интегрирована с приложениями CAD/CAM. Предусмотрена возможность интеграции с «1С».
Optima-WorkFlow
Созданные решения на платформе Optima-WorkFlow могут расширяться и дорабатываться как в части функциональности, так и в части автоматизации новых бизнес-процессов. Система интегрирована с приложениями MS Office. За счет наличия интерфейса межпрограммного взаимодействия (API), документированной структуры хранения данных и встроенных средств запуска программируемых сценариев, разработанных на языках VB или J-Script, могут быть разработаны любые сценарии межсистемной интеграции или синхронизации данных.
Гран-Док
Возможна доработка системы в соответствии с требованиями заказчика. Интегрирована с офисными приложениями Microsoft Word, Microsoft Excel, MS Outlook. Не предусматривает интеграцию с приложениями CAD/CAM. Не предусматривает интеграцию с «1С».
Е1 ЕВФРАТ
Имеет клиент-серверную архитектуру. Благодаря «HTTP-серверу» и модулю АРМ «Руководитель» доступ к системе может осуществляться через Интернет. Наличие подсистемы обмена документами позволяет организовать территориально-распределённую работу. В качестве базы данных используется СУБД собственной разработки - НИКА, которая поставляется вместе с продуктом. Имеется открытый API для создания интеграционного программного обеспечения на платформе системы.
Летограф
Интегрирована с офисными приложениями Office (Word, Excel, и т.д.), Acrobat. Интегрирована с приложениями CAD/CAM: AutoCAD, AutoDesk, SolidWorks. Существует возможность интеграции с «1С». Обеспечивается возможность мониторинга и синхронизации данных документов и справочников, организация сквозных бизнес-процессов. Существует возможность доработки системы. Решение может быть развито за счет использования типовых решений, а также дополнено силами специалистов исполнителя по проекту или силами специалистов внутренней команды внедрения, прошедшими обучение по программе «Системный технолог Летограф». Система не требует изменения программного кода, необходимая функциональность настраивается. Заказчик может самостоятельно модифицировать систему: добавлять и изменять справочники, карточки документов, маршруты, а также создавать интеграционные решения. Заказчику предоставляется конфигурация решения, а также исходный код интеграционных решений. В силу того, что приложение имеет только WEB-интерфейс, интеграция с клиентскими приложениями достаточно затруднительна.
2. Постановка задачи
электронный документооборот интерфейс пользовательский
Одной из форм деятельности сотрудников кафедры математического моделирования, является работа со студентами, например, оформление курсовых и дипломных работ. С учетом требования хранить электронные варианты текстов курсовых и дипломных работ, возникает потребность в автоматизации процесса их сбора на кафедре. Также неэффективно ожидание студентов под дверью кафедры занятых преподавателей или наоборот ожидание преподавателем опаздывающих студентов. Попытки оставить результаты своей работы в электронном виде на кафедре тоже малоэффективно, кроме использования электронной почты, но и здесь есть «подводные камни». Использование баз данных с удобным интерфейсом для передачи, получения и хранения документов может быть наилучшим решением.
Основные особенности разрабатываемой СЭД кафедры:
- возможность отдельного хранения каждым пользователем системы своих документов;
- централизованный сбор и обмен документами;
- использование общедоступных и известных программных средств, таких как MS Office.
Процедуру работы пользователя с СЭД можно описать следующим образом. Пользователь, используя свой локальный вариант системы, готовит документы с указанием пользователей, которым они предназначаются. Подключаясь к общему варианту системы, происходит запись всех документов. По мере обращения других пользователей к общей части СЭД через свои локальные реализации, происходит передача документов по назначению.
3. Реализация приложения СЭД
В качестве средства реализации СЭД, была выбрана СУБД MS Access [15] из пакета MS Office 2003, как самое доступное и известное средство на кафедре математического моделирования. Также было принято во внимание, что основным программным средством для оформления текстов курсовых и дипломных работ является MS Word.
3.1 Модель данных общей части СЭД
С учетом требований к разрабатываемой СЭД, было принято решение разбить систему на две составляющие: общая часть и пользовательская. Каждая из частей представляет собой отдельное приложение в MS Access. На рисунке 1 представлена схема данных общей части СЭД.
Рисунок 1 - Схема данных общей части СЭД
В таблицах 13 - 17 описаны поля данных созданных таблиц.
Таблица 13 - Таблица «Документ»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код документа |
Счетчик |
Первичный ключ |
|
|
Дата отправки |
Дата/время |
Обязательное поле |
|
|
Дата получения |
Дата/время |
||
|
Описание документа |
Поле MEMO |
||
|
Документ |
Поле объекта OLE |
Обязательное поле |
|
|
Отправитель |
Числовой |
Внешний ключ |
|
|
Получатель |
Числовой |
Внешний ключ |
|
|
Группа |
Числовой |
Внешний ключ |
Таблица 14 - Таблица «Пользователь»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код пользователя |
Счетчик |
Первичный ключ |
|
|
Ключ пользователя |
Текстовый (255) |
Обязательное поле |
|
|
Ф.И.О. |
Текстовый (100) |
Обязательное поле |
|
|
Тип пользователя |
Числовой |
Внешний ключ |
Таблица 15 - Таблица «Группа пользователей»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код группы |
Счетчик |
Первичный ключ |
|
|
Название группы |
Текстовый (50) |
Таблица 16 - Таблица «Тип пользователя»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код типа пользователя |
Счетчик |
Первичный ключ |
|
|
Наименование типа |
Текстовый (50) |
Обязательное поле |
Таблица 17 - Таблица «Список группы»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код группы |
Числовой |
Первичный ключ |
|
|
Код пользователя |
Числовой |
Первичный ключ |
3.2 Модель данных пользовательской части СЭД
Схема данных пользовательской части СЭД представлена на рисунке 2.
Рисунок 2 - Схема данных пользовательской части СЭД
Отличие представленных таблиц от таблиц общей части СЭД заключается в дополнительной таблице «Отправитель» (таблица 18), которая хранит код пользователя локальной части СЭД и замене типа данных «Счетчик» на «Числовой» для возможности записи данных из общей части в пользовательскую.
Таблица 18 - Таблица «Отправитель»
|
Имя поля |
Тип данных |
Ограничения |
|
|
Код отправителя |
Числовой |
Первичный ключ |
3.3 Интерфейс общей части СЭД
Доступ к данным в общей части СЭД реализован через главную кнопочную форму, представленную на рисунке 3.
Рисунок 3 - Главная кнопочная форма общей части СЭД
Через главную кнопочную форму можно редактировать, добавлять и удалять: типы пользователей (рисунок 4), группы пользователей (рисунок 5), вести списки групп пользователей (рисунок 6), пользователей (рисунок 7).
Рисунок 4 - Форма «Тип пользователей»
Рисунок 5 - Форма «Группа пользователей»
Рисунок 6 - Форма «Список группы»
Рисунок 7 - Форма «Пользователь»
Через форму «Пользователь», нажатием на кнопку «Создать файл базы данных пользователя», создается пользовательская часть СЭД, представленная файлом «kmm_user.mdb», с записью всех переданных документов текущему пользователю. Программный код, выполняющий перечисленные действия вынесен в приложение А. В дальнейшем, этот файл передается пользователю. Общая часть СЭД представлена файлом «kmm.mdb», к которому подключается пользовательская часть в процессе работы пользователя. Файл «kmm.mdb» должен храниться на компьютере кафедры и иметь следующее расположение «C:\Program Files\СЭД». Файл «kmm_user.mdb» можно хранить в любом месте.
Список документов пользователей представлен на рисунке 8.
Рисунок 8 - Форма «Документ»
Документ на форме, представленной на рисунке 8, можно открыть, редактировать, сохранить.
3.4 Интерфейс пользовательской части СЭД
Главная кнопочная форма пользовательской части СЭД, представлена на рисунке 9.
Рисунок 9 - Главная кнопочная форма пользовательской части СЭД
Через главную кнопочную форму можно посмотреть список входящих документов (рисунок 10) или отправить документ другому пользователю (рисунок 11).
Рисунок 10 - Форма «Список входящих документов пользователя»
Рисунок 11 - Форма «Список исходящих документов»
Заключение
В результате проделанной работы были изучены возможности, предоставляемые современными системами электронного документооборота. Разработана СЭД для кафедры математического моделирования с учетом поставленных требований. СЭД состоит из двух частей: общей и пользовательской, которые реализованы в виде приложений в СУБД MS Access. Из общей части можно создавать пользовательскую часть СЭД и редактировать общие данные. С помощью пользовательской части СЭД можно получать документы от других пользователей и отправлять свои, через подключение к общей части.
Список использованных источников
1. Обзор систем электронного документооборота URL: http://www.ixbt.com/soft/ (дата обращения: 15.02.2013).
2. Системы электронного документооборота - Управление знаниями URL: https://sites.google.com/site/upravlenieznaniami/tehnologii-upravlenia-znaniami/sistemy-elektronnogo-dokumentooborota (дата обращения: 15.02.2013).
3. Чернов, В.Н. Системы электронного документооборота / В.Н. Чернов - М.: РАГС, 2009. - 412 с.
4. Саттон, М.Дж.Д. Корпоративный документооборот. Принципы, технологии, методология внедрения / М.Дж.Д. Саттон - М.: БМикро, 2002. - 446 с.
5. Жеребенкова, А.В. Документооборот на предприятии / А.В. Жеребенкова - Вершина, 2005. - 384 с.
6. Проблемы современных систем электронного документооборота и некоторые подходы к их решению URL: http://www.osp.ru/projects/advert/ advert-8.html (дата обращения: 15.02.2013).
7. Основные функции систем электронного документооборота URL: http://fd.ru/addfiles/36902165039.doc (дата обращения: 15.02.2013).
8. Система электронного документооборота (СЭД) DIRECTUM URL: http://www.directum.ru (дата обращения: 15.02.2013).
9. Евроменеджмент - консалтинговые услуги: управленческий, финансовый, кадровый консалтинг URL: http://www.emd.ru (дата обращения: 15.02.2013).
10. 10. Общая информация о системе ESCOM.DOC URL: http://www.itas.emd.ru/doc/ (дата обращения: 15.02.2013).
11. Система электронного документооборота (СЭД), автоматизациядокументооборота - Optima-WorkFlow URL: http://optima-workflow.ru (дата обращения: 15.02.2013).
12. Гран-Док: Система Электронного Документооборота - Главная URL: http://grandoc.ru (дата обращения: 15.02.2013).
13. Е1 Евфрат электронный документооборот и автоматизация бизнес-процессов. Оптимизация документооборота на предприятии. URL: http://www.evfrat.ru (дата обращения: 15.02.2013).
14. ЛЕТОГРАФ: электронный документооборот, автоматизация бизнес-процессов, интеграция приложений. URL: http://www.letograf.ru (дата обращения: 15.02.2013).
15. Гандерлой, М. Автоматизация Microsoft Office Access с помощью VBA / М. Гандерлой, С.С. Харкинз - М.: Вильямс, 2006. - 416 с.
Приложение А
Private Sub Create_file_DB_Click()
Dim dbs As DAO. Database, rst, rstCurrent, rstTable As DAO. Recordset
Dim QuerySQL As String
' Открываем базу пользователя
Set dbs = DBEngine. OpenDatabase («C:\Program Files\СЭД\kmm_user.mdb», True)
Set rst = dbs. OpenRecordset («Документ»)
'Удаляем все записи из таблицы «Документ»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rst = dbs. OpenRecordset («Отправитель»)
'Удаляем все записи из таблицы «Отправитель»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rst = dbs. OpenRecordset («Список группы»)
'Удаляем все записи из таблицы «Список группы»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rst = dbs. OpenRecordset («Группа пользователей»)
'Удаляем все записи из таблицы «Группа пользователей»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rst = dbs. OpenRecordset («Пользователь»)
'Удаляем все записи из таблицы «Пользователь»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rst = dbs. OpenRecordset («Тип пользователя»)
'Удаляем все записи из таблицы «Тип пользователя»
With rst
Do While Not.EOF
Delete
MoveNext
Loop
End With
Set rstCurrent = CurrentDb. OpenRecordset («Тип пользователя»)
Set rst = dbs. OpenRecordset («Тип пользователя»)
'Переписываем все записи из текущей таблицы «Тип пользователя»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код типа пользователя] = rstCurrent. Fields («Код типа пользователя»).Value
! [Наименование типа] = rstCurrent. Fields («Наименование типа»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Пользователь»)
Set rst = dbs. OpenRecordset («Пользователь»)
'Переписываем все записи из текущей таблицы «Пользователь»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код пользователя] = rstCurrent. Fields («Код пользователя»).Value
If rstCurrent. Fields («Код пользователя»).Value = UserNum. Value Then
! [Ключ пользователя] = rstCurrent. Fields («Ключ пользователя»).Value
End If
! [Ф.И.О.] = rstCurrent. Fields («Ф.И.О.»).Value
! [Тип пользователя] = rstCurrent. Fields («Тип пользователя»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Группа пользователей»)
Set rst = dbs. OpenRecordset («Группа пользователей»)
'Переписываем все записи из текущей таблицы «Группа пользователей»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код группы] = rstCurrent. Fields («Код группы»).Value
! [Название группы] = rstCurrent. Fields («Название группы»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Список группы»)
Set rst = dbs. OpenRecordset («Список группы»)
'Переписываем все записи из текущей таблицы «Список группы»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код группы] = rstCurrent. Fields («Код группы»).Value
! [Код пользователя] = rstCurrent. Fields («Код пользователя»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rst. Close
End With
Set rst = dbs. OpenRecordset («Отправитель»)
'Добавляем код пользователя в таблицу «Отправитель»
With rst
AddNew
! [Код пользователя] = UserNum. Value
Update
Bookmark =.LastModified
Close
End With
QuerySQL = «SELECT Документ.*» + _
«FROM Пользователь, Документ, [Список группы]» + _
«WHERE (Документ. Группа=[Список группы]. [Код группы]) And» + _
«([Список группы]. [Код пользователя]=Пользователь. [Код пользователя]) And» + _
«(Пользователь. [Код пользователя]=» + CStr (UserNum. Value) +»);»
Set rstCurrent = CurrentDb. OpenRecordset(QuerySQL)
Set rst = dbs. OpenRecordset («Документ»)
'Переписываем все записи групповых документов в таблицу «Документ»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код документа] = rstCurrent. Fields («Код документа»).Value
! [Дата отправки] = rstCurrent. Fields («Дата отправки»).Value
! [Дата получения] = rstCurrent. Fields («Дата получения»).Value
! [Описание документа] = rstCurrent. Fields («Описание документа»).Value
! [Документ] = rstCurrent. Fields («Документ»).Value
! [Отправитель] = rstCurrent. Fields («Отправитель»).Value
! [Получатель] = rstCurrent. Fields («Получатель»).Value
! [Группа] = rstCurrent. Fields («Группа»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rst. Close
End With
QuerySQL = «SELECT Документ.*» + _
«FROM Пользователь, Документ, Пользователь AS Пользователь_1» + _
«WHERE (Пользователь_1. [Код пользователя]=Документ. Получатель) And» + _
«(Пользователь. [Код пользователя]=Документ. Отправитель) And» + _
«(Пользователь_1. [Код пользователя]=» + CStr (UserNum. Value) +»);»
Set rstCurrent = CurrentDb. OpenRecordset(QuerySQL)
Set rstTable = CurrentDb. OpenRecordset («Документ»)
Set rst = dbs. OpenRecordset («Документ»)
'Переписываем все записи личных документов в таблицу «Документ»
With rst
Do While Not rstCurrent.EOF
AddNew
! [Код документа] = rstCurrent. Fields («Код документа»).Value
! [Дата отправки] = rstCurrent. Fields («Дата отправки»).Value
If IsNull (rstCurrent. Fields («Дата получения»).Value) Then
rstTable. Index = «PrimaryKey»
rstTable. Seek «=», Val (rstCurrent. Fields («Код документа»).Value)
rstTable. Edit
rstTable! [Дата получения] = Now
! [Дата получения] = rstTable! [Дата получения]
rstTable. Update
rstTable. Bookmark = rstTable. LastModified
Else
! [Дата получения] = rstCurrent. Fields («Дата получения»).Value
End If
! [Описание документа] = rstCurrent. Fields («Описание документа»).Value
! [Документ] = rstCurrent. Fields («Документ»).Value
! [Отправитель] = rstCurrent. Fields («Отправитель»).Value
! [Получатель] = rstCurrent. Fields («Получатель»).Value
! [Группа] = rstCurrent. Fields («Группа»).Value
Update
Bookmark =.LastModified
rstCurrent. MoveNext
Loop
rstCurrent. Close
rstTable. Close
rst. Close
End With
' Закрываем базу
dbs. Close
Set dbs = Nothing
End Sub
Приложение Б
Private Sub Form_Load()
Dim dbs As DAO. Database, rst, rstCurrent, rstTable As DAO. Recordset
Dim QuerySQL As String
Dim UserNum As Long
' Открываем базу администратора
Set dbs = DBEngine. OpenDatabase («C:\Program Files\СЭД\kmm.mdb», True)
Set rstCurrent = CurrentDb. OpenRecordset («Тип пользователя»)
Set rst = dbs. OpenRecordset («Тип пользователя»)
'Переписываем все записи из текущей таблицы «Тип пользователя»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код типа пользователя»).Value)
If. NoMatch Then
AddNew
! [Код типа пользователя] = rst. Fields («Код типа пользователя»).Value
! [Наименование типа] = rst. Fields («Наименование типа»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rst. Close
Set rstCurrent = CurrentDb. OpenRecordset («Пользователь»)
Set rst = dbs. OpenRecordset («Пользователь»)
'Переписываем все записи из текущей таблицы «Пользователь»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код пользователя»).Value)
If. NoMatch Then
AddNew
! [Код пользователя] = rst. Fields («Код пользователя»).Value
! [Ключ пользователя] = rst. Fields («Ключ пользователя»).Value
! [Ф.И.О.] = rst. Fields («Ф.И.О.»).Value
! [Тип пользователя] = rst. Fields («Тип пользователя»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Группа пользователей»)
Set rst = dbs. OpenRecordset («Группа пользователей»)
'Переписываем все записи из текущей таблицы «Группа пользователей»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код группы»).Value)
If. NoMatch Then
AddNew
! [Код группы] = rst. Fields («Код группы»).Value
! [Название группы] = rst. Fields («Название группы»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Список группы»)
Set rst = dbs. OpenRecordset («Список группы»)
'Переписываем все записи из текущей таблицы «Список группы»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код группы»).Value)
If. NoMatch Then
AddNew
! [Код группы] = rst. Fields («Код группы»).Value
! [Код пользователя] = rst. Fields («Код пользователя»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rst. Close
End With
Set rstCurrent = CurrentDb. OpenRecordset («Отправитель»)
'Считываем код пользователя из таблицы «Отправитель»
With rstCurrent
UserNum =! [Код пользователя]
Close
End With
QuerySQL = «SELECT Документ.*» + _
«FROM Пользователь, Документ, [Список группы]» + _
«WHERE (Документ. Группа=[Список группы]. [Код группы]) And» + _
«([Список группы]. [Код пользователя]=Пользователь. [Код пользователя]) And» + _
«(Пользователь. [Код пользователя]=» + CStr(UserNum) +»);»
Set rstCurrent = CurrentDb. OpenRecordset («Документ»)
Set rst = dbs. OpenRecordset(QuerySQL)
'Переписываем все записи групповых документов в таблицу «Документ»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код документа»).Value)
If. NoMatch Then
AddNew
! [Код документа] = rst. Fields («Код документа»).Value
! [Дата отправки] = rst. Fields («Дата отправки»).Value
! [Дата получения] = rst. Fields («Дата получения»).Value
! [Описание документа] = rst. Fields («Описание документа»).Value
! [Документ] = rst. Fields («Документ»).Value
! [Отправитель] = rst. Fields («Отправитель»).Value
! [Получатель] = rst. Fields («Получатель»).Value
! [Группа] = rst. Fields («Группа»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rst. Close
End With
QuerySQL = «SELECT Документ.*» + _
«FROM Пользователь, Документ, Пользователь AS Пользователь_1» + _
«WHERE (Пользователь_1. [Код пользователя]=Документ. Получатель) And» + _
«(Пользователь. [Код пользователя]=Документ. Отправитель) And» + _
«(IsNull (Документ. [Дата получения])) And» + _
«(Пользователь_1. [Код пользователя]=» + CStr(UserNum) +»);»
Set rstCurrent = CurrentDb. OpenRecordset («Документ»)
Set rstTable = dbs. OpenRecordset («Документ»)
Set rst = dbs. OpenRecordset(QuerySQL)
'Переписываем все записи личных документов в таблицу «Документ»
With rstCurrent
Do While Not rst.EOF
Index = «PrimaryKey»
Seek «=», Val (rst. Fields («Код документа»).Value)
If. NoMatch Then
AddNew
! [Код документа] = rst. Fields («Код документа»).Value
! [Дата отправки] = rst. Fields («Дата отправки»).Value
rstTable. Index = «PrimaryKey»
rstTable. Seek «=», Val (rst. Fields («Код документа»).Value)
rstTable. Edit
rstTable! [Дата получения] = Now
! [Дата получения] = rstTable! [Дата получения]
rstTable. Update
rstTable. Bookmark =.LastModified
! [Описание документа] = rst. Fields («Описание документа»).Value
! [Документ] = rst. Fields («Документ»).Value
! [Отправитель] = rst. Fields («Отправитель»).Value
! [Получатель] = rst. Fields («Получатель»).Value
! [Группа] = rst. Fields («Группа»).Value
Update
Bookmark =.LastModified
End If
rst. MoveNext
Loop
Close
rstTable. Close
rst. Close
End With
' Закрываем базу
dbs. Close
Set dbs = Nothing
End Sub
Private Sub Form_AfterInsert()
Dim dbs As DAO. Database, rst, rstCurrent, rstTable As DAO. Recordset
Dim QuerySQL As String
' Открываем базу администратора
Set dbs = DBEngine. OpenDatabase («C:\Program Files\СЭД\kmm.mdb», True)
QuerySQL = «SELECT * FROM Документ» + _
«WHERE [Код документа]=0;»
Set rstCurrent = CurrentDb. OpenRecordset(QuerySQL)
Set rstTable = CurrentDb. OpenRecordset («Документ»)
Set rst = dbs. OpenRecordset («Документ»)
'Переписываем все записи личных документов в таблицу «Документ»
With rst
AddNew
! [Дата отправки] = rstCurrent. Fields («Дата отправки»).Value
! [Описание документа] = rstCurrent. Fields («Описание документа»).Value
! [Документ] = rstCurrent. Fields («Документ»).Value
! [Отправитель] = rstCurrent. Fields («Отправитель»).Value
! [Получатель] = rstCurrent. Fields («Получатель»).Value
! [Группа] = rstCurrent. Fields («Группа»).Value
Update
Bookmark =.LastModified
rstTable. Index = «PrimaryKey»
rstTable. Seek «=», Val(0)
rstTable. Edit
rstTable! [Код документа] =! [Код документа]
rstTable. Update
rstTable. Bookmark = rstTable. LastModified
Close
rstTable. Close
rstCurrent. Close
End With
' Закрываем базу
dbs. Close
Set dbs = Nothing
End Sub
Private Sub Form_BeforeInsert (Cancel As Integer)
Dim rstCurrent As DAO. Recordset
Set rstCurrent = CurrentDb. OpenRecordset («Отправитель»)
'Считываем код пользователя из таблицы «Отправитель»
With rstCurrent
SenderField. Value =! [Код пользователя]
Close
End With
End Sub
Размещено на Allbest.ru
Подобные документы
Понятие системы электронного документооборота. Документ - способ упорядочения информации. Современные системы электронного оборота документации и их технические возможности. Обзор разработчиков СЭД. Глобальные государственные инициативы в этой сфере.
реферат [1,5 M], добавлен 09.12.2013Задачи системы электронного документооборота. Анализ существующих информационных систем. Методы и средства инженерии программного обеспечения. Концептуальная модель данных в BPWin. Построение инфологической модели системы документооборота "Doc_Univer".
курсовая работа [56,1 K], добавлен 25.03.2014Аппаратное, сетевое, программное обеспечение предприятия. Разработка системы электронного документооборота. Последовательность создания и технология построения информационной системы. Выбор системы управления базами данных, среды разработки приложения.
дипломная работа [1,5 M], добавлен 15.10.2013Современные электронные системы управления и работы с документами. Проблемы традиционных и электронных технологий ДОУ. Выбор эффективной СЭУД (классификация систем электронного управления документами). Защищенность электронного документооборота.
дипломная работа [124,9 K], добавлен 12.12.2007Анализ предметной области. Обоснование проектных решений по разработке автоматизированного рабочего места сотрудника канцелярии банка. Проектирование структуры базы данных и интерфейса системы. Разработка программных модулей и алгоритмов их работы.
дипломная работа [2,1 M], добавлен 18.10.2015Значение документооборота как средства для управления предприятием. Организации системы электронного документооборота и требований, предъявляемых к системам. Проблема выбора системы электронного документооборота на предприятиях малого и среднего бизнеса.
контрольная работа [31,8 K], добавлен 14.09.2015Основные принципы систем электронного документооборота. Комплексный подход к созданию СЭД. Описание особенностей среды разработки. Создание программного продукта, определение трудоемкости данного процесса и необходимых для его реализации затрат.
дипломная работа [3,2 M], добавлен 14.05.2012Назначение системы электронного документооборота. Построение функциональной модели поставки товаров в супермаркет. Основные свойства системы электронного документооборота ООО "Ксенокс". Особенности проектирования системы обеспечения продукцией в BPwin.
курсовая работа [1,4 M], добавлен 15.01.2010Описание высшего учебного заведения как отрасли производства. Основные задачи кафедры, организация документооборота. Анализ существующих средств электронного документооборота. Обоснование необходимости разработки, целей, назначения и структуры модели.
курсовая работа [345,4 K], добавлен 06.05.2011Основные понятия и преимущества электронного документооборота над бумажным. Проблемы внедрения системы, реализация электронного документооборота. Обеспечение подготовки, автоматизация, форматы и стандарты обмена. Обеспечение гарантированной доставки.
реферат [1,0 M], добавлен 23.02.2011
