Разработка программного кода программы

Программный код для авторизации пользователя:

var i, n, k, z: integer;

begin

z: =0;

k: =0;

n: =adotable1.RecordCount;

adotable1.First;

if combobox1.Text='' then showmessage('Выберите режим работы');

for i: = 1 to n do

begin

if (combobox1.text='Администратор')

and (adotable1.FieldByName('должность').AsString='Администратор')

then

begin

if (edit1.text=adotable1.FieldByName('login').AsString)

and (edit2.text=adotable1.FieldByName('password').AsString)

then begin form1.Visible: =false; form2.show; z: =0; end

else begin z: =1; adotable1.Next; end;

end

else adotable1.Next;

end;

Первый цикл для авторизации пользователя администратора, в случае соответствия режима работы, логина и пароля, в случае не соответствия счетчику Z (счетчик соответствия для режима «администратор») присваивается значение 1:

adotable1.First;

for i: = 1 to n do

begin

if (combobox1.text='Менеджер')

then

begin

if (adotable1.FieldByName('должность').AsString='Менеджер')

and (edit1.text=adotable1.FieldByName('login').AsString)

and (edit2.text=adotable1.FieldByName('password').AsString)

then begin form1.Visible: =false; form3.show; z: =0; k: =0; form3.Label3.Caption: =adotable1.fieldbyname('Фамилия').AsString+' '+adotable1.fieldbyname('Имя').asstring; end

else begin k: =1; adotable1.Next; end;

end;

end;

Аналогично происходит для режима «Менеджер», только счетчик соответствия К:

if (z=1) then showmessage('Неверный логин или пароль или у вас нет прав работать в режиме администратора');

if (k=1) then showmessage('Неверный логин или пароль или у вас нет прав работать в режиме менеджера по продажам');

После прохождения циклов счетчики рассматриваются и если соответствий не было обнаружено (счетчик станет равен 1), то выходит сообщение об ошибке.

edit1.Text: ='';

edit2.Text: ='';

combobox1.Text: ='';

end;

Программный код для пересчета предварительной стоимости проката:

procedure TForm7.Edit1Change(Sender: TObject);

var d1, d2: tdatetime;

x, i, n, s, s1, z: integer;

w: real;

begin

if edit1.text='' then x: =0

else x: =strtoint(edit1.text); // объявление срока аренды

d1: =date; // объявление даты вручения(текущая дата)

d2: =d1+x; // объявление даты возврата (текущая дата+срок)

label10.Caption: ='0';

label14.Caption: ='0';

label8.Caption: =datetostr(d1);

label9.Caption: =datetostr(d2);

n: =form6.adotable3.recordcount;

form6.adotable3.first;

for i: =1 to n do

begin

if form2.adotable2.FieldByName('носитель').asstring=form6.ADOTable3.FieldByName('носитель').asstring

then begin s: =form6.adotable3.FieldByName('стоимость_аренды').asinteger;

s1: =form6.adotable3.FieldByName('стоимость').asinteger; end

else form6.ADOTable3.Next;

end;

label10.Caption: =inttostr(s*x);

w: =(s*x)-((s*x)/100*form3.ADOTable1.fieldbyname('скидка').AsInteger);

z: =trunc(w);

label14.Caption: =inttostr(z);

x: =s1;

w: =s1-s1/100*form3.ADOTable1.fieldbyname('скидка').AsInteger;

s1: =trunc(w);

label12.Caption: =inttostr(s1);

end;

Итогом этого блока является объявление дат вручения и возврата, срока проката, а также подсчет стоимости осуществляется из таблицы носители, где указана стоимость аренды за день.

Программный код формирование ТОР фильмов:

begin

n: =adotable3.RecordCount;

for i: = 1 to n do

adotable3.Delete;

d: =datetimepicker1.Date;

d1: =datetimepicker2.Date;

m: =adotable2.RecordCount;

n: =form3.ADOTable2.RecordCount;

adotable2.First;

if checkbox1.checked=true then

for j: = 1 to m do

begin

form3.ADOTable2.First;

x: =0;

for i: = 1 to n do

begin

if (form3.ADOTable2.FieldByName('фильм').AsString=adotable2.FieldByName('название').asstring+' '+adotable2.FieldByName('носитель').asstring)

and (d< form3.ADOTable2.FieldByName('дата_вручения').AsDateTime)

and (d1> form3.ADOTable2.FieldByName('дата_вручения').AsDateTime)

then x: =x+1;

form3.ADOTable2.next;

end;

form3.ADOTable2.Next;

adotable3.Insert;

adotable3.FieldByName('имя').AsString: =adotable2.FieldByName('название').asstring+' '+adotable2.FieldByName('носитель').asstring;

adotable3.FieldByName('количество').AsInteger: =x;

adotable3.Post;

adotable2.Next;

end

else

for j: = 1 to m do

begin

form3.ADOTable2.First;

x: =0;

for i: = 1 to n do

begin

if (form3.ADOTable2.FieldByName('фильм').AsString=adotable2.FieldByName('название').asstring+' '+adotable2.FieldByName('носитель').asstring)

then x: =x+1;

form3.ADOTable2.next;

end;

showmessage(adotable2.FieldByName('название').asstring+' '+inttostr(x));

form3.ADOTable2.Next;

adotable3.Insert;

adotable3.FieldByName('имя').AsString: =adotable2.FieldByName('название').asstring+' '+adotable2.FieldByName('носитель').asstring;

adotable3.FieldByName('количество').AsInteger: =x;

adotable3.Post;

adotable2.Next;

end;

adotable3.sort: ='количество DESC';

Для построения ТОРа фильмов по таблице прокаты прогоняется каждый фильм с учетом заданного периода и в случае соответствия увеличивает счетчик совпадения на 1. После прохождения всех фильмов выстраивается таблица, в которой указан фильм и количество раз его проката, либо покупки. По завершению построения таблицы, она сортируется на возрастанию.

Программный код отчета все сделки за определенный период:

begin

d: =datetimepicker5.Date;

d1: =datetimepicker6.Date;

a: =0;

n: =adotable2.RecordCount;

adotable2.First;

AppProgID: ='Word.Application';

ServerIsRunning: = False;

Result: = GetActiveObject(ProgIDToClassID(AppProgID), nil, Unknown);

if (Result=MK_E_UNAVAILABLE) then

App: = CreateOleObject(AppProgID)//создать сервер

else

begin // с существующей копией сервера

App: =GetActiveOleObject(AppProgID);

ServerIsRunning: =true;

end;

App.Visible: =True;

app.Documents.Add();

Rng: = App.ActiveDocument.Paragraphs.Item(1).Range;

sel: =App.Selection;

sel.font.size: =12;

sel.font.bold: =true;

Rng.InsertAfter('Перечень сделок салона видеопрокатк с '+datetostr(d)+' по'+datetostr(d1));

Rng.InsertParagraphAfter;

Rng.InsertParagraphAfter;

Rng: = App.ActiveDocument.Paragraphs.Item(3).Range;

Rng.InsertAfter('Фильм, клиент, дата вручения, дата возврата, стоимость, статус');

for i: = 1 to n do

begin

if (d< adotable2.FieldByName('дата_вручения').AsDateTime)

and (d1> adotable2.FieldByName('дата_вручения').AsDateTime)

then

begin

Rng.InsertParagraphAfter;

Rng.InsertAfter(adotable2.FieldByName('фильм').asstring+', '+adotable2.FieldByName('клиент').asstring+', '+adotable2.FieldByName('дата_вручения').asstring+', '+adotable2.FieldByName('дата_возврата').asstring+', '+adotable2.FieldByName('стоимость').asstring+', '+adotable2.FieldByName('статус').asstring);

a: =a+1;

end;

adotable2.Next;

end;

Rng.InsertParagraphAfter;

Rng.ConvertToTable(', ');

Rng.InsertParagraphAfter;

Rng.InsertAfter('Общее количество сделок '+inttostr(a));

Rng.InsertParagraphAfter;

End

Этот фрагмент кода осуществляет связь с Word сервером и экспортирует необходимые данные из таблицы Сделки. Строки таблицы заполняются при помощи вставок типа Rng.InsertAfter(###########);.

2.4. Тестирование программы АИС видеопроката

Метод тестирования выбранный для теста программы: Метод " черного ящика", так как в процессе тестирования происходит взаимодействие с ПО через те же интерфейсы, что и конечный пользователь.

При авторизации в программе, если не выбран режим работы (Администратор или Менеджер), появляется окно с предупреждением (рисунок 13):

Рисунок 13.

После выбора режима (Администратор или Менеджер), если введен неверный логин или пароль, появляется окно с предупреждением (рисунок14 и рисунок 15 соответственно):

Рисунок 14.

Рисунок 15.

При добавлении нового сотрудника в режиме Администратора в полях ввода Фамилии, Имени, Отчества запрещён ввод цифр (рисунок 16).

Рисунок 16.

При заключении новой сделки, если не указано количество дней проката, то выдаётся окно с предупреждением (рисунок 17):

Рисунок 17.

При повторном добавлении одного и того же фильма в базу данных, программа выводит окно (рисунок 18):

Рисунок 18.

При добавлении нового сотрудника или клиента, в случае совпадения паспортных данных, программа выводит сообщение (рисунок 19):

Рисунок 19.

2.5. Экономическая эффективность

В процессе внедрения АИС Видеопрокат произойдет:

1. Увеличение производительности труда;

2. Более удобное использование программного продукта без каких либо затруднений в использовании;

3. Без внедрения АИС Видеопрокат или других аналогичных программ, работа видеопроката будет невозможна;

4. Внедрение данного программного продукта приведет к сокращению рабочего времени на выполнение операции на 120 минут.

Расчет экономической эффективности от внедрения мероприятия по приобретению программного обеспечения для салона Видеопроката. Исходные данные для расчета данных приведены в таблице 6.

Таблица 6

Исходные данные для расчета годовой экономической эффективности

1. Определим экономию времени (тыс. чел. – час):

Эвр. = (Чох)*(Фвр дн)

Эвр. = 6*120*248/60 = 2976

2. Определим экономию численности (чел.):

Эч = Эвр/(Фвр)

Эч = 2976/1948 = 1, 53

3. Определим рост производительности труда (%):

Птр = Эч*100/(Чср-Эч)

Птр = 1, 53*100/(25- 1, 53) = 6, 52

4. Вычислим экономию по заработной плате (тыс.руб.):

Эзп = Эч*Фзп

Эзп = 1, 53*126 = 192, 78

5. Определим экономию по страховым взносам в государственные внебюджетные фонды (тыс. руб.):

Эот.вт. = Эзп*0, 30

Эот.вт. = 192, 78*0, 30 = 57, 834

6. Определим экономию от снижения себестоимости (тыс.руб.):

Эс/с = Эзп + Эот.вт.

Эс/с = 192, 78+57, 834 = 250, 614

7. Определим годовой экономический эффект (тыс.руб.):

Эг = Эс/с - Ен*Зед

Эг = 250, 614 - 0, 15*3, 0 = 250, 164

Внедрение данного мероприятия увеличит прибыль предприятия на 250, 164 тыс.руб.

ЗАКЛЮЧЕНИЕ

Итогом выполнения выпускной квалификационной работы стала информационная система по автоматизации салона видеопроката. Данная информационная система изготовлена в среде визуального программирования Delphi 7 с использованием базы данных в формате MS Access.

В ходе проведения выпускной квалификационной работы были выполнены следующие виды работ:

1. Подобрана и изучена сфера деятельности видеопроката;

2. Проведен анализ аналогов данной программы;

3. Выбрана система управления базами данных и язык программирования;

4. Разработан программный код приложения;

5. Работа оформлена в соответствии с требованиями.

Разработка и внедрение информационной системы по автоматизации салона видеопроката позволит избавить менеджеров от бумажной работы и некоторой неопределенности с продукцией или клиентами.

Разработанная информационная система может применяться как в крупных, так и мелких компаний.

Достоинства программы:

1. Введение полной базы фильмов, клиентов и сделок;

2. Возможность добавление нового фильма нового клиента;

3. Возможность просмотра базы клиентов;

4. Возможность просмотра отчета по заданному фильму или клиенту;

5. Пользовательский интерфейс соответствует стандартному Windows приложению.

Данная система может быть использована для автоматизации и внедрения в структуру работы салона видеопроката.

СПИСОК ЛИТЕРАТУРЫ

1. Акишкин А.М., Федорова Г.В. Основы программирования на персональных ЭВМ. М.: Экономическое образование, 2003. - 27 с.

2. Артемьев В. И. Обзор способов и средств построения информационных приложений, 30.09.2004 https://www.osp.ru/

3. Базы знаний интеллектуальных систем / Т.А. Гаврилова, В.Ф. Хорошевский - СПб: Питер, 2005. 384 с.

4. Бемер С, Фратер Г., MS Access для пользователя. - Киев, " BHV", 2004.

5. Биллиг В.А., Дехтярь М.И. VBA и Office 2005. Офисное программирование. - М., Русская редакция, 2004. - 342с.

6. Вейскас Д. Эффективная работа с Microsoft Access. С.- Петербург: " Питер Пресс", 2003. - 856 с.

7. Визе Манс. Microsoft ACCESS. М., Бином. 2003.

8. Винтер П. Microsoft Access 2005: справочник. СПб.: Питер, 2003. 416 с.

9. Воинов Б.С. Информационные технологии и системы: Монография. В 2 кн. Книга 1. Методология синтеза новых решений. Нижний Новгород: Изд-во ННГУ им. Н.И. Лобачевского, 2001. 404 с.

10. Воинов Б.С. Информационные технологии и системы: Монография. В 2 кн. Книга 2. Прикладные системные исследования. Нижний Новгород: Изд-во ННГУ им. Н.И. Лобачевского, 2001. 272 с.

11. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД. - СПб.: Питер, 2004. 704 стр.

12. Грабер Мартин. Введение в SQL. Пер. с англ. - М.: Издательство " ЛОРИ", 2004. - 375 с.

13. Гусева Т.И., Башин Ю.Б. Проектирование баз данных в примерах и задачах. М., 2004.

14. Давыдова Л.А. Информационные системы в экономике. - М.: Проспект, 2004. - 452с.

15. Евдокимов В. В. Экономическая информатика. Учебник для ВУЗов. СПб. Питер. 2003.

16. Калянов Г.Н. Теория и практика реорганизации бизнес-процессов. - М.: Синтег, 2005.

17. Колесник А.П. Компьютерные системы в управлении финансами. - М.: " Финансы и статистика", 2002. - 386с.

18. Круглов М.Г., Сергеев С.К., Такташов В.А. Менеджмент систем качества. - М.: ИПК Издательство стандартов, 1997.

19. Локальные вычислительные сети. Cправочник. / Под ред. С.В. Назарова. М.: " Финансы и статистика", 2002. - 400с

20. Мартино Дж. Технологическое прогнозирование М.: Прогресс, 1977. 591 с.

21. Николь Н., Альбрехт Р. Microsoft Access для профессионалов. М.: ЭКОМ., 2003 304 с.

22. Пол Литвинг, Кен Гетц, Майкл Гилберт, Access 2005. Руководство разработчика. Том 2. Корпоративные приложения. Пер. с англ., Издательская группа BHV, Киев, 2001 912 c.

23. Половинкин А.И., Чумаков Г.С. Поисковое проектирование и конструирование станочных приспособлений: Учебное пособие Волгоград: ВПИ, 2004. 133 с.

24. Савельев В.А., Персональный компьютер для всех (кн.3), Создание и использование баз данных. - М., 2004.

25. Тарасов В. К. Персонал технологии. М.: ЭКО, 2001. - 182с.

26. Тимоти Бадд, Объектно- ориентированное программирование в действии. С.Пб., 2004.

27. Токарев В.В., Хмелёв Н.Г., Абрамов А.В. Система поддержки принятия технических и управленческих решений //Материалы международной конференции " Информационные технологии". Волгоград, 2002. С. 218-227.

29. Фленов М. Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004. – 880 с.

30. Харитонова И.А., Михеева В.Д. Microsoft Access 2005. СПб.: БХВ Санкт-Петербург, 2005. 1088 с.: ил. Шнайдер Г. Access 2005. М.: Лаборатория Базовых Знаний, 2005. 480 с.: ил. (Справочник).

31. Харитонова И.А., Михеева В.Д., " Microsoft ACCESS 2005: разработка приложений", Издетельство " БХВ-Санкт-Петербург", 2005 832 с.

32. Хоффбауэр М., Шпильманн К., ACCESS 2005. Сотни полезных рецептов, Киев, " BHV", 2004

33. Программирование в Delphi/БХВ- Петербург, Боровский А.Н., 2005-117с.

34. Delphi 7. Учебный курс/Петербург, Бобровский С. И., 2004-93с.