Файл: Задачи автоматизации и характеристика существующих бизнес процессов.pdf

//Переходим к первой записи набора adoZal

adozal.First;

if adozal.locate('Kod_Sean', nKod_Sean,[]) then

begin

iStetchik:=1;

iProd:=0;

iRad:=1;

iMesto:=1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

while iStetchik <11 do

begin

if adozal.FieldByName(sMestoPolnoe).AsBoolean=true then iProd:=iProd+1;

iMesto:=iMesto+1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

iStetchik:=iStetchik+1;

end;

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

Заключение

Итак, в результате исследования была разработана программа системы бронирования билетов в театре.

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

Для разработки программного обеспечения был выбран объктно-ориентированный визуально-программируемый язык высокого уровня Delphi 7, содержащий в себе возможности по обработке базы данных, сопоставимые с возможностями СУБД. А широкий ассортимент методов и моделей доступа к данным позволил спроектировать приложения максимально комфортным способом.

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

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

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

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

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

Список используемой литературы

1. Алешин Л.И.: Информационные технологии. - М.: Литера, 2008
2. Архангельский А.Я.: Delphi 7. - М.: БИНОМ, 2004
3. Архангельский А.Я.: Программирование в Delphi для Windows. - М.: Бином-Пресс, 2007
4. Архангельский А.Я.: Программирование в Delphi для Windows. - М.: Бином-Пресс, 2007
5. Балдин К.В.: Информационные системы в экономике. - М.: Дашков и К, 2006
6. Бобровский СИ.: Delphi 7. - СПб.: Питер, 2005
7. Бобровский СИ.: Delphi 7. - СПб.: Питер, 2006
8. Бобровский СИ.: Delphi 7. - СПб.: Питер, 2008
9. Боровский А.Н.: Программирование в Delphi 2005. -СПб.: БХВ-Петербург, 2005
10. Браун С: Visual Basic 6. - СПб.: Питер, 2007
11. Герчикова Т.М.: Как создать мультимедийное приложение на персональном компьютере: Все, что Вы хотели знать, но боялись спросить. - М.: Бук-Пресс и К, 2005
12. Гобарева Я.Л.: Технология экономических расчетов средствами MS Exsel. - М.: КноРус, 2006
13. Голенищев Э.П.: Информационное обеспечение систем управления. - Ростов н/Д: Феникс. 2010
14. ДнепровАХ.: Видеосамоучитель. Microsoft Access 2007. - СПб.: Питер, 2008
15. Емельянов в.п.: Основы программирования на Delphi. - М.: Высшая школа, 2005
16. Зубов Ал Программирование на Delphi. - СПб.: Питер, 2005
17. Избачков Ю.С.: Информационные системы. - СПб.: Питер, 2008
18. Избачков Ю.С: Информационные системы. - СПб.:
19. Избачков Ю.С: Информационные системы. - СПб.: Питер, 2008
20. Корняков В.Н.: Программирование документов и приложений MS Office в Delphi. - СПб.: БХВ-Петербург, 2006
21. Кузнецов A.: Microsoft Access 2003. Русская версия. - СПб.-Киев: Питер; ИД BHV, 2006
22. Кузовкин А.В.: Управление данными. - М.: Академия. 2010
23. Культин Н.Б.: Delphi в задачах и примерах. - СПб.: БХВ-Петербург, 2006
24. Малыхина М.П.: Базы данных: основы, проектирование, использование. - СПб.: БХВ-Петербург, 2007
25. Микрюков В.Ю.: Алгоритмизация и программирование. - Ростов на/Д: Феникс, 2007
26. Михеева Е.В.: Информационные технологии в профессиональной деятельности. - М.: Академия, 2011
27. Михеева Е.В.: Информационные технологии в профессиональной деятельности. - М.: Академия. 2010
28. Михелёв В.М.: Базы данных и СУБД. - Белгород:
29. Могилев А.В.: Информатика. - М.: Академия, 2008
30. Могилев А.В.: Информатика. - М.: Академия, 2009
31. Под общ. ред. д-ра экон. наук, профессора П.В. Акинина: Информационные системы в экономике: Практикум. - М.: КНОРУС, 2008
32. под общ. ред. П.В. Акинина ; сост.: Е.Л. Торопцев и др.; рец.: Р.Г. Закинян, А.н. Байдаков: Информационные системы в экономике. - М.: КноРус, 2008
33. Под ред. В. Озерова: Delphi. Советы программистов. - СПб.: Символ-Плюс, 2004
34. Под ред. проф. А.Н. Романова, проф. Б.Е. Одинцова: Информационные системы в экономике. - М.: Вузовский учебник, 2008
35. Под ред. СВ. Симоновича ; рец.: Каф. Московского гос. технического ун-та им. Н.Э. Баумана, СВ. Калин: Информатика. - СПб.: Питер, 2010
36. Под ред. СВ. Симоновича ; рец.: Кафедра САПР Московского гос. технического ун-та им. Н.Э. Баумана, СВ. Калин: Информатика. - СПб.: Питер, 2009
37. Ревич, Ю. Нестандартные приемы программирования на Delphi / Ю. Ревич. - М.: БХВ-Петербург, 2008. - 560 c.
38. Рец.: П.Л. Салманов и др.; В.И. Чернов и др.: Информатика. - М.: Дрофа, 2008
39. Родигин Л.А.: Базы данных для карманного персонального компьютера Pocket PC. - М.: КноРус, 2008
40. Сергеев А.В.: Access 2007. Новые возможности. -СПб.: Питер, 2008
41. Сорокин А.В.: Delphi. Разработка баз данных. -СПб.: Питер, 2005
42. Угринович Н.Д.: Исследование информационных моделей. Элективный курс. - М.: БИНОМ. Лаборатория знаний, 2006
43. Угринович Н.Д.: Исследование информационных моделей. Элективный курс. - М.: БИНОМ. Лаборатория знаний, 2004
44. Уткин В.Б.: Информационные системы в экономике. - М.: Академия, 2010
45. Фаронов В.В.: Delphi 2005. - СПб.: Питер, 2006
46. Филимонова Е.В.: Информационные технологии в профессиональной деятельности. - Ростов н/Д: Феникс, 2009
47. Флёнов М.Е.: Программирование в Delphi глазами хакера. - СПб.: БХВ-Петербург, 2004
48. Харуто А.В.: Музыкальная информатика. - М.: ЛКИ, 2009
49. Чиртик А.А.: Delphi. Трюки и эффекты. - СПб.: Питер, 2007
50. Чиртик А.А.: Программирование в Delphi. - СПб: Питер, 2010
51. Шаронов В.В.: Delphi 2005. Разработка приложений для баз данных и Интернета. - СПб.: Питер, 2006
52. Шаронов В.В.: Delphi 2005. Язык, среда, разработка приложений. - СПб.: Питер, 2007
53. Шаронов В.В.: Delphi 2005. Язык, среда, разработка приложений. - СПб.: Питер, 2007
54. Шаронов В.В.: Delphi. Программирование на языке высокого уровня. - СПб.: Питер, 2008
55. Шаронов В.В.: Turbo Pascal. - СПб.: Питер, 2007
56. Шаронов В.В.: Программирование баз данных в Delphi 7. - СПб.: Питер, 2006
57. Шаронов В.В.: Система программирования Delphi. -СПб.: БХВ-Петербург, 2006

Шлёнов М.Е.: Delphi 2005. Секреты программирования.. - СПб.: Питер, 2006

Приложения

Приложение. Листинг разрабатываемого программного комплекса системы бронирования билетов

procedure TfrmZal.cmd_Obn_StatClick(Sender: TObject);

var

iStetchik: integer;

iProd: integer; //Число проданных билетов

nkod_Sean: integer; //Код сеанса

iRad: integer;

iMesto: integer;

sRad: string;

sMesto: string;

sMestoPolnoe: string;

begin

nkod_Sean:=dbLookup_Name_Sean.keyvalue;

//Переходим к первой записи набора adoZal

adozal.First;

if adozal.locate('Kod_Sean', nKod_Sean,[]) then

begin

iStetchik:=1;

iProd:=0;

iRad:=1;

iMesto:=1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

while iStetchik <11 do

begin

if adozal.FieldByName(sMestoPolnoe).AsBoolean=true then iProd:=iProd+1;

iMesto:=iMesto+1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

iStetchik:=iStetchik+1;

end;

iStetchik:=1;

iRad:=2;

iMesto:=1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

while iStetchik <11 do

begin

if adozal.FieldByName(sMestoPolnoe).AsBoolean=true then iProd:=iProd+1;

iMesto:=iMesto+1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

iStetchik:=iStetchik+1;

end;

...

end;

iStetchik:=1;

iRad:=10;

iMesto:=1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

while iStetchik <11 do

begin

if adozal.FieldByName(sMestoPolnoe).AsBoolean=true then iProd:=iProd+1;

iMesto:=iMesto+1;

sRad:=inttostr(irad);

sMesto:=inttostr(imesto);

sMestoPolnoe:='Mesto_'+sRad+'_'+sMesto;

iStetchik:=iStetchik+1;

end;

lbl_Prod.caption:='Количество проданных билетов: '+inttostr(iprod);

lbl_Summa.caption:='Общая сумма продаж: '+inttostr(adoStoim.FieldByName('Stoim_Sean').Asinteger * iProd)+ ' руб.';

end;

end;

Модуль главной формы:

unit mdi;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;

type

TfrmMDI = class(TForm)

MainMenu1: TMainMenu;

mSpek: TMenuItem;

mVih: TMenuItem;

mAdm: TMenuItem;

N4: TMenuItem;

N2: TMenuItem;

mSean: TMenuItem;

mZal: TMenuItem;

Img_Zal: TImage;

imgVihod: TImage;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure mVihClick(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure mSpekClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure mSeanClick(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure imgVihodClick(Sender: TObject);

procedure mZalClick(Sender: TObject);

procedure Img_ZalClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMDI: TfrmMDI;

PathBD: string; //Глобальная переменная, пределяющая путь к базе данных.

TekPapka: string;//Глобальная переменная, содержащая текущую папку

implementation

uses logpass, logpassedit, Kopy_, Zal, Spek, Sean;

{$R *.dfm}

procedure TfrmMDI.FormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=caFree;

end;

procedure TfrmMDI.mVihClick(Sender: TObject);

begin

Close;

end;

procedure TfrmMDI.N2Click(Sender: TObject);

begin

Application.CreateForm(TfrmLogPassEdit,frmLogPassEdit);