Разработка приложения для базы данных «Музыкальная школа»

 

 

Таким образом, на этапе физического  проектирования была создана база данных и определены пользователи.

 

5. Описание программы

 

1. Общие сведения

Приложение хранится в файле  Project1.exe. Среда разработки приложения - Delphi 7.0. Для функционирования данного приложения, на компьютере необходимо установить операционную систему Windows ХР, программную среду Delphi 7.0, инструмент администрирования и разработки IBExpert, а также СУБД Firebird 2.5; база данных MusocSchool.FDB, для которой было разработано приложение, должна располагаться на сервере на диске C в каталоге BD. Текст модулей программы приведен в приложении А.

 

2. Функциональное назначение

Программа хранит информацию:

• о личных данных ученика (имя, фамилию, отчество, место жительства, телефон);
• о специальности ученика;
• о личных данных преподавателя (имя, фамилию, отчество);
• о специальности, на которой будет преподавать;
• о специальностях (код, наименование)

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

 

3. Описание логической структуры

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

 

Программа имеет 1 модуль (Unit1), в котором управление разными таблицами данных, реализовано на отдельных вкладках. Вкладок создано 3 по числу таблиц. На каждой из вкладок реализована возможность создания, редактирования, удаления записей таблиц данных.

 

На модуле данных Unit1 расположены невизуальные компоненты для работы с базой данных. Он вызывается при запуске приложения.

Описания процедур, используемых в  приложении - Таблица 12 .

Таблица 12 - Описание модулей приложения.

Имя процедуры	Примечание
procedure TForm1.FormCreate(Sender: TObject);	Вызывается при создании формы. Отвечает за заполнение таблиц на формах из БД. Также за начальную активность кнопок. Устанавливает пусть к базе данных из файла config.ini.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);	Закрывает соединение с базой данных.
procedure TForm1.Button1Click(Sender: TObject);	Нажатие кнопки «добавить» для таблицы Prepodavateli. Очищает поля ввода данных. Меняет активность кнопок (оставляет сохранить и отмена). Ставит признак того, что запись новая.
procedure TForm1.Button3Click(Sender: TObject);	Кнопка «Редактировать» для таблицы Prepodavateli. Заполняет поля ввода для последующего редактирования. Меняет активность кнопок (оставляет сохранить и отмена). Ставит признак того, что запись старая.
procedure TForm1.Button4Click(Sender: TObject);	Кнопка «Сохранить» для таблицы Prepodavateli. Сохраняет изменения для старой записи, либо добавляет новую запись в таблицу.
procedure TForm1.Button2Click(Sender: TObject);	Нажатие кнопки «Удалить»  для таблицы Prepodavateli. Удаляет выбранную строку из БД.
procedure TForm1.EnabledEdit(const AValue: Boolean);	Процедура для включения  и выключения активности кнопок и  полей ввода. Для таблицы Prepodavateli.
procedure TForm1.EnabledEditSp(const AValue: Boolean);	Процедура для включения  и выключения активности кнопок и полей ввода. Для таблицы Specialnosti.
procedure TForm1.EnabledEditSt(const AValue: Boolean);	Процедура для включения  и выключения активности кнопок и  полей ввода. Для таблицы Student.
procedure TForm1.Button6Click(Sender: TObject);	Нажатие кнопки «Добавить» для таблицы Student. Очищает поля ввода данных. Меняет активность кнопок (оставляет сохранить и отмена) и полей. Ставит признак того, что запись новая.
procedure TForm1.Button7Click(Sender: TObject);	Кнопка «Редактировать» для таблицы Student. Заполняет поля ввода для последующего редактирования. Меняет активность кнопок (оставляет сохранить и отмена) и полей. Ставит признак того, что запись старая.
procedure TForm1.Button8Click(Sender: TObject);	Нажатие кнопки «Удалить» для таблицы Student. Удаляет выбранную строку из БД.
procedure TForm1.Button9Click(Sender: TObject);	Кнопка «Сохранить»  для таблицы Student. Сохраняет изменения для старой записи, либо добавляет новую запись в таблицу.
procedure TForm1.Button10Click(Sender: TObject);	Кнопка «Отмена» для  таблицы Student. Меняет активность полей. Данные по изменения либо по добавлению записей БД не сохраняется.
procedure TForm1.Button11Click(Sender: TObject);	Нажатие кнопки «Добавить» для таблицы Specialnosti. Очищает поля ввода данных. Меняет активность кнопок (оставляет сохранить и отмена) и полей. Ставит признак того, что запись новая.
procedure TForm1.Button12Click(Sender: TObject);	Кнопка «Редактировать»  для таблицы Specialnosti. Заполняет поля ввода для последующего редактирования. Меняет активность кнопок (оставляет сохранить и отмена) и полей. Ставит признак того, что запись старая.
procedure TForm1.Button13Click(Sender: TObject);	Нажатие кнопки «Удалить» для таблицы Specialnosti. Удаляет выбранную строку из БД.
procedure TForm1.Button14Click(Sender: TObject);	Кнопка «Сохранить»  для таблицы Specialnosti. Сохраняет изменения для старой записи, либо добавляет новую запись в таблицу.
procedure TForm1.Button15Click(Sender: TObject);	Кнопка «Отмена» для  таблицы Student. Меняет активность полей. Данные по изменения либо по добавлению записей БД не сохраняется.
procedure TForm1.Button16Click(Sender: TObject);	Завершение работы программы

 

4. Используемые технические средства

Необходимо чтобы приложение было клиент-серверным. Для локального и серверного компьютеров необходимы следующие минимальные характеристики: тактовая частота процессора - 166 МГц; оперативная память- 256 Мбайт; на жестком диске при установке используется около 475 Мбайт; объем жестокого диска зависит от размера информационной базы, но необходимо не менее 700 Мбайт.

 

5. Вызов и загрузка

Для вызова программы на выполнения необходимо запустить файл Project1.exe. Для функционирования данного приложения, на компьютере необходимо установить операционную систему Windows ХР, программную среду Delphi 7.0, инструмент администрирования и разработки IBExpert, а также СУБД Firebird 2.5; база данных MusicSchool.FDB,  для которой было разработано приложение, необходимо расположить на сервере на диске С в каталоге BD.

 

 

 

6. Входные данные

• Параметры присоединения к базе данных: вид базы данных, имя сервера, имя пользователя, протокол, имя пользователя, пароль и адрес файла базы данных.

• Входные данные извлекаются из базы данных или вводятся пользователем.
7. Выходные данные

Выходными данными являются сведения из таблиц базы данных, которая может изменяться пользователем.

 

6. Программа и методика испытаний

 

1. Объект испытаний

Объектом испытаний является программа  Project1.exe. А так же файл базы данных MusicSchool.FDB, расположенный на удаленном сервере HOME57, на диске C в каталоге BD.

 

2. Цель испытаний

 

Испытания проводятся с целью проверки правильности выполнения приложением его функций.

 

3. Требования к программе Приложение должно обеспечивать:

 

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

 

4. Требования к программной документации

Пояснительная записка к курсовой работе должна содержать следующие документы:

 

- техническое задание,

- описание программы,

- текст программы,

- программу и методику испытаний,

- описание применения.

 

5. Средства и порядок испытаний

Для проведения испытаний нужен  компьютер типа Pentium стандартной комплектации, с установленной операционной системой Windows ХР, подключенный в локальную сеть. На нём должен быть установлен файл project1 с расширением ехе, содержащий проверяемую программу. Файл MusicSchool с расширением fdb, содержащий базу данных, устанавливается на удалённом сервере HOME57, но может быть установлен на локальном компьютере. Для проверки правильности программы необходимо испытать ее функционирование на тестовом примере. Сравнивая полученный результат с контрольным, надо определить правильность работы программы.

 

6. Методы испытаний

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

Запускаем файл Project1.exe на выполнение, при этом на экране должна появиться главная форма приложения (см. Рисунок Б.1).

 

Проведем тестовый пример №1 функции  «Добавить запись в таблицу Specialnosti» (Б.2). Далее необходимо заполнить поля ввода (Б.3).

Чтобы сохранить введенную информацию следует нажать кнопку «Сохранить». После этого, новая запись БД будет отражена в таблице (Б.4).

 

Проведем тестовый пример № 2 функции «Редактировать строку таблицы Prepodavateli». Для этого необходимо перейти на вкладку «Преподаватели» (Б.5),  выбрать строку для редактирования из табличной части и нажать на кнопку «Редактировать» (Б.6), после изменения данных нужно нажать на кнопку «Сохранить».  После всех действий внесенные изменения, отобразятся в табличке. (Б.7).

Проведем тестовый пример № 3 функции «Удалить строку таблицы Student». Для этого необходимо перейти на вкладку «Студенты» (Б.8),  выбрать строку для удаления из табличной части и нажать на кнопку «Удалить» (Б.9), после этого нужно подтвердить удаление записи.  После всех действий внесенные изменения отобразятся в табличке. (Б.10).

 

 

7. Описание применения

 

1. Назначение программы

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

 

2. Условия применения

Программа написана для персонального компьютера стандартной комплектации. На компьютере должна быть установлена операционная система Windows ХР, инструмент администрирования и разработки IBExpert. Приложение должно работать как на одном компьютере, так и в сети. База данных должна быть установлена на удаленном сервере HOME57, на диске C, в каталоге BD, но может быть установлена и на локальном. Для функционирования приложения на сервере должна быть установлена СУБД Firebird 2.5, в которой должен быть зарегистрирован пользователь.

 

3. Описание задачи

После запуска программы на выполнение, на экране появляется главная форма  приложения. На ней расположены  вкладки «Преподаватели», «Студенты», «Специальности» (см. Рисунок Б.1).

Просмотр, правка и удаление информации о единицах измерения осуществляется нажатием на кнопки «Добавить», «Редактировать», «Удалить», «Сохранить», «Отменить». Внесенные изменения отобразятся в таблицах после нажатия кнопки «Сохранить».

4. Входные и выходные данные

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

 

Заключение

 

 

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

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

 

Список использованных источников

 

1: Еременко А.В., Использование компонентов  InterBase Express в приложениях баз данных - http://172.16.76.30/ivs/Database/ibexp.html

 

2: Еременко А.В., Бобрышева Г.В.,Долгова И.А., Проектирование баз данных с помощью Open ModelSphere, - Пенза: Издательство ПТУ, 2011. - 76 с.

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение А

(обязательное)

 

unit Unit1;

 

interface

 

uses

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

  Dialogs, IniFiles, DB, IBDatabase, IBCustomDataSet, IBQuery, Grids,

  DBGrids, ComCtrls, StdCtrls;

 

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    DBGrid1: TDBGrid;

    IBQuery1: TIBQuery;

    IBDatabase1: TIBDatabase;

    IBTransaction1: TIBTransaction;

    DataSource1: TDataSource;

    TabSheet2: TTabSheet;

    PageControl2: TPageControl;

    TabSheet3: TTabSheet;

    DBGrid2: TDBGrid;

    TabSheet4: TTabSheet;

    IBQuery2: TIBQuery;

    IBTransaction2: TIBTransaction;

    DataSource2: TDataSource;

    TabSheet5: TTabSheet;

    IBQuery3: TIBQuery;

    IBTransaction3: TIBTransaction;

    DataSource3: TDataSource;

    PageControl3: TPageControl;

    TabSheet7: TTabSheet;

    TabSheet6: TTabSheet;

    DBGrid3: TDBGrid;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    ComboBox1: TComboBox;

    Button4: TButton;

    Button5: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    IBQuery4: TIBQuery;

    IBTransaction4: TIBTransaction;

    StFname: TEdit;

    StParentName: TEdit;

    StPrepod: TEdit;

    StAdress: TEdit;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    IBQuery5: TIBQuery;

    IBTransaction5: TIBTransaction;

    StPhone: TEdit;

    StName: TEdit;

    ComboBox2: TComboBox;

    DateTimePicker1: TDateTimePicker;

    IBQuery6: TIBQuery;

    IBTransaction6: TIBTransaction;

    SpCode: TEdit;

    SpNamePrepod: TEdit;

    SpSpec: TEdit;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Button11: TButton;

    Button12: TButton;

    Button13: TButton;

    Button14: TButton;

    Button15: TButton;

    Button16: TButton;

    procedure FormCreate(Sender: TObject);

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

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure Button15Click(Sender: TObject);

    procedure Button16Click(Sender: TObject);

  private

    FNew:Boolean;

    FNewSt:Boolean;

    FNewSp:Boolean;

    procedure EnabledEdit(const AValue: Boolean);

    procedure EnabledEditSt(const AValue: Boolean);

    procedure EnabledEditSp(const AValue: Boolean);

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

Var

  FiniFile: TiniFile;

  i:integer;

begin

  Try

  FiniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Config.ini');

  TRy

    IBDatabase1.DatabaseName := FiniFile.ReadString('Base','Path','');

  Finally

    FiniFile.Free;

  end;

  IBDatabase1.Connected := True;

 

  with IBQuery1 do

      Begin

        Sql.Text := 'Select * From Prepod';

        open;

      end;

   with IBQuery2 do

      Begin

        Sql.Text := 'Select * From Student';

        open;