Темой дипломного проекта являлась «Разработка системы управления электронным документооборотом на примере ООО «Курортное».

Целью создания системы документооборота является разработка программного обеспечения, реализующего информационные технологии и автоматизирующего бизнес процесс передачи документа между сотрудниками организации.

В результате был реализован программный продукт, призванный помочь в автоматизации документооборота.

В процессе написания дипломного проекта было выполнено следующее:

- анализ предметной области;

- анализ деятельности предприятия;

- анализ потоков информации на предприятии;

- проектирование базы данных;

- физическая реализация базы данных;

- разработка приложения пользователя;

- физическая реализация приложения пользователя.

Автоматизация деятельности документооборота в туристической фирме позволило достичь следующих целей:

- снизить уровень загруженности агента туристической фирмы;

- повысить уровень оперативности обслуживания клиентов;

- сократить издержки связанные с оформлением документации;

- повысить оперативность формирования периодической отчетности;

- повысить престижность фирмы, поскольку не каждая фирма разрабатывает программные продукты автоматизации процессов протекающих на предприятии;

- повысить уровень конкурентоспособности фирмы.

В результате дипломного проектирования были закреплены навыки, полученные в результате обучения, а также получены практические навыки в области реализации экономических информационных систем связанных с туристической деятельностью.

Дальнейшая модернизация программного продукта позволит создать полноценный комплекс программных средств в области автоматизации документооборота.

Реализованный программный продукт позволяет осуществлять быстрый обмен информацией, уменьшает количество затрачиваемого времени на передачу информации, сокращает до минимума количество формируемой отчетности.

Программный продукт был реализован с помощью системы управления базами данных Microsoft Access 2003, а также языка объектно-ориентированного программирования Borland Delphi 7.0. Оформление отчета осуществлялось с помощью интегрированного пакета Microsoft Office 2003.

Использование разработанной информационной системы должно помочь как руководителю предприятия, так и другим сотрудникам фирмы, работа которых связана автоматизируемой областью. Дальнейшая модернизация программного продукта приведет к увеличению получаемой выгоды от использования программного продукта.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ И ЛИТЕРАТУРЫ

1. Бакаревич Ю. Б. Самоучитель Microsoft Access / Ю. Бакаревич, Н.Пушкина.- 2003. - СПб.: БХВ-Петербург, 2002 - 402 с.

2. Барановская Т. П. и др. Информационные системы и технологии в экономике Т.П. Барановская.- Учебник. -2-е изд., доп. и перераб. - М.: Финансы и статистика, 2005 -- 416 с.

3. Благодатских В. А. и др. Стандартизация разработки программных средств / В.А Благодатских.- Учеб. пособие. - М.: Финансы и статистика, 2005. -- 288 с.

4. Бобровский С. Программирование в Delphi 7 / С.Бобровский. - СПб.: Информ-Пресс, 2003. - 806 c. : ил.

5. Бойко В.В. Проектирование баз данных информационных систем / В. Бойко, В.М Савинков. - М.: Финансы и статистика, 2004.

6. Бондарева Г.А. Информатика / Е.В. Сахарова, Л.Н. Королькова,- Ставрополь, СТИС, 2006

7. Вендров А. М. Проектирование программного обеспечения экономических информационных систем / А.М. Вендеров.-Учебник. -2-е изд., перераб. и доп. -М.: Финансы и статистика, 2005. -- 544 с.

8. Гетия И. Г. Безопасность при работе на ПЭВМ / И.Г Гетия. - М.: НПЦ Профессионал-Ф, 2001. -- 140 с.

9. Гончаров А. Ю. Access 2003. Самоучитель с примерами / А.Ю Гончаров. М.: Инфра-М, 2004 - 385 с.

10. Горев А. Эффективная работа с СУБД / А. Горев. - СПб.: Питер, 1997. - 704с.: ил.

11. Гофман В. Э и др. Delphi 7 / В.Э Горфман, А.Д Хомоненко. - СПб.: BHV, 2004. - 1216 с. : ил.

12. Дарахвелидзе, П.Г. Программирование в Delphi7 / П.Г Дарахвелидзе.- СПб.: БХВ-Петербург, 2003. - 784 с.

13. Каймин В.А. Информатика: Учебник. - 5-ое издание / В.А Каймин. - М.: ИНФРА-М, 2007 - 244 с.

14. Карпова Т. С. Базы данных: модели, разработка, реализация: учеб. пособие для вузов / Т.С Карпов.- СПб.: Питер, 2001. -304с.: ил.

15. Конеев И. Информационная безопасность предприятия / И.Конеев. - СПб.: БХВ-Петербург, 2003. -- 733 с.

16. Лугачев М. И. и др. Экономическая информатика: введение в экономический анализ / М.И Лугачев. - М.: Инфра-М, 2005. --569 с.

17. Маклаков С. В. ВРWin и ERWin. САSЕ-средства разработки информационных систем С.В Маклаков. - М.: Диалог-МИФИ, 1999 - 455 с.: ил.

18. Мельников В. В. Безопасность информации в автоматизированных системах / В.В Мельников. -- М.: Финансы и статистика, 2003. -- 368 с.

19. Мишенин А. И. Теория экономических информационных систем / А.И Мишенин. -- М.: Финансы и статистика, 2000. -- 240 с.

20. Норенков И. П. Основы автоматизированного проектирования И.П Норенков.- Учебник для вузов. -- М.: МГТУ им. Н. Э. Баумана, 2002. -- 336

21. Орлов С. Технологии разработки программного обеспечения / С.Орлов.- Учебное пособие. 2-е изд. -- СПб.: Питер, 2003. -- 480 с.

22. Партыка Т. Л. Информационная безопасность / Т.Л Партыка. - М.ИНФРА-М, 2002. -- 367 с.

23. Петров, В. Н. Информационные системы: учеб. пособие для вузов / В.Н Петров. - СПб.: Питер, 2002. - 688 с.

24. Савицкая Г. В. Анализ хозяйственной деятельности предприятия / Г. Савицкая.-Учебник. - М.: Инфра-М, 2003. -- 400 с.

25. Савицкий Н. И. Экономическая информатика / Н.И Савицкий. - М.: Экономист, 2004. -- 429 с.

26. Смирнова Г. Н. и др. Проектирование экономических информационных систем: Учебник / Г.Н Смирнова, Под ред. Ю. Ф. Тельнова. - М.: Финансы и статистика, 2002. -- 512 с.

27. Фаронов И. В. Программирование баз данных в Delphi 7: учебный курс / И.В Фаронов. - СПб.: Питер, 2005. - 295 с. : ил.

28. Чекалов А. Базы данных: от проектирования до разработки приложений А. Чекалов. - СПб: BHV, 2003. -- 384 c.

29. Шкарина Л. Язык 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;

mplementation

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)