Разработка системы управления базой данных: «Книжный магазин» в среде Delphi

Рисунок 11 - Форма «Наше предложение».

 

• Unit11

Модуль содержит данные об оплате, сотрудниках, отделах и клиентах. На верхней панели находятся RadioButton1, RadioButton2 и RadioButton3 отвечающие за переключение по таблицам в нижней части окна. Button1 – выполняет закрытие формы «Оплата».  На средней панели находится DBGrid1 – отображает таблицу «Oplata». DBNavigator1 – навигация по таблице. На нижней панели находится DBGrid2 – которая отображает таблицы «Sotrudnik», «Otdel» и «Client», в зависимости от включенного флажка. DBNavigator2, DBNavigator3, DBNavigator4 – навигация по таблицам. На рисунке 12 изображена форма «Оплата».

Рисунок 12 - Форма «Оплата».

• Unit12

Модуль содержит данные о книгах. DBGrid1 – отображает таблицу  «Kniga». DBNavigator1 – навигация по таблице, включены только кнопки для навигации по таблице, добавить или удалить записи невозможно. Также модуль содержит поле для ввода текста Edit1 и поле со списком ComboBox1, по параметрам, которых производится выборка. Button1 – выполняет закрытие формы «Просмотр книг». На рисунке 13 изображена форма «Просмотр книг».

Рисунок 13 - Форма «Просмотр книг».

• Unit13

Модуль содержит данные о скидках. DBEdit1, DBEdit2 и DBEdit3 – отображают строку из таблицы «Kniga». DBNavigator1 – навигация по полям. Button1 – выполняет закрытие формы «Скидки». На рисунке 14 изображена форма «Скидки».

Рисунок 14  - Форма «Скидки».

 

4. Инструкция пользователя

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

В разделе «Просмотр книг» содержится информация о книгах, доступная к общему пользованию. Можно произвести поиск, выбрав интересующий раздел из поля со списком, и ввести начальные буквы для поиска в поле для ввода. Навигация по таблице имеет сокращенный вид, добавить или удалить записи невозможно.

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

В разделе «Наше предложение», можно узнать какой процент скидки на последующие покупки можно  получить за определенную сумму оплаты. При помощи кнопок навигации легко искать данные в таблице.

Для возврата на главную  форму нужно нажать на кнопку «Закрыть окно Наше предложение».

В разделе «О программе» содержатся информация о разработчике. Для возврата в главную форму  нужно нажать на кнопку «Закрыть окно О программе».

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

При нажатии на кнопку в контекстном меню «Доступ к  данным» всплывет окно «Ввод пароля». В поле для ввода необходимо ввести пароль «123», после чего пользователь ИС может просматривать раздел «Доступ к данным».

В разделе «Доступ  к данным» имеются кнопки при  нажатии, на которые можно открыть  интересующую форму.

В разделе «Книги»  содержится информация о книгах имеющихся  в магазине. Можно произвести поиск  книг по:

• жанру, выбрав нужный жанр книги из компонента поле со списком,
• фамилии автора (ввести условие выборки в соответствующее поле вручную),
• названию книги (ввести условие выборки в соответствующее поле вручную),

а затем нажать на кнопку «Поиск». При необходимости просмотра всей таблицы, без выборки нужно нажать на кнопку «Сброс».

При помощи кнопок навигации  легко искать данные в таблице. Для  добавления или удаления записи нужно  нажать на кнопку  + или – соответственно, а затем на кнопку Refresh, чтобы данные добавились/удалились в самой базе данных.

Для возврата на форму доступ к данным нужно нажать на кнопку «Закрыть окно Книги».

В разделе «Оплата» можно  узнать дату, сумму покупки книги. При помощи кнопок навигации легко  искать данные в таблице. Для добавления или удаления записи нужно нажать на кнопку + или – соответственно, а затем на кнопку Refresh, чтобы данные добавились/удалились в самой базе данных.

Так же в данном окне переключая флажки Сотрудники, Отделы или Клиенты, в нижней части окна можно просматривать  соответствующие таблицы.

Для возврата в главную форму нужно нажать на кнопку «Закрыть окно Оплаты».

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

Также как и в других формах имеются кнопки навигации  по таблице. Для возврата в главную  форму нужно нажать на кнопку «Закрыть окно Сотрудники».

В разделе «Поставщики» можно узнать ФИО поставщика, сумму, количество и дату поставки. Добавить, изменить или удалить запись. А также осуществить поиск по фамилии поставщика  (ввести условие выборки в соответствующее поле вручную), а затем нажать на кнопку «Поиск». При необходимости просмотра всей таблицы без условий выборки необходимо нажать на кнопку «Сброс». Для возврата в главную форму нужно нажать на кнопку «Закрыть окно Поставки».

В разделе «Клиенты»  можно узнать ФИО клиента и  карту клиента. Добавить, изменить или  удалить запись. Можно произвести поиск, выбрав интересующий раздел из поля со списком, и ввести начальные буквы для поиска в поле для ввода. Для возврата в главную форму нужно нажать на кнопку «Закрыть окно Клиенты».

В разделе «Скидки» можно  посмотреть, какой процент скидки на последующие покупки можно получить за определенную сумму оплаты. При помощи кнопок навигации легко искать данные по полям. Для добавления или удаления записи нужно нажать на кнопку + или – соответственно, а затем на кнопку Refresh, чтобы данные добавились/удалились в самой базе данных.

Для возврата на форму  «Доступ к данным» нужно нажать на кнопку «Закрыть окно Скидки».

Для выхода из раздела  «Доступ к данным» нужно нажать на кнопку «Выход»

Для закрытия главной  формы нужно нажать на кнопку «Выход»  или меню → файл  → выход и подтвердить, нажав во всплывшем окне кнопку «ОК».

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

В процессе выполнения курсового  проекта были разработаны структура  и алгоритм работы приложения «Книжный магазин».

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

Был проведен комплекс тестирования в составе программы «Книжный магазин», в результате которого были устранены некоторые недостатки, а программа получила свое дальнейшее развитие.

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

В ходе работы над данной работой была проанализирована предметная область. Были изучены источники.

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

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

 

 

 

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

1. Баженова И. Ю. Delphi7. Самоучитель программиста. – М.: КУДИЦ-ОБРАЗ, 2006. – 448 с.
2. Бобровский С. И.  Delphi7. Учебный курс. – СПб.: Питер, 2007. – 736 С.: ил
3. Золотова С.И. Практикум по Access. - М.: Финансы и статистика, 2004. - 144с.
4. Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер, 2001. - 304с.
5. http://ru.wikipedia.org/wiki/%D0%9C%D0%BE%D0%B4%D0%B5%D0%BB%D1%8C
6. http://ru.wikipedia.org/wiki/%D0%AD%D0%98%D0%A1
7. http://www.interface.ru/fset.asp?Url=/case/proekt_inf_sis.htm
8. http://www.intuit.ru/department/se/devis/7/
9. http://www.metod-kopilka.ru/page-2-2-13.html
10. http://www.mixsystems.com.ua/Content/For-clients/tz_examples/
11. http://www.nist.ru/hr/doc/gost/34-602-89.htm

 

 

 

 

 

 

 

 

 

 

 

Приложение 1 - Модуль программы «Книжный магазин»

 

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, ExtCtrls, Menus;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button4: TButton;

    Image1: TImage;

    Button5: TButton;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N10: TMenuItem;

    Label1: TLabel;

    Button8: TButton;

    N11: TMenuItem;

    procedure Button1Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11, Unit12,

  Unit13, Unit14;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form12.showmodal;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти?',mtWarning,mbOKCancel,1)=1

then Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

  O_programme.showmodal;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if MessageDlg('Вы действительно хотите выйти?',mtWarning,mbOKCancel,1)=1

then Close;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

  O_programme.showmodal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

  form12.showmodal;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

  form3.showmodal;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

    form4.show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

  form6.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

   form12.showmodal;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

    form14.showmodal;

end;

end.