Разработка программного обеспечения в среде визуального программирования Delphi для информационной системы «Библиотека»

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И  НАУКИ РОСИЙСКОЙ ФЕДЕРАЦИИ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО  ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

 

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ 

ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

 

 

 

 

 

Кафедра АСУ

 

 

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к курсовой работе

по дисциплине «Среды программирования»

на тему:

Разработка программного обеспечения в среде визуального программирования Delphi для информационной системы «Библиотека»

 

 

 

 

 

 

 

     Выполнил:

     Студент Антонов Д.Н.

     Группа ПИ-103Т

 

     Проверил:

    доцент кафедры АСУ  Головкин Ю.Б.

    Оценка ____________

     «___» _____________ 2012г.

 

 

 

 

                                                  Уфа 2012 

Содержание

1. Постановка задачи…………………………………………………………….3

2. Описание предметной области………………………………………………3

3. Проектирование интерфейса…………………………………………………6

    3.1. Выбор и назначение  визуальных компонентов…………………………6

    3.2. Формы проекта…………………………………………………………...7

4. Разработка программного обеспечения……………………………………..11

    4.1. Модули, процедуры, функции проекта и их назначение………………11

    4.2. Листинг программного  кода……..………………………………………11

5. Визуальное представление результатов…………………………………….21

6. Список использованной литературы………………………………………..22

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. Постановка задачи

Разработка программного обеспечения в объектно-ориентированной среде визуального программирования Delphi для информационной системы в конкретной предметной области (библиотека).

2. Описание предметной области

Библиоте́ка (греч. kē*βιβλιοθήκη / bibliothē, от βιβλίον / biblíon «книга» и kē*θήκη / thē «место хранения») — учреждение, собирающее и хранящее произведения печати и письменности для общественного пользования, а также осуществляющее справочно-библиографическую работу.

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

Другой важной характеристикой библиотеки является структура её фонда. В большинстве случаев часть изданий (наиболее востребованная читателями) располагается в открытом доступе и может быть просмотрена читателем непосредственно у книжной полки, тогда как большинство изданий располагается в книгохранилище и может быть оттуда получено лишь через некоторое время посредством заказа по каталогу. В некоторых случаях на выдачу особо редких, повреждённых или содержащих государственную тайну изданий накладываются ограничения, требующие от читателя специального запроса или разрешения; в СССР эта практика использовалась особенно широко и вошла в историю как спецхран^[2].

Передвижные библиотечные пункты облегчают  доступ к книгам и Интернету для населения удаленных районов, жителей домов престарелых и т. п. Для доставки книг и средств связи используются автобусы, автофургоны (англ. bookmobile, исп. bibliobús), а в некоторых странах (Зимбабве^[3]) даже ишаки.

Библиотеки впервые появились  на древнем Востоке. Обычно первой библиотекой  называют собрание глиняных табличек, приблизительно 2500 год до н. э., найденное в храме вавилонского города Ниппур. В одной из гробниц близ египетских Фив был обнаружен ящик с папирусами времени II переходного периода (XVIII — XVII вв. до н. э.). В эпоху Нового царства Рамсесом II было собрано около 20 000 папирусов. Самая известная древневосточная библиотека — собрание клинописных табличек из дворца ассирийского царя VII века до н. э. Ашшурбанипала в Ниневии. Основная часть табличек содержит юридическую информацию. В древней Греции первая публичная библиотека была основана в Гераклее тираном Клеархом (IV век до н. э.).

Крупнейшим центром античной книжности стала Александрийская библиотека. Она была создана в III веке до н. э. Птолемеем I и была центром образования всего эллинистического мира. Александрийская библиотека являлась частью комплекса mouseĩon (музей). В комплекс входили жилые комнаты, столовые помещения, помещения для чтения, ботанический и зоологический сады, обсерватория и библиотека. Позднее к нему были добавлены медицинские и астрономические инструменты, чучела животных, статуи и бюсты, которые были использованы для обучения. В mouseĩon входило 200 000 папирусов в Храме (почти все библиотеки античности были при храмах) и 700 000 документов в Школе. Музей и большая часть Александрийской библиотеки были уничтожены приблизительно в 270 году нашей эры.

Старинная библиотека монастыря св. Флориана, Австрия. В этом помещении — около 30 000 книг.

В Средние века очагами книжности были монастырские библиотеки, при которых действовали скриптории. Там переписывалось не только Священное писание и сочинения Отцов Церкви, но и произведения античных авторов. В эпоху Ренессанса деятели Возрождения, буквально, охотились за сохранявшимися в монастырях греческими и латинскими текстами. Из-за огромной стоимости манускриптов и трудоёмкости их изготовления книги приковывались к библиотечным полкам цепями (см. книги на цепях).

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

Всего на сегодня в библиотеках  находится примерно 130 миллионов  наименований книг (по версии Google).

 

 

 

 

 

 

 

 

 

 

3. Проектирование интерфейса

3.1. Выбор и назначение  визуальных компонентов

В данном проекте были использованы следующие визуальные компоненты объектно-ориентированной  среды  Delphi:

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

Из вкладки Standard использованы следующие компоненты:

MainMenu – определяет главное меню формы (программы).

Label – метка. Предназначен для размещения на форме различного рода текстовых надписей.

Button – кнопка. Используется для управления программами. Связанный с кнопкой алгоритм управления реализуется в обработчике события OnClick.

Edit – однострочное редактируемое текстовое поле. С его помощью можно вводить и отображать достаточно длинные текстовые строки.

Из вкладки Additional использованы следующие компоненты:

Image – изображение. Служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растрового рисунка, значка или метафайла.

DBGrid (сетка),  компонент вкладки Data Controls обеспечивает табличный способ отображения на экране строк данных из компонентов Table или Query. Приложение может использовать DBGrid для отображения, вставки, уничтожения, редактирования данных БД.

Для создания и редактирования БД использовались компоненты доступа  к данным:

DataSource (источник данных), компонент вкладки DataAccess обеспечивает связь между данными, представленными компонентом ADODataSet, ADOTable или ADOQuery и компонентами отображения данных (DBGrid, DBEdit, DBMemo).

ADOConnection обеспечивает соединение с базой данных.

ADOTable представляет собой таблицу (все столбцы) базы данных (обеспечивает доступ к таблице).

 

 

 

3.2. Формы проекта

Форма 1 – Заставка

 

Первая форма содержит 4 надписи (Label), которые отображают тему курсового проекта, информацию об авторе и проверяющем; рисунок проекта (Image) и кнопку (Button), при нажатии на которую осуществляется переход к базе данных библиотеки.

 

 

Форма 2 – База данных

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Вторая форма содержит главное  меню (MainMenu) , в подменю которого можно выбрать для выполнения необходимую функцию таблицы (DBGrid), отображающую ассортимент библиотеки), компонент DBNavigator с помощью которого происходит перемещение по таблице и добавление записей, компоненты ADOTable, DataSource и ADOconnection для подключения к базе данных и  рисунок (Image).

 

 

 

 

 

 

 

 

Форма 3 – Поиск по инвентарному номеру

 

Третья форма содержит компоненты Label, edit для ввода значения поиска, кнопку для поиска и dbgrid для отображения результатов

 

Форма 4 – Поиск по автору

 

Четвертая форма содержит компоненты Label, edit для ввода значения поиска, кнопку для поиска и dbgrid для отображения результатов

 

 

 

 

 

Форма 5 – Поиск по названию

 

 

Пятая форма содержит компоненты Label, edit для ввода значения поиска, кнопку для поиска и dbgrid для отображения результатов

 

 

Форма 6 – Диаграмма количество книг

 

На шестой форме расположен компонент  DBchart он отображает диаграмму.

 

 

4. Разработка программного обеспечения

4.1. Модули, процедуры,  функции проекта и их назначение

Основные процедуры проекта:

procedure N4Click(Sender: TObject); Выход

procedure N5Click(Sender: TObject); Поиск по инвентарному номеру

procedure N6Click(Sender: TObject); Поиск по автору

procedure N7Click(Sender: TObject); Поиск по названию

procedure N8Click(Sender: TObject); Сортировка по издательству

procedure N9Click(Sender: TObject); Сортировка по автору

procedure N10Click(Sender: TObject); Сортировка по цене

procedure N11Click(Sender: TObject); Диаграмма

 

Назначение модулей:

Unit1 - заставка

Unit2 – основная форма

Unit3 – Поиск по инвентарному номеру

Unit4 - Поиск по автору

Unit5 – Поиск по названию

Unit6 – Диаграмма количество книг

Основные функции:

ShowMessage – окно, в котором находится сообщение и кнопка ОК

4.2. Листинг программного  кода

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Visible:=false;

form2.show;

end;

end.

unit Unit2;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, Menus, jpeg;

type

  TForm2 = class(TForm)

    DBGrid1: TDBGrid;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    Image1: TImage;

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N10Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: Form2;

implementation

uses Unit3, Unit4, Unit5, Unit6, Unit1;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);

begin

form1.close;

close;

end;

procedure TForm2.N5Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm2.N6Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm2.N7Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm2.N8Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Издательство';

end;

procedure TForm2.N9Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Автор';

end;

procedure TForm2.N10Click(Sender: TObject);

begin

ADOTable1.IndexFieldNames:='Цена';

end;

procedure TForm2.N11Click(Sender: TObject);

begin