Разработка информационной системы "Библиотека" (стр. 5 из 8)

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

Вторая форма