Вход

Разработка автоматизированной системы для продажи и бронирования билетов в кинотеатре

Дипломная работа*
Код 98688
Дата создания 2011
Страниц 79
Источников 35
Покупка готовых работ временно недоступна.
6 610руб.

Содержание

Содержание
1.Введение.
2.Проектная часть
2.1 Описание предметной области и информационных процессов в кинотеатре.
2.2 Анализ существующих систем автоматизации в кинотеатрах.
2.3 Исследование информационных процессов кинотеатра
2.4 Разработка технических требований к системе
2.5 Выбор и обоснование средств реализации
2.6 Проектирование функций и структуры системы
2.7 Разработка структуры базы данных
2.8 Проектирование интерфейса пользователей
2.9 Выводы.
3. Экономическая часть
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
4. Защита информации
4.1 Анализ потенциальных угроз информационной безопасности в разрабатываемой среде
4.2. Разработка рекомендаций по созданию эффективной антивирусной защиты информационных системы кинотеатра
Литература
Приложение Листинг программы

Фрагмент работы для ознакомления

Поэтому, разработку рекомендаций и экономическое обоснование затрат на создание эффективной системы антивирусной защиты проведем на примере информационно-вычислительной системы организации, состоящей из 1 сервера, 15 рабочих станций, обладающих доступом к сети Интернет (рис.4.1) .
Рисунок 4.1 – Предполагаемая модель организации
Каждой рабочей станции доступно проведение следующих способов для него способов обмена информацией и в соответствии с этими данными, возможно выделить все рабочие станции на такие сегменты:
рабочие станции и сетевые сервера – обмен файлами по сети и с помощью мобильных носителей;
почтовые сервера – прием и отправка электронных писем, иногда обмен файлами по сети и с помощью мобильных носителей;
шлюз – организация обмена файлов между компьютерами локальной сети и более глобальной сетью, например Интернет. Дополнительно возможен обмен файлами по сети и с помощью мобильных носителей.
Рабочие станции также могут принимать электронную почту, однако фактически они ее копируют либо с почтового сервера, либо со шлюза, что можно приравнять к внутрисетевому обмену данными.
Архитектура системы антивирусной защиты сильно зависит от функции рассматриваемого компьютера, а именно от присутствующих у него каналов связи с окружающим миром [5,7].
Анализ организации, которая выбрана в качестве модели позволяет определить необходимый уровень защиты как уровень защиты рабочих станций и серверов.
При этом уровне защите подлежат все компьютеры локальной сети и служит самым последним оплотом на пути проникновения вредоносных программ. Защита рабочих станций и сетевых серверов ответственна в первую очередь за чистоту файловой системы каждого из компьютеров сети. Следовательно, она в обязательном порядке должна содержать постоянную проверку, как механизм предотвращения заражения системы вирусами, проверку по требованию – процедуру для тщательной ревизии рассматриваемой машины, и нейтрализации проникших на нее вредоносных программ, и модуль для поддержания вирусных сигнатур в актуальном состоянии. С помощью специальных программ и утилит для централизованного удаленного управления, можно не вставая из-за своего компьютера одновременно управлять и настраивать программы на удаленных компьютерах и подчиненных ему других элементах сети.
Следовательно, к антивирусному комплексу для защиты рабочих станций и сетевых серверов предъявляется дополнительное требование – наличие в его составе программного средства для удаленного централизованного управления локальными приложениями.
Проведенный в главе 2 анализ позволяет предложить в качестве такого антивирусного программного средства Kaspersky Enterprise Space Security. Указанное средство является Решением для защиты рабочих станций, смартфонов и серверов совместной работы от всех видов современных интернет-угроз; удаляет вирусы из потока электронной почты, обеспечивает сохранность информации и безопасный доступ пользователей к сетевым ресурсам.
Стоимость приобретения лицензии на 1 год для одного сервера и пятнадцати рабочих станций составит 45 035 руб.
Часто для обеспечения антивирусной защиты применяется межсетевое экранирование (МЭ) называют локальное или функционально распределенное программное (программно-аппаратное) средство (комплекс), реализующее контроль за информацией, поступающей в автоматизированную систему и/или выходящей из автоматизированной системы. МЭ основное название, определенное в РД Гостехкомиссии РФ, для данного устройства. Также встречаются общепринятые названия брандмауэр и firewall (англ. огненная стена).
По определению МЭ служит контрольным пунктом на границе двух сетей. В самом распространенном случае эта граница лежит между внутренней сетью организации и внешней сетью, обычно сетью Интернет. Однако в общем случае, МЭ могут применяться для разграничения внутренних подсетей корпоративной сети организации.
Задачами МЭ, как контрольного пункта, являются:
- Контроль всего трафика, входящего во внутреннюю корпоративную сеть
- Контроль всего трафика, исходящего из внутренней корпоративной сети
Контроль информационных потоков состоит в их фильтрации и преобразовании в соответствие с заданным набором правил. Поскольку в современных МЭ фильтрация может осуществляться на разных уровнях эталонной модели взаимодействия открытых систем (ЭМВОС, OSI), МЭ удобно представить в виде системы фильтров. Каждый фильтр на основе анализа проходящих через него данных, принимает решение – пропустить дальше, перебросить за экран, блокировать или преобразовать данные.
Неотъемлемой функцией МЭ является протоколирование информационного обмена. Ведение журналов регистрации позволяет администратору выявить подозрительные действия, ошибки в конфигурации МЭ и принять решение об изменении правил МЭ.
Выделяют следующую классификацию МЭ, в соответствие с функционированием на разных уровнях МВОС (OSI):
- мостиковые экраны (2 уровень OSI)
- фильтрующие маршрутизаторы (3 и 4 уровни OSI)
- шлюзы сеансового уровня (5 уровень OSI)
- шлюзы прикладного уровня (7 уровень OSI)
- комплексные экраны (3-7 уровни OSI)
При планировании применения маршрутизатора необходимо учитывать топологию сети. В сети рассматриваемой организации имеются ресурсы, которые должны быть доступны как из глобальной сети, так и из локальной (например, почтовый сервер, веб-сервер, FTP-сервер и т. д.). Возможны два варианта подключения.
В одном случае и рабочие станции, и серверы находятся в одном сегменте сети. Такой вариант встречается в небольших организациях, где количество рабочих станций не превосходит 20 машин, а серверов зачастую не больше двух.
В другом случае сеть организации содержит подсети, и соответственно серверы, доступ к которым необходим как снаружи, так и изнутри, находятся в одной подсети (которая также именуется DMZ, демилитаризованной зоной), а пользователи и локальные ресурсы находятся в других подсетях. При такой топологии серверы, находящиеся в DMZ, должны быть отделены одним межсетевым экраном от Интернета и другим – от локальной сети.
Однако далеко не все, особенно небольшие компании, могут позволить себе использовать два сервера для защиты сети, поэтому рассматриваем первый вариант подключения для рассматриваемой модели организации. Поэтому зачастую прибегают к более дешевому варианту: использованию одного сервера с тремя сетевыми интерфейсами. Тогда один интерфейс «смотрит» в Интернет, второй – в DMZ и третий – в локальную сеть.
На рис. 4.2 изображены два варианта подключения межсетевого экрана. В случае «а» используются два межсетевых экрана, один подключен к WAN и DMZ, а второй – к DMZ и LAN, в случае «б» – один межсетевой экран, подключенный и к WAN, и к LAN, и к DMZ.
Рисунок 4.2 – Варианты развертывания межсетевого экрана и демилитаризованной зоны
В качестве аппаратного устройства межсетевого экрана выбрано устройство D-Link DFL-1600 (рис.4.3). Стоимость данного решения составляет 18 990р.
Рисунок 4.3 – Межсетевой экран D-Link DFL-1600
Данное устройство серии NetDefend представляют собой законченное решение в области безопасности, включающее встроенную поддержку межсетевого экрана, балансировки нагрузки, функций отказоустойчивости, механизма Zone-Defense, фильтрации содержимого, аутентификации пользователей, блокировки «мгновенных» сообщений и приложений Р2Р, защиты от атак «отказ в обслуживании» DoS и виртуальных локальных сетей VPN. Эти устройства соответствуют требованиям предприятий к безопасности и удаленному доступу, обеспечивая высокопроизводительное решение по разумной цене. В межсетевых экранах гармонично объединены расширенные функции, предоставляющие администраторам сетей решение безопасности «все в одном» business-класса.
ЛИТЕРАТУРА
Delphi 7 в подлиннике. А. Хомоненко. СПб: BHV, 2003 – 1216 стр.
Delphi 7 на примерах/Под ред. Ю. С. Ковтанюка — К.: Издательство Юниор, 2003. — 384 с., ил.
Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024с.
Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564с.
Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205с.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
Вендров А.М. Проектирование программного обеспечения экономических информационных систем. М.: «Финансы и статистика»,2002.
Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. – 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
Гофман В. Э. Delphi. Быстрый старт. СПб.: БВХ-Петербург, 2003. – 288 с.
Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.
Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.
Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.
Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
Нестандартные приемы программирования на Delphi. — СПб.: БХВ-Петербург, 2005. — 560 с : ил.
Принципы проектирования и разработки программного обеспечения. Учебный курс MCSD: Скотт Ф. Уилсон, Брюс Мэйплс, Тим Лэндгрейв. – М: Русская редакция, 2002. – 736стр.
Проектирование экономических информационных систем: Учебник/Г.Н.Смирнова, А.А.Сорокин, Ю.Ф.Тельнов. – М: Финансы и статистика, 2003. – 512стр.
Сухарев М. В. Основы Delphi. Профессиональный подход. СПб.: Наука и техника, 2004. – 600 с.
Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.
Приложение
Листинг Программы
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, Menus, DBCtrls, StdCtrls,
Buttons, ComCtrls, RzDTP;
type
TForm4 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
ADOTable5: TADOTable;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
ADOTable8: TADOTable;
ADOTable9: TADOTable;
DataSource1: TDataSource;
ADOTable10: TADOTable;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Panel1: TPanel;
DBGrid1: TDBGrid;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
DBNavigator1: TDBNavigator;
N16: TMenuItem;
N17: TMenuItem;
BitBtn1: TBitBtn;
Panel2: TPanel;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button3: TButton;
RzDateTimePicker1: TRzDateTimePicker;
RzDateTimePicker2: TRzDateTimePicker;
DataSource2: TDataSource;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource3: TDataSource;
Button1: TButton;
Button2: TButton;
Button4: TButton;
procedure N2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
RowsInHall = 25;
ChairsInRow = 40;
ChairsColor: array[boolean] of TColor = (clGreen, clRed);
var
Form4: TForm4;
RowsInHall1:integer =25;
ChairsInRow1:integer=40;
flag_vis:boolean=false;
kol_ryad,kol_mest:integer;
deltax,deltay,i:integer;
ryad,mesto:integer;
idzal,idseanse,idmesto,idbilet:integer;
s_date,s_vremya:tdatetime;
var
ChairsArray: array[0..(RowsInHall - 1), 0..(ChairsInRow - 1)] of boolean;
p1,P2,p3,p4:tparameter;
CanSelect:boolean;
sqlwhere, stroka_SQL:string;
flag2:integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form1.Show;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable7 ;
form4.ADOTable7.Active:=true;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable4 ;
form4.ADOTable4.Active:=true;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
form4.ADOQuery1.SQL.Clear;
form4.ADOQuery2.SQL.Clear;
s_date:= trunc((form4.RzDateTimePicker1.date));
s_vremya:=trunc(1000*(form4.RzDateTimePicker2.Time-trunc((form4.RzDateTimePicker2.date))))/1000;
if form4.RadioButton1.Checked then begin
form4.N15.Click;
idzal:=1;
end;
if form4.RadioButton2.Checked then begin
form4.N16.Click;
idzal:=2;
end;
if form4.RadioButton3.Checked then begin
form4.N17.Click;
idzal:=3;
end;
form1.Button1.Visible:=true;
form1.Button2.Visible:=true;
form4.adotable4.active:=true;
form4.adotable4.First;
s_vremya:= form4.adotable4.FieldByName('vremya').AsDateTime;
P1 :=form4.ADOQuery1.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftdatetime;
// P1.Direction := ptInput;
P2 :=FOrm4.ADOQuery1.Parameters.AddParameter;
P2.Name:='P2';
p2.DataType := ftdatetime;
P1.Value := s_date;
P2.Value := s_vremya;
P3 :=FOrm4.ADOQuery1.Parameters.AddParameter;
P3.Name:='P3';
p3.DataType := ftinteger;
P3.Value := idzal;
sqlwhere:= ' where (seanse.date = :P1) and (seanse.vremya = :P2) and (seanse.id_zal = :P3) ';
stroka_SQL:='select * from seanse'+ sqlwhere;
// stroka_SQL:='select * from tovar,location where '
form4.ADOQuery1.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
form4.ADOQuery1.Active:=true;
form4.ADOQuery1.ExecSQL;
end;
idseanse:=form4.ADOQuery1.FieldByName('id_seanse').AsInteger;
if idseanse<>0 then
begin
P4 :=FOrm4.ADOQuery2.Parameters.AddParameter;
P4.Name:='P4';
p4.DataType := ftinteger;
P4.Value := idseanse;
sqlwhere:= ' where (bilet.id_seanse = :P4)';
stroka_SQL:='select * from bilet'+ sqlwhere;
form4.ADOQuery2.SQL.Add(stroka_SQL);
if stroka_SQL<>'' then begin
form4.ADOQuery2.Active:=true;
form4.ADOQuery2.ExecSQL;
end;
form4.ADOQuery2.first;
While not form4.ADOQuery2.Eof do
begin
idmesto:=form4.ADOQuery2.FieldByName('id_mesto').AsInteger;
form4.adotable5.first;
for I := 1 to form4.adotable5.recordCount do
begin
if form4.adotable5.FieldByName('id_mesto').asinteger=idmesto then
begin
ryad:=form4.adotable5.fieldbyname('ryad').asinteger;
mesto:=form4.adotable5.fieldbyname('mesto').asinteger;
Form1.DrawGrid1SelectCell(Sender, mesto-1, ryad-1, CanSelect);
end;
form4.adotable5.next;
end;
form4.ADOQuery2.Next;
end;
end;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
form4.Close;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
form4.N7Click(sender);
end;
procedure TForm4.N10Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable7 ;
form4.ADOTable7.Active:=true;
end;
procedure TForm4.N11Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable8 ;
form4.ADOTable8.Active:=true;
end;
procedure TForm4.N12Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable9 ;
form4.ADOTable9.Active:=true;
end;
procedure TForm4.N13Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable10 ;
form4.ADOTable10.Active:=true;
end;
procedure TForm4.N15Click(Sender: TObject);
begin
form4.ADOTable10.active:=true;
form4.ADOTable10.First;
kol_ryad:= form4.ADOTable10.FieldByName('kol_ryad').AsInteger;
kol_mest:= form4.ADOTable10.FieldByName('kol_mest').AsInteger;
RowsInHall1:=kol_ryad;
ChairsInRow1:=kol_mest;
form4.BitBtn1.Click;
form1.Caption:=' Синий зал';
flag_vis:=false;
form1.Button1.Visible:=false;
form1.Button2.Visible:=false;
end;
procedure TForm4.N16Click(Sender: TObject);
begin
form4.ADOTable10.active:=true;
form4.ADOTable10.First;
form4.ADOTable10.Next;
kol_ryad:= form4.ADOTable10.FieldByName('kol_ryad').AsInteger;
kol_mest:= form4.ADOTable10.FieldByName('kol_mest').AsInteger;
RowsInHall1:=kol_ryad;
ChairsInRow1:=kol_mest;
form4.BitBtn1.Click;
form1.Caption:=' Красный зал';
flag_vis:=false;
form1.Button1.Visible:=false;
form1.Button2.Visible:=false;
end;
procedure TForm4.N17Click(Sender: TObject);
begin
form4.ADOTable10.active:=true;
form4.ADOTable10.First;
form4.ADOTable10.Next;
form4.ADOTable10.Next;
kol_ryad:= form4.ADOTable10.FieldByName('kol_ryad').AsInteger;
kol_mest:= form4.ADOTable10.FieldByName('kol_mest').AsInteger;
RowsInHall1:=kol_ryad;
ChairsInRow1:=kol_mest;
form4.BitBtn1.Click;
form1.Caption:=' Зеленый зал';
flag_vis:=false;
form1.Button1.Visible:=false;
form1.Button2.Visible:=false;
end;
procedure TForm4.N19Click(Sender: TObject);
begin
form1.Show;
form1.Button1.Visible:=true;
form1.Button2.Visible:=true;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
form4.Close;
end;
procedure TForm4.N4Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable1 ;
form4.ADOTable1.Active:=true;
end;
procedure TForm4.N5Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable2 ;
form4.ADOTable2.Active:=true;
end;
procedure TForm4.N6Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable3 ;
form4.ADOTable3.Active:=true;
end;
procedure TForm4.N7Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable7 ;
form4.ADOTable7.Active:=true;
end;
procedure TForm4.N8Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable5 ;
form4.ADOTable5.Active:=true;
end;
procedure TForm4.N9Click(Sender: TObject);
begin
form4.DataSource1.DataSet:=form4.ADOTable6 ;
form4.ADOTable6.Active:=true
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
form4.N1.Visible:=true;
form4.N2.Visible:=true;
form4.N3.Visible:=true;
form4.N4.Visible:=true;
form4.N5.Visible:=true;
form4.N6.Visible:=true;
form4.N7.Visible:=true;
form4.DBNavigator1.Visible:=true;
form4.showmodal;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
flag2:=2;
form4.N1.Visible:=false;
form4.N2.Visible:=false;
form4.N3.Visible:=false;
form4.N4.Visible:=false;
form4.N5.Visible:=false;
form4.N6.Visible:=false;
form4.N7.Visible:=false;
form4.DBNavigator1.Visible:=false;
form4.showmodal;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
form2.close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls, ExtCtrls, ComCtrls, RzDTP;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
DrawGrid1: TDrawGrid;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure FormShow(Sender: TObject);
procedure DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if ((ryad<>0 ) and (mesto<>0)) then
begin
form4.adotable5.Active:=true;
form4.adotable5.Insert;
form4.adotable5.FieldByName('ryad').AsInteger:=ryad;
form4.adotable5.FieldByName('mesto').AsInteger:=mesto;
form4.adotable5.FieldByName('id_sector').AsInteger:=1;
form4.adotable5.Post;
idmesto:=form4.adotable5.FieldByName('id_mesto').AsInteger;
if idseanse<>0 then begin
form4.adotable1.Active:=true;
form4.adotable1.Insert;
form4.adotable1.FieldByName('id_seanse').AsInteger:=idseanse;
form4.adotable1.FieldByName('date').asdatetime:=now;
form4.adotable1.FieldByName('id_mesto').AsInteger:=idmesto;
form4.adotable1.FieldByName('oplacheno').Asstring:='y';
form4.adotable1.Post;
idbilet:= form4.adotable1.FieldByName('id_bilet').AsInteger;
form4.adotable6.Active:=true;
form4.adotable6.Insert;
form4.adotable6.FieldByName('operation').Asstring:='покупка';
form4.adotable6.FieldByName('date').asdatetime:=now;
form4.adotable6.FieldByName('id_bilet').AsInteger:=idbilet;
form4.adotable6.FieldByName('id_sotrudnik').AsInteger:=1;
form4.adotable6.Post;
end
else showmessage('Такого сеанса не существует')
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ((ryad<>0 ) and (mesto<>0)) then
begin
form4.adotable5.Active:=true;
form4.adotable5.Insert;
form4.adotable5.FieldByName('ryad').AsInteger:=ryad;
form4.adotable5.FieldByName('mesto').AsInteger:=mesto;
form4.adotable5.FieldByName('id_sector').AsInteger:=1;
form4.adotable5.Post;
idmesto:=form4.adotable5.FieldByName('id_mesto').AsInteger;
if idseanse<>0 then begin
form4.adotable1.Active:=true;
form4.adotable1.Insert;
form4.adotable1.FieldByName('id_seanse').AsInteger:=idseanse;
form4.adotable1.FieldByName('date').asdatetime:=now;
form4.adotable1.FieldByName('id_mesto').AsInteger:=idmesto;
form4.adotable1.FieldByName('bron').Asstring:='y';
form4.adotable1.Post;
idbilet:= form4.adotable1.FieldByName('id_bilet').AsInteger;
form4.adotable6.Active:=true;
form4.adotable6.Insert;
form4.adotable6.FieldByName('operation').Asstring:='бронирование';
form4.adotable6.FieldByName('date').asdatetime:=now;
form4.adotable6.FieldByName('id_bilet').AsInteger:=idbilet;
form4.adotable6.FieldByName('id_sotrudnik').AsInteger:=1;
form4.adotable6.Post;
end
else showmessage('Такого сеанса не существует')
end;
end;
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with form1.DrawGrid1.Canvas do
begin
Brush.Color :=ChairsColor[ChairsArray[ARow, ACol]];
FillRect(Rect)
end
end;
procedure TForm1.DrawGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
ChairsArray[ARow, ACol] := true;
form1.DrawGrid1.OnDrawCell := DrawGrid1DrawCell;
ryad:=ARow;
mesto:=ACol;
end;
procedure TForm1.FormShow(Sender: TObject);
var i,j:integer;
begin
// form1.Show;
Randomize;
for i := 0 to RowsInHall1 - 1 do
for j := 0 to ChairsInRow1 - 1 do
if flag_vis=true then
ChairsArray[i, j] := Random(2) = 0
else ChairsArray[i, j] := false ;
BorderStyle := bsDialog;
with form1.DrawGrid1 do
begin
RowCount := RowsInHall1;
ColCount := ChairsInRow1;
FixedCols := 0;
FixedRows := 0;
DefaultColWidth := ClientWidth div ColCount - GridLineWidth;
DefaultRowHeight := ClientHeight div RowCount - GridLineWidth;
Align := alClient;
OnDrawCell := DrawGrid1DrawCell;
end
end;
end.
67
Проект
Главная форма приложения Form1
Unit4.pas интерфейс клиента
Unit4.pas интерфейс кассира
Unit1.pas
Объемы продаж, шт
65
76654
Сумма,
тыс. руб
Выручка от реализации
Затраты на производство
Условно постоянные затраты

Список литературы

ЛИТЕРАТУРА
1.Delphi 7 в подлиннике. А. Хомоненко. СПб: BHV, 2003 – 1216 стр.
2.Delphi 7 на примерах/Под ред. Ю. С. Ковтанюка — К.: Издательство Юниор, 2003. — 384 с., ил.
3.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
4.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024с.
5.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564с.
6.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205с.
7.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
8.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
9.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
10.Вендров А.М. Проектирование программного обеспечения экономических информационных систем. М.: «Финансы и статистика»,2002.
11.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
12.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
13.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
14.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
15.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
16.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
17.Гофман В. Э. Delphi. Быстрый старт. СПб.: БВХ-Петербург, 2003. – 288 с.
18.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
19.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
20.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
21.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
22.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
23.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
24.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
25.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
26.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
27.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
28.Нестандартные приемы программирования на Delphi. — СПб.: БХВ-Петербург, 2005. — 560 с : ил.
29.Принципы проектирования и разработки программного обеспечения. Учебный курс MCSD: Скотт Ф. Уилсон, Брюс Мэйплс, Тим Лэндгрейв. – М: Русская редакция, 2002. – 736стр.
30.Проектирование экономических информационных систем: Учебник/Г.Н.Смирнова, А.А.Сорокин, Ю.Ф.Тельнов. – М: Финансы и статистика, 2003. – 512стр.
31.Сухарев М. В. Основы Delphi. Профессиональный подход. СПб.: Наука и техника, 2004. – 600 с.
32.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
33.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
34.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
35.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018