50448 (Разработка информационной системы "Библиотека"), страница 4

83) Кнопка «Дополнительно», делающая видимым блок дополнительной информации об издании

object	Button4: TButton
Left	560
Top	184
Width	113
Height	33
Hint	Позволяет просмотреть имеющуюся дополнительную информацию об издании
Caption	Дополнительно
TabOrder	5

procedure Button4Click(Sender: Tobject); - делает видимым блок дополнительной информации об издании

84) Кнопка «Библиотека», делающая видимым блок выдачи/возврата издания

object	Button6: TButton
Left	440
Top	184
Width	115
Height	33
Hint	Позволяет обозначить факт выдачи или возврата издания в базе данных
Caption	Библиотека
Enabled	False
TabOrder	4

procedure Button6Click(Sender: Tobject); - делает видимым блок выдачи/возврата издания

85) Элемент для связывания самой БД и элементов отображения её записей

object	DataSource1: TDataSource
DataSet	Table1
Left	792
Top	184

86) Главное меню

object	MainMenu1: TMainMenu
Left	960
Top	168
object	N1: TMenuItem
Caption	Меню
object	N2: TMenuItem
Caption	Выборка
OnClick	Button19Click
object	N3: TMenuItem
Caption	Редактирование БД
OnClick	Button2Click
object	N4: TMenuItem
Caption	Библиотека
Enabled	False
OnClick	Button6Click
object	N5: TMenuItem
Caption	Дополнительные сведения
OnClick	Button4Click
object	N8: TMenuItem
Caption	'-'
object	N9: TMenuItem
Caption	Выход
OnClick	Button20Click

procedure N7Click(Sender: Tobject); - выводит форму «О прграмме»

87) Элемент, позволяющий работать с SQL-запросом на выбор записей из БД по автору

object	Query1: TQuery
Active	True
AutoRefresh	True
DatabaseName	'BOOK'
RequestLive	True
SQL.Strings	('SELECT D.*' 'FROM "..Библиотека\Books.db"D' 'WHERE (D. Author Like :FirstChar.)')
Left	816
Top	184
ParamData = <	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	Value	''

88) Элемент для связывания результатов работы SQL-запроса и элементов отображения записей БД

object	DataSource2: TDataSource
DataSet	Query1
Left	840
Top	184

89) Элемент, позволяющий работать с SQL-запросом на выбор записей из БД по заглавию издания

object	Query2: TQuery
Active	True
AutoRefresh	True
DatabaseName =	'BOOK'
RequestLive	True
SQL.Strings = (	'SELECT F.*' 'FROM "..Библиотека\Books.db"F' 'WHERE (F. NameBook Like :FirstChar.)')
Left	864
Top	184
ParamData = <	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	Value	''

90) Элемент для связывания результатов работы SQL-запроса и элементов отображения записей БД

object	DataSource3: TDataSource
DataSet	Query2
Left	888
Top	184

91) Элемент, позволяющий работать с SQL-запросом на выбор записей из БД по вышеуказанным фрагментам

object	Query3: TQuery
Active	True
AutoRefresh	True
DatabaseName	'BOOK'
RequestLive	True
SQL.Strings = (	'SELECT F.*' 'FROM "..Библиотека\Books.db"F' 'WHERE F. Type Like :FirstChar. OR' 'F. KeyWord2 Like :FirstChar. OR' 'F. KeyWord3 Like :FirstChar. OR ' 'F. KeyWord4 Like :FirstChar. OR' 'F. NameBook Like :FirstChar. OR ' 'F. ExplanatoryToTitle Like :FirstChar. OR' 'F. Type Like :FirstChar. OR' 'F. Genre Like :FirstChar. OR' 'F. Notes Like :FirstChar.'')
Left	912
Top	184
ParamData = <	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown
	item
	DataType	ftString
	Name	'FirstChar.'
	ParamType	ptUnknown

92) Элемент для связывания результатов работы SQL-запроса и элементов отображения записей БД

object	DataSource4: TDataSource
DataSet	Query3
Left	976
Top	184

93) Элемент позволяющий программе работать с указанной БД «Books.DB»

object	Table1: TTable
Active	True
ObjectView	True
AutoRefresh	True
StoreDefs	True
TableName	'Books.DB'
Left	1000
Top	184
FieldDefs = <	item
	Name	'UDK'
	DataType	ftString
	Size	30
	item
	Name	'Author'
	DataType	ftString
	Size	50
	item
	Name	'NameBook'
	DataType	ftString
	Size	150
	item
	Name	'Year'
	DataType	ftString
	Size	4
	item
	Name	'Amount'
	DataType	ftInteger
	item
	Name	'Here and Now'
	DataType	ftString
	Size	10
	item
	Name	'PlaceIndex'
	DataType	ftString
	Size	3
	item
	Name	'Volume'
	DataType	ftSmallint
	item
	Name	'Genre'
	DataType	ftString
	Size	40
	item
	Name	'Type'
	DataType	ftString
	Size	40
	item
	Name	'ExplanatoryToTitle'
	DataType	ftString
	Size	40
	item
	Name	'PublishingHouse'
	DataType	ftString
	Size	40
	item
	Name	'KeyWord1'
	DataType	ftString
	Size	20
	item
	Name	'KeyWord2'
DataType	ftString
Size	20
item
Name	'KeyWord3'
DataType	ftString
Size	20
item
Name	'KeyWord4'
DataType	ftString
Size	20
item
Name	'Notes'
DataType	ftString
Size	255

Вторая форма

1) Стартовая форма

object	Form2: Tform2
Left	319
Top	183
BorderStyle	bsNone
ClientHeight	434
ClientWidth	623
Color	clBtnFace
Position	poScreenCenter

2) Фоновое изображение стартовой формы

object	Image1: TImage
Left	0
Top	0
Width	623
Height	434
Align	alClient
Center	True
Stretch	True
OnClick	Image1Click

procedure Image1Click(Sender: Tobject); - скрывает стартовую форму при нажатии кнопкой мыши по фоновому изображению

3) Элемент отображающий текст на стартовой форме «БИБЛИОТЕКА»

object	Label1: TLabel
Left	168
Top	104
Width	295
Height	45
Caption	БИБЛИОТЕКА
Font.Charset	DEFAULT_CHARSET
Font.Color	clYellow
Font.Height	-32
Font.Name	'Arial Black'
Font.Style	[fsBold]
ParentFont	False
Transparent	True

4) Элемент отображающий текст на стартовой форме «ВЫПОЛНИЛ:»

object	Label2: TLabel
Left	32
Top	200
Width	238
Height	52
Caption	ВЫПОЛНИЛ:
Font.Charset	RUSSIAN_CHARSET
Font.Color	clYellow
Font.Height	-37
Font.Name	'Arial Black'
Font.Style	[fsBold]
ParentFont	False
Transparent	True

5) Элемент отображающий текст на стартовой форме «СТУДЕНТ ГРУППЫ ПИ-08-1»

object	Label3: TLabel
Left	64
Top	248
Width	524
Height	52
Caption	СТУДЕНТ ГРУППЫ ПИ-08-1
Font.Charset	RUSSIAN_CHARSET
Font.Color	clYellow
Font.Height	-37
Font.Name	'Arial Black'
Font.Style	[fsBold]
ParentFont	False
Transparent	True

6) Элемент отображающий текст на стартовой форме «СОЛОМАХИН П.С.»

object	Label4: TLabel
Left	232
Top	296
Width	361
Height	52
Caption	СОЛОМАХИН П.С.
Font.Charset	RUSSIAN_CHARSET
Font.Color	clYellow
Font.Height	-37
Font.Name	'Arial Black'
Font.Style	[fsBold]
ParentFont	False
Transparent	True

7) Элемент отображающий текст на стартовой форме «ИНФОРМАЦИОННАЯ СИСТЕМА»

object	Label5: TLabel
Left	32
Top	40
Width	586
Height	45
Caption	ИНФОРМАЦИОННАЯ СИСТЕМА
Font.Charset	DEFAULT_CHARSET
Font.Color	clYellow
Font.Height	-32
Font.Name	'Arial Black'
Font.Style	[fsBold]
ParentFont	False
Transparent	True

8) Элемент, позволяющий по истечении времени закрывать стартовую форму

object	Timer1: TTimer
Interval	4000
OnTimer	Timer1Timer
Left	592
Top	8

procedure Timer1Timer(Sender: Tobject); - скрывает по истечении времени стартовую форму

Третья форма

1) Форма «О программе»

object	Form3: TForm3
Left	151
Top	90
Width	473
Height	190
Align	alCustom
Caption	'О программе'
Color	clBtnFace

2) Панель для зрительного выделения объектов

object	Panel1: TPanel
Left	8
Top	8
Width	441
Height	139
TabOrder	0

3) Теметическое изображение на форме

object	Image1: TImage
Left	1
Top	3
Width	153
Height	134
Stretch	True

4) Элемент отображающий текст на форме «Библиотека»

object	Label1: TLabel
Left	256
Top	16
Width	98
Height	21
Caption	Библиотека
Font.Charset	RUSSIAN_CHARSET
Font.Color	clWindowText
Font.Height	-19
Font.Name	'Times New Roman'
Font.Style	[fsItalic]
ParentFont	False

5) Элемент отображающий текст на форме «Курсовая работа по дисциплине ВМИиП»

object	Label2: TLabel
Left	200
Top	48
Width	205
Height	13
Caption	Курсовая работа по дисциплине ВМИиП

6) Элемент отображающий текст на форме «Разработал студент группы ПИ-08-1: Соломахин П.С.»

object	Label3: TLabel
Left	160
Top	72
Width	273
Caption	Разработал студент группы ПИ-08-1: Соломахин П.С.

7) Элемент отображающий текст на форме «2009»

object	Label4: TLabel
Left	288
Top	100
Width	24
Height	13
Caption	'2009'

8) Кнопка для закрытия формы «О программе»

object	BitBtn1: TBitBtn
Left	336
Top	104
Width	89
Height	25
TabOrder	0
Kind	bkOK

procedure BitBtn1Click(Sender: Tobject); - закрывает форму «О программе»

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

3.1 Декомпозиция поставленной задачи

Основная задача: разработка программы, обеспечивающей учет библиотечного фонда.

Подзадачи:

• В средстве Database Desktop 7 создать базу данных, соответствующую поставленной задаче.

• В среде Delphi создать средство управления базой данных под Windows.

• В проектируемой программе предусмотреть возможность редактирования базы данных.

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

• Создать уникальный значок приложения и включить в проект.

3.2 Разработка алгоритма решения задачи

• Создание модуля системы управления базой данных;

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

• Создание модуля стартовой заставки;

Заставка запускается одновременно с главной формой, по истечении времени отображения (4 секунды) или при нажатии на неё кнопкой мыши скрывается. Возможно также перейти к работе с главной формой, кликнув на её рабочей области.

• Создание модуля информации о программе;

При нажатии на главной форме меню «О программе» открывается форма с содержанием модуля. Кнопка «Ок» закрывает форму.

• Создание процедур, требуемых для взаимодействия модулей;

Все созданные процедуры осуществляют работу с базой данных в соответствии с требованиями к программному средству.

3.3 Реализация функционального назначения программного средства

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

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

При нажатии на кнопку «Выборка» или выборе соответствующего пункта меню становится видимым блок выборки из БД и невидимой — кнопка «Выборка». В этом блоке отображаются элементы, позволяющие при выборе первой буквы и нажатии на соответствующую кнопку выполнить выборку из БД по автору или заглавию издания. Также при вводе фрагмента заглавия издания, сведений, относящихся к заглавию, области литературы, жанра в поле ввода и нажатии на кнопку «По фрагменту» - произвести выборку записей, содержащих этот фрагмент. При нажатии на кнопку «Готово» блок выборки скрывается, становится видимой кнопка «Выборка».

При нажатии на кнопку «Редактирование БД» или выборе соответствующего пункта меню становится видимым блок редактирования БД, невидимой — кнопка «Редактирование БД» и включается кнопка «Библиотека». В этом блоке отображаются элементы, позволяющие добавлять, редактировать удалять записи БД. Управление БД производится с помощью навигатора. Поля «УДК», «Автор» и «Заглавие» являются обязательными к заполнению при добавлении записи. При нажатии на кнопку «Готово» блок редактирования скрывается, становится видимой кнопка «Редактирование БД», кнопка «Библиотека» выключается.

При нажатии на кнопку «Библиотека» или выборе соответствующего пункта меню в блоке «Редактирование БД» становится видимым блок управления библиотекой, кнопка «Библиотека» становится невидимой. В этом блоке отображается элемент, позволяющий обозначить факт выдачи/возврата выбранного издания в фонд библиотеки. При нажатии на кнопку «Готово» блок скрывается, становится видимой кнопка «Библиотека».

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

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

При выборе меню «О программе» запускается форма «О программе», содержащая название программы, сведения о разработчике и руководителе разработки. При нажатии кнопки «ОК» форма закрывается.

При нажатии на кнопку «Выход» или выборе соответствующего пункта меню происходит выход из программы.

Схема работы программы «Библиотека»

3.4 Разработка интерфейса ПС

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

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

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

• пользовательский интерфейс должен быть единообразным;

• пользовательский интерфейс должен позволять пользователю исправлять собственные ошибки.

4. Кодирование

4.1 Выбор среды разработки

Delphi – это объектно-ориентированная среда для визуального проектирования Windows-приложений с развитыми механизмами повторного использования программного кода.

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

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

Программирование в Delphi состоит из двух основных этапов:

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

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

4.2 Характеристика языка программирования

Object Pascal — полностью объектно-ориентированный диалект языка Pascal, разработанный фирмой Borland. Начиная с Delphi 7 фирма Borland начала официально называть свой язык Delphi. Однако Object Pascal поддерживается и развивается другими разработчиками. Наиболее серьёзные реализации Object Pascal, кроме Delphi — это TMT Pascal, Virtual Pascal и Free Pascal.

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

Современный объектно-ориентированный язык предлагает, как правило, следующий обязательный набор синтаксических средств:

• Объявление классов с полями (данными — членами класса) и методами (функциями — членами класса).

• Механизм расширения класса (наследования) — порождение нового класса от существующего с автоматическим включением всех особенностей реализации класса-предка в состав класса-потомка. Большинство ООП-языков поддерживают только единичное наследование.

• Средства защиты внутренней структуры классов от несанкционированного использования извне. Обычно это модификаторы доступа к полям и методам, типа public, private, обычно также protected, иногда некоторые другие.

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

• Полиморфное поведение экземпляров классов за счёт использования виртуальных методов. В некоторых ООП-языках все методы классов являются виртуальными.

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

• Конструкторы, деструкторы, финализаторы.

• Свойства.

• Индексаторы.

• Интерфейсы — как альтернатива множественному наследованию.

• Переопределение операторов для классов.

Часть языков (иногда называемых «чисто объектными») целиком построена вокруг объектных средств — в них любые данные (возможно, за небольшим числом исключений в виде встроенных скалярных типов данных) являются объектами, любой код — методом какого-либо класса и невозможно написать программу, в которой не использовались бы объекты. Примеры подобных языков — Java или Ruby. Другие языки (иногда используется термин «гибридные») включают ООП-подсистему в исходно процедурный язык. В них существует возможность программировать, не обращаясь к объектным средствам. Классические примеры — C++ и Delphi Pascal.

4.3 Структура программы

• .dpr – файл проекта создается во время работы над проектом. Этот файл содержит исходный текст главной программы приложения. (ProjectBWI.dpr)

• .pas – файлы модулей проекта представляют собой файлы с исходными текстами программ на языке Pascal. (UnitBWI.pas, UnitStart.pas, UnitAboutProg.pas).

• .DB – файл базы данных. (Books.DB).

• .ico – изображение, являющееся значком запускного файла. (IconBook.ico.).

• .jpg – изображения, используемые на формах. (LibraryAbout.jpg, LibraryPic.jpg).

• .dfm – файлы форм содержат двоичное представление форм. (UnitBWI.dfm, UnitStart.dfm, UnitAboutProg.dfm).

• .res – файлы ресурсов содержат двоичные данные, называемые также ресурсами, которые связаны с выполняемым файлом приложения. (ProjectBWI .res).

• .dof – файлы опций проекта хранят установки, определенные во вкладках окна Project Options. Такой файл создается при первом же сохранении проекта и обновляется при каждом последующем (ProjectBWI . Dof).

• .dcu – файлы скомпилированных модулей (UnitBWI.dcu, UnitStart.dcu, UnitAboutProg.dcu).

5. Тестирование и отладка

5.1 Тестирование

Стартовая форма программы

Главная форма программы

Главная форма программы с отображением имеющихся средств

Форма, содержащая информацию о программе

5.2 Отладка

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

Решением этой проблемы может служить изменение методов отображения форм с использования свойства Visible на обработчик OnShow (Hide/Show) форм. В программе предусмотрена кнопка для корректного завершения «Выход».

2. В программном средстве предусмотрено хранение данных о количестве экземпляров издания в библиотеке, а также выдача/возврат издания, но не предусмотрена возможность отображения фактического количества экземпляров при выдаче/возврате. Необходимо добавить в БД поле для отображения фактического количества экземпляров издания.

3. При внесении изменений в запись БД при работе с таблицей результатов выборки изменения не произойдут в таблице, отображающей все записи БД, но при выходе из программы и повторном её запуске изменения произойдут. Для решения этой проблемы можно установить связь между БД и результатом работы SQL-запроса, это может привести к усложнению программы.

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

Заключение

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

Поставленные цели:

• В среде Delphi создать приложение под Windows с базой данных.

• В проектируемой программе предусмотреть возможность редактирования базы данных.

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

• Создать уникальный значок приложения и включить в проект.

Решение поставленных задач:

изучены элементы управления базами данных среды программирования Borland Delphi 7;

проанализирован теоретический материал, предназначенный для студентов 1 курса специальности «Прикладная информатика в экономике»;

Выводы:

1. Изучена технология визуального проектирования.

2. Создано программное средство для управления библиотекой.

3. Интерфейс ПС прост, удобен и понятен для пользователей.

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

1. Архангельский, А.Я. Программирование в Delphi 7/А.Я. Архангельский.- М.: Бином-Пресс, 2003.- 1152 с.: ил.

2. Канту, М. Delphi7: Для профессионалов/М. Канту.- СПб.: Питер, 2004.-1101с.: ил.

1. 3. Пестриков, В.М. Delphi на примерах/В.М. Пестриков, А.Н. Маслобоев.-СПб.:БХВ-Петерберг, 2005.- 596 с.: ил.

2. 4. Стивене, Р. Delphi. Готовые алгоритмы/Р. Стивене: Пер. с англ. Мерещука П.А. -2-е изд., стер. –М.:ДМК Пресс; СПб.:Питенр, 2004. -384 с.:ил.

3. 5. Работа с базами данных в Delphi:Метод. указ./Сост. А.В. Степанов, Ю.А. Степанов.- Новокузнецк.:ГОУВПО СибГИУ, 2003.- 24 c.

4. 6. Конспект лекций по дисциплине “Библиография”.

5. 7. Конспект лекций по дисциплине “Высокоуровневые методы информатики и программирования”.

Размещено на Allbest.ru