По высокоуровневым методам информатики и программирования (стр. 4 )

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	''

("39") 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	''

("40") 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

("41") 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

("42")
Вторая форма

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

("43") 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

("44") 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

("45") 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) Элемент, позволяющий по истечении времени закрывать стартовую форму