Билетная касса кинотеатра

Разработка приложения «Билетная касса кинотеатра». Технология: Delphi 7 + MS Access + MS Excel. Файл содержит: пояснительная записка 169 страницы, установочные файлы, исходные файлы, файл базы данных и файл таблицы.
Дипломный проект защищен на отлично. ...

ВВЕДЕНИЕ
1 АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1 Анализ предметной области
1.1.1 Общая характеристика кинотеатра
1.1.2 Описание предметной области
1.1.3 Объектная модель предметной области
1.2 Анализ существующих автоматизированных информационных систем для кинотеатра на рынке программных продуктов
1.3 Этапы разработки информационно-моделирующей системы
1.4 Анализ информационно-моделирующей системы
1.4.1 Назначение и цели создания информационно-моделирующей системы
1.4.2 Основные требования к информационно-моделирующей системе
1.5 Обоснование выбора СУБД
2 ПРОЕКТНАЯ ЧАСТЬ
2.1 Функциональная структура информационно-моделирующей системы
2.2 Проектирование базы данных
2.3 Проектирование алгоритмов работы автоматизированной информационной системы для кинотеатра
2.3.1 Проектирование алгоритма работы модуля «Регистрация фильма»
2.3.2 Проектирование алгоритма работы модуля «Планирование показов»
2.3.3 Проектирование алгоритма работы модуля «Продажа билетов»
2.3.4 Проектирование алгоритма работы модуля «Предоставление отчетов», «Предоставление статистики» и «Ведение списка сотрудников»
2.4 Проектирование логики диалога с пользователем
2.5 Реализация автоматизированной информационной системы для кинотеатра
2.5.1 Используемые программные средства
2.5.2 Реализация работы автоматизированной информационной системы кинотеатра
2.5.3 Документальное описание информационной системы
3 ЭКОНОМИЧЕСКАЯ ЧАСТЬ
3.1 Расчет затрат на разработку программного продукта
3.2 Расчет проектных затрат
3.3 Расчет заработной платы
4 ОХРАНА ТРУДА
4.1 Анализ вредных и опасных факторов при работе с ПК
4.2 Общие требования безопасности
4.3 Требования безопасности перед началом работы
4.4 Требования безопасности при выполнении работы
4.5 Требования безопасности в аварийных ситуациях
4.6 Требования безопасности по окончании работы
ЗАКЛЮЧЕНИЕ
СПИСОК ЛИТЕРАТУРЫ
ПРИЛОЖЕНИЕ

На сегодняшний день в большинстве городов нашей страны кинотеатры имеют достаточно высокий и стабильный уровень посещаемости. В тоже время организация работы кинотеатра включает в себя целый ряд сложных комплексных бизнес-задач. К данным задачам относится планирование показов фильмов в различных залах кинотеатра, ведение учета проданных или забронированных билетов, организация работы сотрудников кинотеатра, а также ведение отчетной документации. Перечисленные аспекты работы кинотеатра являются одними из важнейших, так как они характеризуют доходность учреждения.
Контроль и координирование данных задач вручную – процесс трудоемкий и затратный, поэтому для мониторинга организации работы кинотеатра используются современные технологии и автоматизированные информационные системы.
Введение автом атизированных информационных систем позволит повысить оперативность, качество обработки информации, производительность труда, профессиональную грамотность специалистов, занятых деятельностью кинотеатра.
Объектом исследования в работе является автоматизированная информационная система работы кинотеатра, в которой осуществляется информационное обеспечение управления. Предмет исследования – совокупность элементов информационного обеспечения, связей и отношений между подсистемами и компонентами информационной системы, работающей с данными, хранящимися в базе данных.
 
Базы данных являются современной формой организации, хранения и доступа к информации. Успех любого приложения зависит от того, насколько хорошо смоделирована и разработана база данных приложения.
Актуальностью данной работы является использование информационных технологий, позволяющих автоматизировать учет деятельности кинотеатра.
Таким образом, целью данного дипломного проекта является разработка автоматизированной информационной системы для кинотеатра, которая должна предоставлять возможность планировать показы фильмов в залах кинотеатра, вести учет проданных и забронированных билетов, осуществлять мониторинг работы персонала кинотеатра и предоставлять отчетную документацию по работе кинотеатра.
Для достижения поставленной цели необходимо решить следующие задачи:
- анализ предметной области;
- анализ информационно-моделирующей системы;
- проектирование и реализация концептуальной схемы базы данных;
- проектирование алгоритмов работы приложения;
- разработка интуитивно-понятного пользовательского интерфейса;
- оценка стоимости разработки автоматизированной системы.

QRasch.FieldByName('tn').AsInteger; kol:=DaysBetween(DTPS.Date,DTPPo.Date)+1; DecodeDate(DTPS.Date, wy,wm,wd); DecodeTime(DTime.Time, myHour, myMin, mySec, myMilli); try DM2.ADOConnection1.BeginTrans; for i:=1 to kol do begin d:=EncodeDate(wy,wm,wd); sd:=IntToStr(wd); sm:=IntToStr(wm); DM2.QIns.SQL.Clear; //DM2.QIns.SQL.Add('select count(*) as c from Показы where [Дата и время показа]=#'+sd+'/'+sm+'/'+IntToStr(wy)+' '+IntToStr(myHour)+':'+'0'+IntToStr(myMin)+':'+'0'+IntToStr(mySec)+'# and [Номер зала]='+ComboBox1.Text); DM2.QIns.SQL.Add('select count(*) as c from Показы where [Дата и время показа]=dateserial('+IntToStr(wy)+','+sm+','+sd+') + #'+IntToStr(myHour)+':'+IntToStr(myMin)+':'+IntToStr(mySec)+'# and [Номер зала]='+ComboBox1.Text); DM2.QIns.Open; //Memo1.Text:='select count(*) as c from Показы where [Дата и время показа]=#'+sd+'/'+sm+'/'+IntToStr(wy)+' '+IntToStr(myHour)+':'+IntToStr(myMin)+':'+IntToStr(mySec)+'# and [Номер зала]='+ComboBox1.Text; if DM2.QIns.FieldByName('c').AsInteger = 0 then begin DM2.QInsPok.SQL.Clear; DM2.QInsPok.SQL.Add('insert into Показы ([Код фильма], [Цена билета], [Дата и время показа], [Номер зала], [Табельный номер])'); DM2.QInsPok.SQL.Add('values ('+IntToStr(nf)+', '+Edit1.Text+', '+''''+DateToStr(d)+' '+TimeToStr(DTime.Time)+''''+', '+ComboBox1.Text+', '+IntToStr(tn)+')'); DM2.QInsPok.ExecSQL; end else begin Application.MessageBox('Вы не можете добавить сеансы!', 'Ошибка!', MB_ICONERROR + MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL); DM2.ADOConnection1.RollbackTrans; Exit; end; wd:=wd+1; end; Application.MessageBox('Добавлено', 'Информация', MB_ICONINFORMATION + MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL); DM2.ADOConnection1.CommitTrans; DM2.QCrPok.Active:=false; DM2.QCrPok.Active:=true; except DM2.ADOConnection1.RollbackTrans; Application.MessageBox('Ошибка добавления информации', 'Ошибка!', MB_ICONERROR + MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL); end; end;end;procedure TFPlan.FormCreate(Sender: TObject);begin DM2.QCrReg.Active:=true; DTPS.Date:=now; DTPPo.Date:=Now+1; nf:=DBGrid1.Fields[0].AsInteger; f:=DBGrid1.Fields[1].AsString; Label7.Caption:='Фильм: '+f; Label9.Caption:=f; DM2.QPokFoto.SQL.Clear; DM2.QPokFoto.SQL.Add('select Фото from Фильм where Фильм.[Код фильма]='+IntToStr(nf)); DM2.QPokFoto.Open; Image1.Picture.Bitmap.LoadFromFile(DM2.QPokFoto.FieldByName('Фото').AsString); DM2.QCrPok.SQL.Clear; DM2.QCrPok.SQL.Add('select * from Показы where [Код фильма]='+IntToStr(nf)+' order by [Дата и время показа]'); DM2.QCrPok.Active:=true; PageControl1.ActivePage:=TabSheet1;end;procedure TFPlan.ComboBox2Change(Sender: TObject);begin DM2.QCrZal.Active:=false; DM2.QCrZal.SQL.Clear; DM2.QCrZal.SQL.Add('SELECT Показы.[Код показа], Фильм.[Название фильма], Показы.[Цена билета], Показы.[Дата и время показа]'); DM2.QCrZal.SQL.Add('FROM Фильм INNER JOIN Показы ON Фильм.[Код фильма] = Показы.[Код фильма]'); DM2.QCrZal.SQL.Add('WHERE Показы.[Номер зала]='+ComboBox2.Text); DM2.QCrZal.SQL.Add('order by [Дата и время показа]'); DM2.QCrZal.Active:=true;end;procedure TFPlan.DBGrid2CellClick(Column: TColumn);begin BitBtn3.Enabled:=true; np:=DBGrid2.Fields[0].AsInteger;end;procedure TFPlan.BitBtn3Click(Sender: TObject);var but: integer;begin but := MessageDlg('Вы действительно хотите удалить показ №'+IntToStr(np)+'?', mtInformation, [mbYes, mbNo], 0); if but=MRYES then begin DM2.QDelPok.SQL.Clear; DM2.QDelPok.SQL.Add('delete from Показы where [Код показа]='+IntToStr(np)); DM2.QDelPok.ExecSQL; Application.MessageBox('Фильм успешно удален', 'Информация', MB_ICONINFORMATION + MB_OK + MB_DEFBUTTON1 + MB_APPLMODAL); DM2.QCrPok.Active:=false; DM2.QCrPok.Active:=true; end else exit;end;procedure TFPlan.ComboBox1KeyPress(Sender: TObject; var Key: Char);begin case Key of #38, #40 :; //стрелки верх и низ else Key := #0; //остальные символы не отображать end;end;procedure TFPlan.Edit1KeyPress(Sender: TObject; var Key: Char);begin case Key of '0'..'9' :; //цифры #8 :; //BackSpace else Key := #0; //остальные символы не отображать end;end;end.