Разработка информационной системы "Библиотека"
| 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-запросом на выбор записей из БД
по заглавию издания
Страницы: 1, 2, 3, 4, 5, 6, 7, 8
|