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

Поэтому, разработку рекомендаций и экономическое обоснование затрат на создание эффективной системы антивирусной защиты проведем на примере информационно-вычислительной системы организации, состоящей из 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.

Проект

Главная форма приложения Form1

Unit4.pasинтерфейс клиента

Unit4.pasинтерфейс кассира

Unit1.pas

Объемы продаж, шт

Сумма, тыс. руб

Выручка от реализации

Затраты на производство

Условно постоянные затраты