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

Содержание

Содержание
Поручение на курсовую работу 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 Операция регистрации поступления новейших кассет. В данной операции
должны включаться 1-ые 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 Основа данных
Основа данных хранится в 2-ух файлах с расширением. MDF и. LDF, при этом в главном располагаться телесная конструкция базы, во другом - логическая. БД разрабатывалась в среде SQL Server компании Microsoft. Ее конструкция вы¬глядит последующим образом:

Выдержка

Осуществление команды Приём меню Прокат
Для реализации данной команды нужно на соответственной форме завести код покупателя в доставленный для этого 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;

Литература

недостает

Больше работ по теме: