Разработка систем управления электронными документооборотами на примере ООО "Курортное".

ОГЛАВЛЕНИЕ
ВВЕДЕНИЕ
ГЛАВА 1. АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ И РАЗРАБОТКА ТРЕБОВАНИЙ
1.1. Характеристика предприятия и его деятельности
1.2. Характеристика комплекса задач автоматизации и обоснование необходимости автоматизации
1.3. Анализ существующих разработок
1.3.1. Система электронного документооборота CompanyMedia.
1.3.2. Система электронного документооборота «БОСС-Референт»
1.3.3. Система электронного документооборота «ДЕЛО»
1.3.4. Система электронного документооборота «EOS for SharePoint»
1.3.5. Система электронного документооборота «ЕВФРАТ»
1.3.6. Система электронного документооборота «Directum»
1.4. Требования к разрабатываемому программному продукту
1.4.1. Функциональные требования
1.4.2. Требования к удобству использования
1.4.3. Требования к надежности
1.4.4. Требования к производительности
1.4.5. Требования возможности сопровождения
Выводы
ГЛАВА 2. ИССЛЕДОВАНИЕ, РАЗРАБОТКА ПРОЕКТНЫХ РЕШЕНИЙ И ВЫБОР МЕТОДОВ И ТЕХНОЛОГИЙ РЕШЕНИЯ ЗАДАЧИ
2.1. Разработка концептуальной модели
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Проектирование базы данных
2.5. Разработка дерева функций и сценария диалога с пользователем
Выводы
ГЛАВА 3. ПРОГРАММНАЯ РЕАЛИЗАЦИЯ ПРОГРАММНОГО ПРОДУКТА
3.1. Обоснование выбора средств разработки
3.2. Физическое проектирование базы данных
3.3. Физическая реализация программного продукта
3.4. Руководство для пользователей по эксплуатации программного продукта
3.4.1 Инструкция по работе с программным продуктом пользователю с набором прав менеджера по работе с клиентами
3.4.2 Инструкция по работе с программным продуктом пользователю с набором прав системного администратора
3.4.3 Инструкция по работе с программным продуктом пользователю с набором прав бухгалтера или директора
3.4.4 Внедрение информационной системы
Выводы
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ

Рис. 3.8. Таблица «Страна» в режиме конструктора
На рисунке 3.9 представлена схема данных.
Рис. 3.9. Схема данных.
3.3. Физическая реализация программного продукта
У всех документов можно выделить три стадии:
сформирован;
проверен;
исполнен.
Таким образом, для удобства работы с документами необходимо создать форму с тремя вкладками: Оформленные заявки, Утвержденные к исполнению заявки, Исполненные заявки. Разграничение таким образом документов позволит избежать путаницы в документации.
На рисунке 3.10 представлен макет главной формы программного продукта
Рис. 3.10. Макет главной формы
В процессе работы программного продукта вид формы может меняться, т.е. «пропадать» кнопки или отсутствовать некоторые пункты меню. На это будет влиять права пользователя.
При переключении вкладки будут изменяться отображаемые документы в зависимости от их статуса.
Главное меню также будет различаться в зависимости от прав пользователя, например, пункт администрирование будет доступен только системным администраторам. Это необходимо для того чтобы другие пользователи не могли изменять информацию о себе или других пользователях.
На рисунке 3.11 представлен макет формы справочников. С помощью данной формы будет редактироваться вся информация, содержащаяся в справочниках.

Рис. 3.11. Макет формы справочников.
Кроме того необходимо выделить и формы клиентов. На рисунке 3.12 представлен макет формы клиентов.

Рис. 3.12. Макет формы клиентов.
При запуске программного продукта должна отображаться форма авторизации, на которой должен вводиться пароль и логин пользователя, что обеспечит защиту от несанкционированного входа в систему.
На рисунке 3.13 представлен макет формы входа в систему
Рис. 3.13. Макет входа в систему.
Все символы вводимые в поле для ввода пароля будут заменяться на *, это необходимо для того чтобы случайные люди не смогли узнать пароль другого пользователя.
Переход между формами будет осуществляться преимущественно с помощью главного меню.
На рисунке 3.14 представлен макет формы отражающей полную информацию о заявке.
Рис. 3.14. Макет формы «Полная информация о заявке».
На рисунке 3.15 представлен макет формы администрирования.
Рис. 3.15. Макет формы «Пользователи».
Другие созданные формы могут иметь похожий интерфейс, что позволит пользователям не особо долго разбираться с программным продуктом.
3.4. Руководство для пользователей по эксплуатации программного продукта
Работа с информационной системой отличается для пользователей с различными правами, а также при внедрении программного продукта на предприятии.
3.4.1 Инструкция по работе с программным продуктом пользователю с набором прав менеджера по работе с клиентами
При запуске программного продукта появиться окно входа в систему, представлено на рисунке 3.16.

Рис. 3.16. Окно входа в систему
В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Smirnova» и пароль «111».
В случае, если пароль и логин указаны без ошибок появится главное окно программного продукта, представлено на рисунке 3.17.

Рис. 3.17. Главная форма программного продукта.
Главная форма имеет три вкладки: оформленные заявки, утвержденные к исполнению заявки, исполненные заявки. На них отображаются соответственно только что сформированные, уже проверенные и исполненные документы. В строке статуса отображается ФИО пользователя, текущая дата и время. В случае необходимости панель статуса можно отключить, осуществляется это с помощью главного меню.
В данном случае пользователь «Смирнова» не имеет права проверить данный документ, кнопка «Проверен» не активна, что означает, что она не обладает достаточными полномочиями. Как правило, проверять документ может только бухгалтер или директор организации.
На рисунке 3.18 представлена вкладка «Утвержденные к исполнению заявки».
Рис. 3.18. Главная форма. Утвержденные к исполнению заявки
В данном случае кнопка «Исполнен» активна, что означает, что пользователь может оказать услуги, согласно документу. При нажатии на кнопку «Исполнен» или «Проверен» заноситься информация об исполнителе или проверяющем в информацию о документе, а также дата, когда он был исполнен или утвержден
На рисунке 3.19 представлены уже исполненные документы.

Рис. 3.19. Главная форма. Исполненные заявки.
Для просмотра полной информации о документе необходимо нажать соответствующую кнопку на панели, при этом откроется форма «Полная информация о заявке», представлена на рисунке 3.20.

Рис. 3.20. Форма «Полная информация о документе»
На данной форме отражается не только полная информация о документе, но и кто создал документ, утвердил его или исполнил и когда. Некоторые поля остаются пустыми, в случае если документ не был проверен или исполнен. Редактирование данных полей невозможно, т.е. возможен только их просмотр.
Для того чтобы оформить нового клиента необходимо с помощью главного меню открыть форму «Клиенты» (меню «Справочники»).
На рисунке 3.21 представлена форма «Клиенты».
Рис. 3.21 - Форма «Клиенты».
На данной форме отображаются клиенты и полная информация по ним. Работа с данными осуществляется с помощью навигационного меню, представлено на рисунке 3.22.
Рис. 3.22. Навигационное меню.
В случае если какие-либо данные в списках выбора отсутствуют необходимо открыть соответствующую форму, это можно сделать с помощью главного меню на главной форме.
На рисунке 3.23 представлена форма «Страны».

Рис. 3.23. Форма «Страны».
С помощью данной формы осуществляется заполнение информации относительно стран, в которую могут поехать клиенты туристического агентства.
На рисунке 3.24 представлена форма «Курорты».

Рис. 3.24. Форма «Курорты».
С помощью данной формы редактируется информация относительно всех курортов с которыми сотрудничает организация.
Выход из программы можно осуществить следующими способами:
закрыть главную форму;
выбрать пункт в главном меню «Выход».
Можно заблокировать рабочее место, это осуществляется путем выбора пункта главного меню «Выйти из под пользователя».
После того как был выбран пункт «Выйти из под пользователя», осуществляется выход на форму авторизации. Для входа в систему придется заново ввести логин и пароль.
3.4.2 Инструкция по работе с программным продуктом пользователю с набором прав системного администратора
При запуске программного продукта появиться окно входа в систему, представлено на рисунке 3.25.

Рис. 3.25. Окно входа в систему
В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Sidorov» и пароль «123».
Системный администратор имеет полные права, а также имеет исключительное право по редактированию доступа к системе другим пользователям, кроме обычных элементов меню у системного администратора есть пункт главного меню «Администрирование». На рисунке 3.26 представлена главная форма, в случае если вход осуществлен под администратором.

Рис. 3.26. Главная форма.
Несмотря на дополнительное пункт меню, администратор не имеет права осуществлять исполнение или утверждение заявок, поэтому данные кнопки отсутствуют.
Системный администратор имеет несколько дополнительных таблиц, которые имеет право редактировать. На рисунке 3.27 представлен справочник «Пользователи».
Рис. 3.27. Справочник «Пользователи».
Данная форма отражает полные сведения относительно всех зарегистрированных в системе пользователях, а также их должностях и отделах в которых данные сотрудники работают.
На рисунке 3.28 представлена форма «Права»
Рис. 3.28. Форма «Права»
С помощью данной формы осуществляется настройка прав доступа каждого пользователя. Отражается их возможность формировать, утверждать и исполнять заявки.
На рисунке 3.29 представлена форма «Отделы»
Рис. 3.29. Форма «Отделы»
Данный справочник содержит перечень всех отделов организации. Необходим при регистрации новых пользователей.
На рисунке 3.30 представлена форма «Должности»
Рис. 3.30. Форма «Должности»
Данная форма содержит информацию о возможных должностях сотрудников и отделах.
Остальной функционал администратора системы электронного документооборота такой же как и у рассмотренного выше пользователя с правами туроператора.
Выход из информационной системы осуществляется точно так же, путем закрытия главного окна или выбора пункта «Выход» из меню «Файл» расположенного на главном меню.
3.4.3 Инструкция по работе с программным продуктом пользователю с набором прав бухгалтера или директора
При запуске программного продукта появиться окно входа в систему, представлено на рисунке 3.31.

Рис. 3.31. Окно входа в систему
В нем необходимо ввести пользователю свой логин и пароль, после чего нажать кнопку «Войти». При вводе символов в поле «Пароль» символы автоматически заменяются на «*». В данном случае был введен логин «Ivanenko» и пароль «111».
Права бухгалтера или директора отличаются от прав администратора, но в целом схожи с правами туроператора. Бухгалтер может проверять документы, однако не может создавать новые заявки или исполнять их. На рисунке 3.32 представлена главная форма программного продукта.
Рис. 3.32. Главная форма
Как видно из представленного выше рисунка кнопка «Добавить» заблокирована, зато кнопка «Проверен» разблокирована.
На рисунке 3.33 представлена главная форма программного продукта на вкладке утвержденные к исполнению заявки
Рис. 3.33. Главная форма. Утвержденные к исполнению заявки
Как видно из рисунка бухгалтер не имеет права исполнять заявки.
3.4.4 Внедрение информационной системы
При внедрении программного продукта или в случае, если база данных по какой-либо причине пустая, системному администратору, необходимо воспользоваться специальным логином «Admin» и паролем «111», для осуществления входа в систему.
После осуществления входа необходимо сразу же осуществить ввод пользователей и их прав, причем одно из прав должно называться «Администратор», данное название позволяет системе идентифицировать запись, которая будет иметь полный доступ к данным и иметь возможность администрирования правами.
После того, как были введены данные в базу данных относительно пользователей, данный логин с паролем отключаются, и не действует до тех пор, пока база данных не станет пустой по какой-либо причине.
Выводы
В результате был реализован программный продукт позволяющий снизить количество бумажной документации в туристическом агентстве, что позволяет повысить эффективность работы всего предприятия.
Реализация программного продукта осуществлялась с помощью объектно-ориентированного языка программирования Borland Delphi 7.0. и системы управления базами данных Microsoft Access 2003.
Программный продукт оснащен системой авторизации, что позволяет не только повысить безопасность использования программного продукта, но и нести ответственность сотрудником организации за работу с документацией.
В программном продукте был реализован документооборот исключительно туристических заявок, что составляет наибольший процент оформляемой документации на рассматриваемом предприятии. В дальнейшем возможно расширение функционала программного продукта с целью автоматизировать документооборот и остальных документов, формируемых значительно реже.
ЗАКЛЮЧЕНИЕ
Темой дипломного проекта являлась «Разработка системы управления электронным документооборотом на примере ООО «Курортное».
Целью создания системы документооборота является разработка программного обеспечения, реализующего информационные технологии и автоматизирующего бизнес процесс передачи документа между сотрудниками организации.
В результате был реализован программный продукт, призванный помочь в автоматизации документооборота.
В процессе написания дипломного проекта было выполнено следующее:
анализ предметной области;
анализ деятельности предприятия;
анализ потоков информации на предприятии;
проектирование базы данных;
физическая реализация базы данных;
разработка приложения пользователя;
физическая реализация приложения пользователя.
Автоматизация деятельности документооборота в туристической фирме позволило достичь следующих целей:
снизить уровень загруженности агента туристической фирмы;
повысить уровень оперативности обслуживания клиентов;
сократить издержки связанные с оформлением документации;
повысить оперативность формирования периодической отчетности;
повысить престижность фирмы, поскольку не каждая фирма разрабатывает программные продукты автоматизации процессов протекающих на предприятии;
повысить уровень конкурентоспособности фирмы.
В результате дипломного проектирования были закреплены навыки, полученные в результате обучения, а также получены практические навыки в области реализации экономических информационных систем связанных с туристической деятельностью.
Дальнейшая модернизация программного продукта позволит создать полноценный комплекс программных средств в области автоматизации документооборота.
Реализованный программный продукт позволяет осуществлять быстрый обмен информацией, уменьшает количество затрачиваемого времени на передачу информации, сокращает до минимума количество формируемой отчетности.
Программный продукт был реализован с помощью системы управления базами данных Microsoft Access 2003, а также языка объектно-ориентированного программирования Borland Delphi 7.0. Оформление отчета осуществлялось с помощью интегрированного пакета Microsoft Office 2003.
Использование разработанной информационной системы должно помочь как руководителю предприятия, так и другим сотрудникам фирмы, работа которых связана автоматизируемой областью. Дальнейшая модернизация программного продукта приведет к увеличению получаемой выгоды от использования программного продукта.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ
Бакаревич Ю. Б., Пушкина Н.В. Самоучитель Microsoft Access 2003. – СПб.: БХВ-Петербург, 2002 – 402 с.
Барановская Т. П. и др. Информационные системы и технологии в экономике: Учебник. — 2-е изд., доп. и перераб. — М.: Финансы и статистика, 2005 — 416 с.
Благодатских В. А. и др. Стандартизация разработки программных средств: Учеб. пособие. — М.: Финансы и статистика, 2005. — 288 с.
Бобровский С. Программирование в Delphi 7 – СПб.: Информ-Пресс, 2003. – 806 c. : ил.
Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 2004.
Бондарева Г.А., Сахарова Е.В., Королькова Л.Н., Информатика. Ставрополь, СТИС, 2006
Вендров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 2005. — 544 с.
Гетия И. Г. Безопасность при работе на ПЭВМ. — М.: НПЦ Профессионал-Ф, 2001. — 140 с.
Гончаров А. Ю. Access 2003. Самоучитель с примерами. – М.: Инфра-М, 2004 – 385 с.
Горев А. Эффективная работа с СУБД. - СПб.: Питер, 1997. – 704с.: ил.
Гофман В. Э., Хомоненко А.Д. и др. Delphi 7 - СПб.: BHV, 2004. – 1216 с. : ил.
Дарахвелидзе, П.Г. Программирование в Delphi 7. - СПб.: БХВ-Петербург, 2003. – 784 с.
Каймин В.А. Информатика: Учебник. - 5-ое издание - М.: ИНФРА-М, 2007 – 244 с.
Карпова Т. С. Базы данных: модели, разработка, реализация: учеб. пособие для вузов - СПб.: Питер, 2001. –304с.: ил.
Конеев И. Информационная безопасность предприятия. — СПб.: БХВ-Петербург, 2003. — 733 с.
Лугачев М. И. и др. Экономическая информатика: введение в экономический анализ. — М.: Инфра-М, 2005. —569 с.
Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки информационных систем - М.: Диалог-МИФИ, 1999 - 455 с.: ил.
Мельников В. В. Безопасность информации в автоматизированных системах. — М.: Финансы и статистика, 2003. — 368 с.
Мишенин А. И. Теория экономических информационных систем. — М.: Финансы и статистика, 2000. — 240 с.
Норенков И. П. Основы автоматизированного проектирования: Учебник для вузов. — М.: МГТУ им. Н. Э. Баумана, 2002. — 336 с.
Орлов С. Технологии разработки программного обеспечения. Учебное пособие. 2-е изд. — СПб.: Питер, 2003. — 480 с.
Партыка Т. Л. Информационная безопасность. — М.ИНФРА-М, 2002. — 367 с.
Петров, В. Н. Информационные системы: учеб. пособие для вузов - СПб.: Питер, 2002. – 688 с.
Савицкая Г. В. Анализ хозяйственной деятельности предприятия: Учебник. — М.: Инфра-М, 2003. — 400 с.
Савицкий Н. И. Экономическая информатика. — М.: Экономистъ, 2004. — 429 с.
Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Под ред. Ю. Ф. Тельнова. — М.: Финансы и статистика, 2002. — 512 с.
Фаронов И. В. Программирование баз данных в Delphi 7: учебный курс. - СПб.: Питер, 2005. - 295 с. : ил.
Чекалов А. Базы данных: от проектирования до разработки приложений. — СПб: BHV, 2003. — 384 c.
Шкарина Л. Язык SQL:учебный курс. – СПб.: Питер, 2001.
ПРИЛОЖЕНИЕ 1
Ниже представлен листинг программного продукта.
unit LogUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Mask, DBCtrls, jpeg;
type
TLogForm = class(TForm)
Panel1: TPanel;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
MaskEdit1: TMaskEdit;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LogForm: TLogForm;
implementation
uses DMUnit, MainUnit;
{$R *.dfm}
procedure TLogForm.Button1Click(Sender: TObject);
Var Access:boolean;
a,b,Empt:string;
begin
a:=Edit1.Text;
b:=MaskEdit1.Text;
Access:=false;
if (Dm.User.RecordCount=0) or (not Dm.ADOConnection1.Connected) then
Begin
if (Edit1.Text='Admin') and (MaskEdit1.Text='111') then Access:=true
End
Else
Begin
Dm.User.First;
while not (Dm.User.Eof) do
Begin
if (a=Dm.User.FieldByName('Логин').AsString) and (b=Dm.User.FieldByName('Пароль').AsString) then Access:=true;
Dm.User.Next;
End;
End;
if Access then
Begin
try
Dm.User.Locate('Логин', a,[]);
MainForm.StatusBar1.Panels[1].Text:=Dm.User.FieldByName('ФИО').AsString;
MainUnit.Filter:='';
Dm.Adm.Locate('КодПрава',Dm.User.FieldByName('КодПрава').AsInteger,[]);
if (Dm.Adm.FieldByName('Название').AsString='Администратор') or (Edit1.Text='Admin') then MainForm.N4.Visible:=true
else MainForm.N4.Visible:=false;
MainUnit.Form:=Dm.Adm.FieldByName('Формирование').AsBoolean;
MainUnit.Utv:=Dm.Adm.FieldByName('Утверждение').AsBoolean;
MainUnit.Isp:=Dm.Adm.FieldByName('Исполнение').AsBoolean;
MainUnit.UserIndex:=Dm.User.FieldByName('КодПользователя').AsInteger;
except
end;
MainForm.TabSheet1.Show;
MainForm.Show;
LogForm.Visible:=False;
End;
end;
end.
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, ExtCtrls, Grids, DBGrids, StdCtrls;
type
TMainForm = class(TForm)
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
StatusBar1: TStatusBar;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
N5: TMenuItem;
N6: TMenuItem;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
Timer1: TTimer;
procedure TabSheet1Show(Sender: TObject);
procedure TabSheet2Show(Sender: TObject);
procedure TabSheet3Show(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
Utv, Isp, Form:boolean;
UserIndex: integer;
Filter:string;
implementation
uses DMUnit, LogUnit, AdmUnit, ClientsUnit, CountryUnit, DepUnit, PostUnit,
ResUnit, RuleUnit, FIUnit;
{$R *.dfm}
procedure TMainForm.TabSheet1Show(Sender: TObject);
begin
Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null))'+ Filter;
Button1.Visible:=true;
Button1.Caption:='Проверен';
Button2.Enabled:=Form;
Button1.Enabled:=Utv;
Button3.Visible:=true;
end;
procedure TMainForm.TabSheet2Show(Sender: TObject);
begin
Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]<>Null) and ([Исполнитель]=Null))'+Filter;
Button1.Visible:=true;
Button1.Caption:='Исполнен';
Button2.Enabled:=Form;
Button1.Enabled:=Isp;
Button3.Visible:=false;
end;
procedure TMainForm.TabSheet3Show(Sender: TObject);
begin
Dm.Claim.Filter:='(([Сформировал]<>Null) and ([Утвердил]<>Null) and ([Исполнитель]<>Null))'+ Filter;
Button1.Visible:=false;
Button2.Enabled:=Form;
Button3.Visible:=false;
end;
procedure TMainForm.N5Click(Sender: TObject);
begin
MainForm.Hide;
LogForm.Show;
LogForm.Edit1.Text:='';
LogForm.MaskEdit1.Text:='';
end;
procedure TMainForm.N6Click(Sender: TObject);
begin
MainForm.Close;
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
LogForm.Close;
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
Dm.Claim.Filter:='([Сформировал]<>Null) and ([Утвердил]=Null) and ([Исполнитель]=Null)';
Button1.Visible:=true;
Button1.Caption:='Проверен';
Button2.Enabled:=Form;
Button1.Enabled:=Utv;
Button3.Visible:=true;
N7.Checked:=true;
end;
procedure TMainForm.N7Click(Sender: TObject);
begin
StatusBar1.Visible:=N7.Checked;
StatusBar1.Top:=583;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[3].Text:=DateToStr(Now);
StatusBar1.Panels[5].Text:=TimeToStr(Now);
end;
procedure TMainForm.N11Click(Sender: TObject);
begin
ClientForm.Show;
end;
procedure TMainForm.N10Click(Sender: TObject);
begin
CountryForm.Show;
end;
procedure TMainForm.N14Click(Sender: TObject);
begin
ResForm.Show;
end;
procedure TMainForm.N8Click(Sender: TObject);
begin
UserForm.Show;
end;
procedure TMainForm.N9Click(Sender: TObject);
begin
RuleForm.Show;
end;
procedure TMainForm.N12Click(Sender: TObject);
begin
PostForm.Show;
end;
procedure TMainForm.N13Click(Sender: TObject);
begin
OtdForm.Show;
end;
procedure TMainForm.Button4Click(Sender: TObject);
begin
FIForm.Show;
end;
procedure TMainForm.Button5Click(Sender: TObject);
begin
if dm.Claim.Modified then Dm.Claim.Post;
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
Dm.Claim.Delete;
end;
procedure TMainForm.Button2Click(Sender: TObject);
begin
Dm.Claim.Insert;
FIForm.Show;
end;
procedure TMainForm.Button1Click(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
0: Begin
Dm.Claim.Edit;
Dm.Claim.FieldByName('Утвердил').AsInteger:=MainUnit.UserIndex;
Dm.Claim.FieldByName('ДатаУтверждения').AsDateTime:=Now;
Dm.Claim.Post;
End;
1: Begin
Dm.Claim.Edit;
Dm.Claim.FieldByName('Исполнитель').AsInteger:=MainUnit.UserIndex;
Dm.Claim.FieldByName('ДатаИсполнения').AsDateTime:=Now;
Dm.Claim.Post;
End;
End;
end;
end.
unit PostUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Mask;
type
TPostForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
PostForm: TPostForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit ResUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids;
type
TResForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
ResForm: TResForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit RuleUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, ExtCtrls, Grids, DBGrids;
type
TRuleForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
DBCheckBox1: TDBCheckBox;
DBCheckBox2: TDBCheckBox;
DBCheckBox3: TDBCheckBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
RuleForm: TRuleForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
program SED;
uses
Forms,
LogUnit in 'LogUnit.pas' {LogForm},
DMUnit in 'DMUnit.pas' {DM: TDataModule},
MainUnit in 'MainUnit.pas' {MainForm},
CountryUnit in 'CountryUnit.pas' {CountryForm},
ResUnit in 'ResUnit.pas' {ResForm},
ClientsUnit in 'ClientsUnit.pas' {ClientForm},
AdmUnit in 'AdmUnit.pas' {UserForm},
RuleUnit in 'RuleUnit.pas' {RuleForm},
PostUnit in 'PostUnit.pas' {PostForm},
DepUnit in 'DepUnit.pas' {OtdForm},
FIUnit in 'FIUnit.pas' {FIForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TLogForm, LogForm);
Application.CreateForm(TDM, DM);
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TCountryForm, CountryForm);
Application.CreateForm(TResForm, ResForm);
Application.CreateForm(TClientForm, ClientForm);
Application.CreateForm(TUserForm, UserForm);
Application.CreateForm(TRuleForm, RuleForm);
Application.CreateForm(TPostForm, PostForm);
Application.CreateForm(TOtdForm, OtdForm);
Application.CreateForm(TFIForm, FIForm);
Application.Run;
end.
unit AdmUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, StdCtrls, Mask, ExtCtrls, Grids, DBGrids;
type
TUserForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label5: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label6: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
private
{ Private declarations }
public
{ Public declarations }
end;
var
UserForm: TUserForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit ClientsUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
type
TClientForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
ClientForm: TClientForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit CountryUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
type
TCountryForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
CountryForm: TCountryForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit DepUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids;
type
TOtdForm = class(TForm)
DBGrid1: TDBGrid;
Panel1: TPanel;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
OtdForm: TOtdForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
unit DMUnit;
interface
uses
SysUtils, Classes, DB, ADODB, XPMan;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
Country: TADOTable;
XPManifest1: TXPManifest;
Clients: TADOTable;
Post: TADOTable;
Claim: TADOTable;
Depart: TADOTable;
Resort: TADOTable;
User: TADOTable;
Adm: TADOTable;
CountryDSDesigner: TAutoIncField;
CountryDSDesigner2: TWideStringField;
AdmDSDesigner: TAutoIncField;
AdmDSDesigner2: TWideStringField;
AdmDSDesigner3: TBooleanField;
AdmDSDesigner4: TBooleanField;
AdmDSDesigner5: TBooleanField;
UserDSDesigner: TAutoIncField;
UserDSDesigner2: TWideStringField;
UserDSDesigner3: TWideStringField;
UserDSDesigner4: TWideStringField;
UserDSDesigner5: TIntegerField;
UserDSDesigner6: TIntegerField;
UserDSDesigner7: TIntegerField;
DepartDSDesigner: TAutoIncField;
DepartDSDesigner2: TWideStringField;
ResortDSDesigner2: TWideStringField;
ResortDSDesigner3: TWideStringField;
ResortDSDesigner4: TIntegerField;
ResortField: TStringField;
ClientsDSDesigner: TAutoIncField;
ClientsDSDesigner2: TWideStringField;
ClientsDSDesigner3: TWideStringField;
ClientsDSDesigner4: TWideStringField;
ClientsDSDesigner5: TWideStringField;
ClientsDSDesigner6: TDateTimeField;
ClientsDSDesigner7: TWideStringField;
ClientsDSDesigner8: TWideStringField;
ClientsEmail: TWideStringField;
ClaimDSDesigner: TAutoIncField;
ClaimDSDesigner2: TWideStringField;
ClaimDSDesigner3: TSmallintField;
ClaimDSDesigner4: TSmallintField;
ClaimDSDesigner5: TDateTimeField;
ClaimDSDesigner6: TDateTimeField;
ClaimDSDesigner7: TIntegerField;
ClaimDSDesigner10: TIntegerField;
ClaimDSDesigner11: TIntegerField;
ClaimDSDesigner12: TIntegerField;
ClaimDSDesigner13: TDateTimeField;
ClaimDSDesigner14: TDateTimeField;
ClaimDSDesigner15: TDateTimeField;
PostDSDesigner: TAutoIncField;
PostDSDesigner2: TWideStringField;
UserField: TStringField;
UserField2: TStringField;
UserField3: TStringField;
ClaimStringField: TStringField;
ClaimField: TStringField;
ClaimField2: TStringField;
ClaimIntegerField2: TStringField;
DSAdm: TDataSource;
DSClaim: TDataSource;
DSClients: TDataSource;
DSCountry: TDataSource;
DSDepart: TDataSource;
DSPost: TDataSource;
DSResort: TDataSource;
DSUser: TDataSource;
ResortDSDesigner: TAutoIncField;
ClaimDSDesigner8: TIntegerField;
ClaimField3: TStringField;
procedure ClaimAfterInsert(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
uses MainUnit;
{$R *.dfm}
procedure TDM.ClaimAfterInsert(DataSet: TDataSet);
begin
Dm.Claim.FieldByName('Сформировал').AsInteger:=MainUnit.UserIndex;
Dm.Claim.FieldByName('ДатаФормирования').AsDateTime:=Now;
end;
end.
unit FIUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;
type
TFIForm = class(TForm)
Label1: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label2: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label3: TLabel;
DBEdit1: TDBEdit;
Label4: TLabel;
DBEdit2: TDBEdit;
Label5: TLabel;
DBEdit3: TDBEdit;
Label6: TLabel;
DBEdit4: TDBEdit;
Label7: TLabel;
DBEdit5: TDBEdit;
GroupBox1: TGroupBox;
Label8: TLabel;
Label9: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
DBEdit6: TDBEdit;
GroupBox2: TGroupBox;
Label10: TLabel;
Label11: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
DBEdit7: TDBEdit;
GroupBox3: TGroupBox;
Label12: TLabel;
Label13: TLabel;
DBLookupComboBox5: TDBLookupComboBox;
DBEdit8: TDBEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
FIForm: TFIForm;
implementation
uses DMUnit;
{$R *.dfm}
end.
4