Учёт поступления и выдачи книг

     Вид таблицы в программе

        
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     2.3.2 Тестирование на некорректных данных

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

      Тестирование  программного продукта на некорректных данных:

• При входе в программу в первый раз выводиться сообщение: «Задайте пароль»;
• При входе в программу и не выборе пользователя выводится сообщение: «Выберите пользователя»;
• При входе в программу за «Администратора» и не вводе пароля выводится сообщение: «Пароль не введен»;
• При вводе неправильного пароля выводится сообщение: «Забыли пароль?»;
• При пятикратном вводе неправильного пароль выводится сообщение: «Множественный ввод неправильного пароля, программа будет закрыта»;
• При введении заявки из магазина и не заполнении всех полей выводится сообщение: «Заполни все поля»;
• При введении получении книг из издательства не заполнении всех полей выводится сообщение: «Заполни все поля»;
• При удалении записи и не выборе номера таблицы выводится сообщение: «Выбери таблицу»;
• При удалении записи и не вводе номера записи выводится сообщение: «Заполни все поля»;
• При удалении несуществующей записи выводится сообщение: «Данная запись не существует»

• При добавлении новой книги если введена уже существующая в базе данных выводятся сообщения: «Данная книга уже существует», «Тираж добавиться к существующей книге»;

• При вводе нового пароля меньше 4 символов выводится сообщение «Пароль слишком короткий»;
• При вводе нового пароля разным в двух полях выводится сообщение «Введены разные Пароли»;

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     2.4 Руководство пользователя

     Программа устанавливается с диска. Путем копирование папки «Учет» в рабочую папку на жестком диске. Для правильной работы программы необходимо чтобы на компьютере пользователя были установлены следующие программные продукты :  Borland Delphi7, Borland Database Engine Administrator, Database Desktop. Программа запускается путем запуска приложения «Учет.exe».

     Руковдство  по использованию продукта

     При запуске приложения открывается форма выбора пользователя (рисунок 3), в которой производится выбор пользователя, а также ввод пароля для пользователя «Администратор». 

     

     

Рисунок 3 – Форма выбора пользователя 

      Перед тем как перейти к ведомостям необходимо выбрать пользователя. В случае если пользователь не был выбран высветится сообщение об ошибке (рисунок 4).

Рисунок 4 - Сообщение об ошибке 
 

     При выборе из меню «Склад» кнопку «Получения книг» окрывается окно для заполнение данных о поступившей книге(рисунок 5).  

Рисунок 5 – Получение книг 
 

     При нажатии кнопки «Отправить в изд.» выводиться окошко (рисунок 6). В котором при нажатии кнопки «Да» будет выдан список требуемых книг для заказа на склад (рисунок 7).

     

     

Рисунок 6 

 

Рисунок 7 – Список требуемых книг

     При выборе пункта меню «Заявки» нажатии кнопки «На книгу» окрывается окно для вывода заявки (рисунок 8).  В котором необходимо заполнить все поля и затем нажать кнопку «Отправить заявку». 
 

Рисунок 8 – Заявка на книгу 
 

     При нажатии кнопки «Доп. тираж» окрывается окно для ввода дополнительного тиража (рисунок 9). В котором необходимо заполнить все поля и затем нажать кнопку «Отправить заявку». 

Рисунок 9 – Заявка на дополнительный тираж 

     

       
 

     При выборе пункта меню «Ведомости» подменю «Для заказов» и нажатия кнопок «Удовлет. заказы» или «Неудовлет. заказы»  окрывается окно для вывода соответствующей ведомости (рисунок 10,11).   

     

     

 
 

Рисунок 10 – Ведомость удовлетворенных  заказов

Рисунок 11 – Ведомость неудовлетворенных  заказов 

     При нажатии кнопки «Сводная ведомость» окрывается окно для вывода ведомости (рисунок 12).

     

       

Рисунок 12 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

     Заключение

     В ходе написания курсового проекта  была разработана структура и  алгоритм приложения «Учет выдачи и получения книг». При этом были изучены новые информационные технологии, были приобретены навыки в области построения и обработки баз данных.

     Результатом работы стало создание программы учета книг.

       Программа написана на языке  Object Pascal с использованием среды зазработки Delphi 7.

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

     Программа прошла тестирование в результате, которого были выявлены и устранены некоторые недостатки. Приложение было выполнено на данных контрольного примера. Полученные результаты полностью совпали с результатами ручного просчета.

       
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

      1. Флёнов М.  Е. Программирование в Delphi глазами хакера. – СПб.: БХВ - Петербург, 2007. – 368 с.: ил. 
Приложение А

Результат решения

 

Рисунок 13 – Сводная ведомость

     Рисунок 14 Ведомость неудовлетворенных заявок 
 
 
 
 
 
 

     Продолжение приложения А

 

Рисунок 15 Ведомость удовлетворенных заявок 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     Приложение Б

     Код программы

     unit Unit1;

     interface

     uses

       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

       Dialogs, Menus, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, registry,

       ComCtrls;

     type

       TForm1 = class(TForm)

         DBGrid1: TDBGrid;

         DBGrid2: TDBGrid;

         MainMenu1: TMainMenu;

         N1: TMenuItem;

         GroupBox1: TGroupBox;

         GroupBox2: TGroupBox;

         StatusBar1: TStatusBar;

         Timer1: TTimer;

         N25: TMenuItem;

         DBGrid3: TDBGrid;

         N6: TMenuItem;

         N9: TMenuItem;

         N11: TMenuItem;

         N12: TMenuItem;

         N13: TMenuItem;

         N16: TMenuItem;

         N17: TMenuItem;

         N18: TMenuItem;

         N19: TMenuItem;

         N20: TMenuItem;

         N21: TMenuItem;

         N22: TMenuItem;

         N2: TMenuItem;

         procedure clearf2;

         procedure N12Click(Sender: TObject);

     Продолжение приложения Б

        procedure FormShow(Sender: TObject);

         procedure find(kol:integer);

         procedure Timer1Timer(Sender: TObject);

         procedure N25Click(Sender: TObject);

         procedure N9Click(Sender: TObject);

         procedure FormActivate(Sender: TObject);

         procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

         procedure N11Click(Sender: TObject);

         procedure N18Click(Sender: TObject);

         procedure N19Click(Sender: TObject);

         procedure N17Click(Sender: TObject);

         procedure N21Click(Sender: TObject);

         procedure N22Click(Sender: TObject);

         procedure N2Click(Sender: TObject);

       end;

     var

       F1: TForm1;

       kn,q,w,i,j:integer;

     implementation

     uses Unit2, Unit3, Unit4, Unit5, Unit6;

     {$R *.dfm}

     procedure TForm1.find(kol:integer);

     var v:boolean;

     begin

     v:=true;

     f3.SG1.Cells[0,0]:='№  заказа';

     f3.SG1.Cells[1,0]:='Магазин';

     f3.SG1.Cells[2,0]:='Название книги';

     f3.SG1.Cells[3,0]:='Автор';

     f3.SG1.Cells[4,0]:='Треб. кол-во';

     f3.SG1.ColCount:=5;

     f3.SG1.Width:=515;

     f3.Width:=530;

     if kol=0 then

     Продолжение приложения Б

     begin

     f3.SG1.Cells[4,0]:='Издательство';

     f3.SG1.Cells[5,0]:='Выдано';

     f3.SG1.ColCount:=6;

     f3.SG1.Width:=615;

     f3.Width:=630;

     end;

     f3.SG1.RowCount:=1;

     i:=1;

     DM6.T2.RecNo:=1;

     while not(DM6.T2.Eof) do

     begin

     if kol=0 then

       begin

         if DM6.T2.FieldByName('Треб. кол').AsInteger=0 then