Описание объектов, свойств и методов

2.2. Описание объектов, свойств и методов

Первая форма

1) Главная форма программы «Библиотека»

object	Form1: TForm1
Left	263
Top	59
Width	1010
Height	716
Caption	Библиотека
Color	clBtnFace
Menu	MainMenu1
Position	poScreenCenter
ShowHint	True

procedure FormShow(Sender: Tobject); - отображает главную форму одновременно со стартовой формой

2) Таблица, отображающая все записи базы данных по столбцам: «УДК», «Автор», «Заглавие издания», «Год», «Количество», «Наличие»

object	DBGrid1: TDBGrid
Left	0
Top	8
Width	993
Height	169
Align	alCustom
DataSource	DataSource1
Enabled	False
Columns	item
	Expanded	False
	FieldName	'UDK'
	Title.Caption	УДК
	Title.Color	clWhite
	Width	106
	Visible	True
	item
	Expanded	False
	FieldName	'Author'
	Title.Caption	Автор
	Title.Color	clWhite
	Width	176
	Visible	True
	item
	Expanded	False
	FieldName	'NameBook'
	Title.Caption	Заглавие издания
	Title.Color	clWhite
	Width	549
	Visible	True
	item
	Expanded	False
	FieldName	'Year'
	Title.Caption	Год
	Title.Color	clWhite
	Width	29
	Visible	True
	item
	Expanded	False
	FieldName	'Amount'
	Title.Caption	Количество
	Title.Color	clWhite
	Width	34
	Visible	True
	item
	Expanded	False
	FieldName	'Here and Now'
	PickList.Strings	(В наличии/Выдано)
	Title.Caption	Наличие
	Title.Color	clWhite
	Width	55
	Visible	True

3) Навигатор для управления таблицей, отображающей записи базы данных

object	DBNavigator1: TDBNavigator
Left	8
Top	184
Width	160
Height	33
Cursor	crHandPoint
DataSource	DataSource1
VisibleButtons	[nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
TabOrder	1

procedure DBNavigator1Click(Sender: TObject; Button: TnavigateBtn); - связывает управление блоками дополнительной информации и редактирования записей БД с управлением таблицы всех записей

4)  Блок средств выполнения выборки из базы данных по автору, заглавию и по названию области литературы, сведениям, относящимся к заглавию, заглавию издания, жанру, примечаниям

object	GroupBox3: TGroupBox
Left	8
Top	224
Width	161
Height	257
Caption	Выбор записей по запросу
TabOrder	9
Visible	False

5) Панель для зрительного выделения кнопки «Готово»

object	Panel3: TPanel
Left	8
Top	16
Width	95
Height	32
TabOrder	0

6) Кнопка «Готово», скрывающая блок средств выполнения выборки

object	Button17: TButton
Left	6
Top	3
Width	83
Height	25
Caption	Готово

procedure Button17Click(Sender: Tobject); - делает невидимым блок средств выполнения выборки

7) Панель зрительного выделения средств выборки по автору и заглавию

object	Panel1: TPanel
Left	8
Top	56
Width	145
Height	97

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

object	ComboBox2: TComboBox
Left	16
Top	4
Width	113
Height	21
Items.Strings	( А, Б, В, Г, Д, Е, Ё, Ж, З, И, К, Л, М, Н, О, П, Р, С, Т, У, Ф, Х, Ц, Ч, Ш, Щ, Ы, Э, Ю, Я.)

9) Кнопка «По автору» для начала выборки из БД по первой букве фамилии, выбранной в ComboBox2

object	Button16: TButton
Left	8
Top	32
Width	129
Height	25
Caption	По автору издания

procedure Button16Click(Sender: Tobject); - запускает SQL-запрос на выбор записей поля «Автор» БД по выбранной в списке первой букве фамилии автора

10) Кнопка «По заглавию издания» для начала выборки из БД по первой букве заглавия издания, выбранной в ComboBox2

object	Button18: TButton
Left	8
Top	64
Width	129
Height	25
Caption	По заглавию издания

procedure Button18Click(Sender: Tobject); - запускает SQL-запрос на выбор записей поля «Заглавие издания» БД по выбранной в ComboBox2 первой букве заглавия издания

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

object	Panel5: TPanel
Left	8
Top	160
Width	145
Height	89
TabOrder	2

12) Поле ввода фрагмента, по которому будет производиться выборка из БД

object	Edit1: TEdit
Left	16
Top	8
Width	113
Height	21
TabOrder	0

13) Кнопка «По фрагменту» для начала выборки из БД по фрагменту введенному в Edit1

object	Button5: TButton
Left	16
Top	40
Width	113
Height	25
Caption	По фрагменту
TabOrder	1

procedure Button5Click(Sender: Tobject); - запускает SQL-запрос на выбор записей вышеуказанных полей БД по фрагменту введенному в Edit1

14) Таблица, отображающая результаты выборки

object	DBGrid2: TDBGrid
Left	0
Top	528
Width	993
Height	121
Align	alCustom
DataSource	DataSource2
Enabled	False
Visible	False
Columns	item
	FieldName	'UDK'
	Title.Caption	УДК
	Width	103
	Visible	True
	item
	FieldName	'Author'
	Title.Caption	Автор
	Width	177
	Visible	True
	item
	FieldName	'NameBook'
	Title.Caption	Заглавие издания
	Width	551
	Visible	True
	item
	FieldName	'Year'
	Title.Caption	Год
	Width	29
	Visible	True
	item
	FieldName	'Amount'
	Title.Caption	Количество
	Width	34
	Visible	True
	item
	FieldName	'Here and Now'
	PickList.Strings	(В наличии/Выдано)
	Title.Caption	Наличие
	Width	53
	Visible	True

15) Кнопка «Выборка», делающая видимым блок средств выборки

object	Button19: TButton
Left	200
Top	184
Width	113
Height	33
Caption	Выборка

procedure Button19Click(Sender: Tobject); - делает видимым блок средств выполнения выборки

16) Навигатор для управления таблицей, отображающей результаты выборки

object	DBNavigator2: TDBNavigator
Left	8
Top	488
Width	160
Height	33
DataSource	DataSource2
VisibleButtons	[nbFirst, nbPrior, nbNext, nbLast, nbRefresh]
Enabled	False
Visible	False

procedure DBNavigator2BeforeAction(Sender: TObject;Button: TnavigateBtn); - позволяет редактировать запись БД

procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn); - связывает управление блоками дополнительной информации и редактирования записей БД с управлением таблицы, отображающей результаты выборки

17) Кнопка для выхода из программы «Выход»

Object	Button20: TButton
Left	680
Top	184
Width	105
Height	33
Hint	Завершает работу программы
Caption	Выход
TabOrder	6

procedure Button20Click(Sender: Tobject); - закрывает все формы программы

18) Блок средств для редактирования записей в БД

Object	GroupBox1: TGroupBox
Left	176
Top	224
Width	393
Height	297
Caption	Редактирование записи БД
TabOrder	7
Visible	False

20) Подпись к элементу для редактирования записи БД «УДК»

Object	Label1: TLabel
Left	120
Top	22
Width	27
Height	13
Caption	УДК

21) Подпись к элементу для редактирования записи БД «Заглавие издания»

Object	Label3: TLabel
Left	8
Top	56
Width	96
Height	13
Caption	Заглавие издания

22) Подпись к элементу для редактирования записи БД «Год издания»

object	Label4: TLabel
Left	8
Top	119
Width	66
Height	13
Caption	Год издания

23) Подпись к элементу для редактирования записи БД «Количество»

object	Label5: TLabel
Left	76
Top	119
Width	62
Height	13
Caption	Количество

24) Подпись к элементу для редактирования записи БД «Издательство»

object	Label7: TLabel
Left	8
Top	87
Width	75
Height	13
Caption	Издательство

19) Подпись к элементу для редактирования записи БД «Автор»

Object	Label2: TLabel
Left	112
Top	40
Width	33
Height	13
Caption	Автор

25) Подпись к элементу для редактирования записи БД «Сведения, относящиеся к заглавию»

object	Label8: TLabel
Left	192
Top	87
Width	187
Height	13
Caption	Сведения, относящиеся к заглавию

26) Подпись к элементу для редактирования записи БД «Жанр»

object	Label9: TLabel
Left	88
Top	151
Width	32
Height	13
Caption	Жанр

27) Подпись к элементу для редактирования записи БД «Номер тома»

object	Label10: TLabel
Left	8
Top	151
Width	65
Height	13
Caption	Номер тома

28) Подпись к элементу для редактирования записи БД «Полка»

object	Label11: TLabel
Left	352
Top	119
Width	35
Height	13
Caption	Полка

29) Подпись к элементу для редактирования записи БД «Область литературы»

object	Label12: TLabel
Left	208
Top	119
Width	108
Height	13
Caption	Область литературы

30) Подпись к элементу для редактирования записи БД «Страницы»

object	Label13: TLabel
Left	144
Top	119
Width	53
Height	13
Caption	Страницы

31) Подпись к элементу для редактирования записи БД «Примечания»

object	Label26: TLabel
Left	8
Top	188
Width	66
Height	13
Caption	Примечания

 32) Панель для зрительного выделения кнопки «Готово»

object	Panel2: TPanel
Left	8
Top	16
Width	97
Height	32
TabOrder	0

33) Кнопка «Готово», скрывающая блок редактирования записей БД

object	Button1: TButton
Left	6
Top	3
Width	83
Height	25
Caption	Готово
TabOrder	0

procedure Button1Click(Sender: Tobject); - скрывает блок редактирования записей БД

34) Навигатор для управления элементами отображения БД в блоках редактирования записей БД и отображения дополнительной информации

object	DBNavigator3: TDBNavigator
Left	8
Top	264
Width	380
Height	25
Cursor	crHandPoint
DataSource	DataSource1

35) Элемент для редактирования записи БД «УДК»

object	DBEdit1: TDBEdit
Left	160
Top	17
Width	145
Height	21
DataField	'UDK'
DataSource	DataSource1

36) Элемент для редактирования записи БД «Автор»

object	DBEdit2: TDBEdit
Left	160
Top	38
Width	225
Height	21
DataField	'Author'
DataSource	DataSource1

37) Элемент для редактирования записи БД «Заглавие издания»

object	DBEdit3: TDBEdit
Left	8
Top	68
Width	377
DataField	'NameBook'
DataSource	DataSource1

38) Элемент для редактирования записи БД «Год издания»

object	DBEdit4: TDBEdit
Left	8
Top	132
Width	65
Height	21
DataField	'Year'
DataSource	DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); - не позволяет вводить в поле нечисловые значения

39) Элемент для редактирования записи БД «Количество»

object	DBEdit5: TDBEdit
Left	76
Top	132
Width	65
Height	21
DataField	'Amount'
DataSource	DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); - не позволяет вводить в поле нечисловые значения

40) Элемент для редактирования записи БД «Сведения, относящиеся к заглавию»

object	DBEdit6: TDBEdit
Left	192
Top	100
Width	193
Height	21
DataField	'ExplanatoryToTitle'
DataSource	DataSource1

41) Элемент для редактирования записи БД «Издательство»

object	DBEdit7: TDBEdit
Left	8
Top	100
Width	177
Height	21
DataField	'PublishingHouse'
DataSource	DataSource1

42) Элемент для редактирования записи БД «Жанр»

object	DBEdit9: TDBEdit
Left	88
Top	164
Width	185
Height	21
DataField	'Genre'
DataSource	DataSource1

43) Элемент для редактирования записи БД «Номер тома»

Object	DBEdit10: TDBEdit
Left	8
Top	164
Width	73
Height	21
DataField	'Volume'
DataSource	DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);

44) Элемент для редактирования записи БД «Примечания»

Object	DBMemo1: TDBMemo
Left	8
Top	200
Width	265
Height	41
DataField	'Notes'
DataSource	DataSource1

45) Элемент для редактирования записи БД «Полка»

Object	DBEdit14: TDBEdit
Left	352
Top	132
Width	41
Height	21
DataField	'PlaceIndex'
DataSource	DataSource1

46) Элемент для редактирования записи БД «Страницы»

Object	DBEdit8: TDBEdit
Left	144
Top	132
Width	57
Height	21
DataField	'KeyWord1'
DataSource	DataSource1

procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); - не позволяет вводить в поле нечисловые значения

47) Элемент для редактирования записи БД «Область литературы»

Object	DBEdit15: TDBEdit
Left	204
Top	132
Width	145
Height	21
DataField	'Type'
DataSource	DataSource1

48) Блок «Библиотека», производящий выдачу/возврат изданий в БД

Object	GroupBox4: TGroupBox
Left	280
Top	160
Width	105
Height	97
Caption	Библиотека
Visible	False

49) Панель для зрительного выделения кнопки «Готово»

Object	Panel6: TPanel
Left	4
Top	16
Width	95
Height	32

50) Кнопка «Библиотека», скрывающая блок «Библиотека»

Object	Button7: TButton
Left	6
Top	3
Width	83
Height	25
Caption	Готово

procedure Button7Click(Sender: Tobject); - скрывает блок «Библиотека»

51) Элемент для обозначения в БД факта выдачи/возврата издания

Object	DBComboBox1: TDBComboBox
Left	16
Top	56
Width	81
Height	21
DataField	'Here and Now'
DataSource	DataSource1
ItemHeight	13
Items.Strings	(В наличии/Выдано)

52) Кнопка «Редактирование БД», делающая видимым блок редактирования записей БД

Object	Button2: TButton
Left	320
Top	184
Width	113
Height	33
Hint	Позволяет внести изменения в базу данных
Caption	Рерактирование БД

procedure Button2Click(Sender: Tobject); - делает видимым блок редактирования записей БД

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

Object	GroupBox2: TGroupBox
Left	576
Top	224
Width	417
Height	297
Caption	Дополнительная информация об издании
Visible	False

54) Элемент для отображения записи БД «УДК»

Object	DBText1: TDBText
Left	144
Top	27
Width	185
Height	17
DataField	'UDK'
DataSource	DataSource1

55) Элемент для отображения записи БД «Автор»

Object	DBText2: TDBText
Left	144
Top	49
Width	297
Height	17
DataField	'Author'
DataSource	DataSource1

56) Элемент для отображения записи БД «Заглавие издания»

Object	DBText3: TDBText
Left	8
Top	88
Width	433
DataField	'NameBook'
DataSource	DataSource1

57) Элемент для отображения записи БД «Год издания»

Object	DBText4: TDBText
Left	96
Top	160
Width	33
Height	17
DataField	'Year'
DataSource	DataSource1

58) Элемент для отображения записи БД «Количество»

Object	DBText5: TDBText
Left	144
Top	184
Width	49
Height	17
DataField	'Amount'
DataSource	DataSource1

59) Элемент для отображения записи БД «Наличие»

Object	DBText6: TDBText
Left	344
Top	24
Width	65
DataField	'Here and Now'
DataSource	DataSource1

60) Элемент, отображающий поле «Сведения, относящиеся к заглавию»

Object	DBText7: TDBText
Left	200
Top	135
Width	241
Height	17
DataField	'ExplanatoryToTitle'
DataSource	DataSource1

61) Элемент для отображения записи БД «Издательство»

Object	DBText8: TDBText
Left	112
Top	112
Width	329
Height	17
DataField	'PublishingHouse'
DataSource	DataSource1

62) Элемент для отображения записи БД «Область литературы»

object	DBText9: TDBText
Left	24
Top	160
Width	65
Height	17
DataField	'Type'
DataSource	DataSource1

63) Подпись к элементу, отображающему запись БД «УДК»

object	Label14: TLabel
Left	104
Top	26
Width	27
Height	13
Caption	УДК

64) Подпись к элементу, отображающему запись БД «Автор»

object	Label15: TLabel
Left	104
Top	48
Width	33
Height	13
Caption	Автор

65) Подпись к элементу, отображающему запись БД «Заглавие издания»

object	Label16: TLabel
Left	8
Top	72
Width	96
Height	13
Caption	Заглавие издания

66) Подпись к элементу, отображающему запись БД «Издательство»

object	Label17: TLabel
Left	24
Top	111
Width	75
Height	13
Caption	Издательство

67) Подпись к элементу, отображающему запись БД «Сведения, относящиеся к заглавию»

object	Label18: TLabel
Left	6
Top	135
Width	187
Height	13
Caption	Сведения, относящиеся к заглавию

68) Подпись к элементу, отображающему запись БД «Количество страниц»

object	Label19: TLabel
Left	176
Top	159
Width	106
Height	13
Caption	Количество страниц

69) Подпись к элементу, отображающему запись БД «Область литературы»

object	Label20: TLabel
Left	8
Top	207
Width	108
Height	13
Caption	Область литературы

70) Подпись к элементу, отображающему запись БД «Количество экземпляров»

object	Label21: TLabel
Left	6
Top	183
Width	133
Height	13
Caption	Количество экземпляров

71) Подпись к элементу, отображающему запись БД «Год издания»

object	Label22:TLabel
Left	24
Top	159
Width	66
Height	13
Caption	Год издания

72) Подпись к элементу, отображающему запись БД «Номер тома»

object	Label23: TLabel
Left	336
Top	158
Width	65
Height	13
Caption	Номер тома

73) Подпись к элементу, отображающему запись БД «Полка»

object	Label24: TLabel
Left	176
Top	183
Width	35
Height	13
Caption	Полка

74) Подпись к элементу, отображающему запись БД «Жанр»

object	Label25: TLabel
Left	8
Top	231
Width	32
Height	13
Caption	Жанр

75) Элемент для отображения записи БД «Количество страниц»

object	DBText10: TDBText
Left	288
Top	160
Width	49
Height	17
DataField	'KeyWord1'
DataSource	DataSource1

76) Элемент для отображения записи БД «Номер тома»

object	DBText11: TDBText
Left	408
Top	157
Width	25
Height	17
DataField	'Volume'
DataSource	DataSource1

77) Элемент для отображения записи БД «Полка»

object	DBText12: TDBText
Left	224
Top	184
Width	65
Height	17
DataField	'PlaceIndex'
DataSource	DataSource1

78) Элемент для отображения записи БД «Жанр»

object	DBText14: TDBText
Left	48
Top	232
Width	65
Height	17
DataField	'Genre'
DataSource	DataSource1

79) Элемент для отображения записи БД «Примечания»

object	DBText15: TDBText
Left	80
Top	248
Width	361
Height	41
DataField	'Notes'
DataSource	DataSource1

80) Подпись к элементу, отображающему запись БД «Примечания»

object	Label27: TLabel
Left	8
Top	252
Width	66
Height	13
Caption	Примечания

81) Панель для зрительного выделения кнопки «Готово»

object	Panel4: TPanel
Left	8
Top	16
Width	95
Height	32
TabOrder	0

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

object	Button3: TButton
Left	6
Top	3
Width	83
Height	25
Caption	Готово
TabOrder	0

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

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.

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

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

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