Автоматизация учета и контроля оборота видеоносителей в видеотеке.

Реализация команды Приём меню Прокат
Для реализации этой команды необходимо на соответствующей форме ввести код клиента в отведенный для этого MaskEdit, после чего в появив¬шийся ComboBox ввести номер заказа. При щелчке на кнопку «Принять» кассеты данного заказа принимаются в видеотеку и удаляются из специали¬зированных списков, и число таких кассет в базе увеличивается на 1.
Реализация команды Добавить новую меню Кассеты
При регистрации видеоносителей в прокате учитывается вся информа¬ция о них: название кассеты, ФИО режиссера, жанр произведения, страна-производитель, кинокомпания, сделавшая данный продукт, время воспроиз¬ведения, цена проката (руб.) за сутки, а так же дата выпуска кассеты в прокат и количество принятых в данное отделение кассет с аналогичным названием. При щелчке по кнопке Добавить В БД добавится установленное количество кассет. Цена их будет зависеть от даты выдачи им лицензии, так как новинки всегда стоят дороже остальных кассет. В программе установлено, что кассета является новинкой в течение месяца после получения лицензии, после чего её цена автоматически снижается до уровня простых кассет. Реализация команды Изменить меню кассеты
Эта команда применяется в том случае, если необходимо изменить данные видеокассете, которые находятся в таблице на главной форме. Для этого необходимо кликнуть правой кнопкой мыши по той записи, которая нуждается в изменении. Из появившегося меню выбрать строку «Изменить». Появится форма, аналогичная форме добавления, но результирующей кноп¬кой «Изменить», на которую надо нажать после коррекции записей.
Реализация команды Добавить меню Клиенты
Регистрируется вся необходимая информация о клиенте: ФИО, контактный телефон, серия и номер паспорта (включая срок действия паспорта), адрес прописки. При щелчке по кнопке «Добавить» В БД добавится 1 новый кли¬ент.
Реализация команды Продажа меню Кассеты
Если стоимость проката кассеты превышает её номинальную стоимость, то клиенту предлагается приобрести кассету. Если клиент согласен, то с формы Выдача сотрудник проката переходит на форму продажа. Форма со¬держит окно, где отображаются выбранные для продажи кассеты, а так же окна, в которых отображаются код клиента, ФИО клиента и цена заказа. При щелчке по кнопке ОК выручка увеличивается на сумму заказа, а количество таких кассет в базе уменьшается на 1.
Разработчик полагает, что описание реализации остальных опций не
имеет смысла по причине их простоты.



Заключение
Полученные результаты полностью соответствуют поставленным зада¬чам. Разработанная программа являет собой автоматизированную систему учета видеоносителей в видеотеке.

22
Приложение 1.
Исходные тексты программы

type
//TStr = array [0.. 10] of String;
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
DBGrid1: TDBGrid;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Label5: TLabel;
ADOQuery1: TADOQuery;
ADOCommand1: TADOCommand;
Label6: TLabel;
N14: TMenuItem;
Edit2: TEdit;
procedure FormActivate(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses ADO, priem, Output, manreg, outputmen, stats, Operations, cassreg,
sell, outputed;

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
SQL : String;
i,j,k: Integer;
begin

{SQL:='update isriks_cassets set isriks_cassets.cas_director = ''Unknown''';
SQL:=SQL + 'where cas_director is null';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SQL);
ADOQuery1.Open;
ADoquery1.ExecuteOptions;
ADOQuery1.close; }


SQL:='update isriks_cassets set isriks_cassets.cas_director = ''Unknown''';
SQL:=SQL + 'where cas_director is null';
ADOCommand1.prepared:=false;
ADOCommand1.CommandText:=SQL;
ADOCommand1.prepared:=true;
ADOCommand1.execute;
SQL := 'SELECT gen_name FROM isriks_gengers';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(SQL);
ADOQuery1.Open;
ADOQuery1.First;
ComboBox1.Items.Clear;
ComboBox1.Items. Add('Bce');
for i := 1 to ADOQuery1.RecordCount do begin

ComboBox1.Items. Add(Trim(ADOQuery1.FieldValues['gen_name']));
ADOQuery1.Next; end;
ComboBox1.ItemIndex := 0;
SQL := 'SELECT distinct cas_director FROM isriks_cassets';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL. add(SQL);
ADOQuery1.Open;
ADOQuery1.First;
ComboBox2.Items.Clear;
ComboBox2.Items.Add('Все');
for i := 1 to ADOQuery1.RecordCount do begin
ComboBox2.Items.Add(Trim(ADOQuery1.FieldValues['cas_director']));
//tmp[i] := Trim(ADOQuery1.FieldValues['cas_director']);
ADOQuery1.Next;
end;


ComboBox3.ItemIndex := 0;
SQL := 'SELECT distinct cas_country FROM isriks_cassets';
ADOQuery1.SQL.Clear;
ADOQuery1.SQL. add(SQL);
ADOQuery1.Open;
ADOQuery1.First;
ComboBox3.Items.Clear;
ComboBox3.Items.Add('Все');
for i := 1 to ADOQuery1.RecordCount do begin
ComboBox3.Items.Add(Trim(ADOQuery1.FieldValues['cas_country']));

ADOQuery1.Next;
end;






end;

procedure TForm1.N6Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
Form5.Show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
Form6.Show; //возможно ссылка не туда..
end;

procedure TForm1.N5Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
Form4.Show;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
Form8.show;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
Form9.Show;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
Form7.Show;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
form10.show
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ado.DataModule1.Cas.Filtered:=false;

ado.DataModule1.Cas.Filter:='gen_id='+inttostr(combobox1.ItemIndex+1);
ado.DataModule1.Cas.Filtered:=true;
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ado.DataModule1.Cas.Filtered:=false;

ado.DataModule1.Cas.Filter:='cas_director='''+combobox2.Text+'''';
ado.DataModule1.Cas.Filtered:=true;
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
ado.DataModule1.Cas.Filtered:=false;

ado.DataModule1.Cas.Filter:='cas_country='''+combobox3.Text+'''';
ado.DataModule1.Cas.Filtered:=true
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
ado.DataModule1.Cas.Filtered:=false;

ado.DataModule1.Cas.Filter:='cas_year='+edit2.Text;
ado.DataModule1.Cas.Filtered:=true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
ado.DataModule1.Cas.Filtered:=false;
if edit1.Text='' then ado.DataModule1.Cas.Filtered:=false
else
begin
ado.DataModule1.Cas.Filter:='cas_name like '''+edit1.Text+'*''';
ado.DataModule1.Cas.Filtered:=true;
end
end;

end.


unit ADO;

interface

uses
SysUtils, Classes, DB, ADODB;

type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
Cas: TADODataSet;
srccas: TDataSource;
genre: TADODataSet;
srcgenre: TDataSource;
cust: TADODataSet;
srccust: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;

Содержание
Задание на курсовую работу 3
1. Описание задачи 4
2. Описание программы 5

2.1. Выполняемые операции 5
2.2. База данных 7
2.3. Описание проекта 10

3. Инструкция для пользователя 19
4. Заключение 21
Приложение 1. Текст программы

"Инструментальные средства разработки информационных коммерче¬ских систем"
студенту группы ЭФЗ1Д Ожерельевой Е.И..
1. Тема работы: Организация учета и контроля видеоносителей в видео-
теке
2. Цель работы: Создание Windows-приложения для автоматизации ос¬
новных рутинных процедур учета материально-технического снабжения
предприятия.
3. Среда разработки: Visual Basic6.0, Delphi7.0, MS Access 2000, MS Access
XP, VBA.
4. Материалы, представляемые к защите:
4.1. Пояснительная записка с постановкой задачи, описанием и исход¬
ными текстами программы.
4.2. Дискета с файлами исходных текстов программы и файлом демон¬
страционной базы данных с 20 записями.
5. Рекомендуемая литература:
5.1. Смирнова Г.Н., Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических ин¬
формационных систем. М.: Финансы и статистика. 2003.509с.
5.2. Боб Роселман, Ричерд А. Писли и др. Использование Visual Basic 6.0. Москва-С-
Пб.-Киев. 1999. 605с.
5.3. Климова Л.М. Delphi 7. Самоучитель. Основы программирования. Решение типо¬
вых задач. М.: Кудиц-Образ. 2004. 463с.
5.4. Васильев А., Андреев A. VBA в Office 2000. Учебный курс. М.: Питер. 2001.423с.
5.5. Сюзанн Новалис. Access 2000. Руководство по VBA. - М.: изд-во Лори, 2001.
5.6. Дженнингс P. Microsoft Acsess 97 в подлиннике. Том 2. - СПб.: BHV-Санкт-
Петербург, 2000.
Приложение: Техническое задание на разработку программы.
Руководитель:
ст. преподаватель кафедры ИТ Киреева Г.И.

77
Приложение 2. Техническое задание
"Автоматизация учета и контроля оборота видеоносителей в видеотеке"
Техническое задание на разработку программы
1. Выполняемые операции
1.1 Файловые операции
1.1.4 Окончание сеанса работы. Операция должна заканчивать работу про¬граммы с предварительной проверкой наличия в памяти не сохраненного те¬кущей базы данных.
1.2 Операции учета оборота кассет
1.2.1 Поступление новых кассет. Операция должна выполнять поиск названия фильма в базе данных и, в случае отсутствия такового, добавлять новую запись с данными поступившей кассеты, после чего список должен быть отсортирован по названиям фильмов. В случае нахождения в списке за¬писи с поступившим фильмом, количество указанных в записи копий должно быть соответственно увеличено.
1.2.2 Исключение кассеты из базы данных. Операция должна уменьшать ко¬
личество указанных в текущей записи копий фильма на 1, либо удалять за¬
пись, если количество копий было 1. Текущая запись устанавливается выбо¬
ром в списке в основном окне программы.
1.2.3 Регистрация выдачи кассеты. Операция должна уменьшать количество
имеющихся в наличии копий фильма в текущей записи списка, заносить в за¬
пись фамилию и инициалы клиента, увеличивать значение количества выдач
на 1, а сумму выручки на стоимость проката. Операция должна быть недос¬
тупной для записей, в которых количество имеющихся в наличии копий
фильма равно 0. Текущая запись устанавливается выбором в списке в основ¬
ном окне программы.
1.2.4 Регистрация возврата кассеты. Операция должна увеличивать количе¬
ство имеющихся в наличии копий фильма в текущей записи базы данных и
удалять из записи фамилию и инициалы клиента. Текущая запись устанавли¬
вается выбором в списке в основном окне программы.
1.2.5 Вывод информации о кассете. В этой операции выводится вся ин¬формация о кассете из текущей записи списка.
1.3 Анализ спроса и выручки

78
1.3.1 Анализ спроса. В этой операции должен выполняться поиск 3 фильмов,
пользующихся наибольшим спросом, и вывод списка этих фильмов с коли¬
чеством выдач на экран.
1.3.2 Анализ выручки. В этой операции должен выполняться поиск 3 филь¬
мов, прокат которых дал наибольшую выручку, и вывод списка этих фильмов
с величинами выручки на экран.
2. Обрабатываемая информация
2.1 В записи базы данных должна храниться, как минимум, следующая информация о фильме:
название фильма,
фамилия и инициалы режиссера,
год выпуска,
киностудия,
длительность,
стоимость проката,
количество копий в фонде,
количество копий в наличии,
список фамилий клиентов, взявших кассеты в прокат,
количество выдач,
суммарная выручка за прокат.
2.2 Входная информация:
2.2.1 Операции открытя файла со списком и сохранения списка в файле. В
этих операциях должны вводиться имя файла с путем доступа к нему.
2.2.2 Операция регистрации поступления новых кассет. В этой операции
должны вводиться первые 6 вышеуказанных данных, и количество посту¬
пивших копий, поля количества копий в фонде и в наличии заполняется ав¬томатически.
2.2.3 Операции регистрации выдачи и возврата. В операциях регистрации
должен быть предусмотрен ввод фамилии и инициалов клиента.
2.3 Выходная информация:
2.3.1 Вывод информации о кассете. См. п. 1.2.3.
2.3.2 Анализ спроса и выручки, вывод справочной информации. См. п.п. 1.3,
1.4.
3. Пользовательский интерфейс
Рабочая среда программы должна состоять из основного окна, диалоговых окон выполнения операций, информационных окон (окон сообщений) и

79
контекстных меню с командами выполнения основных операций. Основное окно должно содержать:
операционное меню,
панель инструментов с кнопками выполнения файловых операций и
основных операций учета видеоносителей,
таблицу записей базы данных (с сокращенным набором полей) для визуализации данных и выбора текущей записи,
строку состояния с номером текущей записи и количеством записей базы данных.
Руководитель, ст. преподаватель кафедры ИТ Киреева Г.И.

1.Описание задачи
Открытие сетей видеопроката является на данный момент одним из са¬мых быстроразвивающихся видов бизнеса на территории крупных городов. Каждое отделение видеопроката оснащено крупной видеотекой, и, при жела¬нии, клиент может не только взять напрокат нужную кассету, но и приобре¬сти её. Новинки мировой индустрии кинематографа поступают в прокат по мере выдачи им лицензии и прокатного удостоверения, утвержденных зако¬нодательством РФ.
При регистрации видеоносителей в прокате учитывается вся информа¬ция о них: название кассеты, ФИО режиссера, жанр произведения, страна-производитель, кинокомпания, сделавшая данный продукт, время воспроиз¬ведения, цена проката (руб.) за сутки, а так же дата выпуска кассеты в прокат и количество принятых в данное отделение кассет с аналогичным названием.
Продажа видеоносителей производится по установленной законом цене (600 руб. за штуку).
Клиент имеет право взять напрокат (или приобрести) любое количество кассет, и длительность проката ограничена только финансовыми возможно¬стями клиента. Но для этого клиенту необходимо получить регистрационную кару, на которую заносится вид заказа и его стоимость. При выдаче данной карты регистрируется вся необходимая информация о клиенте: ФИО, кон¬тактный телефон, серия и номер паспорта (включая срок действия паспорта), адрес прописки.
При желании, сотрудник виопроката может просмотреть список выдан¬ных кассет, список клиентов данного отделения, поверить какие кассеты и кому были выданы за определённый промежуток времени, а так же узнать, какая кассета пользовалась наибольшим спросом у клиентов за отчётный пе¬риод. Так же в программе предусмотрена опция показа выручки за отчетный

период, в которую входят выручка от продаж, выручка от проката и суммар¬ная выручка.
Объем вышеуказанной работы по учету видеоносителей достаточно ве¬лик даже в условиях небольших отделений проката и требует использования вычислительной техники и специальных программных средств.
Целью работы является создание компьютерной программы для автома¬тизации основных процедур учета видеоносителей в видеотеке.
Для разработки подобных программных средств существуют специаль¬ные инструментальные системы - системы управления базами данных (СУБД), как например SQL Server фирмы Microsoft. Однако, они не имеют встроенного языка программирования высокого уровня, с помощью которого и создается прикладная программа управления базой данных, настроенная на особенности той предметной области, где она будет использоваться. Поэтому для решения задачи была использована универсальная система программи¬рования Delphi 7, набор средств которой вполне достаточен для создания программ управления базами данных малой и средней сложности.
1. Описание программы
1.1 Выполняемые операции
Программа выполняет следующие операции с базой данных (БД), со¬держащей данные о видеоносителях в видеотеке и о клиентах данного отде¬ления видеопроката:
Добавление новых данных в БД. В этой операции создаются новые запи¬си БД, в которую заносятся данные о видеоносителях, поступивших в прокат для последующей реализации, и клиентах данного отделения видеопрката, введенные с клавиатуры. Системная дата компьютера заносится в запись как дата выдачи данной продукции прокатного удостоверения. За один сеанс вы¬полнения этой операции можно ввести произвольное количество записей.

Изменение номера текущей записи. Некоторые операций выполняются программой с текущей записью БД. Перед выполнением таких операций не¬обходимо нужную запись сделать текущей. Это выполняется щелчком пра¬вой кнопки мыши по соответствующей строке списка в главном окне про¬граммы.
Изменение данных. В этой операции пользователю предоставляется воз¬можность изменить данные из текущей записи БД (например, сведения о принятой видеокассете).
Удаление данных. Эта операция удаляет из БД текущую запись. Восста¬новление удаленной записи невозможно.
Вывод данных на экран. Эта операция выводит на экран все данные од¬ной - текущей записи. Выборочные поля всех записей БД (номер контракта, вид и наименование материала, объем и дата поставки и название фирмы -поставщика) выводятся в виде таблицы в основном окне программы. Про-листывание строк с целью просмотра данных в этой таблице и выбора теку¬щей записи выполняется обычным для Windows-приложений путем.
Регистрация выдачи кассеты. В этой операции регистрируется ФИО клиента, который берёт напрокат кассету (кассеты), а так же название взятой продукции и время возврата. Все зарегистрированные данные заносятся в специализированные списки. Количество записей в БД с названием выдавае¬мых кассет уменьшается на 1.
Регистрация приёма кассеты. В этой операции, зарегистрированные при выдаче кассеты данные, удаляются из специализированных списков. Ко¬личество записей в БД с названием принимаемых кассет увеличивается на 1.
Поиск записи. В этой операции выполняется поиск записей БД, в кото¬рой содержится искомое данное. Поиск можно выполнить либо по номеру жанру произведения, либо по названию кассеты, либо по названию страны -производителя, либо по фамилии режиссера, либо по ФИО клиента. Данные основных полей найденной записи выводятся на экран. После нахождения

очередной записи с искомым данным можно продолжить поиск, до тех пор пока не будут проверены все записи БД.
Подсчет выручки. Эта операция предоставляет возможность знать, ка¬кого размера была выручка у данного отделения видеопроката за тот или иной период. Выручка высчитывается как от продаж, так и от выдачи кассет напрокат, а так же суммарная выручка.
1.2 База данных
База данных хранится в двух файлах с расширением .MDF и .LDF, при этом в первом находится физическая структура базы, во втором - логическая. БД разрабатывалась в среде SQL Server фирмы Microsoft. Её структура вы¬глядит следующим образом:

нет