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); - позволяет редактировать запись БД