Все действия с использованием кнопочного управления дублируются в меню программы. Возможна любая комбинация применения средств программы. Допустим любой порядок их использования.
Дополнительно
Возможность выйти из программы на любом этапе работы программы
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) Кнопка «Выборка», делающая видимым блок средств выборки